| 1 |
# items-extract - parse the archetypes-file and output the |
| 2 |
# artifacts in a structured format. |
| 3 |
|
| 4 |
# Variables passed when invoked: |
| 5 |
# living_c - filename where the array attacks is defined. |
| 6 |
|
| 7 |
BEGIN { |
| 8 |
# These stats will be added to the "magik" string according |
| 9 |
# to the pattern. "%s" should be "%+d", but that isn't |
| 10 |
# portable. |
| 11 |
magic["Str"] = "strength %s"; |
| 12 |
magic["Dex"] = "dexterity %s"; |
| 13 |
magic["Con"] = "constitution %s"; |
| 14 |
magic["Int"] = "intelligence %s"; |
| 15 |
magic["Wis"] = "wisdom %s"; |
| 16 |
magic["Cha"] = "charisma %s"; |
| 17 |
magic["Pow"] = "power %s"; |
| 18 |
|
| 19 |
magic["luck"] = "luck %s"; |
| 20 |
magic["exp"] = "speed %s"; |
| 21 |
magic["sp"] = "spell-point regeneration %s"; |
| 22 |
magic["hp"] = "hit-point regeneration %s"; |
| 23 |
# magic["dam"] = "damage %s"; |
| 24 |
|
| 25 |
magic["reflect_spell"] = "reflect spells"; |
| 26 |
magic["xrays"] = "X-ray vision"; |
| 27 |
magic["stealth"] = "stealth"; |
| 28 |
magic["flying"] = "flying"; |
| 29 |
|
| 30 |
# Read the attack-types (and immune/protection) |
| 31 |
while ((getline buff < living_c) == 1) { |
| 32 |
if (buff ~ /attacks\[/) { |
| 33 |
att = 0; |
| 34 |
while (1) { |
| 35 |
getline buff < living_c; |
| 36 |
if (buff ~ "^}") |
| 37 |
break; |
| 38 |
gsub("[ \t]*\"", "", buff); |
| 39 |
nr = split(buff, arr, ","); |
| 40 |
for (i = 1; i <= nr && arr[i]; i++) |
| 41 |
attack[++att] = arr[i]; |
| 42 |
} |
| 43 |
break; |
| 44 |
} |
| 45 |
} |
| 46 |
close(living_c); |
| 47 |
|
| 48 |
# These types are always artifacts: |
| 49 |
artifact[99] = artifact[14] = artifact[16] = artifact[33] = 1; |
| 50 |
artifact[34] = artifact[100] = artifact[113] = artifact[915] = 1; |
| 51 |
|
| 52 |
weapons[15] = weapons[915] = 1; |
| 53 |
armours[16] = armours[33] = armours[34] = armours[99] = 1; |
| 54 |
|
| 55 |
worthless["chair"] = worthless["table"] = worthless["bed"] = 1; |
| 56 |
} |
| 57 |
|
| 58 |
/^Object/ { |
| 59 |
slay = magik = ""; |
| 60 |
name = obj = $2; |
| 61 |
x = y = 0; |
| 62 |
xmin = xmax = ymin = ymax = 0; |
| 63 |
More = 0; |
| 64 |
dam = type = magical = ac = armour = weight = last_sp = 0; |
| 65 |
att = prot = immune = 0; |
| 66 |
} |
| 67 |
|
| 68 |
$1 in magic { |
| 69 |
if ($1 == "sp" && type == 14) |
| 70 |
ac = $2; |
| 71 |
else |
| 72 |
add_magik(magic[$1], $2); |
| 73 |
} |
| 74 |
|
| 75 |
/^type/ { type = $2 } |
| 76 |
/^last_sp/ { last_sp = $2 } |
| 77 |
/^dam/ { dam = $2 } |
| 78 |
/^ac/ { ac = $2 } |
| 79 |
/^armour/ { armour = $2 } |
| 80 |
/^weight/ { weight = $2 } |
| 81 |
/^attacktype/ { att = $2 } |
| 82 |
/^protected/ { prot = $2 } |
| 83 |
/^immune/ { immune = $2 } |
| 84 |
/^slaying/ { slay = $2; } |
| 85 |
/^magic/ { magical = $2 } |
| 86 |
/^name / { name = substr($0, 6) } |
| 87 |
|
| 88 |
/^end/ { |
| 89 |
# Type 15 are artifacts if they are magical |
| 90 |
if (type == 15 && magical) |
| 91 |
type += 900; |
| 92 |
# It can also be chairs and beds, but they are in the worthless |
| 93 |
# array... |
| 94 |
if (artifact[type] || (type == 15 && !worthless[name])) { |
| 95 |
if (dam && ! (type in weapons)) |
| 96 |
add_magik("damage %s", dam); |
| 97 |
if (ac && ! (type in armours)) |
| 98 |
add_magik("ac %s", ac); |
| 99 |
if (armour && ! (type in armours)) |
| 100 |
add_magik("armour %s", armour); |
| 101 |
|
| 102 |
magik = magik attacktype(att, "Attacks:"); |
| 103 |
magik = magik attacktype(prot, "Protected:"); |
| 104 |
magik = magik attacktype(immune, "Immune:"); |
| 105 |
if (slay) |
| 106 |
magik = magik "\\newline " capitalize(slay=="wall" ? "excavation" : slay "-slaying"); |
| 107 |
|
| 108 |
if (magical) |
| 109 |
name = name " +" magical; |
| 110 |
|
| 111 |
sub("^\\\\newline ", "", magik); |
| 112 |
magik = capitalize(magik); |
| 113 |
name = capitalize(name); |
| 114 |
sub("_", " ", name); |
| 115 |
|
| 116 |
if (type in armours) |
| 117 |
speed = last_sp/10; |
| 118 |
else if (type in weapons) { |
| 119 |
# Horrible, I know. Blame vidarl@ifi.uio.no -- Fy Vidar! |
| 120 |
# I assume the player has max Str and Dex |
| 121 |
# and speed of 6 here. |
| 122 |
|
| 123 |
# weapon_speed = (last_sp*2 - magical) / 2; |
| 124 |
# if (weapon_speed < 0) weapon_speed = 0; |
| 125 |
|
| 126 |
# M = (300-121)/121.0; |
| 127 |
# M2 = 300/100.0; |
| 128 |
# W = weight/20000.0; |
| 129 |
# s = 2 - weapon_speed/10.0; |
| 130 |
|
| 131 |
# D = (30-14)/14.0; |
| 132 |
# K = 1 + M/3.0 - W/(3*M2) + 6/5.0 + D/2.0; |
| 133 |
# K *= (4 + 99)/(6 + 99) * 1.2; |
| 134 |
# if ( K <= 0) K = 0.01 |
| 135 |
|
| 136 |
# W = weight/20000; s = 2 - ((last_sp*2 - magical) / 2)/10; |
| 137 |
# K = 1.177*(4 - W/30 + 6/5) |
| 138 |
# if (K <= 0) K = 0.01; |
| 139 |
|
| 140 |
# speed = 6/(K*s); |
| 141 |
|
| 142 |
speed = last_sp; |
| 143 |
} else |
| 144 |
speed = 0; |
| 145 |
|
| 146 |
printf("%d &%s &%s &%s &%d &%.1f &%d &%d &%d &~~%s~~ &%.2f\n", |
| 147 |
type, obj, name, magik, dam, (weight/1000), ac, |
| 148 |
armour, magical, obj, speed); |
| 149 |
} |
| 150 |
} |
| 151 |
|
| 152 |
END { |
| 153 |
close("items"); |
| 154 |
} |
| 155 |
|
| 156 |
|
| 157 |
# Given a bitmask, give a string enumerating the meaning of the bits. |
| 158 |
function attacktype(at, type, i, str) { |
| 159 |
for (i = 1; i in attack; i++) { |
| 160 |
if (at % 2) |
| 161 |
str = (str ? str ", " : "") attack[i]; |
| 162 |
at = int(at/2); |
| 163 |
} |
| 164 |
return str ? "\\newline " type " " str : ""; |
| 165 |
} |
| 166 |
|
| 167 |
function add_magik(str, val) { |
| 168 |
if (str ~ /%[0-9-]*s/) |
| 169 |
str = sprintf(str, val < 0 ? val : "+" val); |
| 170 |
magik = magik ? magik ", " str : str; |
| 171 |
} |
| 172 |
|
| 173 |
function capitalize(str) { |
| 174 |
return toupper(substr(str, 1, 1)) substr(str, 2); |
| 175 |
} |
