1/* $NetBSD: data.c,v 1.12 2008/01/28 05:38:53 dholland Exp $ */ 2 3/*- 4 * Copyright (c) 1988 The Regents of the University of California. 5 * All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 3. Neither the name of the University nor the names of its contributors 16 * may be used to endorse or promote products derived from this software 17 * without specific prior written permission. 18 * 19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 29 * SUCH DAMAGE. 30 */ 31 32#include <sys/cdefs.h> 33#ifndef lint 34#if 0 35static char sccsid[] = "@(#)data.c 5.3 (Berkeley) 5/13/91"; 36#else 37__RCSID("$NetBSD: data.c,v 1.12 2008/01/28 05:38:53 dholland Exp $"); 38#endif 39#endif /* not lint */ 40 41/* data.c Larn is copyrighted 1986 by Noah Morgan. */ 42/* #define NODEFS */ 43#include "header.h" 44#include "extern.h" 45 46/* 47 class[c[LEVEL]-1] gives the correct name of the players experience level 48 */ 49static char aa1[] = " mighty evil master"; 50static char aa2[] = "apprentice demi-god"; 51static char aa3[] = " minor demi-god "; 52static char aa4[] = " major demi-god "; 53static char aa5[] = " minor deity "; 54static char aa6[] = " major deity "; 55static char aa7[] = " novice guardian "; 56static char aa8[] = "apprentice guardian"; 57static char aa9[] = " The Creator "; 58const char *class[] = 59{ 60 " novice explorer ", "apprentice explorer", " practiced explorer", /* -3 */ 61 " expert explorer ", " novice adventurer", " adventurer ", /* -6 */ 62 "apprentice conjurer", " conjurer ", " master conjurer ", /* -9 */ 63 " apprentice mage ", " mage ", " experienced mage ", /* -12 */ 64 " master mage ", " apprentice warlord", " novice warlord ", /* -15 */ 65 " expert warlord ", " master warlord ", " apprentice gorgon ", /* -18 */ 66 " gorgon ", " practiced gorgon ", " master gorgon ", /* -21 */ 67 " demi-gorgon ", " evil master ", " great evil master ", /* -24 */ 68 aa1, aa1, aa1, /* -27 */ 69 aa1, aa1, aa1, /* -30 */ 70 aa1, aa1, aa1, /* -33 */ 71 aa1, aa1, aa1, /* -36 */ 72 aa1, aa1, aa1, /* -39 */ 73 aa2, aa2, aa2, /* -42 */ 74 aa2, aa2, aa2, /* -45 */ 75 aa2, aa2, aa2, /* -48 */ 76 aa3, aa3, aa3, /* -51 */ 77 aa3, aa3, aa3, /* -54 */ 78 aa3, aa3, aa3, /* -57 */ 79 aa4, aa4, aa4, /* -60 */ 80 aa4, aa4, aa4, /* -63 */ 81 aa4, aa4, aa4, /* -66 */ 82 aa5, aa5, aa5, /* -69 */ 83 aa5, aa5, aa5, /* -72 */ 84 aa5, aa5, aa5, /* -75 */ 85 aa6, aa6, aa6, /* -78 */ 86 aa6, aa6, aa6, /* -81 */ 87 aa6, aa6, aa6, /* -84 */ 88 aa7, aa7, aa7, /* -87 */ 89 aa8, aa8, aa8, /* -90 */ 90 aa8, aa8, aa8, /* -93 */ 91 " earth guardian ", " air guardian ", " fire guardian ", /* -96 */ 92 " water guardian ", " time guardian ", " ethereal guardian ", /* -99 */ 93 aa9, aa9, aa9, /* -102 */ 94}; 95 96/* 97 table of experience needed to be a certain level of player 98 skill[c[LEVEL]] is the experience required to attain the next level 99 */ 100#define MEG 1000000 101long skill[] = { 102 0, 10, 20, 40, 80, 160, 320, 640, 1280, 2560, 5120, /* 1-11 */ 103 10240, 20480, 40960, 100000, 200000, 400000, 700000, 1 * MEG, /* 12-19 */ 104 2 * MEG, 3 * MEG, 4 * MEG, 5 * MEG, 6 * MEG, 8 * MEG, 10 * MEG, /* 20-26 */ 105 12 * MEG, 14 * MEG, 16 * MEG, 18 * MEG, 20 * MEG, 22 * MEG, 24 * MEG, 26 * MEG, 28 * MEG, /* 27-35 */ 106 30 * MEG, 32 * MEG, 34 * MEG, 36 * MEG, 38 * MEG, 40 * MEG, 42 * MEG, 44 * MEG, 46 * MEG, /* 36-44 */ 107 48 * MEG, 50 * MEG, 52 * MEG, 54 * MEG, 56 * MEG, 58 * MEG, 60 * MEG, 62 * MEG, 64 * MEG, /* 45-53 */ 108 66 * MEG, 68 * MEG, 70 * MEG, 72 * MEG, 74 * MEG, 76 * MEG, 78 * MEG, 80 * MEG, 82 * MEG, /* 54-62 */ 109 84 * MEG, 86 * MEG, 88 * MEG, 90 * MEG, 92 * MEG, 94 * MEG, 96 * MEG, 98 * MEG, 100 * MEG, /* 63-71 */ 110 105 * MEG, 110 * MEG, 115 * MEG, 120 * MEG, 125 * MEG, 130 * MEG, 135 * MEG, 140 * MEG, /* 72-79 */ 111 145 * MEG, 150 * MEG, 155 * MEG, 160 * MEG, 165 * MEG, 170 * MEG, 175 * MEG, 180 * MEG, /* 80-87 */ 112 185 * MEG, 190 * MEG, 195 * MEG, 200 * MEG, 210 * MEG, 220 * MEG, 230 * MEG, 240 * MEG, /* 88-95 */ 113 250 * MEG, 260 * MEG, 270 * MEG, 280 * MEG, 290 * MEG, 300 * MEG /* 96-101 */ 114}; 115#undef MEG 116 117u_char *lpbuf, *lpnt, *inbuffer, *lpend; /* input/output pointers 118 * to the buffers */ 119struct cel *cell; /* pointer to the dungeon storage */ 120short hitp[MAXX][MAXY]; /* monster hp on level */ 121short iarg[MAXX][MAXY]; /* arg for the item array */ 122u_char item[MAXX][MAXY]; /* objects in maze if any */ 123u_char know[MAXX][MAXY]; /* 1 or 0 if here before */ 124u_char mitem[MAXX][MAXY]; /* monster item array */ 125u_char moved[MAXX][MAXY]; /* monster movement flags */ 126u_char stealth[MAXX][MAXY]; /* 0=sleeping 1=awake monst */ 127u_char iven[26]; /* inventory for player */ 128short ivenarg[26]; /* inventory for player */ 129char lastmonst[40]; /* this has the name of the current monster */ 130u_char beenhere[MAXLEVEL + MAXVLEVEL] = {0}; /* 1 if have been on 131 * this level */ 132char VERSION = VER; /* this is the present version # of the 133 * program */ 134char SUBVERSION = SUBVER; 135u_char nosignal = 0; /* set to 1 to disable the signals from doing 136 * anything */ 137u_char predostuff = 0; /* 2 means that the trap handling routines 138 * must do a showplayer() after a trap. 0 139 * means don't showplayer() 0 - we are in 140 * create player screen 1 - we are in welcome 141 * screen 2 - we are in the normal game */ 142char loginname[20]; /* players login name */ 143char logname[LOGNAMESIZE]; /* players name storage for scoring */ 144u_char sex = 1; /* default is a man 0=woman */ 145u_char boldon = 1; /* 1=bold objects 0=inverse objects */ 146u_char ckpflag = 0; /* 1 if want checkpointing of game, 0 147 * otherwise */ 148u_char cheat = 0; /* 1 if the player has fudged save file */ 149short level = 0; /* cavelevel player is on = c[CAVELEVEL] */ 150u_char wizard = 0; /* the wizard mode flag */ 151short lastnum = 0; /* the number of the monster last hitting 152 * player */ 153short hitflag = 0; /* flag for if player has been hit when 154 * running */ 155short hit2flag = 0; /* flag for if player has been hit when 156 * running */ 157short hit3flag = 0; /* flag for if player has been hit flush 158 * input */ 159short playerx, playery; /* the room on the present level of 160 * the player */ 161short lastpx, lastpy; /* 0 --- MAXX-1 or 0 --- MAXY-1 */ 162short oldx, oldy; 163short lasthx = 0, lasthy = 0; /* location of monster last hit by 164 * player */ 165short nobeep = 0; /* true if program is not to beep */ 166unsigned long randx = 33601; /* the random number seed */ 167time_t initialtime = 0;/* time playing began */ 168long gltime = 0; /* the clock for the game */ 169long outstanding_taxes = 0; /* present tax bill from score file */ 170long c[100], cbak[100]; /* the character description arrays */ 171int enable_scroll = 0; /* constant for enabled/disabled 172 * scrolling regn */ 173char aborted[] = " aborted"; 174struct sphere *spheres = 0; /* pointer to linked list for spheres of 175 * annihilation */ 176const char *levelname[] = 177{" H", " 1", " 2", " 3", " 4", " 5", " 6", " 7", " 8", " 9", "10", "V1", "V2", "V3"}; 178 179char objnamelist[] = " ATOP%^F&^+M=%^$$f*OD#~][[)))(((||||||||{?!BC}o:@.<<<<EVV))([[]]](^ [H*** ^^ S tsTLc............................................"; 180char monstnamelist[] = " BGHJKOScjtAELNQRZabhiCTYdegmvzFWflorXV pqsyUkMwDDPxnDDuD ..............................................................."; 181const char *objectname[] = 182{0, "a holy altar", "a handsome jewel encrusted throne", "the orb", "a pit", 183 "a staircase leading upwards", "an elevator going up", "a bubbling fountain", 184 "a great marble statue", "a teleport trap", "the college of Larn", 185 "a mirror", "the DND store", "a staircase going down", "an elevator going down", 186 "the bank of Larn", "the 5th branch of the Bank of Larn", 187 "a dead fountain", "gold", "an open door", "a closed door", 188 "a wall", "The Eye of Larn", "plate mail", "chain mail", "leather armor", 189 "a sword of slashing", "Bessman's flailing hammer", "a sunsword", 190 "a two handed sword", "a spear", "a dagger", 191 "ring of extra regeneration", "a ring of regeneration", "a ring of protection", 192 "an energy ring", "a ring of dexterity", "a ring of strength", 193 "a ring of cleverness", "a ring of increase damage", "a belt of striking", 194 "a magic scroll", "a magic potion", "a book", "a chest", 195 "an amulet of invisibility", "an orb of dragon slaying", 196 "a scarab of negate spirit", "a cube of undead control", 197 "device of theft prevention", "a brilliant diamond", "a ruby", 198 "an enchanting emerald", "a sparkling sapphire", "the dungeon entrance", 199 "a volcanic shaft leaning downward", "the base of a volcanic shaft", 200 "a battle axe", "a longsword", "a flail", "ring mail", "studded leather armor", 201 "splint mail", "plate armor", "stainless plate armor", "a lance of death", 202 "an arrow trap", "an arrow trap", "a shield", "your home", 203 "gold", "gold", "gold", "a dart trap", 204 "a dart trap", "a trapdoor", "a trapdoor", "the local trading post", 205 "a teleport trap", "a massive throne", 206 "a sphere of annihilation", "a handsome jewel encrusted throne", 207 "the Larn Revenue Service", "a fortune cookie", "", "", "", "", "", "", 208 "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "" 209}; 210 211 212 213/* 214 * for the monster data 215 * 216 * array to do rnd() to create monsters <= a given level 217 */ 218u_char monstlevel[] = {5, 11, 17, 22, 27, 33, 39, 42, 46, 50, 53, 56, 59}; 219 220struct monst monster[] = { 221 /* 222 * NAME LV AC DAM ATT DEF GEN 223 * INT GOLD HP EXP 224 * ----------------------------------------------------------------- 225 */ 226 {"", 0, 0, 0, 0, 0, 0, 3, 0, 0, 0}, 227 {"bat", 1, 0, 1, 0, 0, 0, 3, 0, 1, 1}, 228 {"gnome", 1, 10, 1, 0, 0, 0, 8, 30, 2, 2}, 229 {"hobgoblin", 1, 14, 2, 0, 0, 0, 5, 25, 3, 2}, 230 {"jackal", 1, 17, 1, 0, 0, 0, 4, 0, 1, 1}, 231 {"kobold", 1, 20, 1, 0, 0, 0, 7, 10, 1, 1}, 232 233 {"orc", 2, 12, 1, 0, 0, 0, 9, 40, 4, 2}, 234 {"snake", 2, 15, 1, 0, 0, 0, 3, 0, 3, 1}, 235 {"giant centipede", 2, 14, 0, 4, 0, 0, 3, 0, 1, 2}, 236 {"jaculi", 2, 20, 1, 0, 0, 0, 3, 0, 2, 1}, 237 {"troglodyte", 2, 10, 2, 0, 0, 0, 5, 80, 4, 3}, 238 {"giant ant", 2, 8, 1, 4, 0, 0, 4, 0, 5, 5}, 239 240 /* 241 * NAME LV AC DAM ATT DEF GEN 242 * INT GOLD HP EXP 243 * ----------------------------------------------------------------- 244 */ 245 246 {"floating eye", 3, 8, 1, 0, 0, 0, 3, 0, 5, 2}, 247 {"leprechaun", 3, 3, 0, 8, 0, 0, 3, 1500, 13, 45}, 248 {"nymph", 3, 3, 0, 14, 0, 0, 9, 0, 18, 45}, 249 {"quasit", 3, 5, 3, 0, 0, 0, 3, 0, 10, 15}, 250 {"rust monster", 3, 4, 0, 1, 0, 0, 3, 0, 18, 25}, 251 {"zombie", 3, 12, 2, 0, 0, 0, 3, 0, 6, 7}, 252 253 {"assassin bug", 4, 9, 3, 0, 0, 0, 3, 0, 20, 15}, 254 {"bugbear", 4, 5, 4, 15, 0, 0, 5, 40, 20, 35}, 255 {"hell hound", 4, 5, 2, 2, 0, 0, 6, 0, 16, 35}, 256 {"ice lizard", 4, 11, 2, 10, 0, 0, 6, 50, 16, 25}, 257 {"centaur", 4, 6, 4, 0, 0, 0, 10, 40, 24, 45}, 258 259 /* 260 * NAME LV AC DAM ATT DEF GEN 261 * INT GOLD HP EXP 262 * ----------------------------------------------------------------- 263 */ 264 265 {"troll", 5, 4, 5, 0, 0, 0, 9, 80, 50, 300}, 266 {"yeti", 5, 6, 4, 0, 0, 0, 5, 50, 35, 100}, 267 {"white dragon", 5, 2, 4, 5, 0, 0, 16, 500, 55, 1000}, 268 {"elf", 5, 8, 1, 0, 0, 0, 15, 50, 22, 35}, 269 {"gelatinous cube", 5, 9, 1, 0, 0, 0, 3, 0, 22, 45}, 270 271 {"metamorph", 6, 7, 3, 0, 0, 0, 3, 0, 30, 40}, 272 {"vortex", 6, 4, 3, 0, 0, 0, 3, 0, 30, 55}, 273 {"ziller", 6, 15, 3, 0, 0, 0, 3, 0, 30, 35}, 274 {"violet fungi", 6, 12, 3, 0, 0, 0, 3, 0, 38, 100}, 275 {"wraith", 6, 3, 1, 6, 0, 0, 3, 0, 30, 325}, 276 {"forvalaka", 6, 2, 5, 0, 0, 0, 7, 0, 50, 280}, 277 278 /* 279 * NAME LV AC DAM ATT DEF GEN 280 * INT GOLD HP EXP 281 * ----------------------------------------------------------------- 282 */ 283 284 {"lama nobe", 7, 7, 3, 0, 0, 0, 6, 0, 35, 80}, 285 {"osequip", 7, 4, 3, 16, 0, 0, 4, 0, 35, 100}, 286 {"rothe", 7, 15, 5, 0, 0, 0, 3, 100, 50, 250}, 287 {"xorn", 7, 0, 6, 0, 0, 0, 13, 0, 60, 300}, 288 {"vampire", 7, 3, 4, 6, 0, 0, 17, 0, 50, 1000}, 289 {"invisible stalker", 7, 3, 6, 0, 0, 0, 5, 0, 50, 350}, 290 291 {"poltergeist", 8, 1, 4, 0, 0, 0, 3, 0, 50, 450}, 292 {"disenchantress", 8, 3, 0, 9, 0, 0, 3, 0, 50, 500}, 293 {"shambling mound", 8, 2, 5, 0, 0, 0, 6, 0, 45, 400}, 294 {"yellow mold", 8, 12, 4, 0, 0, 0, 3, 0, 35, 250}, 295 {"umber hulk", 8, 3, 7, 11, 0, 0, 14, 0, 65, 600}, 296 297 /* 298 * NAME LV AC DAM ATT DEF GEN 299 * INT GOLD HP EXP 300 * ----------------------------------------------------------------- 301 */ 302 303 {"gnome king", 9, -1, 10, 0, 0, 0, 18, 2000, 100, 3000}, 304 {"mimic", 9, 5, 6, 0, 0, 0, 8, 0, 55, 99}, 305 {"water lord", 9, -10, 15, 7, 0, 0, 20, 0, 150, 15000}, 306 {"bronze dragon", 9, 2, 9, 3, 0, 0, 16, 300, 80, 4000}, 307 {"green dragon", 9, 3, 8, 10, 0, 0, 15, 200, 70, 2500}, 308 {"purple worm", 9, -1, 11, 0, 0, 0, 3, 100, 120, 15000}, 309 {"xvart", 9, -2, 12, 0, 0, 0, 13, 0, 90, 1000}, 310 311 {"spirit naga", 10, -20, 12, 12, 0, 0, 23, 0, 95, 20000}, 312 {"silver dragon", 10, -1, 12, 3, 0, 0, 20, 700, 100, 10000}, 313 {"platinum dragon", 10, -5, 15, 13, 0, 0, 22, 1000, 130, 24000}, 314 {"green urchin", 10, -3, 12, 0, 0, 0, 3, 0, 85, 5000}, 315 {"red dragon", 10, -2, 13, 3, 0, 0, 19, 800, 110, 14000}, 316 317 {"type I demon lord", 12, -30, 18, 0, 0, 0, 20, 0, 140, 50000}, 318 {"type II demon lord", 13, -30, 18, 0, 0, 0, 21, 0, 160, 75000}, 319 {"type III demon lord", 14, -30, 18, 0, 0, 0, 22, 0, 180, 100000}, 320 {"type IV demon lord", 15, -35, 20, 0, 0, 0, 23, 0, 200, 125000}, 321 {"type V demon lord", 16, -40, 22, 0, 0, 0, 24, 0, 220, 150000}, 322 {"type VI demon lord", 17, -45, 24, 0, 0, 0, 25, 0, 240, 175000}, 323 {"type VII demon lord", 18, -70, 27, 6, 0, 0, 26, 0, 260, 200000}, 324 {"demon prince", 25, -127, 30, 6, 0, 0, 28, 0, 345, 300000} 325 326 /* 327 * NAME LV AC DAM ATT DEF 328 * GEN INT GOLD HP EXP 329 * ------------------------------------------------------------------- 330 * -- 331 */ 332}; 333 334/* name array for scrolls */ 335 336const char *scrollname[] = {"", "", "", "", "", "", "", "", "", "", "", "", "", "", 337"", "", "", "", "", "", "", "", "", "", "", "", "", ""}; 338 339const char *scrollhide[] = { 340 " enchant armor", 341 " enchant weapon", 342 " enlightenment", 343 " blank paper", 344 " create monster", 345 " create artifact", 346 " aggravate monsters", 347 " time warp", 348 " teleportation", 349 " expanded awareness", 350 " haste monsters", 351 " monster healing", 352 " spirit protection", 353 " undead protection", 354 " stealth", 355 " magic mapping", 356 " hold monsters", 357 " gem perfection", 358 " spell extension", 359 " identify", 360 " remove curse", 361 " annihilation", 362 " pulverization", 363 " life protection", 364 " ", 365 " ", 366 " ", 367 " " 368}; 369 370const char *potionname[] = {"", "", "", "", "", "", "", "", "", "", "", "", "", "", 371 "", "", "", "", "", "", "", "", "", "", "", "", "", "", 372"", "", "", "", "", "", ""}; 373 374/* name array for magic potions */ 375const char *potionhide[] = { 376 " sleep", 377 " healing", 378 " raise level", 379 " increase ability", 380 " wisdom", 381 " strength", 382 " raise charisma", 383 " dizziness", 384 " learning", 385 " gold detection", 386 " monster detection", 387 " forgetfulness", 388 " water", 389 " blindness", 390 " confusion", 391 " heroism", 392 " sturdiness", 393 " giant strength", 394 " fire resistance", 395 " treasure finding", 396 " instant healing", 397 " cure dianthroritis", 398 " poison", 399 " see invisible", 400 " ", 401 " ", 402 " ", 403 " ", 404 " ", 405 " ", 406 " ", 407 " ", 408 " ", 409 " ", 410 " " 411}; 412 413 414 415/* 416 spell data 417 */ 418u_char spelknow[SPNUM] = {0}; 419u_char splev[] = {1, 4, 9, 14, 18, 22, 26, 29, 32, 35, 37, 37, 37, 37, 37}; 420 421const char *spelcode[] = { 422 "pro", "mle", "dex", "sle", "chm", "ssp", 423 "web", "str", "enl", "hel", "cbl", "cre", "pha", "inv", 424 "bal", "cld", "ply", "can", "has", "ckl", "vpr", 425 "dry", "lit", "drl", "glo", "flo", "fgr", 426 "sca", "hld", "stp", "tel", "mfi", /* 31 */ 427 "sph", "gen", "sum", "wtw", "alt", "per" 428}; 429 430const char *spelname[] = { 431 "protection", "magic missile", "dexterity", 432 "sleep", "charm monster", "sonic spear", 433 434 "web", "strength", "enlightenment", 435 "healing", "cure blindness", "create monster", 436 "phantasmal forces", "invisibility", 437 438 "fireball", "cold", "polymorph", 439 "cancellation", "haste self", "cloud kill", 440 "vaporize rock", 441 442 "dehydration", "lightning", "drain life", 443 "invulnerability", "flood", "finger of death", 444 445 "scare monster", "hold monster", "time stop", 446 "teleport away", "magic fire", 447 448 "sphere of annihilation", "genocide", "summon demon", 449 "walk through walls", "alter reality", "permanence", 450 "" 451}; 452 453const char *speldescript[] = { 454 /* 1 */ 455 "generates a +2 protection field", 456 "creates and hurls a magic missile equivalent to a +1 magic arrow", 457 "adds +2 to the caster's dexterity", 458 "causes some monsters to go to sleep", 459 "some monsters may be awed at your magnificence", 460 "causes your hands to emit a screeching sound toward what they point", 461 /* 7 */ 462 "causes strands of sticky thread to entangle an enemy", 463 "adds +2 to the caster's strength for a short term", 464 "the caster becomes aware of things in the vicinity", 465 "restores some hp to the caster", 466 "restores sight to one so unfortunate as to be blinded", 467 "creates a monster near the caster appropriate for the location", 468 "creates illusions, and if believed, monsters die", 469 "the caster becomes invisible", 470 /* 15 */ 471 "makes a ball of fire that burns on what it hits", 472 "sends forth a cone of cold which freezes what it touches", 473 "you can find out what this does for yourself", 474 "negates the ability of a monster to use its special abilities", 475 "speeds up the caster's movements", 476 "creates a fog of poisonous gas which kills all that is within it", 477 "this changes rock to air", 478 /* 22 */ 479 "dries up water in the immediate vicinity", 480 "your finger will emit a lightning bolt when this spell is cast", 481 "subtracts hit points from both you and a monster", 482 "this globe helps to protect the player from physical attack", 483 "this creates an avalanche of H2O to flood the immediate chamber", 484 "this is a holy spell and calls upon your god to back you up", 485 /* 28 */ 486 "terrifies the monster so that hopefully it won't hit the magic user", 487 "the monster is frozen in its tracks if this is successful", 488 "all movement in the caverns ceases for a limited duration", 489 "moves a particular monster around in the dungeon (hopefully away from you)", 490 "this causes a curtain of fire to appear all around you", 491 /* 33 */ 492 "anything caught in this sphere is instantly killed. Warning -- dangerous", 493 "eliminates a species of monster from the game -- use sparingly", 494 "summons a demon who hopefully helps you out", 495 "allows the player to walk through walls for a short period of time", 496 "god only knows what this will do", 497 "makes a character spell permanent, i. e. protection, strength, etc.", 498 "" 499}; 500 501char spelweird[MAXMONST + 8][SPNUM] = { 502 /* 503 * p m d s c s w s e h c c p i b c p c h c v d l d g f f 504 * s h s t m s g s w a p 505 */ 506 /* 507 * r l e l h s e t n e b r h n a l l a a k p r i r l l g 508 * c l t e f p e u t l e 509 */ 510 /* 511 * o e x e m p b r l l l e a v l d y n s l r y t l o o r 512 * a d p l i h n m w t r 513 */ 514 515 516 /* bat */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 517 /* gnome */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 518 /* hobgoblin */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 519 /* jackal */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 520 /* kobold */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 521 522 /* orc */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 523 /* snake */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 524 /* giant centipede */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 525 /* jaculi */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 526 /* troglodyte */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 527 528 /* giant ant */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 529 /* floating eye */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 530 /* leprechaun */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 531 /* nymph */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 532 /* quasit */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 533 534 /* rust monster */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 535 /* zombie */ {0, 0, 0, 8, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 4, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 536 /* assassin bug */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 537 /* bugbear */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 538 /* hell hound */ {0, 6, 0, 0, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 539 540 /* ice lizard */ {0, 0, 0, 0, 0, 0, 11, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 541 /* centaur */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 542 /* troll */ {0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 543 /* yeti */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 544 /* white dragon */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 14, 0, 0, 15, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 545 546 /* elf */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 14, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 547 /* gelatinous cube */ {0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 548 /* metamorph */ {0, 13, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 4, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 549 /* vortex */ {0, 13, 0, 0, 0, 10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 4, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 550 /* ziller */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 551 552 /* violet fungi */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 553 /* wraith */ {0, 0, 0, 8, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 4, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 554 /* forvalaka */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 555 /* lama nobe */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 556 /* osequip */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 557 558 /* rothe */ {0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 559 /* xorn */ {0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 560 /* vampire */ {0, 0, 0, 8, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 561 /* invisible staker */ {0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 562 /* poltergeist */ {0, 13, 0, 8, 0, 4, 1, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 4, 0, 4, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 563 564 /* disenchantress */ {0, 0, 0, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 565 /* shambling mound */ {0, 0, 0, 0, 0, 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 566 /* yellow mold */ {0, 0, 0, 8, 0, 0, 1, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 567 /* umber hulk */ {0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 568 /* gnome king */ {0, 7, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 569 570 /* mimic */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 571 /* water lord */ {0, 13, 0, 8, 3, 4, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0, 4, 0, 0, 0, 0, 0, 16, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 572 /* bronze dragon */ {0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 573 /* green dragon */ {0, 7, 0, 0, 0, 0, 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 574 /* purple worm */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 575 576 /* xvart */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 577 /* spirit naga */ {0, 13, 0, 8, 3, 4, 1, 0, 0, 0, 0, 0, 0, 5, 0, 4, 9, 0, 0, 4, 0, 4, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 578 /* silver dragon */ {0, 6, 0, 9, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 579 /* platinum dragon */ {0, 7, 0, 9, 0, 0, 11, 0, 0, 0, 0, 0, 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 580 /* green urchin */ {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 581 /* red dragon */ {0, 6, 0, 0, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, 582 583 /* 584 * p m d s c s w s e h c c p i b c p c h c v d l d g f f 585 * s h s t m s g s w a p 586 */ 587 /* 588 * r l e l h s e t n e b r h n a l l a a k p r i r l l g 589 * c l t e f p e u t l e 590 */ 591 /* 592 * o e x e m p b r l l l e a v l d y n s l r y t l o o r 593 * a d p l i h n m w t r 594 */ 595 596 /* demon lord */ {0, 7, 0, 4, 3, 0, 1, 0, 0, 0, 0, 0, 14, 5, 0, 0, 4, 0, 0, 4, 0, 4, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0}, 597 /* demon lord */ {0, 7, 0, 4, 3, 0, 1, 0, 0, 0, 0, 0, 14, 5, 0, 0, 4, 0, 0, 4, 0, 4, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0}, 598 /* demon lord */ {0, 7, 0, 4, 3, 0, 1, 0, 0, 0, 0, 0, 14, 5, 0, 0, 4, 0, 0, 4, 0, 4, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0}, 599 /* demon lord */ {0, 7, 0, 4, 3, 0, 1, 0, 0, 0, 0, 0, 14, 5, 0, 0, 4, 0, 0, 4, 0, 4, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0}, 600 /* demon lord */ {0, 7, 0, 4, 3, 0, 1, 0, 0, 0, 0, 0, 14, 5, 0, 0, 4, 0, 0, 4, 0, 4, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0}, 601 /* demon lord */ {0, 7, 0, 4, 3, 0, 1, 0, 0, 0, 0, 0, 14, 5, 0, 0, 4, 0, 0, 4, 0, 4, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0}, 602 /* demon lord */ {0, 7, 0, 4, 3, 0, 1, 0, 0, 0, 0, 0, 14, 5, 0, 0, 4, 0, 0, 4, 0, 4, 0, 0, 0, 4, 4, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0}, 603 /* demon prince */ {0, 7, 0, 4, 3, 9, 1, 0, 0, 0, 0, 0, 14, 5, 0, 0, 4, 0, 0, 4, 0, 4, 0, 0, 0, 4, 4, 4, 0, 0, 0, 4, 9, 0, 0, 0, 0, 0} 604 605}; 606 607const char *spelmes[] = {"", 608 /* 1 */ "the web had no effect on the %s", 609 /* 2 */ "the %s changed shape to avoid the web", 610 /* 3 */ "the %s isn't afraid of you", 611 /* 4 */ "the %s isn't affected", 612 /* 5 */ "the %s can see you with his infravision", 613 /* 6 */ "the %s vaporizes your missile", 614 /* 7 */ "your missile bounces off the %s", 615 /* 8 */ "the %s doesn't sleep", 616 /* 9 */ "the %s resists", 617 /* 10 */ "the %s can't hear the noise", 618 /* 11 */ "the %s's tail cuts it free of the web", 619 /* 12 */ "the %s burns through the web", 620 /* 13 */ "your missiles pass right through the %s", 621 /* 14 */ "the %s sees through your illusions", 622 /* 15 */ "the %s loves the cold!", 623 /* 16 */ "the %s loves the water!" 624}; 625 626/* 627 * function to create scroll numbers with appropriate probability of 628 * occurrence 629 * 630 * 0 - armor 1 - weapon 2 - enlightenment 3 - paper 631 * 4 - create monster 5 - create item 6 - aggravate 7 - time warp 632 * 8 - teleportation 9 - expanded awareness 10 - haste monst 633 * 11 - heal monster 12 - spirit protection 13 - undead protection 634 * 14 - stealth 15 - magic mapping 16 - hold monster 635 * 17 - gem perfection 18 - spell extension 19 - identify 636 * 20 - remove curse 21 - annihilation 22 - pulverization 637 * 23 - life protection 638 */ 639u_char scprob[] = {0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 640 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 9, 9, 641 9, 9, 10, 10, 10, 10, 11, 11, 11, 12, 12, 12, 13, 13, 13, 13, 14, 14, 642 15, 15, 16, 16, 16, 17, 17, 18, 18, 19, 19, 19, 20, 20, 20, 20, 21, 22, 64322, 22, 23}; 644 645/* 646 * function to return a potion number created with appropriate probability 647 * of occurrence 648 * 649 * 0 - sleep 1 - healing 2 - raise level 650 * 3 - increase ability 4 - gain wisdom 5 - gain strength 651 * 6 - charismatic character 7 - dizziness 8 - learning 652 * 9 - gold detection 10 - monster detection 11 - forgetfulness 653 * 12 - water 13 - blindness 14 - confusion 654 * 15 - heroism 16 - sturdiness 17 - giant strength 655 * 18 - fire resistance 19 - treasure finding 20 - instant healing 656 * 21 - cure dianthroritis 22 - poison 23 - see invisible 657 */ 658u_char potprob[] = {0, 0, 1, 1, 1, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 9, 9, 9, 10, 10, 10, 11, 11, 12, 12, 13, 14, 15, 16, 17, 18, 19, 19, 20, 20, 22, 22, 23, 23}; 659 660u_char nlpts[] = {0, 0, 0, 0, 0, 1, 1, 2, 2, 3, 3, 4, 5, 6, 7}; 661u_char nch[] = {0, 0, 0, 1, 1, 1, 2, 2, 3, 4}; 662u_char nplt[] = {0, 0, 0, 0, 1, 1, 2, 2, 3, 4}; 663u_char ndgg[] = {0, 0, 0, 1, 1, 1, 1, 2, 2, 3, 3, 4, 5}; 664u_char nsw[] = {0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 3}; 665