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