larn/data.c

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