games/larn/data.c

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