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