src/objects.c

   1 /* NetHack 3.6  objects.c       $NHDT-Date: 1447313395 2015/11/12 07:29:55 $  $NHDT-Branch: master $:$NHDT-Revision: 1.49 $ */
   2 /* Copyright (c) Mike Threepoint, 1989.                           */
   3 /* NetHack may be freely redistributed.  See license for details. */
   4
   5 /*
   6  * The data in this file is processed twice, to construct two arrays.
   7  * On the first pass, only object name and object description matter.
   8  * On the second pass, all object-class fields except those two matter.
   9  * 2nd pass is a recursive inclusion of this file, not a 2nd compilation.
  10  * The name/description array is also used by makedefs and lev_comp.
  11  *
  12  * #ifndef OBJECTS_PASS_2_
  13  * # define OBJECT(name,desc,foo,bar,glorkum) name,desc
  14  * struct objdescr obj_descr[] =
  15  * #else
  16  * # define OBJECT(name,desc,foo,bar,glorkum) foo,bar,glorkum
  17  * struct objclass objects[] =
  18  * #endif
  19  * {
  20  *   { OBJECT("strange object",NULL, 1,2,3) },
  21  *   { OBJECT("arrow","pointy stick", 4,5,6) },
  22  *   ...
  23  *   { OBJECT(NULL,NULL, 0,0,0) }
  24  * };
  25  * #define OBJECTS_PASS_2_
  26  * #include "objects.c"
  27  */
  28
  29 /* *INDENT-OFF* */
  30 /* clang-format off */
  31
  32 #ifndef OBJECTS_PASS_2_
  33 /* first pass */
  34 struct monst { struct monst *dummy; };  /* lint: struct obj's union */
  35 #include "config.h"
  36 #include "obj.h"
  37 #include "objclass.h"
  38 #include "prop.h"
  39 #include "skills.h"
  40
  41 #else /* !OBJECTS_PASS_2_ */
  42 /* second pass */
  43 #include "color.h"
  44 #define COLOR_FIELD(X) X,
  45 #endif /* !OBJECTS_PASS_2_ */
  46
  47 /* objects have symbols: ) [ = " ( % ! ? + / $ * ` 0 _ . */
  48
  49 /*
  50  *      Note:  OBJ() and BITS() macros are used to avoid exceeding argument
  51  *      limits imposed by some compilers.  The ctnr field of BITS currently
  52  *      does not map into struct objclass, and is ignored in the expansion.
  53  *      The 0 in the expansion corresponds to oc_pre_discovered, which is
  54  *      set at run-time during role-specific character initialization.
  55  */
  56
  57 #ifndef OBJECTS_PASS_2_
  58 /* first pass -- object descriptive text */
  59 #define OBJ(name,desc)  name, desc
  60 #define OBJECT(obj,bits,prp,sym,prob,dly,wt, \
  61                cost,sdam,ldam,oc1,oc2,nut,color)  { obj }
  62 #define None (char *) 0 /* less visual distraction for 'no description' */
  63
  64 NEARDATA struct objdescr obj_descr[] =
  65 #else
  66 /* second pass -- object definitions */
  67 #define BITS(nmkn,mrg,uskn,ctnr,mgc,chrg,uniq,nwsh,big,tuf,dir,sub,mtrl) \
  68   nmkn,mrg,uskn,0,mgc,chrg,uniq,nwsh,big,tuf,dir,mtrl,sub /*SCO cpp fodder*/
  69 #define OBJECT(obj,bits,prp,sym,prob,dly,wt,cost,sdam,ldam,oc1,oc2,nut,color) \
  70   { 0, 0, (char *) 0, bits, prp, sym, dly, COLOR_FIELD(color) prob, wt, \
  71     cost, sdam, ldam, oc1, oc2, nut }
  72 #ifndef lint
  73 #define HARDGEM(n) (n >= 8)
  74 #else
  75 #define HARDGEM(n) (0)
  76 #endif
  77
  78 NEARDATA struct objclass objects[] =
  79 #endif
  80 {
  81 /* dummy object[0] -- description [2nd arg] *must* be NULL */
  82 OBJECT(OBJ("strange object", None),
  83        BITS(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, P_NONE, 0),
  84        0, ILLOBJ_CLASS, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
  85
  86 /* weapons ... */
  87 #define WEAPON(name,desc,kn,mg,bi,prob,wt,                \
  88                cost,sdam,ldam,hitbon,typ,sub,metal,color) \
  89     OBJECT(OBJ(name,desc),                                          \
  90            BITS(kn, mg, 1, 0, 0, 1, 0, 0, bi, 0, typ, sub, metal),  \
  91            0, WEAPON_CLASS, prob, 0, wt,                            \
  92            cost, sdam, ldam, hitbon, 0, wt, color)
  93 #define PROJECTILE(name,desc,kn,prob,wt,                  \
  94                    cost,sdam,ldam,hitbon,metal,sub,color) \
  95     OBJECT(OBJ(name,desc),                                          \
  96            BITS(kn, 1, 1, 0, 0, 1, 0, 0, 0, 0, PIERCE, sub, metal), \
  97            0, WEAPON_CLASS, prob, 0, wt,                            \
  98            cost, sdam, ldam, hitbon, 0, wt, color)
  99 #define BOW(name,desc,kn,prob,wt,cost,hitbon,metal,sub,color) \
 100     OBJECT(OBJ(name,desc),                                          \
 101            BITS(kn, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, sub, metal),      \
 102            0, WEAPON_CLASS, prob, 0, wt,                            \
 103            cost, 2, 2, hitbon, 0, wt, color)
 104
 105 /* Note: for weapons that don't do an even die of damage (ex. 2-7 or 3-18)
 106    the extra damage is added on in weapon.c, not here! */
 107
 108 #define P PIERCE
 109 #define S SLASH
 110 #define B WHACK
 111
 112 /* missiles; materiel reflects the arrowhead, not the shaft */
 113 PROJECTILE("arrow", None,
 114            1, 55, 1, 2, 6, 6, 0,        IRON, -P_BOW, HI_METAL),
 115 PROJECTILE("elven arrow", "runed arrow",
 116            0, 20, 1, 2, 7, 6, 0,        WOOD, -P_BOW, HI_WOOD),
 117 PROJECTILE("orcish arrow", "crude arrow",
 118            0, 20, 1, 2, 5, 6, 0,        IRON, -P_BOW, CLR_BLACK),
 119 PROJECTILE("silver arrow", None,
 120            1, 12, 1, 5, 6, 6, 0,        SILVER, -P_BOW, HI_SILVER),
 121 PROJECTILE("ya", "bamboo arrow",
 122            0, 15, 1, 4, 7, 7, 1,        METAL, -P_BOW, HI_METAL),
 123 PROJECTILE("crossbow bolt", None,
 124            1, 55, 1, 2, 4, 6, 0,        IRON, -P_CROSSBOW, HI_METAL),
 125
 126 /* missiles that don't use a launcher */
 127 WEAPON("dart", None,
 128        1, 1, 0, 60,   1,   2,  3,  2, 0, P,   -P_DART, IRON, HI_METAL),
 129 WEAPON("shuriken", "throwing star",
 130        0, 1, 0, 35,   1,   5,  8,  6, 2, P,   -P_SHURIKEN, IRON, HI_METAL),
 131 WEAPON("boomerang", None,
 132        1, 1, 0, 15,   5,  20,  9,  9, 0, 0,   -P_BOOMERANG, WOOD, HI_WOOD),
 133
 134 /* spears [note: javelin used to have a separate skill from spears,
 135    because the latter are primarily stabbing weapons rather than
 136    throwing ones; but for playability, they've been merged together
 137    under spear skill and spears can now be thrown like javelins] */
 138 WEAPON("spear", None,
 139        1, 1, 0, 50,  30,   3,  6,  8, 0, P,   P_SPEAR, IRON, HI_METAL),
 140 WEAPON("elven spear", "runed spear",
 141        0, 1, 0, 10,  30,   3,  7,  8, 0, P,   P_SPEAR, WOOD, HI_WOOD),
 142 WEAPON("orcish spear", "crude spear",
 143        0, 1, 0, 13,  30,   3,  5,  8, 0, P,   P_SPEAR, IRON, CLR_BLACK),
 144 WEAPON("dwarvish spear", "stout spear",
 145        0, 1, 0, 12,  35,   3,  8,  8, 0, P,   P_SPEAR, IRON, HI_METAL),
 146 WEAPON("silver spear", None,
 147        1, 1, 0,  2,  36,  40,  6,  8, 0, P,   P_SPEAR, SILVER, HI_SILVER),
 148 WEAPON("javelin", "throwing spear",
 149        0, 1, 0, 10,  20,   3,  6,  6, 0, P,   P_SPEAR, IRON, HI_METAL),
 150
 151 /* spearish; doesn't stack, not intended to be thrown */
 152 WEAPON("trident", None,
 153        1, 0, 0,  8,  25,   5,  6,  4, 0, P,   P_TRIDENT, IRON, HI_METAL),
 154         /* +1 small, +2d4 large */
 155
 156 /* blades; all stack */
 157 WEAPON("dagger", None,
 158        1, 1, 0, 30,  10,   4,  4,  3, 2, P,   P_DAGGER, IRON, HI_METAL),
 159 WEAPON("elven dagger", "runed dagger",
 160        0, 1, 0, 10,  10,   4,  5,  3, 2, P,   P_DAGGER, WOOD, HI_WOOD),
 161 WEAPON("orcish dagger", "crude dagger",
 162        0, 1, 0, 12,  10,   4,  3,  3, 2, P,   P_DAGGER, IRON, CLR_BLACK),
 163 WEAPON("silver dagger", None,
 164        1, 1, 0,  3,  12,  40,  4,  3, 2, P,   P_DAGGER, SILVER, HI_SILVER),
 165 WEAPON("athame", None,
 166        1, 1, 0,  0,  10,   4,  4,  3, 2, S,   P_DAGGER, IRON, HI_METAL),
 167 WEAPON("scalpel", None,
 168        1, 1, 0,  0,   5,   6,  3,  3, 2, S,   P_KNIFE, METAL, HI_METAL),
 169 WEAPON("knife", None,
 170        1, 1, 0, 20,   5,   4,  3,  2, 0, P|S, P_KNIFE, IRON, HI_METAL),
 171 WEAPON("stiletto", None,
 172        1, 1, 0,  5,   5,   4,  3,  2, 0, P|S, P_KNIFE, IRON, HI_METAL),
 173 /* 3.6: worm teeth and crysknives now stack;
 174    when a stack of teeth is enchanted at once, they fuse into one crysknife;
 175    when a stack of crysknives drops, the whole stack reverts to teeth */
 176 WEAPON("worm tooth", None,
 177        1, 1, 0,  0,  20,   2,  2,  2, 0, 0,   P_KNIFE, 0, CLR_WHITE),
 178 WEAPON("crysknife", None,
 179        1, 1, 0,  0,  20, 100, 10, 10, 3, P,   P_KNIFE, MINERAL, CLR_WHITE),
 180
 181 /* axes */
 182 WEAPON("axe", None,
 183        1, 0, 0, 40,  60,   8,  6,  4, 0, S,   P_AXE, IRON, HI_METAL),
 184 WEAPON("battle-axe", "double-headed axe",       /* "double-bitted"? */
 185        0, 0, 1, 10, 120,  40,  8,  6, 0, S,   P_AXE, IRON, HI_METAL),
 186
 187 /* swords */
 188 WEAPON("short sword", None,
 189        1, 0, 0,  8,  30,  10,  6,  8, 0, P,   P_SHORT_SWORD, IRON, HI_METAL),
 190 WEAPON("elven short sword", "runed short sword",
 191        0, 0, 0,  2,  30,  10,  8,  8, 0, P,   P_SHORT_SWORD, WOOD, HI_WOOD),
 192 WEAPON("orcish short sword", "crude short sword",
 193        0, 0, 0,  3,  30,  10,  5,  8, 0, P,   P_SHORT_SWORD, IRON, CLR_BLACK),
 194 WEAPON("dwarvish short sword", "broad short sword",
 195        0, 0, 0,  2,  30,  10,  7,  8, 0, P,   P_SHORT_SWORD, IRON, HI_METAL),
 196 WEAPON("scimitar", "curved sword",
 197        0, 0, 0, 15,  40,  15,  8,  8, 0, S,   P_SCIMITAR, IRON, HI_METAL),
 198 WEAPON("silver saber", None,
 199        1, 0, 0,  6,  40,  75,  8,  8, 0, S,   P_SABER, SILVER, HI_SILVER),
 200 WEAPON("broadsword", None,
 201        1, 0, 0,  8,  70,  10,  4,  6, 0, S,   P_BROAD_SWORD, IRON, HI_METAL),
 202         /* +d4 small, +1 large */
 203 WEAPON("elven broadsword", "runed broadsword",
 204        0, 0, 0,  4,  70,  10,  6,  6, 0, S,   P_BROAD_SWORD, WOOD, HI_WOOD),
 205         /* +d4 small, +1 large */
 206 WEAPON("long sword", None,
 207        1, 0, 0, 50,  40,  15,  8, 12, 0, S,   P_LONG_SWORD, IRON, HI_METAL),
 208 WEAPON("two-handed sword", None,
 209        1, 0, 1, 22, 150,  50, 12,  6, 0, S,   P_TWO_HANDED_SWORD,
 210                                                             IRON, HI_METAL),
 211         /* +2d6 large */
 212 WEAPON("katana", "samurai sword",
 213        0, 0, 0,  4,  40,  80, 10, 12, 1, S,   P_LONG_SWORD, IRON, HI_METAL),
 214 /* special swords set up for artifacts */
 215 WEAPON("tsurugi", "long samurai sword",
 216        0, 0, 1,  0,  60, 500, 16,  8, 2, S,   P_TWO_HANDED_SWORD,
 217                                                             METAL, HI_METAL),
 218         /* +2d6 large */
 219 WEAPON("runesword", "runed broadsword",
 220        0, 0, 0,  0,  40, 300,  4,  6, 0, S,   P_BROAD_SWORD, IRON, CLR_BLACK),
 221         /* +d4 small, +1 large; Stormbringer: +5d2 +d8 from level drain */
 222
 223 /* polearms */
 224 /* spear-type */
 225 WEAPON("partisan", "vulgar polearm",
 226        0, 0, 1,  5,  80,  10,  6,  6, 0, P,   P_POLEARMS, IRON, HI_METAL),
 227         /* +1 large */
 228 WEAPON("ranseur", "hilted polearm",
 229        0, 0, 1,  5,  50,   6,  4,  4, 0, P,   P_POLEARMS, IRON, HI_METAL),
 230         /* +d4 both */
 231 WEAPON("spetum", "forked polearm",
 232        0, 0, 1,  5,  50,   5,  6,  6, 0, P,   P_POLEARMS, IRON, HI_METAL),
 233         /* +1 small, +d6 large */
 234 WEAPON("glaive", "single-edged polearm",
 235        0, 0, 1,  8,  75,   6,  6, 10, 0, S,   P_POLEARMS, IRON, HI_METAL),
 236 WEAPON("lance", None,
 237        1, 0, 0,  4, 180,  10,  6,  8, 0, P,   P_LANCE, IRON, HI_METAL),
 238         /* +2d10 when jousting with lance as primary weapon */
 239 /* axe-type */
 240 WEAPON("halberd", "angled poleaxe",
 241        0, 0, 1,  8, 150,  10, 10,  6, 0, P|S, P_POLEARMS, IRON, HI_METAL),
 242         /* +1d6 large */
 243 WEAPON("bardiche", "long poleaxe",
 244        0, 0, 1,  4, 120,   7,  4,  4, 0, S,   P_POLEARMS, IRON, HI_METAL),
 245         /* +1d4 small, +2d4 large */
 246 WEAPON("voulge", "pole cleaver",
 247        0, 0, 1,  4, 125,   5,  4,  4, 0, S,   P_POLEARMS, IRON, HI_METAL),
 248         /* +d4 both */
 249 WEAPON("dwarvish mattock", "broad pick",
 250        0, 0, 1, 13, 120,  50, 12,  8, -1, B,  P_PICK_AXE, IRON, HI_METAL),
 251 /* curved/hooked */
 252 WEAPON("fauchard", "pole sickle",
 253        0, 0, 1,  6,  60,   5,  6,  8, 0, P|S, P_POLEARMS, IRON, HI_METAL),
 254 WEAPON("guisarme", "pruning hook",
 255        0, 0, 1,  6,  80,   5,  4,  8, 0, S,   P_POLEARMS, IRON, HI_METAL),
 256         /* +1d4 small */
 257 WEAPON("bill-guisarme", "hooked polearm",
 258        0, 0, 1,  4, 120,   7,  4, 10, 0, P|S, P_POLEARMS, IRON, HI_METAL),
 259         /* +1d4 small */
 260 /* other */
 261 WEAPON("lucern hammer", "pronged polearm",
 262        0, 0, 1,  5, 150,   7,  4,  6, 0, B|P, P_POLEARMS, IRON, HI_METAL),
 263         /* +1d4 small */
 264 WEAPON("bec de corbin", "beaked polearm",
 265        0, 0, 1,  4, 100,   8,  8,  6, 0, B|P, P_POLEARMS, IRON, HI_METAL),
 266
 267 /* bludgeons */
 268 WEAPON("mace", None,
 269        1, 0, 0, 40,  30,   5,  6,  6, 0, B,   P_MACE, IRON, HI_METAL),
 270         /* +1 small */
 271 WEAPON("morning star", None,
 272        1, 0, 0, 12, 120,  10,  4,  6, 0, B,   P_MORNING_STAR, IRON, HI_METAL),
 273         /* +d4 small, +1 large */
 274 WEAPON("war hammer", None,
 275        1, 0, 0, 15,  50,   5,  4,  4, 0, B,   P_HAMMER, IRON, HI_METAL),
 276         /* +1 small */
 277 WEAPON("club", None,
 278        1, 0, 0, 12,  30,   3,  6,  3, 0, B,   P_CLUB, WOOD, HI_WOOD),
 279 WEAPON("rubber hose", None,
 280        1, 0, 0,  0,  20,   3,  4,  3, 0, B,   P_WHIP, PLASTIC, CLR_BROWN),
 281 WEAPON("quarterstaff", "staff",
 282        0, 0, 1, 11,  40,   5,  6,  6, 0, B,   P_QUARTERSTAFF, WOOD, HI_WOOD),
 283 /* two-piece */
 284 WEAPON("aklys", "thonged club",
 285        0, 0, 0,  8,  15,   4,  6,  3, 0, B,   P_CLUB, IRON, HI_METAL),
 286 WEAPON("flail", None,
 287        1, 0, 0, 40,  15,   4,  6,  4, 0, B,   P_FLAIL, IRON, HI_METAL),
 288         /* +1 small, +1d4 large */
 289
 290 /* misc */
 291 WEAPON("bullwhip", None,
 292        1, 0, 0,  2,  20,   4,  2,  1, 0, 0,   P_WHIP, LEATHER, CLR_BROWN),
 293
 294 /* bows */
 295 BOW("bow", None,               1, 24, 30, 60, 0, WOOD, P_BOW, HI_WOOD),
 296 BOW("elven bow", "runed bow",  0, 12, 30, 60, 0, WOOD, P_BOW, HI_WOOD),
 297 BOW("orcish bow", "crude bow", 0, 12, 30, 60, 0, WOOD, P_BOW, CLR_BLACK),
 298 BOW("yumi", "long bow",        0,  0, 30, 60, 0, WOOD, P_BOW, HI_WOOD),
 299 BOW("sling", None,             1, 40,  3, 20, 0, LEATHER, P_SLING, HI_LEATHER),
 300 BOW("crossbow", None,          1, 45, 50, 40, 0, WOOD, P_CROSSBOW, HI_WOOD),
 301
 302 #undef P
 303 #undef S
 304 #undef B
 305
 306 #undef WEAPON
 307 #undef PROJECTILE
 308 #undef BOW
 309
 310 /* armor ... */
 311         /* IRON denotes ferrous metals, including steel.
 312          * Only IRON weapons and armor can rust.
 313          * Only COPPER (including brass) corrodes.
 314          * Some creatures are vulnerable to SILVER.
 315          */
 316 #define ARMOR(name,desc,kn,mgc,blk,power,prob,delay,wt,  \
 317               cost,ac,can,sub,metal,c)                   \
 318     OBJECT(OBJ(name, desc),                                         \
 319            BITS(kn, 0, 1, 0, mgc, 1, 0, 0, blk, 0, 0, sub, metal),  \
 320            power, ARMOR_CLASS, prob, delay, wt,                     \
 321            cost, 0, 0, 10 - ac, can, wt, c)
 322 #define HELM(name,desc,kn,mgc,power,prob,delay,wt,cost,ac,can,metal,c)  \
 323     ARMOR(name, desc, kn, mgc, 0, power, prob, delay, wt,  \
 324           cost, ac, can, ARM_HELM, metal, c)
 325 #define CLOAK(name,desc,kn,mgc,power,prob,delay,wt,cost,ac,can,metal,c)  \
 326     ARMOR(name, desc, kn, mgc, 0, power, prob, delay, wt,  \
 327           cost, ac, can, ARM_CLOAK, metal, c)
 328 #define SHIELD(name,desc,kn,mgc,blk,power,prob,delay,wt,cost,ac,can,metal,c) \
 329     ARMOR(name, desc, kn, mgc, blk, power, prob, delay, wt, \
 330           cost, ac, can, ARM_SHIELD, metal, c)
 331 #define GLOVES(name,desc,kn,mgc,power,prob,delay,wt,cost,ac,can,metal,c)  \
 332     ARMOR(name, desc, kn, mgc, 0, power, prob, delay, wt,  \
 333           cost, ac, can, ARM_GLOVES, metal, c)
 334 #define BOOTS(name,desc,kn,mgc,power,prob,delay,wt,cost,ac,can,metal,c)  \
 335     ARMOR(name, desc, kn, mgc, 0, power, prob, delay, wt,  \
 336           cost, ac, can, ARM_BOOTS, metal, c)
 337
 338 /* helmets */
 339 HELM("elven leather helm", "leather hat",
 340      0, 0,           0,  6, 1,  3,  8,  9, 0, LEATHER, HI_LEATHER),
 341 HELM("orcish helm", "iron skull cap",
 342      0, 0,           0,  6, 1, 30, 10,  9, 0, IRON, CLR_BLACK),
 343 HELM("dwarvish iron helm", "hard hat",
 344      0, 0,           0,  6, 1, 40, 20,  8, 0, IRON, HI_METAL),
 345 HELM("fedora", None,
 346      1, 0,           0,  0, 0,  3,  1, 10, 0, CLOTH, CLR_BROWN),
 347 HELM("cornuthaum", "conical hat",
 348      0, 1, CLAIRVOYANT,  3, 1,  4, 80, 10, 1, CLOTH, CLR_BLUE),
 349         /* name coined by devteam; confers clairvoyance for wizards,
 350            blocks clairvoyance if worn by role other than wizard */
 351 HELM("dunce cap", "conical hat",
 352      0, 1,           0,  3, 1,  4,  1, 10, 0, CLOTH, CLR_BLUE),
 353 HELM("dented pot", None,
 354      1, 0,           0,  2, 0, 10,  8,  9, 0, IRON, CLR_BLACK),
 355 /* with shuffled appearances... */
 356 HELM("helmet", "plumed helmet",
 357      0, 0,           0, 10, 1, 30, 10,  9, 0, IRON, HI_METAL),
 358 HELM("helm of brilliance", "etched helmet",
 359      0, 1,           0,  6, 1, 50, 50,  9, 0, IRON, CLR_GREEN),
 360 HELM("helm of opposite alignment", "crested helmet",
 361      0, 1,           0,  6, 1, 50, 50,  9, 0, IRON, HI_METAL),
 362 HELM("helm of telepathy", "visored helmet",
 363      0, 1,     TELEPAT,  2, 1, 50, 50,  9, 0, IRON, HI_METAL),
 364
 365 /* suits of armor */
 366 /*
 367  * There is code in polyself.c that assumes (1) and (2).
 368  * There is code in obj.h, objnam.c, mon.c, read.c that assumes (2).
 369  *      (1) The dragon scale mails and the dragon scales are together.
 370  *      (2) That the order of the dragon scale mail and dragon scales
 371  *          is the the same as order of dragons defined in monst.c.
 372  */
 373 #define DRGN_ARMR(name,mgc,power,cost,ac,color)  \
 374     ARMOR(name, None, 1, mgc, 1, power, 0, 5, 40,  \
 375           cost, ac, 0, ARM_SUIT, DRAGON_HIDE, color)
 376 /* 3.4.1: dragon scale mail reclassified as "magic" since magic is
 377    needed to create them */
 378 DRGN_ARMR("gray dragon scale mail",    1, ANTIMAGIC,  1200, 1, CLR_GRAY),
 379 DRGN_ARMR("silver dragon scale mail",  1, REFLECTING, 1200, 1, DRAGON_SILVER),
 380 #if 0 /* DEFERRED */
 381 DRGN_ARMR("shimmering dragon scale mail", 1, DISPLACED, 1200, 1, CLR_CYAN),
 382 #endif
 383 DRGN_ARMR("red dragon scale mail",     1, FIRE_RES,    900, 1, CLR_RED),
 384 DRGN_ARMR("white dragon scale mail",   1, COLD_RES,    900, 1, CLR_WHITE),
 385 DRGN_ARMR("orange dragon scale mail",  1, SLEEP_RES,   900, 1, CLR_ORANGE),
 386 DRGN_ARMR("black dragon scale mail",   1, DISINT_RES, 1200, 1, CLR_BLACK),
 387 DRGN_ARMR("blue dragon scale mail",    1, SHOCK_RES,   900, 1, CLR_BLUE),
 388 DRGN_ARMR("green dragon scale mail",   1, POISON_RES,  900, 1, CLR_GREEN),
 389 DRGN_ARMR("yellow dragon scale mail",  1, ACID_RES,    900, 1, CLR_YELLOW),
 390 /* For now, only dragons leave these. */
 391 /* 3.4.1: dragon scales left classified as "non-magic"; they confer
 392    magical properties but are produced "naturally" */
 393 DRGN_ARMR("gray dragon scales",        0, ANTIMAGIC,   700, 7, CLR_GRAY),
 394 DRGN_ARMR("silver dragon scales",      0, REFLECTING,  700, 7, DRAGON_SILVER),
 395 #if 0 /* DEFERRED */
 396 DRGN_ARMR("shimmering dragon scales",  0, DISPLACED,   700, 7, CLR_CYAN),
 397 #endif
 398 DRGN_ARMR("red dragon scales",         0, FIRE_RES,    500, 7, CLR_RED),
 399 DRGN_ARMR("white dragon scales",       0, COLD_RES,    500, 7, CLR_WHITE),
 400 DRGN_ARMR("orange dragon scales",      0, SLEEP_RES,   500, 7, CLR_ORANGE),
 401 DRGN_ARMR("black dragon scales",       0, DISINT_RES,  700, 7, CLR_BLACK),
 402 DRGN_ARMR("blue dragon scales",        0, SHOCK_RES,   500, 7, CLR_BLUE),
 403 DRGN_ARMR("green dragon scales",       0, POISON_RES,  500, 7, CLR_GREEN),
 404 DRGN_ARMR("yellow dragon scales",      0, ACID_RES,    500, 7, CLR_YELLOW),
 405 #undef DRGN_ARMR
 406 /* other suits */
 407 ARMOR("plate mail", None,
 408       1, 0, 1,  0, 44, 5, 450, 600,  3, 2,  ARM_SUIT, IRON, HI_METAL),
 409 ARMOR("crystal plate mail", None,
 410       1, 0, 1,  0, 10, 5, 450, 820,  3, 2,  ARM_SUIT, GLASS, CLR_WHITE),
 411 ARMOR("bronze plate mail", None,
 412       1, 0, 1,  0, 25, 5, 450, 400,  4, 1,  ARM_SUIT, COPPER, HI_COPPER),
 413 ARMOR("splint mail", None,
 414       1, 0, 1,  0, 62, 5, 400,  80,  4, 1,  ARM_SUIT, IRON, HI_METAL),
 415 ARMOR("banded mail", None,
 416       1, 0, 1,  0, 72, 5, 350,  90,  4, 1,  ARM_SUIT, IRON, HI_METAL),
 417 ARMOR("dwarvish mithril-coat", None,
 418       1, 0, 0,  0, 10, 1, 150, 240,  4, 2,  ARM_SUIT, MITHRIL, HI_SILVER),
 419 ARMOR("elven mithril-coat", None,
 420       1, 0, 0,  0, 15, 1, 150, 240,  5, 2,  ARM_SUIT, MITHRIL, HI_SILVER),
 421 ARMOR("chain mail", None,
 422       1, 0, 0,  0, 72, 5, 300,  75,  5, 1,  ARM_SUIT, IRON, HI_METAL),
 423 ARMOR("orcish chain mail", "crude chain mail",
 424       0, 0, 0,  0, 20, 5, 300,  75,  6, 1,  ARM_SUIT, IRON, CLR_BLACK),
 425 ARMOR("scale mail", None,
 426       1, 0, 0,  0, 72, 5, 250,  45,  6, 1,  ARM_SUIT, IRON, HI_METAL),
 427 ARMOR("studded leather armor", None,
 428       1, 0, 0,  0, 72, 3, 200,  15,  7, 1,  ARM_SUIT, LEATHER, HI_LEATHER),
 429 ARMOR("ring mail", None,
 430       1, 0, 0,  0, 72, 5, 250, 100,  7, 1,  ARM_SUIT, IRON, HI_METAL),
 431 ARMOR("orcish ring mail", "crude ring mail",
 432       0, 0, 0,  0, 20, 5, 250,  80,  8, 1,  ARM_SUIT, IRON, CLR_BLACK),
 433 ARMOR("leather armor", None,
 434       1, 0, 0,  0, 82, 3, 150,   5,  8, 1,  ARM_SUIT, LEATHER, HI_LEATHER),
 435 ARMOR("leather jacket", None,
 436       1, 0, 0,  0, 12, 0,  30,  10,  9, 0,  ARM_SUIT, LEATHER, CLR_BLACK),
 437
 438 /* shirts */
 439 ARMOR("Hawaiian shirt", None,
 440       1, 0, 0,  0,  8, 0,   5,   3, 10, 0,  ARM_SHIRT, CLOTH, CLR_MAGENTA),
 441 ARMOR("T-shirt", None,
 442       1, 0, 0,  0,  2, 0,   5,   2, 10, 0,  ARM_SHIRT, CLOTH, CLR_WHITE),
 443
 444 /* cloaks */
 445 CLOAK("mummy wrapping", None,
 446       1, 0,          0,  0, 0,  3,  2, 10, 1,  CLOTH, CLR_GRAY),
 447         /* worn mummy wrapping blocks invisibility */
 448 CLOAK("elven cloak", "faded pall",
 449       0, 1,    STEALTH,  8, 0, 10, 60,  9, 1,  CLOTH, CLR_BLACK),
 450 CLOAK("orcish cloak", "coarse mantelet",
 451       0, 0,          0,  8, 0, 10, 40, 10, 1,  CLOTH, CLR_BLACK),
 452 CLOAK("dwarvish cloak", "hooded cloak",
 453       0, 0,          0,  8, 0, 10, 50, 10, 1,  CLOTH, HI_CLOTH),
 454 CLOAK("oilskin cloak", "slippery cloak",
 455       0, 0,          0,  8, 0, 10, 50,  9, 2,  CLOTH, HI_CLOTH),
 456 CLOAK("robe", None,
 457       1, 1,          0,  3, 0, 15, 50,  8, 2,  CLOTH, CLR_RED),
 458         /* robe was adopted from slash'em, where it's worn as a suit
 459            rather than as a cloak and there are several variations */
 460 CLOAK("alchemy smock", "apron",
 461       0, 1, POISON_RES,  9, 0, 10, 50,  9, 1,  CLOTH, CLR_WHITE),
 462 CLOAK("leather cloak", None,
 463       1, 0,          0,  8, 0, 15, 40,  9, 1,  LEATHER, CLR_BROWN),
 464 /* with shuffled appearances... */
 465 CLOAK("cloak of protection", "tattered cape",
 466       0, 1, PROTECTION,  9, 0, 10, 50,  7, 3,  CLOTH, HI_CLOTH),
 467         /* cloak of protection is now the only item conferring MC 3 */
 468 CLOAK("cloak of invisibility", "opera cloak",
 469       0, 1,      INVIS, 10, 0, 10, 60,  9, 1,  CLOTH, CLR_BRIGHT_MAGENTA),
 470 CLOAK("cloak of magic resistance", "ornamental cope",
 471       0, 1,  ANTIMAGIC,  2, 0, 10, 60,  9, 1,  CLOTH, CLR_WHITE),
 472         /*  'cope' is not a spelling mistake... leave it be */
 473 CLOAK("cloak of displacement", "piece of cloth",
 474       0, 1,  DISPLACED, 10, 0, 10, 50,  9, 1,  CLOTH, HI_CLOTH),
 475
 476 /* shields */
 477 SHIELD("small shield", None,
 478        1, 0, 0,          0, 6, 0,  30,  3, 9, 0,  WOOD, HI_WOOD),
 479 SHIELD("elven shield", "blue and green shield",
 480        0, 0, 0,          0, 2, 0,  40,  7, 8, 0,  WOOD, CLR_GREEN),
 481 SHIELD("Uruk-hai shield", "white-handed shield",
 482        0, 0, 0,          0, 2, 0,  50,  7, 9, 0,  IRON, HI_METAL),
 483 SHIELD("orcish shield", "red-eyed shield",
 484        0, 0, 0,          0, 2, 0,  50,  7, 9, 0,  IRON, CLR_RED),
 485 SHIELD("large shield", None,
 486        1, 0, 1,          0, 7, 0, 100, 10, 8, 0,  IRON, HI_METAL),
 487 SHIELD("dwarvish roundshield", "large round shield",
 488        0, 0, 0,          0, 4, 0, 100, 10, 8, 0,  IRON, HI_METAL),
 489 SHIELD("shield of reflection", "polished silver shield",
 490        0, 1, 0, REFLECTING, 3, 0,  50, 50, 8, 0,  SILVER, HI_SILVER),
 491
 492 /* gloves */
 493 /* These have their color but not material shuffled, so the IRON must
 494  * stay CLR_BROWN (== HI_LEATHER) even though it's normally either
 495  * HI_METAL or CLR_BLACK.  All have shuffled descriptions.
 496  */
 497 GLOVES("leather gloves", "old gloves",
 498        0, 0,        0, 16, 1, 10,  8, 9, 0,  LEATHER, HI_LEATHER),
 499 GLOVES("gauntlets of fumbling", "padded gloves",
 500        0, 1, FUMBLING,  8, 1, 10, 50, 9, 0,  LEATHER, HI_LEATHER),
 501 GLOVES("gauntlets of power", "riding gloves",
 502        0, 1,        0,  8, 1, 30, 50, 9, 0,  IRON, CLR_BROWN),
 503 GLOVES("gauntlets of dexterity", "fencing gloves",
 504        0, 1,        0,  8, 1, 10, 50, 9, 0,  LEATHER, HI_LEATHER),
 505
 506 /* boots */
 507 BOOTS("low boots", "walking shoes",
 508       0, 0,          0, 25, 2, 10,  8, 9, 0, LEATHER, HI_LEATHER),
 509 BOOTS("iron shoes", "hard shoes",
 510       0, 0,          0,  7, 2, 50, 16, 8, 0, IRON, HI_METAL),
 511 BOOTS("high boots", "jackboots",
 512       0, 0,          0, 15, 2, 20, 12, 8, 0, LEATHER, HI_LEATHER),
 513 /* with shuffled appearances... */
 514 BOOTS("speed boots", "combat boots",
 515       0, 1,       FAST, 12, 2, 20, 50, 9, 0, LEATHER, HI_LEATHER),
 516 BOOTS("water walking boots", "jungle boots",
 517       0, 1,   WWALKING, 12, 2, 15, 50, 9, 0, LEATHER, HI_LEATHER),
 518 BOOTS("jumping boots", "hiking boots",
 519       0, 1,    JUMPING, 12, 2, 20, 50, 9, 0, LEATHER, HI_LEATHER),
 520 BOOTS("elven boots", "mud boots",
 521       0, 1,    STEALTH, 12, 2, 15,  8, 9, 0, LEATHER, HI_LEATHER),
 522 BOOTS("kicking boots", "buckled boots",
 523       0, 1,          0, 12, 2, 50,  8, 9, 0, IRON, CLR_BROWN),
 524         /* CLR_BROWN for same reason as gauntlets of power */
 525 BOOTS("fumble boots", "riding boots",
 526       0, 1,   FUMBLING, 12, 2, 20, 30, 9, 0, LEATHER, HI_LEATHER),
 527 BOOTS("levitation boots", "snow boots",
 528       0, 1, LEVITATION, 12, 2, 15, 30, 9, 0, LEATHER, HI_LEATHER),
 529 #undef HELM
 530 #undef CLOAK
 531 #undef SHIELD
 532 #undef GLOVES
 533 #undef BOOTS
 534 #undef ARMOR
 535
 536 /* rings ... */
 537 #define RING(name,stone,power,cost,mgc,spec,mohs,metal,color) \
 538     OBJECT(OBJ(name, stone),                                          \
 539            BITS(0, 0, spec, 0, mgc, spec, 0, 0, 0,                    \
 540                 HARDGEM(mohs), 0, P_NONE, metal),                     \
 541            power, RING_CLASS, 0, 0, 3, cost, 0, 0, 0, 0, 15, color)
 542 RING("adornment", "wooden",
 543      ADORNED,                  100, 1, 1, 2, WOOD, HI_WOOD),
 544 RING("gain strength", "granite",
 545      0,                        150, 1, 1, 7, MINERAL, HI_MINERAL),
 546 RING("gain constitution", "opal",
 547      0,                        150, 1, 1, 7, MINERAL, HI_MINERAL),
 548 RING("increase accuracy", "clay",
 549      0,                        150, 1, 1, 4, MINERAL, CLR_RED),
 550 RING("increase damage", "coral",
 551      0,                        150, 1, 1, 4, MINERAL, CLR_ORANGE),
 552 RING("protection", "black onyx",
 553      PROTECTION,               100, 1, 1, 7, MINERAL, CLR_BLACK),
 554         /* 'PROTECTION' intrinsic enhances MC from worn armor by +1,
 555            regardless of ring's enchantment; wearing a second ring of
 556            protection (or even one ring of protection combined with
 557            cloak of protection) doesn't give a second MC boost */
 558 RING("regeneration", "moonstone",
 559      REGENERATION,             200, 1, 0,  6, MINERAL, HI_MINERAL),
 560 RING("searching", "tiger eye",
 561      SEARCHING,                200, 1, 0,  6, GEMSTONE, CLR_BROWN),
 562 RING("stealth", "jade",
 563      STEALTH,                  100, 1, 0,  6, GEMSTONE, CLR_GREEN),
 564 RING("sustain ability", "bronze",
 565      FIXED_ABIL,               100, 1, 0,  4, COPPER, HI_COPPER),
 566 RING("levitation", "agate",
 567      LEVITATION,               200, 1, 0,  7, GEMSTONE, CLR_RED),
 568 RING("hunger", "topaz",
 569      HUNGER,                   100, 1, 0,  8, GEMSTONE, CLR_CYAN),
 570 RING("aggravate monster", "sapphire",
 571      AGGRAVATE_MONSTER,        150, 1, 0,  9, GEMSTONE, CLR_BLUE),
 572 RING("conflict", "ruby",
 573      CONFLICT,                 300, 1, 0,  9, GEMSTONE, CLR_RED),
 574 RING("warning", "diamond",
 575      WARNING,                  100, 1, 0, 10, GEMSTONE, CLR_WHITE),
 576 RING("poison resistance", "pearl",
 577      POISON_RES,               150, 1, 0,  4, BONE, CLR_WHITE),
 578 RING("fire resistance", "iron",
 579      FIRE_RES,                 200, 1, 0,  5, IRON, HI_METAL),
 580 RING("cold resistance", "brass",
 581      COLD_RES,                 150, 1, 0,  4, COPPER, HI_COPPER),
 582 RING("shock resistance", "copper",
 583      SHOCK_RES,                150, 1, 0,  3, COPPER, HI_COPPER),
 584 RING("free action", "twisted",
 585      FREE_ACTION,              200, 1, 0,  6, IRON, HI_METAL),
 586 RING("slow digestion", "steel",
 587      SLOW_DIGESTION,           200, 1, 0,  8, IRON, HI_METAL),
 588 RING("teleportation", "silver",
 589      TELEPORT,                 200, 1, 0,  3, SILVER, HI_SILVER),
 590 RING("teleport control", "gold",
 591      TELEPORT_CONTROL,         300, 1, 0,  3, GOLD, HI_GOLD),
 592 RING("polymorph", "ivory",
 593      POLYMORPH,                300, 1, 0,  4, BONE, CLR_WHITE),
 594 RING("polymorph control", "emerald",
 595      POLYMORPH_CONTROL,        300, 1, 0,  8, GEMSTONE, CLR_BRIGHT_GREEN),
 596 RING("invisibility", "wire",
 597      INVIS,                    150, 1, 0,  5, IRON, HI_METAL),
 598 RING("see invisible", "engagement",
 599      SEE_INVIS,                150, 1, 0,  5, IRON, HI_METAL),
 600 RING("protection from shape changers", "shiny",
 601      PROT_FROM_SHAPE_CHANGERS, 100, 1, 0,  5, IRON, CLR_BRIGHT_CYAN),
 602 #undef RING
 603
 604 /* amulets ... - THE Amulet comes last because it is special */
 605 #define AMULET(name,desc,power,prob) \
 606     OBJECT(OBJ(name, desc),                                            \
 607            BITS(0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, P_NONE, IRON),        \
 608            power, AMULET_CLASS, prob, 0, 20, 150, 0, 0, 0, 0, 20, HI_METAL)
 609 AMULET("amulet of ESP",                "circular", TELEPAT, 175),
 610 AMULET("amulet of life saving",       "spherical", LIFESAVED, 75),
 611 AMULET("amulet of strangulation",          "oval", STRANGLED, 135),
 612 AMULET("amulet of restful sleep",    "triangular", SLEEPY, 135),
 613 AMULET("amulet versus poison",        "pyramidal", POISON_RES, 165),
 614 AMULET("amulet of change",               "square", 0, 130),
 615 AMULET("amulet of unchanging",          "concave", UNCHANGING, 45),
 616 AMULET("amulet of reflection",        "hexagonal", REFLECTING, 75),
 617 AMULET("amulet of magical breathing", "octagonal", MAGICAL_BREATHING, 65),
 618 /* fixed descriptions; description duplication is deliberate;
 619  * fake one must come before real one because selection for
 620  * description shuffling stops when a non-magic amulet is encountered
 621  */
 622 OBJECT(OBJ("cheap plastic imitation of the Amulet of Yendor",
 623            "Amulet of Yendor"),
 624        BITS(0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, PLASTIC),
 625        0, AMULET_CLASS, 0, 0, 20, 0, 0, 0, 0, 0, 1, HI_METAL),
 626 OBJECT(OBJ("Amulet of Yendor", /* note: description == name */
 627            "Amulet of Yendor"),
 628        BITS(0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 0, MITHRIL),
 629        0, AMULET_CLASS, 0, 0, 20, 30000, 0, 0, 0, 0, 20, HI_METAL),
 630 #undef AMULET
 631
 632 /* tools ... */
 633 /* tools with weapon characteristics come last */
 634 #define TOOL(name,desc,kn,mrg,mgc,chg,prob,wt,cost,mat,color) \
 635     OBJECT(OBJ(name, desc),                                             \
 636            BITS(kn, mrg, chg, 0, mgc, chg, 0, 0, 0, 0, 0, P_NONE, mat), \
 637            0, TOOL_CLASS, prob, 0, wt, cost, 0, 0, 0, 0, wt, color)
 638 #define CONTAINER(name,desc,kn,mgc,chg,prob,wt,cost,mat,color) \
 639     OBJECT(OBJ(name, desc),                                             \
 640            BITS(kn, 0, chg, 1, mgc, chg, 0, 0, 0, 0, 0, P_NONE, mat),   \
 641            0, TOOL_CLASS, prob, 0, wt, cost, 0, 0, 0, 0, wt, color)
 642 #define WEPTOOL(name,desc,kn,mgc,bi,prob,wt,cost,sdam,ldam,hitbon,sub,mat,clr)\
 643     OBJECT(OBJ(name, desc),                                             \
 644            BITS(kn, 0, 1, 0, mgc, 1, 0, 0, bi, 0, hitbon, sub, mat),    \
 645            0, TOOL_CLASS, prob, 0, wt, cost, sdam, ldam, hitbon, 0, wt, clr)
 646 /* containers */
 647 CONTAINER("large box",       None, 1, 0, 0, 40, 350,   8, WOOD, HI_WOOD),
 648 CONTAINER("chest",           None, 1, 0, 0, 35, 600,  16, WOOD, HI_WOOD),
 649 CONTAINER("ice box",         None, 1, 0, 0,  5, 900,  42, PLASTIC, CLR_WHITE),
 650 CONTAINER("sack",           "bag", 0, 0, 0, 35,  15,   2, CLOTH, HI_CLOTH),
 651 CONTAINER("oilskin sack",   "bag", 0, 0, 0,  5,  15, 100, CLOTH, HI_CLOTH),
 652 CONTAINER("bag of holding", "bag", 0, 1, 0, 20,  15, 100, CLOTH, HI_CLOTH),
 653 CONTAINER("bag of tricks",  "bag", 0, 1, 1, 20,  15, 100, CLOTH, HI_CLOTH),
 654 #undef CONTAINER
 655
 656 /* lock opening tools */
 657 TOOL("skeleton key",       "key", 0, 0, 0, 0, 80,  3, 10, IRON, HI_METAL),
 658 TOOL("lock pick",           None, 1, 0, 0, 0, 60,  4, 20, IRON, HI_METAL),
 659 TOOL("credit card",         None, 1, 0, 0, 0, 15,  1, 10, PLASTIC, CLR_WHITE),
 660 /* light sources */
 661 TOOL("tallow candle",   "candle", 0, 1, 0, 0, 20,  2, 10, WAX, CLR_WHITE),
 662 TOOL("wax candle",      "candle", 0, 1, 0, 0,  5,  2, 20, WAX, CLR_WHITE),
 663 TOOL("brass lantern",       None, 1, 0, 0, 0, 30, 30, 12, COPPER, CLR_YELLOW),
 664 TOOL("oil lamp",          "lamp", 0, 0, 0, 0, 45, 20, 10, COPPER, CLR_YELLOW),
 665 TOOL("magic lamp",        "lamp", 0, 0, 1, 0, 15, 20, 50, COPPER, CLR_YELLOW),
 666 /* other tools */
 667 TOOL("expensive camera",    None, 1, 0, 0, 1, 15, 12,200, PLASTIC, CLR_BLACK),
 668 TOOL("mirror",   "looking glass", 0, 0, 0, 0, 45, 13, 10, GLASS, HI_SILVER),
 669 TOOL("crystal ball", "glass orb", 0, 0, 1, 1, 15,150, 60, GLASS, HI_GLASS),
 670 TOOL("lenses",              None, 1, 0, 0, 0,  5,  3, 80, GLASS, HI_GLASS),
 671 TOOL("blindfold",           None, 1, 0, 0, 0, 50,  2, 20, CLOTH, CLR_BLACK),
 672 TOOL("towel",               None, 1, 0, 0, 0, 50,  2, 50, CLOTH, CLR_MAGENTA),
 673 TOOL("saddle",              None, 1, 0, 0, 0,  5,200,150, LEATHER, HI_LEATHER),
 674 TOOL("leash",               None, 1, 0, 0, 0, 65, 12, 20, LEATHER, HI_LEATHER),
 675 TOOL("stethoscope",         None, 1, 0, 0, 0, 25,  4, 75, IRON, HI_METAL),
 676 TOOL("tinning kit",         None, 1, 0, 0, 1, 15,100, 30, IRON, HI_METAL),
 677 TOOL("tin opener",          None, 1, 0, 0, 0, 35,  4, 30, IRON, HI_METAL),
 678 TOOL("can of grease",       None, 1, 0, 0, 1, 15, 15, 20, IRON, HI_METAL),
 679 TOOL("figurine",            None, 1, 0, 1, 0, 25, 50, 80, MINERAL, HI_MINERAL),
 680         /* monster type specified by obj->corpsenm */
 681 TOOL("magic marker",        None, 1, 0, 1, 1, 15,  2, 50, PLASTIC, CLR_RED),
 682 /* traps */
 683 TOOL("land mine",           None, 1, 0, 0, 0, 0, 300,180, IRON, CLR_RED),
 684 TOOL("beartrap",            None, 1, 0, 0, 0, 0, 200, 60, IRON, HI_METAL),
 685 /* instruments;
 686    "If tin whistles are made out of tin, what do they make foghorns out of?" */
 687 TOOL("tin whistle",    "whistle", 0, 0, 0, 0,100, 3, 10, METAL, HI_METAL),
 688 TOOL("magic whistle",  "whistle", 0, 0, 1, 0, 30, 3, 10, METAL, HI_METAL),
 689 TOOL("wooden flute",     "flute", 0, 0, 0, 0,  4, 5, 12, WOOD, HI_WOOD),
 690 TOOL("magic flute",      "flute", 0, 0, 1, 1,  2, 5, 36, WOOD, HI_WOOD),
 691 TOOL("tooled horn",       "horn", 0, 0, 0, 0,  5, 18, 15, BONE, CLR_WHITE),
 692 TOOL("frost horn",        "horn", 0, 0, 1, 1,  2, 18, 50, BONE, CLR_WHITE),
 693 TOOL("fire horn",         "horn", 0, 0, 1, 1,  2, 18, 50, BONE, CLR_WHITE),
 694 TOOL("horn of plenty",    "horn", 0, 0, 1, 1,  2, 18, 50, BONE, CLR_WHITE),
 695         /* horn, but not an instrument */
 696 TOOL("wooden harp",       "harp", 0, 0, 0, 0,  4, 30, 50, WOOD, HI_WOOD),
 697 TOOL("magic harp",        "harp", 0, 0, 1, 1,  2, 30, 50, WOOD, HI_WOOD),
 698 TOOL("bell",                None, 1, 0, 0, 0,  2, 30, 50, COPPER, HI_COPPER),
 699 TOOL("bugle",               None, 1, 0, 0, 0,  4, 10, 15, COPPER, HI_COPPER),
 700 TOOL("leather drum",      "drum", 0, 0, 0, 0,  4, 25, 25, LEATHER, HI_LEATHER),
 701 TOOL("drum of earthquake","drum", 0, 0, 1, 1,  2, 25, 25, LEATHER, HI_LEATHER),
 702 /* tools useful as weapons */
 703 WEPTOOL("pick-axe", None,
 704         1, 0, 0, 20, 100,  50,  6,  3, WHACK,  P_PICK_AXE, IRON, HI_METAL),
 705 WEPTOOL("grappling hook", "iron hook",
 706         0, 0, 0,  5,  30,  50,  2,  6, WHACK,  P_FLAIL,    IRON, HI_METAL),
 707 WEPTOOL("unicorn horn", None,
 708         1, 1, 1,  0,  20, 100, 12, 12, PIERCE, P_UNICORN_HORN,
 709                                                            BONE, CLR_WHITE),
 710         /* 3.4.1: unicorn horn left classified as "magic" */
 711 /* two unique tools;
 712  * not artifacts, despite the comment which used to be here
 713  */
 714 OBJECT(OBJ("Candelabrum of Invocation", "candelabrum"),
 715        BITS(0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, P_NONE, GOLD),
 716        0, TOOL_CLASS, 0, 0, 10, 5000, 0, 0, 0, 0, 200, HI_GOLD),
 717 OBJECT(OBJ("Bell of Opening", "silver bell"),
 718        BITS(0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, P_NONE, SILVER),
 719        0, TOOL_CLASS, 0, 0, 10, 5000, 0, 0, 0, 0, 50, HI_SILVER),
 720 #undef TOOL
 721 #undef WEPTOOL
 722
 723 /* Comestibles ... */
 724 #define FOOD(name, prob, delay, wt, unk, tin, nutrition, color)         \
 725     OBJECT(OBJ(name, None),                                       \
 726            BITS(1, 1, unk, 0, 0, 0, 0, 0, 0, 0, 0, P_NONE, tin), 0,     \
 727            FOOD_CLASS, prob, delay, wt, nutrition / 20 + 5, 0, 0, 0, 0, \
 728            nutrition, color)
 729 /* All types of food (except tins & corpses) must have a delay of at least 1.
 730  * Delay on corpses is computed and is weight dependant.
 731  * Domestic pets prefer tripe rations above all others.
 732  * Fortune cookies can be read, using them up without ingesting them.
 733  * Carrots improve your vision.
 734  * +0 tins contain monster meat.
 735  * +1 tins (of spinach) make you stronger (like Popeye).
 736  * Meatballs/sticks/rings are only created from objects via stone to flesh.
 737  */
 738 /* meat */
 739 FOOD("tripe ration",        140,  2, 10, 0, FLESH, 200, CLR_BROWN),
 740 FOOD("corpse",                0,  1,  0, 0, FLESH,   0, CLR_BROWN),
 741 FOOD("egg",                  85,  1,  1, 1, FLESH,  80, CLR_WHITE),
 742 FOOD("meatball",              0,  1,  1, 0, FLESH,   5, CLR_BROWN),
 743 FOOD("meat stick",            0,  1,  1, 0, FLESH,   5, CLR_BROWN),
 744 FOOD("huge chunk of meat",    0, 20,400, 0, FLESH,2000, CLR_BROWN),
 745 /* special case because it's not mergable */
 746 OBJECT(OBJ("meat ring", None),
 747        BITS(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, FLESH),
 748        0, FOOD_CLASS, 0, 1, 5, 1, 0, 0, 0, 0, 5, CLR_BROWN),
 749 /* pudding 'corpses' will turn into these and combine;
 750    must be in same order as the pudding monsters */
 751 FOOD("glob of gray ooze",     0,  2, 20, 0, FLESH,  20, CLR_GRAY),
 752 FOOD("glob of brown pudding", 0,  2, 20, 0, FLESH,  20, CLR_BROWN),
 753 FOOD("glob of green slime",   0,  2, 20, 0, FLESH,  20, CLR_GREEN),
 754 FOOD("glob of black pudding", 0,  2, 20, 0, FLESH,  20, CLR_BLACK),
 755
 756 /* fruits & veggies */
 757 FOOD("kelp frond",            0,  1,  1, 0, VEGGY,  30, CLR_GREEN),
 758 FOOD("eucalyptus leaf",       3,  1,  1, 0, VEGGY,  30, CLR_GREEN),
 759 FOOD("apple",                15,  1,  2, 0, VEGGY,  50, CLR_RED),
 760 FOOD("orange",               10,  1,  2, 0, VEGGY,  80, CLR_ORANGE),
 761 FOOD("pear",                 10,  1,  2, 0, VEGGY,  50, CLR_BRIGHT_GREEN),
 762 FOOD("melon",                10,  1,  5, 0, VEGGY, 100, CLR_BRIGHT_GREEN),
 763 FOOD("banana",               10,  1,  2, 0, VEGGY,  80, CLR_YELLOW),
 764 FOOD("carrot",               15,  1,  2, 0, VEGGY,  50, CLR_ORANGE),
 765 FOOD("sprig of wolfsbane",    7,  1,  1, 0, VEGGY,  40, CLR_GREEN),
 766 FOOD("clove of garlic",       7,  1,  1, 0, VEGGY,  40, CLR_WHITE),
 767 /* name of slime mold is changed based on player's OPTION=fruit:something
 768    and bones data might have differently named ones from prior games */
 769 FOOD("slime mold",           75,  1,  5, 0, VEGGY, 250, HI_ORGANIC),
 770
 771 /* people food */
 772 FOOD("lump of royal jelly",   0,  1,  2, 0, VEGGY, 200, CLR_YELLOW),
 773 FOOD("cream pie",            25,  1, 10, 0, VEGGY, 100, CLR_WHITE),
 774 FOOD("candy bar",            13,  1,  2, 0, VEGGY, 100, CLR_BROWN),
 775 FOOD("fortune cookie",       55,  1,  1, 0, VEGGY,  40, CLR_YELLOW),
 776 FOOD("pancake",              25,  2,  2, 0, VEGGY, 200, CLR_YELLOW),
 777 FOOD("lembas wafer",         20,  2,  5, 0, VEGGY, 800, CLR_WHITE),
 778 FOOD("cram ration",          20,  3, 15, 0, VEGGY, 600, HI_ORGANIC),
 779 FOOD("food ration",         380,  5, 20, 0, VEGGY, 800, HI_ORGANIC),
 780 FOOD("K-ration",              0,  1, 10, 0, VEGGY, 400, HI_ORGANIC),
 781 FOOD("C-ration",              0,  1, 10, 0, VEGGY, 300, HI_ORGANIC),
 782 /* tins have type specified by obj->spe (+1 for spinach, other implies
 783    flesh; negative specifies preparation method {homemade,boiled,&c})
 784    and by obj->corpsenm (type of monster flesh) */
 785 FOOD("tin",                  75,  0, 10, 1, METAL,   0, HI_METAL),
 786 #undef FOOD
 787
 788 /* potions ... */
 789 #define POTION(name,desc,mgc,power,prob,cost,color) \
 790     OBJECT(OBJ(name, desc),                                             \
 791            BITS(0, 1, 0, 0, mgc, 0, 0, 0, 0, 0, 0, P_NONE, GLASS),      \
 792            power, POTION_CLASS, prob, 0, 20, cost, 0, 0, 0, 0, 10, color)
 793 POTION("gain ability",           "ruby",  1, 0, 42, 300, CLR_RED),
 794 POTION("restore ability",        "pink",  1, 0, 40, 100, CLR_BRIGHT_MAGENTA),
 795 POTION("confusion",            "orange",  1, CONFUSION, 42, 100, CLR_ORANGE),
 796 POTION("blindness",            "yellow",  1, BLINDED, 40, 150, CLR_YELLOW),
 797 POTION("paralysis",           "emerald",  1, 0, 42, 300, CLR_BRIGHT_GREEN),
 798 POTION("speed",            "dark green",  1, FAST, 42, 200, CLR_GREEN),
 799 POTION("levitation",             "cyan",  1, LEVITATION, 42, 200, CLR_CYAN),
 800 POTION("hallucination",      "sky blue",  1, HALLUC, 40, 100, CLR_CYAN),
 801 POTION("invisibility", "brilliant blue",  1, INVIS, 40, 150, CLR_BRIGHT_BLUE),
 802 POTION("see invisible",       "magenta",  1, SEE_INVIS, 42, 50, CLR_MAGENTA),
 803 POTION("healing",          "purple-red",  1, 0, 57, 100, CLR_MAGENTA),
 804 POTION("extra healing",          "puce",  1, 0, 47, 100, CLR_RED),
 805 POTION("gain level",            "milky",  1, 0, 20, 300, CLR_WHITE),
 806 POTION("enlightenment",        "swirly",  1, 0, 20, 200, CLR_BROWN),
 807 POTION("monster detection",    "bubbly",  1, 0, 40, 150, CLR_WHITE),
 808 POTION("object detection",      "smoky",  1, 0, 42, 150, CLR_GRAY),
 809 POTION("gain energy",          "cloudy",  1, 0, 42, 150, CLR_WHITE),
 810 POTION("sleeping",       "effervescent",  1, 0, 42, 100, CLR_GRAY),
 811 POTION("full healing",          "black",  1, 0, 10, 200, CLR_BLACK),
 812 POTION("polymorph",            "golden",  1, 0, 10, 200, CLR_YELLOW),
 813 POTION("booze",                 "brown",  0, 0, 42,  50, CLR_BROWN),
 814 POTION("sickness",              "fizzy",  0, 0, 42,  50, CLR_CYAN),
 815 POTION("fruit juice",            "dark",  0, 0, 42,  50, CLR_BLACK),
 816 POTION("acid",                  "white",  0, 0, 10, 250, CLR_WHITE),
 817 POTION("oil",                   "murky",  0, 0, 30, 250, CLR_BROWN),
 818 /* fixed description
 819  */
 820 POTION("water",                 "clear",  0, 0, 92, 100, CLR_CYAN),
 821 #undef POTION
 822
 823 /* scrolls ... */
 824 #define SCROLL(name,text,mgc,prob,cost) \
 825     OBJECT(OBJ(name, text),                                           \
 826            BITS(0, 1, 0, 0, mgc, 0, 0, 0, 0, 0, 0, P_NONE, PAPER),    \
 827            0, SCROLL_CLASS, prob, 0, 5, cost, 0, 0, 0, 0, 6, HI_PAPER)
 828 SCROLL("enchant armor",              "ZELGO MER",  1,  63,  80),
 829 SCROLL("destroy armor",         "JUYED AWK YACC",  1,  45, 100),
 830 SCROLL("confuse monster",                 "NR 9",  1,  53, 100),
 831 SCROLL("scare monster",   "XIXAXA XOXAXA XUXAXA",  1,  35, 100),
 832 SCROLL("remove curse",             "PRATYAVAYAH",  1,  65,  80),
 833 SCROLL("enchant weapon",         "DAIYEN FOOELS",  1,  80,  60),
 834 SCROLL("create monster",       "LEP GEX VEN ZEA",  1,  45, 200),
 835 SCROLL("taming",                   "PRIRUTSENIE",  1,  15, 200),
 836 SCROLL("genocide",                  "ELBIB YLOH",  1,  15, 300),
 837 SCROLL("light",                 "VERR YED HORRE",  1,  90,  50),
 838 SCROLL("teleportation",        "VENZAR BORGAVVE",  1,  55, 100),
 839 SCROLL("gold detection",                 "THARR",  1,  33, 100),
 840 SCROLL("food detection",               "YUM YUM",  1,  25, 100),
 841 SCROLL("identify",                  "KERNOD WEL",  1, 180,  20),
 842 SCROLL("magic mapping",              "ELAM EBOW",  1,  45, 100),
 843 SCROLL("amnesia",                   "DUAM XNAHT",  1,  35, 200),
 844 SCROLL("fire",                  "ANDOVA BEGARIN",  1,  30, 100),
 845 SCROLL("earth",                          "KIRJE",  1,  18, 200),
 846 SCROLL("punishment",            "VE FORBRYDERNE",  1,  15, 300),
 847 SCROLL("charging",                "HACKEM MUCHE",  1,  15, 300),
 848 SCROLL("stinking cloud",             "VELOX NEB",  1,  15, 300),
 849     /* Extra descriptions, shuffled into use at start of new game.
 850      * Code in win/share/tilemap.c depends on SCR_STINKING_CLOUD preceding
 851      * these and on how many of them there are.  If a real scroll gets added
 852      * after stinking cloud or the number of extra descriptions changes,
 853      * tilemap.c must be modified to match.
 854      */
 855 SCROLL(None,      "FOOBIE BLETCH",  1,   0, 100),
 856 SCROLL(None,              "TEMOV",  1,   0, 100),
 857 SCROLL(None,         "GARVEN DEH",  1,   0, 100),
 858 SCROLL(None,            "READ ME",  1,   0, 100),
 859 SCROLL(None,      "ETAOIN SHRDLU",  1,   0, 100),
 860 SCROLL(None,        "LOREM IPSUM",  1,   0, 100),
 861 SCROLL(None,              "FNORD",  1,   0, 100), /* Illuminati */
 862 SCROLL(None,            "KO BATE",  1,   0, 100), /* Kurd Lasswitz */
 863 SCROLL(None,      "ABRA KA DABRA",  1,   0, 100), /* traditional incantation */
 864 SCROLL(None,       "ASHPD SODALG",  1,   0, 100), /* Portal */
 865 SCROLL(None,            "ZLORFIK",  1,   0, 100), /* Zak McKracken */
 866 SCROLL(None,      "GNIK SISI VLE",  1,   0, 100), /* Zak McKracken */
 867 SCROLL(None,    "HAPAX LEGOMENON",  1,   0, 100),
 868 SCROLL(None,  "EIRIS SAZUN IDISI",  1,   0, 100), /* Merseburg Incantations */
 869 SCROLL(None,    "PHOL ENDE WODAN",  1,   0, 100), /* Merseburg Incantations */
 870 SCROLL(None,              "GHOTI",  1,   0, 100), /* pronounced as 'fish',
 871                                                         George Bernard Shaw */
 872 SCROLL(None, "MAPIRO MAHAMA DIROMAT", 1, 0, 100), /* Wizardry */
 873 SCROLL(None,  "VAS CORP BET MANI",  1,   0, 100), /* Ultima */
 874 SCROLL(None,            "XOR OTA",  1,   0, 100), /* Aarne Haapakoski */
 875 SCROLL(None, "STRC PRST SKRZ KRK",  1,   0, 100), /* Czech and Slovak
 876                                                         tongue-twister */
 877     /* These must come last because they have special fixed descriptions.
 878      */
 879 #ifdef MAIL
 880 SCROLL("mail",          "stamped",  0,   0,   0),
 881 #endif
 882 SCROLL("blank paper", "unlabeled",  0,  28,  60),
 883 #undef SCROLL
 884
 885 /* spellbooks ... */
 886 /* expanding beyond 52 spells would require changes in spellcasting
 887    or imposition of a limit on number of spells hero can know because
 888    they are currently assigned successive letters, a-zA-Z, when learned */
 889 #define SPELL(name,desc,sub,prob,delay,level,mgc,dir,color)  \
 890     OBJECT(OBJ(name, desc),                                             \
 891            BITS(0, 0, 0, 0, mgc, 0, 0, 0, 0, 0, dir, sub, PAPER),       \
 892            0, SPBOOK_CLASS, prob, delay, 50, level * 100,               \
 893            0, 0, 0, level, 20, color)
 894 SPELL("dig",             "parchment",
 895       P_MATTER_SPELL,      20,  6, 5, 1, RAY, HI_PAPER),
 896 SPELL("magic missile",   "vellum",
 897       P_ATTACK_SPELL,      45,  2, 2, 1, RAY, HI_PAPER),
 898 SPELL("fireball",        "ragged",
 899       P_ATTACK_SPELL,      20,  4, 4, 1, RAY, HI_PAPER),
 900 SPELL("cone of cold",    "dog eared",
 901       P_ATTACK_SPELL,      10,  7, 4, 1, RAY, HI_PAPER),
 902 SPELL("sleep",           "mottled",
 903       P_ENCHANTMENT_SPELL, 50,  1, 1, 1, RAY, HI_PAPER),
 904 SPELL("finger of death", "stained",
 905       P_ATTACK_SPELL,       5, 10, 7, 1, RAY, HI_PAPER),
 906 SPELL("light",           "cloth",
 907       P_DIVINATION_SPELL,  45,  1, 1, 1, NODIR, HI_CLOTH),
 908 SPELL("detect monsters", "leathery",
 909       P_DIVINATION_SPELL,  43,  1, 1, 1, NODIR, HI_LEATHER),
 910 SPELL("healing",         "white",
 911       P_HEALING_SPELL,     40,  2, 1, 1, IMMEDIATE, CLR_WHITE),
 912 SPELL("knock",           "pink",
 913       P_MATTER_SPELL,      35,  1, 1, 1, IMMEDIATE, CLR_BRIGHT_MAGENTA),
 914 SPELL("force bolt",      "red",
 915       P_ATTACK_SPELL,      35,  2, 1, 1, IMMEDIATE, CLR_RED),
 916 SPELL("confuse monster", "orange",
 917       P_ENCHANTMENT_SPELL, 30,  2, 2, 1, IMMEDIATE, CLR_ORANGE),
 918 SPELL("cure blindness",  "yellow",
 919       P_HEALING_SPELL,     25,  2, 2, 1, IMMEDIATE, CLR_YELLOW),
 920 SPELL("drain life",      "velvet",
 921       P_ATTACK_SPELL,      10,  2, 2, 1, IMMEDIATE, CLR_MAGENTA),
 922 SPELL("slow monster",    "light green",
 923       P_ENCHANTMENT_SPELL, 30,  2, 2, 1, IMMEDIATE, CLR_BRIGHT_GREEN),
 924 SPELL("wizard lock",     "dark green",
 925       P_MATTER_SPELL,      30,  3, 2, 1, IMMEDIATE, CLR_GREEN),
 926 SPELL("create monster",  "turquoise",
 927       P_CLERIC_SPELL,      35,  3, 2, 1, NODIR, CLR_BRIGHT_CYAN),
 928 SPELL("detect food",     "cyan",
 929       P_DIVINATION_SPELL,  30,  3, 2, 1, NODIR, CLR_CYAN),
 930 SPELL("cause fear",      "light blue",
 931       P_ENCHANTMENT_SPELL, 25,  3, 3, 1, NODIR, CLR_BRIGHT_BLUE),
 932 SPELL("clairvoyance",    "dark blue",
 933       P_DIVINATION_SPELL,  15,  3, 3, 1, NODIR, CLR_BLUE),
 934 SPELL("cure sickness",   "indigo",
 935       P_HEALING_SPELL,     32,  3, 3, 1, NODIR, CLR_BLUE),
 936 SPELL("charm monster",   "magenta",
 937       P_ENCHANTMENT_SPELL, 20,  3, 3, 1, IMMEDIATE, CLR_MAGENTA),
 938 SPELL("haste self",      "purple",
 939       P_ESCAPE_SPELL,      33,  4, 3, 1, NODIR, CLR_MAGENTA),
 940 SPELL("detect unseen",   "violet",
 941       P_DIVINATION_SPELL,  20,  4, 3, 1, NODIR, CLR_MAGENTA),
 942 SPELL("levitation",      "tan",
 943       P_ESCAPE_SPELL,      20,  4, 4, 1, NODIR, CLR_BROWN),
 944 SPELL("extra healing",   "plaid",
 945       P_HEALING_SPELL,     27,  5, 3, 1, IMMEDIATE, CLR_GREEN),
 946 SPELL("restore ability", "light brown",
 947       P_HEALING_SPELL,     25,  5, 4, 1, NODIR, CLR_BROWN),
 948 SPELL("invisibility",    "dark brown",
 949       P_ESCAPE_SPELL,      25,  5, 4, 1, NODIR, CLR_BROWN),
 950 SPELL("detect treasure", "gray",
 951       P_DIVINATION_SPELL,  20,  5, 4, 1, NODIR, CLR_GRAY),
 952 SPELL("remove curse",    "wrinkled",
 953       P_CLERIC_SPELL,      25,  5, 3, 1, NODIR, HI_PAPER),
 954 SPELL("magic mapping",   "dusty",
 955       P_DIVINATION_SPELL,  18,  7, 5, 1, NODIR, HI_PAPER),
 956 SPELL("identify",        "bronze",
 957       P_DIVINATION_SPELL,  20,  6, 3, 1, NODIR, HI_COPPER),
 958 SPELL("turn undead",     "copper",
 959       P_CLERIC_SPELL,      16,  8, 6, 1, IMMEDIATE, HI_COPPER),
 960 SPELL("polymorph",       "silver",
 961       P_MATTER_SPELL,      10,  8, 6, 1, IMMEDIATE, HI_SILVER),
 962 SPELL("teleport away",   "gold",
 963       P_ESCAPE_SPELL,      15,  6, 6, 1, IMMEDIATE, HI_GOLD),
 964 SPELL("create familiar", "glittering",
 965       P_CLERIC_SPELL,      10,  7, 6, 1, NODIR, CLR_WHITE),
 966 SPELL("cancellation",    "shining",
 967       P_MATTER_SPELL,      15,  8, 7, 1, IMMEDIATE, CLR_WHITE),
 968 SPELL("protection",      "dull",
 969       P_CLERIC_SPELL,      18,  3, 1, 1, NODIR, HI_PAPER),
 970 SPELL("jumping",         "thin",
 971       P_ESCAPE_SPELL,      20,  3, 1, 1, IMMEDIATE, HI_PAPER),
 972 SPELL("stone to flesh",  "thick",
 973       P_HEALING_SPELL,     15,  1, 3, 1, IMMEDIATE, HI_PAPER),
 974 #if 0 /* DEFERRED */
 975 /* from slash'em, create a tame critter which explodes when attacking,
 976    damaging adjacent creatures--friend or foe--and dying in the process */
 977 SPELL("flame sphere",    "canvas",
 978       P_MATTER_SPELL,      20,  2, 1, 1, NODIR, CLR_BROWN),
 979 SPELL("freeze sphere",   "hardcover",
 980       P_MATTER_SPELL,      20,  2, 1, 1, NODIR, CLR_BROWN),
 981 #endif
 982 /* books with fixed descriptions
 983  */
 984 SPELL("blank paper", "plain", P_NONE, 18, 0, 0, 0, 0, HI_PAPER),
 985 /* tribute book for 3.6 */
 986 OBJECT(OBJ("novel", "paperback"),
 987        BITS(0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, P_NONE, HI_PAPER),
 988        0, SPBOOK_CLASS, 0, 0, 0, 20, 0, 0, 0, 1, 20, CLR_BRIGHT_BLUE),
 989 /* a special, one of a kind, spellbook */
 990 OBJECT(OBJ("Book of the Dead", "papyrus"),
 991        BITS(0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, P_NONE, PAPER),
 992        0, SPBOOK_CLASS, 0, 0, 20, 10000, 0, 0, 0, 7, 20, HI_PAPER),
 993 #undef SPELL
 994
 995 /* wands ... */
 996 #define WAND(name,typ,prob,cost,mgc,dir,metal,color) \
 997     OBJECT(OBJ(name, typ),                                              \
 998            BITS(0, 0, 1, 0, mgc, 1, 0, 0, 0, 0, dir, P_NONE, metal),    \
 999            0, WAND_CLASS, prob, 0, 7, cost, 0, 0, 0, 0, 30, color)
