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