Revision: | 1.1 |
Committed: | Thu Sep 7 21:42:59 2006 UTC (17 years, 10 months ago) by pippijn |
Branch: | MAIN |
CVS Tags: | rel-2_82, rel-2_81, rel-2_80, rel-3_1, rel-3_0, rel-2_6, rel-2_7, rel-2_4, rel-2_5, rel-2_2, rel-2_3, rel-2_0, rel-2_1, rel-2_72, rel-2_73, rel-2_71, rel-2_76, rel-2_77, rel-2_74, rel-2_75, rel-2_54, rel-2_55, rel-2_56, rel-2_79, rel-2_52, rel-2_53, rel-2_32, rel-2_90, rel-2_92, rel-2_93, rel-2_78, rel-2_61, rel-2_43, rel-2_42, rel-2_41, HEAD |
Log Message: | Moved documents to doc/historic |
# | User | Rev | Content |
---|---|---|---|
1 | pippijn | 1.1 | |
2 | BEGIN { | ||
3 | # Read the array data from living.c | ||
4 | while ((getline buff < living_c) == 1) { | ||
5 | if (buff ~ /con_bonus\[/) { | ||
6 | get_values(buff); | ||
7 | for(i=1;i<=30;i++) con[i]=array[i]; | ||
8 | } | ||
9 | if (buff ~ /sp_bonus\[/) { | ||
10 | get_values(buff); | ||
11 | for(i=1;i<=30;i++) sp[i]=array[i]; | ||
12 | } | ||
13 | if (buff ~ /dex_bonus\[/) { | ||
14 | get_values(buff); | ||
15 | for(i=1;i<=30;i++) ac[i]=-1*array[i]; | ||
16 | } | ||
17 | if (buff ~ /dam_bonus\[/) { | ||
18 | get_values(buff); | ||
19 | for(i=1;i<=30;i++) dam[i]=array[i]; | ||
20 | } | ||
21 | if (buff ~ /float cha_bonus\[/) { | ||
22 | get_values(buff); | ||
23 | for(i=1;i<=30;i++) { | ||
24 | diff = (array[i] - 1)/(array[i] + 1); | ||
25 | buy[i] = diff + 1; | ||
26 | sell[i] = 1 - diff; | ||
27 | } | ||
28 | } | ||
29 | if (buff ~ /speed_bonus\[/) { | ||
30 | get_values(buff); | ||
31 | for(i=1;i<=30;i++) speed[i]= 1 + array[i]; | ||
32 | } | ||
33 | if (buff ~ /max_carry\[/) { | ||
34 | get_values(buff); | ||
35 | for(i=1;i<=30;i++) carry[i]=array[i]; | ||
36 | } | ||
37 | if (buff ~ /thaco_bonus\[/) { | ||
38 | get_values(buff); | ||
39 | for(i=1;i<=30;i++) thaco[i]=array[i]; | ||
40 | } | ||
41 | if (buff ~ /learn_spell\[/) { | ||
42 | get_values(buff); | ||
43 | for(i=1;i<=30;i++) learn[i]=array[i]; | ||
44 | break; | ||
45 | } | ||
46 | } | ||
47 | # print it out | ||
48 | for(i=1; i<=30 ; i++) { | ||
49 | printf("%d & %s & %s & %s & %s & %s & %s & %s & %s & %6.3f/%6.3f \\\\ \n",i, | ||
50 | con[i],sp[i],ac[i],dam[i],thaco[i],carry[i],speed[i],learn[i],buy[i],sell[i]); | ||
51 | } | ||
52 | |||
53 | close(living_c); | ||
54 | } | ||
55 | |||
56 | function get_values (buff) { | ||
57 | tind = 0; | ||
58 | while (1) { | ||
59 | getline buff < living_c; | ||
60 | # if(lev==1) getline buff < living_c; | ||
61 | if (buff ~ /};/) | ||
62 | break; | ||
63 | gsub("[ \t]*\"", "", buff); | ||
64 | nr = split(buff, val, ","); | ||
65 | for (i = 1; i<=nr ; i++) | ||
66 | if(val[i]!="") array[tind++]=val[i]; | ||
67 | } | ||
68 | } |