1000 WAND("light",           "glass", 95, 100, 1, NODIR, GLASS, HI_GLASS),
1001 WAND("secret door detection",
1002                         "balsa", 50, 150, 1, NODIR, WOOD, HI_WOOD),
1003 WAND("enlightenment", "crystal", 15, 150, 1, NODIR, GLASS, HI_GLASS),
1004 WAND("create monster",  "maple", 45, 200, 1, NODIR, WOOD, HI_WOOD),
1005 WAND("wishing",          "pine",  5, 500, 1, NODIR, WOOD, HI_WOOD),
1006 WAND("nothing",           "oak", 25, 100, 0, IMMEDIATE, WOOD, HI_WOOD),
1007 WAND("striking",        "ebony", 75, 150, 1, IMMEDIATE, WOOD, HI_WOOD),
1008 WAND("make invisible", "marble", 45, 150, 1, IMMEDIATE, MINERAL, HI_MINERAL),
1009 WAND("slow monster",      "tin", 50, 150, 1, IMMEDIATE, METAL, HI_METAL),
1010 WAND("speed monster",   "brass", 50, 150, 1, IMMEDIATE, COPPER, HI_COPPER),
1011 WAND("undead turning", "copper", 50, 150, 1, IMMEDIATE, COPPER, HI_COPPER),
1012 WAND("polymorph",      "silver", 45, 200, 1, IMMEDIATE, SILVER, HI_SILVER),
1013 WAND("cancellation", "platinum", 45, 200, 1, IMMEDIATE, PLATINUM, CLR_WHITE),
1014 WAND("teleportation", "iridium", 45, 200, 1, IMMEDIATE, METAL,
1015                                                              CLR_BRIGHT_CYAN),
1016 WAND("opening",          "zinc", 25, 150, 1, IMMEDIATE, METAL, HI_METAL),
1017 WAND("locking",      "aluminum", 25, 150, 1, IMMEDIATE, METAL, HI_METAL),
1018 WAND("probing",       "uranium", 30, 150, 1, IMMEDIATE, METAL, HI_METAL),
1019 WAND("digging",          "iron", 55, 150, 1, RAY, IRON, HI_METAL),
1020 WAND("magic missile",   "steel", 50, 150, 1, RAY, IRON, HI_METAL),
1021 WAND("fire",        "hexagonal", 40, 175, 1, RAY, IRON, HI_METAL),
1022 WAND("cold",            "short", 40, 175, 1, RAY, IRON, HI_METAL),
1023 WAND("sleep",           "runed", 50, 175, 1, RAY, IRON, HI_METAL),
1024 WAND("death",            "long",  5, 500, 1, RAY, IRON, HI_METAL),
1025 WAND("lightning",      "curved", 40, 175, 1, RAY, IRON, HI_METAL),
1026 /* extra descriptions, shuffled into use at start of new game */
1027 WAND(None,             "forked",  0, 150, 1, 0, WOOD, HI_WOOD),
1028 WAND(None,             "spiked",  0, 150, 1, 0, IRON, HI_METAL),
1029 WAND(None,            "jeweled",  0, 150, 1, 0, IRON, HI_MINERAL),
1030 #undef WAND
1031
1032 /* coins ... - so far, gold is all there is */
1033 #define COIN(name,prob,metal,worth) \
1034     OBJECT(OBJ(name, None),                                        \
1035            BITS(0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, P_NONE, metal),    \
1036            0, COIN_CLASS, prob, 0, 1, worth, 0, 0, 0, 0, 0, HI_GOLD)
1037 COIN("gold piece", 1000, GOLD, 1),
1038 #undef COIN
1039
1040 /* gems ... - includes stones and rocks but not boulders */
1041 #define GEM(name,desc,prob,wt,gval,nutr,mohs,glass,color) \
1042     OBJECT(OBJ(name, desc),                                             \
1043            BITS(0, 1, 0, 0, 0, 0, 0, 0, 0,                              \
1044                 HARDGEM(mohs), 0, -P_SLING, glass),                     \
1045            0, GEM_CLASS, prob, 0, 1, gval, 3, 3, 0, 0, nutr, color)
1046 #define ROCK(name,desc,kn,prob,wt,gval,sdam,ldam,mgc,nutr,mohs,glass,color) \
1047     OBJECT(OBJ(name, desc),                                             \
1048            BITS(kn, 1, 0, 0, mgc, 0, 0, 0, 0,                           \
1049                 HARDGEM(mohs), 0, -P_SLING, glass),                     \
1050            0, GEM_CLASS, prob, 0, wt, gval, sdam, ldam, 0, 0, nutr, color)
1051 GEM("dilithium crystal", "white",  2, 1, 4500, 15,  5, GEMSTONE, CLR_WHITE),
1052 GEM("diamond",           "white",  3, 1, 4000, 15, 10, GEMSTONE, CLR_WHITE),
1053 GEM("ruby",                "red",  4, 1, 3500, 15,  9, GEMSTONE, CLR_RED),
1054 GEM("jacinth",          "orange",  3, 1, 3250, 15,  9, GEMSTONE, CLR_ORANGE),
1055 GEM("sapphire",           "blue",  4, 1, 3000, 15,  9, GEMSTONE, CLR_BLUE),
1056 GEM("black opal",        "black",  3, 1, 2500, 15,  8, GEMSTONE, CLR_BLACK),
1057 GEM("emerald",           "green",  5, 1, 2500, 15,  8, GEMSTONE, CLR_GREEN),
1058 GEM("turquoise",         "green",  6, 1, 2000, 15,  6, GEMSTONE, CLR_GREEN),
1059 GEM("citrine",          "yellow",  4, 1, 1500, 15,  6, GEMSTONE, CLR_YELLOW),
1060 GEM("aquamarine",        "green",  6, 1, 1500, 15,  8, GEMSTONE, CLR_GREEN),
1061 GEM("amber",   "yellowish brown",  8, 1, 1000, 15,  2, GEMSTONE, CLR_BROWN),
1062 GEM("topaz",   "yellowish brown", 10, 1,  900, 15,  8, GEMSTONE, CLR_BROWN),
1063 GEM("jet",               "black",  6, 1,  850, 15,  7, GEMSTONE, CLR_BLACK),
1064 GEM("opal",              "white", 12, 1,  800, 15,  6, GEMSTONE, CLR_WHITE),
1065 GEM("chrysoberyl",      "yellow",  8, 1,  700, 15,  5, GEMSTONE, CLR_YELLOW),
1066 GEM("garnet",              "red", 12, 1,  700, 15,  7, GEMSTONE, CLR_RED),
1067 GEM("amethyst",         "violet", 14, 1,  600, 15,  7, GEMSTONE, CLR_MAGENTA),
1068 GEM("jasper",              "red", 15, 1,  500, 15,  7, GEMSTONE, CLR_RED),
1069 GEM("fluorite",         "violet", 15, 1,  400, 15,  4, GEMSTONE, CLR_MAGENTA),
1070 GEM("obsidian",          "black",  9, 1,  200, 15,  6, GEMSTONE, CLR_BLACK),
1071 GEM("agate",            "orange", 12, 1,  200, 15,  6, GEMSTONE, CLR_ORANGE),
1072 GEM("jade",              "green", 10, 1,  300, 15,  6, GEMSTONE, CLR_GREEN),
1073 GEM("worthless piece of white glass", "white",
1074     77, 1, 0, 6, 5, GLASS, CLR_WHITE),
1075 GEM("worthless piece of blue glass", "blue",
1076     77, 1, 0, 6, 5, GLASS, CLR_BLUE),
1077 GEM("worthless piece of red glass", "red",
1078     77, 1, 0, 6, 5, GLASS, CLR_RED),
1079 GEM("worthless piece of yellowish brown glass", "yellowish brown",
1080     77, 1, 0, 6, 5, GLASS, CLR_BROWN),
1081 GEM("worthless piece of orange glass", "orange",
1082     76, 1, 0, 6, 5, GLASS, CLR_ORANGE),
1083 GEM("worthless piece of yellow glass", "yellow",
1084     77, 1, 0, 6, 5, GLASS, CLR_YELLOW),
1085 GEM("worthless piece of black glass", "black",
1086     76, 1, 0, 6, 5, GLASS, CLR_BLACK),
1087 GEM("worthless piece of green glass", "green",
1088     77, 1, 0, 6, 5, GLASS, CLR_GREEN),
1089 GEM("worthless piece of violet glass", "violet",
1090     77, 1, 0, 6, 5, GLASS, CLR_MAGENTA),
1091
1092 /* Placement note: there is a wishable subrange for
1093  * "gray stones" in the o_ranges[] array in objnam.c
1094  * that is currently everything between luckstones and flint
1095  * (inclusive).
1096  */
1097 ROCK("luckstone", "gray",  0,  10,  10, 60, 3, 3, 1, 10, 7, MINERAL, CLR_GRAY),
1098 ROCK("loadstone", "gray",  0,  10, 500,  1, 3, 3, 1, 10, 6, MINERAL, CLR_GRAY),
1099 ROCK("touchstone", "gray", 0,   8,  10, 45, 3, 3, 1, 10, 6, MINERAL, CLR_GRAY),
1100 ROCK("flint", "gray",      0,  10,  10,  1, 6, 6, 0, 10, 7, MINERAL, CLR_GRAY),
1101 ROCK("rock", None,         1, 100,  10,  0, 3, 3, 0, 10, 7, MINERAL, CLR_GRAY),
1102 #undef GEM
1103 #undef ROCK
1104
1105 /* miscellaneous ... */
1106 /* Note: boulders and rocks are not normally created at random; the
1107  * probabilities only come into effect when you try to polymorph them.
1108  * Boulders weigh more than MAX_CARR_CAP; statues use corpsenm to take
1109  * on a specific type and may act as containers (both affect weight).
1110  */
1111 OBJECT(OBJ("boulder", None),
1112        BITS(1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, P_NONE, MINERAL), 0,
1113        ROCK_CLASS, 100, 0, 6000, 0, 20, 20, 0, 0, 2000, HI_MINERAL),
1114 OBJECT(OBJ("statue", None),
1115        BITS(1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, P_NONE, MINERAL), 0,
1116        ROCK_CLASS, 900, 0, 2500, 0, 20, 20, 0, 0, 2500, CLR_WHITE),
1117
1118 OBJECT(OBJ("heavy iron ball", None),
1119        BITS(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, WHACK, P_NONE, IRON), 0,
1120        BALL_CLASS, 1000, 0, 480, 10, 25, 25, 0, 0, 200, HI_METAL),
1121         /* +d4 when "very heavy" */
1122 OBJECT(OBJ("iron chain", None),
1123        BITS(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, WHACK, P_NONE, IRON), 0,
1124        CHAIN_CLASS, 1000, 0, 120, 0, 4, 4, 0, 0, 200, HI_METAL),
1125         /* +1 both l & s */
1126
1127 /* Venom is normally a transitory missile (spit by various creatures)
1128  * but can be wished for in wizard mode so could occur in bones data.
1129  */
1130 OBJECT(OBJ("blinding venom", "splash of venom"),
1131        BITS(0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, P_NONE, LIQUID), 0,
1132        VENOM_CLASS, 500, 0, 1, 0, 0, 0, 0, 0, 0, HI_ORGANIC),
1133 OBJECT(OBJ("acid venom", "splash of venom"),
1134        BITS(0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, P_NONE, LIQUID), 0,
1135        VENOM_CLASS, 500, 0, 1, 0, 6, 6, 0, 0, 0, HI_ORGANIC),
1136         /* +d6 small or large */
1137
1138 /* fencepost, the deadly Array Terminator -- name [1st arg] *must* be NULL */
1139 OBJECT(OBJ(None, None),
1140        BITS(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, P_NONE, 0), 0,
1141        ILLOBJ_CLASS, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
1142 }; /* objects[] */
1143
1144 #ifndef OBJECTS_PASS_2_
1145
1146 /* perform recursive compilation for second structure */
1147 #undef OBJ
1148 #undef OBJECT
1149 #define OBJECTS_PASS_2_
1150 #include "objects.c"
1151
1152 /* clang-format on */
1153 /* *INDENT-ON* */
1154
1155 void NDECL(objects_init);
1156
1157 /* dummy routine used to force linkage */
1158 void
1159 objects_init()
1160 {
1161     return;
1162 }
1163
1164 #endif /* !OBJECTS_PASS_2_ */
1165
1166 /*objects.c*/