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