?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
kernel - TMPFS - Stabilization pass, fix VM object leak, msync
[dragonfly.git] / games / phantasia / fight.c
blob07c66d9392f87687bb86be13a18674f0e6bfbf1a
1 /*
2 * fight.c Phantasia monster fighting routines
3 *
4 * $FreeBSD: src/games/phantasia/fight.c,v 1.7 1999/11/16 02:57:33 billf Exp $
5 * $DragonFly: src/games/phantasia/fight.c,v 1.3 2005/05/31 00:06:26 swildner Exp $
6 */
7
8 #include <string.h>
9 #include "include.h"
10
11 /* functions which we need to know about */
12 /* io.c */
13 extern int getanswer(const char *, bool);
14 extern void getstring(char *, int);
15 extern double infloat(void);
16 extern int inputoption(void);
17 extern void more(int);
18 /* misc.c */
19 extern void altercoordinates(double, double, int);
20 extern void collecttaxes(double, double);
21 extern void death(const char *);
22 extern void displaystats(void);
23 extern void readmessage(void);
24 extern void truncstring(char *);
25 extern void writerecord(struct player *, long);
26 /* phantglobs.c */
27 extern double drandom(void);
28
29 void awardtreasure(void);
30 void callmonster(int);
31 void cancelmonster(void);
32 void cursedtreasure(void);
33 void encounter(int);
34 void hitmonster(double);
35 int pickmonster(void);
36 void monsthits(void);
37 void playerhits(void);
38 void scramblestats(void);
39 void throwspell(void);
40
41 /*
42 * FUNCTION: monster battle routine
43 *
44 * ARGUMENTS:
45 * int particular - particular monster to fight if >= 0
46 *
47 * GLOBAL INPUTS: Curmonster, Whichmonster, LINES, Lines, Circle, Shield,
48 * Player, *stdscr, Fileloc, Fightenv[], *Enemyname
49 *
50 * GLOBAL OUTPUTS: Curmonster, Whichmonster, Lines, Shield, Player, Luckout
51 *
52 * DESCRIPTION:
53 * Choose a monster and check against some special types.
54 * Arbitrate between monster and player. Watch for either
55 * dying.
56 */
57
58 void
59 encounter(int particular)
60 {
61 volatile bool firsthit = Player.p_blessing; /* set if player gets the first hit */
62 int flockcnt = 1; /* how many time flocked */
63
64 /* let others know what we are doing */
65 Player.p_status = S_MONSTER;
66 writerecord(&Player, Fileloc);
67
68 #ifdef SYS5
69 flushinp();
70 #endif
71
72 Shield = 0.0; /* no shield up yet */
73
74 if (particular >= 0)
75 /* monster is specified */
76 Whichmonster = particular;
77 else
78 /* pick random monster */
79 Whichmonster = pickmonster();
80
81 setjmp(Fightenv); /* this is to enable changing fight state */
82
83 move(6, 0);
84 clrtobot(); /* clear bottom area of screen */
85
86 Lines = 9;
87 callmonster(Whichmonster); /* set up monster to fight */
88
89 Luckout = FALSE; /* haven't tried to luckout yet */
90
91 if (Curmonster.m_type == SM_MORGOTH)
92 mvprintw(4, 0, "You've encountered %s, Bane of the Council and Valar.\n",
93 Enemyname);
94
95 if (Curmonster.m_type == SM_UNICORN) {
96 if (Player.p_virgin) {
97 printw("You just subdued %s, thanks to the virgin.\n", Enemyname);
98 Player.p_virgin = FALSE;
99 } else {
100 printw("You just saw %s running away!\n", Enemyname);
101 Curmonster.m_experience = 0.0;
102 Curmonster.m_treasuretype = 0;
103 }
104 } else
105 /* not a special monster */
106 for (;;) {
107 /* print header, and arbitrate between player and monster */
108 mvprintw(6, 0, "You are being attacked by %s, EXP: %.0f (Size: %.0f)\n",
109 Enemyname, Curmonster.m_experience, Circle);
110
111 displaystats();
112 mvprintw(1, 26, "%20.0f", Player.p_energy + Shield); /* overprint energy */
113 readmessage();
114
115 if (Curmonster.m_type == SM_DARKLORD
116 && Player.p_blessing
117 && Player.p_charms > 0) {
118 /* overpower Dark Lord with blessing and charm */
119 mvprintw(7, 0, "You just overpowered %s!", Enemyname);
120 Lines = 8;
121 Player.p_blessing = FALSE;
122 --Player.p_charms;
123 break;
124 }
125
126 /* allow paralyzed monster to wake up */
127 Curmonster.m_speed = MIN(Curmonster.m_speed + 1.0, Curmonster.m_maxspeed);
128
129 if (drandom() * Curmonster.m_speed > drandom() * Player.p_speed
130 /* monster is faster */
131 && Curmonster.m_type != SM_DARKLORD
132 /* not D. L. */
133 && Curmonster.m_type != SM_SHRIEKER
134 /* not mimic */
135 && !firsthit)
136 /* monster gets a hit */
137 monsthits();
138 else {
139 /* player gets a hit */
140 firsthit = FALSE;
141 playerhits();
142 }
143
144 refresh();
145
146 if (Lines > LINES - 2) {
147 /* near bottom of screen - pause */
148 more(Lines);
149 move(Lines = 8, 0);
150 clrtobot();
151 }
152
153 if (Player.p_energy <= 0.0) {
154 /* player died */
155 more(Lines);
156 death(Enemyname);
157 cancelmonster();
158 break; /* fight ends if the player is saved from death */
159 }
160
161 if (Curmonster.m_energy <= 0.0)
162 /* monster died */
163 break;
164 }
165
166 /* give player credit for killing monster */
167 Player.p_experience += Curmonster.m_experience;
168
169 if (drandom() < Curmonster.m_flock / 100.0) {
170 /* monster flocks */
171 more(Lines);
172 ++flockcnt;
173 longjmp(Fightenv, 0);
174 /* NOTREACHED */
175 } else if (Circle > 1.0 &&
176 Curmonster.m_treasuretype > 0 &&
177 drandom() > 0.2 + pow(0.4, (double)(flockcnt / 3 + Circle / 3.0))) {
178 /* monster has treasure; this takes # of flocks and size into account */
179 more(Lines);
180 awardtreasure();
181 }
182
183 /* pause before returning */
184 getyx(stdscr, Lines, flockcnt);
185 more(Lines + 1);
186
187 Player.p_ring.ring_inuse = FALSE; /* not using ring */
188
189 /* clean up the screen */
190 move(4, 0);
191 clrtobot();
192 }
193
194 /*
195 * FUNCTION: choose a monster based upon where we are
196 *
197 * RETURN VALUE: monster number to call
198 *
199 * GLOBAL INPUTS: Marsh, Circle, Player
200 *
201 * DESCRIPTION:
202 * Certain monsters can be found in certain areas of the grid.
203 * We take care of rolling them here.
204 * Unfortunately, this routine assumes that the monster data
205 * base is arranged in a particular order. If the data base
206 * is altered (to add monsters, or make them tougher), this
207 * routine may also need to be changed.
208 */
209
210 int
211 pickmonster(void)
212 {
213 if (Player.p_specialtype == SC_VALAR)
214 /* even chance of any monster */
215 return ((int)ROLL(0.0, 100.0));
216
217 if (Marsh)
218 /* water monsters */
219 return ((int)ROLL(0.0, 15.0));
220
221 else if (Circle > 24)
222 /* even chance of all non-water monsters */
223 return ((int)ROLL(14.0, 86.0));
224
225 else if (Circle > 15)
226 /* chance of all non-water monsters, weighted toward middle */
227 return ((int)(ROLL(0.0, 50.0) + ROLL(14.0, 37.0)));
228
229 else if (Circle > 8)
230 /* not all non-water monsters, weighted toward middle */
231 return ((int)(ROLL(0.0, 50.0) + ROLL(14.0, 26.0)));
232
233 else if (Circle > 3)
234 /* even chance of some tamer non-water monsters */
235 return ((int)ROLL(14.0, 50.0));
236
237 else
238 /* even chance of some of the tamest non-water monsters */
239 return ((int)ROLL(14.0, 25.0));
240 }
241
242 /*
243 * FUNCTION: prompt player for action in monster battle, and process
244 *
245 * GLOBAL INPUTS: Curmonster, Lines, Player, *stdscr, Luckout, *Enemyname
246 *
247 * GLOBAL OUTPUTS: Curmonster, Lines, Player, Luckout
248 *
249 * DESCRIPTION:
250 * Process all monster battle options.
251 */
252
253 void
254 playerhits(void)
255 {
256 double inflict; /* damage inflicted */
257 int ch; /* input */
258
259 mvaddstr(7, 0, "1:Melee 2:Skirmish 3:Evade 4:Spell 5:Nick ");
260
261 if (!Luckout) {
262 /* haven't tried to luckout yet */
263 if (Curmonster.m_type == SM_MORGOTH)
264 /* cannot luckout against Morgoth */
265 addstr("6:Ally ");
266 else
267 addstr("6:Luckout ");
268 }
269
270 if (Player.p_ring.ring_type != R_NONE)
271 /* player has a ring */
272 addstr("7:Use Ring ");
273 else
274 clrtoeol();
275
276 ch = inputoption();
277
278 move(8, 0);
279 clrtobot(); /* clear any messages from before */
280 Lines = 9;
281 mvaddstr(4, 0, "\n\n"); /* clear status area */
282
283 switch (ch) {
284 case 'T': /* timeout; lose turn */
285 break;
286
287 case ' ':
288 case '1': /* melee */
289 /* melee affects monster's energy and strength */
290 inflict = ROLL(Player.p_might / 2.0 + 5.0, 1.3 * Player.p_might) +
291 (Player.p_ring.ring_inuse ? Player.p_might : 0.0);
292
293 Curmonster.m_melee += inflict;
294 Curmonster.m_strength = Curmonster.m_o_strength -
295 Curmonster.m_melee / Curmonster.m_o_energy *
296 Curmonster.m_o_strength / 4.0;
297 hitmonster(inflict);
298 break;
299
300 case '2': /* skirmish */
301 /* skirmish affects monter's energy and speed */
302 inflict = ROLL(Player.p_might / 3.0 + 3.0, 1.1 * Player.p_might) +
303 (Player.p_ring.ring_inuse ? Player.p_might : 0.0);
304
305 Curmonster.m_skirmish += inflict;
306 Curmonster.m_maxspeed = Curmonster.m_o_speed -
307 Curmonster.m_skirmish / Curmonster.m_o_energy *
308 Curmonster.m_o_speed / 4.0;
309 hitmonster(inflict);
310 break;
311
312 case '3': /* evade */
313 /* use brains and speed to try to evade */
314 if ((Curmonster.m_type == SM_DARKLORD ||
315 Curmonster.m_type == SM_SHRIEKER
316 /* can always run from D. L. and shrieker */
317 || drandom() * Player.p_speed * Player.p_brains
318 > drandom() * Curmonster.m_speed * Curmonster.m_brains) &&
319 (Curmonster.m_type != SM_MIMIC)) {
320 /* cannot run from mimic */
321 mvaddstr(Lines++, 0, "You got away!");
322 cancelmonster();
323 altercoordinates(0.0, 0.0, A_NEAR);
324 } else
325 mvprintw(Lines++, 0, "%s is still after you!", Enemyname);
326
327 break;
328
329 case 'M':
330 case '4': /* magic spell */
331 throwspell();
332 break;
333
334 case '5': /* nick */
335 /* hit 1 plus sword; give some experience */
336 inflict = 1.0 + Player.p_sword;
337 Player.p_experience += floor(Curmonster.m_experience / 10.0);
338 Curmonster.m_experience *= 0.92;
339 /* monster gets meaner */
340 Curmonster.m_maxspeed += 2.0;
341 Curmonster.m_speed = (Curmonster.m_speed < 0.0) ? 0.0 : Curmonster.m_speed + 2.0;
342 if (Curmonster.m_type == SM_DARKLORD) {
343 /* Dark Lord; doesn't like to be nicked */
344 mvprintw(Lines++, 0,
345 "You hit %s %.0f times, and made him mad!", Enemyname, inflict);
346 Player.p_quickness /= 2.0;
347 altercoordinates(0.0, 0.0, A_FAR);
348 cancelmonster();
349 } else
350 hitmonster(inflict);
351 break;
352
353 case 'B':
354 case '6': /* luckout */
355 if (Luckout)
356 mvaddstr(Lines++, 0, "You already tried that.");
357 else {
358 Luckout = TRUE;
359 if (Curmonster.m_type == SM_MORGOTH) {
360 /* Morgoth; ally */
361 if (drandom() < Player.p_sin / 100.0) {
362 mvprintw(Lines++, 0, "%s accepted!", Enemyname);
363 cancelmonster();
364 } else
365 mvaddstr(Lines++, 0, "Nope, he's not interested.");
366 } else {
367 /* normal monster; use brains for success */
368 if ((drandom() + 0.333) * Player.p_brains
369 < (drandom() + 0.333) * Curmonster.m_brains)
370 mvprintw(Lines++, 0, "You blew it, %s.", Player.p_name);
371 else {
372 mvaddstr(Lines++, 0, "You made it!");
373 Curmonster.m_energy = 0.0;
374 }
375 }
376 }
377 break;
378
379 case '7': /* use ring */
380 if (Player.p_ring.ring_type != R_NONE) {
381 mvaddstr(Lines++, 0, "Now using ring.");
382 Player.p_ring.ring_inuse = TRUE;
383 if (Player.p_ring.ring_type != R_DLREG)
384 /* age ring */
385 --Player.p_ring.ring_duration;
386 }
387 break;
388 }
389 }
390
391 /*
392 * FUNCTION: process a monster hitting the player
393 *
394 * GLOBAL INPUTS: Curmonster, Lines, Circle, Shield, Player, *stdscr,
395 * Fightenv[], *Enemyname
396 *
397 * GLOBAL OUTPUTS: Curmonster, Whichmonster, Lines, Shield, Player,
398 * *Enemyname
399 *
400 * DESCRIPTION:
401 * Handle all special monsters here. If the monster is not a special
402 * one, simply roll a hit against the player.
403 */
404
405 void
406 monsthits(void)
407 {
408 double inflict; /* damage inflicted */
409 int ch; /* input */
410
411 switch (Curmonster.m_type) {
412 /* may be a special monster */
413 case SM_DARKLORD:
414 /* hits just enough to kill player */
415 inflict = (Player.p_energy + Shield) * 1.02;
416 goto SPECIALHIT;
417
418 case SM_SHRIEKER:
419 /* call a big monster */
420 mvaddstr(Lines++, 0,
421 "Shrieeeek!! You scared it, and it called one of its friends.");
422 more(Lines);
423 Whichmonster = (int)ROLL(70.0, 30.0);
424 longjmp(Fightenv, 0);
425 /* NOTREACHED */
426
427 case SM_BALROG:
428 /* take experience away */
429 inflict = ROLL(10.0, Curmonster.m_strength);
430 inflict = MIN(Player.p_experience, inflict);
431 mvprintw(Lines++, 0,
432 "%s took away %.0f experience points.", Enemyname, inflict);
433 Player.p_experience -= inflict;
434 return;
435
436 case SM_FAERIES:
437 if (Player.p_holywater > 0) {
438 /* holy water kills when monster tries to hit */
439 mvprintw(Lines++, 0, "Your holy water killed it!");
440 --Player.p_holywater;
441 Curmonster.m_energy = 0.0;
442 return;
443 }
444 break;
445
446 case SM_NONE:
447 /* normal hit */
448 break;
449
450 default:
451 if (drandom() > 0.2)
452 /* normal hit */
453 break;
454
455 /* else special things */
456 switch (Curmonster.m_type) {
457 case SM_LEANAN:
458 /* takes some of the player's strength */
459 inflict = ROLL(1.0, (Circle - 1.0) / 2.0);
460 inflict = MIN(Player.p_strength, inflict);
461 mvprintw(Lines++, 0, "%s sapped %0.f of your strength!",
462 Enemyname, inflict);
463 Player.p_strength -= inflict;
464 Player.p_might -= inflict;
465 break;
466
467 case SM_SARUMAN:
468 if (Player.p_palantir) {
469 /* take away palantir */
470 mvprintw(Lines++, 0, "Wormtongue stole your palantir!");
471 Player.p_palantir = FALSE;
472 } else if (drandom() > 0.5) {
473 /* gems turn to gold */
474 mvprintw(Lines++, 0,
475 "%s transformed your gems into gold!", Enemyname);
476 Player.p_gold += Player.p_gems;
477 Player.p_gems = 0.0;
478 } else {
479 /* scramble some stats */
480 mvprintw(Lines++, 0, "%s scrambled your stats!", Enemyname);
481 scramblestats();
482 }
483 break;
484
485 case SM_THAUMATURG:
486 /* transport player */
487 mvprintw(Lines++, 0, "%s transported you!", Enemyname);
488 altercoordinates(0.0, 0.0, A_FAR);
489 cancelmonster();
490 break;
491
492 case SM_VORTEX:
493 /* suck up some mana */
494 inflict = ROLL(0, 7.5 * Circle);
495 inflict = MIN(Player.p_mana, floor(inflict));
496 mvprintw(Lines++, 0,
497 "%s sucked up %.0f of your mana!", Enemyname, inflict);
498 Player.p_mana -= inflict;
499 break;
500
501 case SM_NAZGUL:
502 /* try to take ring if player has one */
503 if (Player.p_ring.ring_type != R_NONE) {
504 /* player has a ring */
505 mvaddstr(Lines++, 0, "Will you relinguish your ring ? ");
506 ch = getanswer("YN", FALSE);
507 if (ch == 'Y') {
508 /* take ring away */
509 Player.p_ring.ring_type = R_NONE;
510 Player.p_ring.ring_inuse = FALSE;
511 cancelmonster();
512 break;
513 }
514 }
515
516 /* otherwise, take some brains */
517 mvprintw(Lines++, 0,
518 "%s neutralized 1/5 of your brain!", Enemyname);
519 Player.p_brains *= 0.8;
520 break;
521
522 case SM_TIAMAT:
523 /* take some gold and gems */
524 mvprintw(Lines++, 0,
525 "%s took half your gold and gems and flew off.", Enemyname);
526 Player.p_gold /= 2.0;
527 Player.p_gems /= 2.0;
528 cancelmonster();
529 break;
530
531 case SM_KOBOLD:
532 /* steal a gold piece and run */
533 mvprintw(Lines++, 0,
534 "%s stole one gold piece and ran away.", Enemyname);
535 Player.p_gold = MAX(0.0, Player.p_gold - 1.0);
536 cancelmonster();
537 break;
538
539 case SM_SHELOB:
540 /* bite and (medium) poison */
541 mvprintw(Lines++, 0,
542 "%s has bitten and poisoned you!", Enemyname);
543 Player.p_poison -= 1.0;
544 break;
545
546 case SM_LAMPREY:
547 /* bite and (small) poison */
548 mvprintw(Lines++, 0, "%s bit and poisoned you!", Enemyname);
549 Player.p_poison += 0.25;
550 break;
551
552 case SM_BONNACON:
553 /* fart and run */
554 mvprintw(Lines++, 0, "%s farted and scampered off.", Enemyname);
555 Player.p_energy /= 2.0; /* damage from fumes */
556 cancelmonster();
557 break;
558
559 case SM_SMEAGOL:
560 if (Player.p_ring.ring_type != R_NONE) {
561 /* try to steal ring */
562 mvprintw(Lines++, 0,
563 "%s tried to steal your ring, ", Enemyname);
564 if (drandom() > 0.1)
565 addstr("but was unsuccessful.");
566 else {
567 addstr("and ran away with it!");
568 Player.p_ring.ring_type = R_NONE;
569 cancelmonster();
570 }
571 }
572 break;
573
574 case SM_SUCCUBUS:
575 /* inflict damage through shield */
576 inflict = ROLL(15.0, Circle * 10.0);
577 inflict = MIN(inflict, Player.p_energy);
578 mvprintw(Lines++, 0, "%s sapped %.0f of your energy.",
579 Enemyname, inflict);
580 Player.p_energy -= inflict;
581 break;
582
583 case SM_CERBERUS:
584 /* take all metal treasures */
585 mvprintw(Lines++, 0,
586 "%s took all your metal treasures!", Enemyname);
587 Player.p_crowns = 0;
588 Player.p_sword =
589 Player.p_shield =
590 Player.p_gold = 0.0;
591 cancelmonster();
592 break;
593
594 case SM_UNGOLIANT:
595 /* (large) poison and take a quickness */
596 mvprintw(Lines++, 0,
597 "%s poisoned you, and took one quik.", Enemyname);
598 Player.p_poison += 5.0;
599 Player.p_quickness -= 1.0;
600 break;
601
602 case SM_JABBERWOCK:
603 /* fly away, and leave either a Jubjub bird or Bonnacon */
604 mvprintw(Lines++, 0,
605 "%s flew away, and left you to contend with one of its friends.",
606 Enemyname);
607 Whichmonster = 55 + (drandom() > 0.5) ? 22 : 0;
608 longjmp(Fightenv, 0);
609 /* NOTREACHED */
610
611 case SM_TROLL:
612 /* partially regenerate monster */
613 mvprintw(Lines++, 0,
614 "%s partially regenerated his energy.!", Enemyname);
615 Curmonster.m_energy +=
616 floor((Curmonster.m_o_energy - Curmonster.m_energy) / 2.0);
617 Curmonster.m_strength = Curmonster.m_o_strength;
618 Curmonster.m_melee = Curmonster.m_skirmish = 0.0;
619 Curmonster.m_maxspeed = Curmonster.m_o_speed;
620 break;
621
622 case SM_WRAITH:
623 if (!Player.p_blindness) {
624 /* make blind */
625 mvprintw(Lines++, 0, "%s blinded you!", Enemyname);
626 Player.p_blindness = TRUE;
627 Enemyname = "A monster";
628 }
629 break;
630 }
631 return;
632 }
633
634 /* fall through to here if monster inflicts a normal hit */
635 inflict = drandom() * Curmonster.m_strength + 0.5;
636 SPECIALHIT:
637 mvprintw(Lines++, 0, "%s hit you %.0f times!", Enemyname, inflict);
638
639 if ((Shield -= inflict) < 0) {
640 Player.p_energy += Shield;
641 Shield = 0.0;
642 }
643 }
644
645 /*
646 * FUNCTION: mark current monster as no longer active
647 *
648 * GLOBAL OUTPUTS: Curmonster
649 *
650 * DESCRIPTION:
651 * Clear current monster's energy, experience, treasure type, and
652 * flock. This is the same as having the monster run away.
653 */
654
655 void
656 cancelmonster(void)
657 {
658 Curmonster.m_energy = 0.0;
659 Curmonster.m_experience = 0.0;
660 Curmonster.m_treasuretype = 0;
661 Curmonster.m_flock = 0.0;
662 }
663
664 /*
665 * FUNCTION: inflict damage upon current monster
666 *
667 * ARGUMENTS:
668 * double inflict - damage to inflict upon monster
669 *
670 * GLOBAL INPUTS: Curmonster, Lines, Player, *stdscr, *Enemyname
671 *
672 * GLOBAL OUTPUTS: Curmonster, Lines
673 *
674 * DESCRIPTION:
675 * Hit monster specified number of times. Handle when monster dies,
676 * and a few special monsters.
677 */
678
679 void
680 hitmonster(double inflict)
681 {
682 mvprintw(Lines++, 0, "You hit %s %.0f times!", Enemyname, inflict);
683 Curmonster.m_energy -= inflict;
684 if (Curmonster.m_energy > 0.0) {
685 if (Curmonster.m_type == SM_DARKLORD || Curmonster.m_type == SM_SHRIEKER)
686 /* special monster didn't die */
687 monsthits();
688 } else {
689 /* monster died. print message. */
690 if (Curmonster.m_type == SM_MORGOTH)
691 mvaddstr(Lines++, 0, "You have defeated Morgoth, but he may return. . .");
692 else {
693 /* all other types of monsters */
694 mvprintw(Lines++, 0, "You killed it. Good work, %s.", Player.p_name);
695
696 if (Curmonster.m_type == SM_MIMIC
697 && strcmp(Curmonster.m_name, "A Mimic") != 0
698 && !Player.p_blindness)
699 mvaddstr(Lines++, 0, "The body slowly changes into the form of a mimic.");
700 }
701 }
702 }
703
704 /*
705 * FUNCTION: throw a magic spell
706 *
707 * GLOBAL INPUTS: Curmonster, Whichmonster, Nomana[], Player, *stdscr,
708 * Fightenv[], Illspell[], *Enemyname
709 *
710 * GLOBAL OUTPUTS: Curmonster, Whichmonster, Shield, Player
711 *
712 * DESCRIPTION:
713 * Prompt player and process magic spells.
714 */
715
716 void
717 throwspell(void)
718 {
719 double inflict; /* damage inflicted */
720 double dtemp; /* for dtemporary calculations */
721 int ch; /* input */
722
723 inflict = 0;
724 mvaddstr(7, 0, "\n\n"); /* clear menu area */
725
726 if (Player.p_magiclvl >= ML_ALLORNOTHING)
727 mvaddstr(7, 0, "1:All or Nothing ");
728 if (Player.p_magiclvl >= ML_MAGICBOLT)
729 addstr("2:Magic Bolt ");
730 if (Player.p_magiclvl >= ML_FORCEFIELD)
731 addstr("3:Force Field ");
732 if (Player.p_magiclvl >= ML_XFORM)
733 addstr("4:Transform ");
734 if (Player.p_magiclvl >= ML_INCRMIGHT)
735 addstr("5:Increase Might\n");
736 if (Player.p_magiclvl >= ML_INVISIBLE)
737 mvaddstr(8, 0, "6:Invisibility ");
738 if (Player.p_magiclvl >= ML_XPORT)
739 addstr("7:Transport ");
740 if (Player.p_magiclvl >= ML_PARALYZE)
741 addstr("8:Paralyze ");
742 if (Player.p_specialtype >= SC_COUNCIL)
743 addstr("9:Specify");
744 mvaddstr(4, 0, "Spell ? ");
745
746 ch = getanswer(" ", TRUE);
747
748 mvaddstr(7, 0, "\n\n"); /* clear menu area */
749
750 if (Curmonster.m_type == SM_MORGOTH && ch != '3')
751 /* can only throw force field against Morgoth */
752 ILLSPELL();
753 else
754 switch (ch) {
755 case '1': /* all or nothing */
756 if (drandom() < 0.25) {
757 /* success */
758 inflict = Curmonster.m_energy * 1.01 + 1.0;
759
760 if (Curmonster.m_type == SM_DARKLORD)
761 /* all or nothing doesn't quite work against D. L. */
762 inflict *= 0.9;
763 } else {
764 /* failure -- monster gets stronger and quicker */
765 Curmonster.m_o_strength = Curmonster.m_strength *= 2.0;
766 Curmonster.m_maxspeed *= 2.0;
767 Curmonster.m_o_speed *= 2.0;
768
769 /* paralyzed monsters wake up a bit */
770 Curmonster.m_speed = MAX(1.0, Curmonster.m_speed * 2.0);
771 }
772
773 if (Player.p_mana >= MM_ALLORNOTHING)
774 /* take a mana if player has one */
775 Player.p_mana -= MM_ALLORNOTHING;
776
777 hitmonster(inflict);
778 break;
779
780 case '2': /* magic bolt */
781 if (Player.p_magiclvl < ML_MAGICBOLT)
782 ILLSPELL();
783 else {
784 do {
785 /* prompt for amount to expend */
786 mvaddstr(4, 0, "How much mana for bolt? ");
787 dtemp = floor(infloat());
788 } while (dtemp < 0.0 || dtemp > Player.p_mana);
789
790 Player.p_mana -= dtemp;
791
792 if (Curmonster.m_type == SM_DARKLORD)
793 /* magic bolts don't work against D. L. */
794 inflict = 0.0;
795 else
796 inflict = dtemp * ROLL(15.0, sqrt(Player.p_magiclvl / 3.0 + 1.0));
797 mvaddstr(5, 0, "Magic Bolt fired!\n");
798 hitmonster(inflict);
799 }
800 break;
801
802 case '3': /* force field */
803 if (Player.p_magiclvl < ML_FORCEFIELD)
804 ILLSPELL();
805 else if (Player.p_mana < MM_FORCEFIELD)
806 NOMANA();
807 else {
808 Player.p_mana -= MM_FORCEFIELD;
809 Shield = (Player.p_maxenergy + Player.p_shield) * 4.2 + 45.0;
810 mvaddstr(5, 0, "Force Field up.\n");
811 }
812 break;
813
814 case '4': /* transform */
815 if (Player.p_magiclvl < ML_XFORM)
816 ILLSPELL();
817 else if (Player.p_mana < MM_XFORM)
818 NOMANA();
819 else {
820 Player.p_mana -= MM_XFORM;
821 Whichmonster = (int)ROLL(0.0, 100.0);
822 longjmp(Fightenv, 0);
823 /* NOTREACHED */
824 }
825 break;
826
827 case '5': /* increase might */
828 if (Player.p_magiclvl < ML_INCRMIGHT)
829 ILLSPELL();
830 else if (Player.p_mana < MM_INCRMIGHT)
831 NOMANA();
832 else {
833 Player.p_mana -= MM_INCRMIGHT;
834 Player.p_might +=
835 (1.2 * (Player.p_strength + Player.p_sword) +
836 5.0 - Player.p_might) / 2.0;
837 mvprintw(5, 0, "New strength: %.0f\n", Player.p_might);
838 }
839 break;
840
841 case '6': /* invisible */
842 if (Player.p_magiclvl < ML_INVISIBLE)
843 ILLSPELL();
844 else if (Player.p_mana < MM_INVISIBLE)
845 NOMANA();
846 else {
847 Player.p_mana -= MM_INVISIBLE;
848 Player.p_speed +=
849 (1.2 * (Player.p_quickness + Player.p_quksilver) +
850 5.0 - Player.p_speed) / 2.0;
851 mvprintw(5, 0, "New quickness: %.0f\n", Player.p_speed);
852 }
853 break;
854
855 case '7': /* transport */
856 if (Player.p_magiclvl < ML_XPORT)
857 ILLSPELL();
858 else if (Player.p_mana < MM_XPORT)
859 NOMANA();
860 else {
861 Player.p_mana -= MM_XPORT;
862 if (Player.p_brains + Player.p_magiclvl
863 < Curmonster.m_experience / 200.0 * drandom()) {
864 mvaddstr(5, 0, "Transport backfired!\n");
865 altercoordinates(0.0, 0.0, A_FAR);
866 cancelmonster();
867 } else {
868 mvprintw(5, 0, "%s is transported.\n", Enemyname);
869 if (drandom() < 0.3)
870 /* monster didn't drop its treasure */
871 Curmonster.m_treasuretype = 0;
872
873 Curmonster.m_energy = 0.0;
874 }
875 }
876 break;
877
878 case '8': /* paralyze */
879 if (Player.p_magiclvl < ML_PARALYZE)
880 ILLSPELL();
881 else if (Player.p_mana < MM_PARALYZE)
882 NOMANA();
883 else {
884 Player.p_mana -= MM_PARALYZE;
885 if (Player.p_magiclvl >
886 Curmonster.m_experience / 1000.0 * drandom()) {
887 mvprintw(5, 0, "%s is held.\n", Enemyname);
888 Curmonster.m_speed = -2.0;
889 } else
890 mvaddstr(5, 0, "Monster unaffected.\n");
891 }
892 break;
893
894 case '9': /* specify */
895 if (Player.p_specialtype < SC_COUNCIL)
896 ILLSPELL();
897 else if (Player.p_mana < MM_SPECIFY)
898 NOMANA();
899 else {
900 Player.p_mana -= MM_SPECIFY;
901 mvaddstr(5, 0, "Which monster do you want [0-99] ? ");
902 Whichmonster = (int)infloat();
903 Whichmonster = MAX(0, MIN(99, Whichmonster));
904 longjmp(Fightenv, 0);
905 /* NOTREACHED */
906 }
907 break;
908 }
909 }
910
911 /*
912 * FUNCTION: read monster from file, and fill structure
913 *
914 * ARGUMENTS:
915 * int which - which monster to call
916 *
917 * GLOBAL INPUTS: Curmonster, Circle, Player, *Monstfp
918 *
919 * GLOBAL OUTPUTS: Curmonster, Player, *Enemyname
920 *
921 * DESCRIPTION:
922 * Read specified monster from monster database and fill up
923 * current monster structure.
924 * Adjust statistics based upon current size.
925 * Handle some special monsters.
926 */
927
928 void
929 callmonster(int which)
930 {
931 struct monster Othermonster; /* to find a name for mimics */
932
933 which = MIN(which, 99); /* make sure within range */
934
935 /* fill structure */
936 fseek(Monstfp, (long)which * (long)SZ_MONSTERSTRUCT, SEEK_SET);
937 fread((char *)&Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp);
938
939 /* handle some special monsters */
940 if (Curmonster.m_type == SM_MODNAR) {
941 if (Player.p_specialtype < SC_COUNCIL) {
942 /* randomize some stats */
943 Curmonster.m_strength *= drandom() + 0.5;
944 Curmonster.m_brains *= drandom() + 0.5;
945 Curmonster.m_speed *= drandom() + 0.5;
946 Curmonster.m_energy *= drandom() + 0.5;
947 Curmonster.m_experience *= drandom() + 0.5;
948 Curmonster.m_treasuretype =
949 (int)ROLL(0.0, (double)Curmonster.m_treasuretype);
950 } else {
951 /* make Modnar into Morgoth */
952 strcpy(Curmonster.m_name, "Morgoth");
953 Curmonster.m_strength = drandom() * (Player.p_maxenergy + Player.p_shield) / 1.4
954 + drandom() * (Player.p_maxenergy + Player.p_shield) / 1.5;
955 Curmonster.m_brains = Player.p_brains;
956 Curmonster.m_energy = Player.p_might * 30.0;
957 Curmonster.m_type = SM_MORGOTH;
958 Curmonster.m_speed = Player.p_speed * 1.1
959 + (Player.p_specialtype == SC_EXVALAR) ? Player.p_speed : 0.0;
960 Curmonster.m_flock = 0.0;
961 Curmonster.m_treasuretype = 0;
962 Curmonster.m_experience = 0.0;
963 }
964 } else if (Curmonster.m_type == SM_MIMIC) {
965 /* pick another name */
966 which = (int)ROLL(0.0, 100.0);
967 fseek(Monstfp, (long)which * (long)SZ_MONSTERSTRUCT, SEEK_SET);
968 fread(&Othermonster, SZ_MONSTERSTRUCT, 1, Monstfp);
969 strcpy(Curmonster.m_name, Othermonster.m_name);
970 }
971
972 truncstring(Curmonster.m_name);
973
974 if (Curmonster.m_type != SM_MORGOTH) {
975 /* adjust stats based on which circle player is in */
976 Curmonster.m_strength *= (1.0 + Circle / 2.0);
977 Curmonster.m_brains *= Circle;
978 Curmonster.m_speed += Circle * 1.e-9;
979 Curmonster.m_energy *= Circle;
980 Curmonster.m_experience *= Circle;
981 }
982
983 if (Player.p_blindness)
984 /* cannot see monster if blind */
985 Enemyname = "A monster";
986 else
987 Enemyname = Curmonster.m_name;
988
989 if (Player.p_speed <= 0.0) {
990 /* make Player.p_speed positive */
991 Curmonster.m_speed += -Player.p_speed;
992 Player.p_speed = 1.0;
993 }
994
995 /* fill up the rest of the structure */
996 Curmonster.m_o_strength = Curmonster.m_strength;
997 Curmonster.m_o_speed = Curmonster.m_maxspeed = Curmonster.m_speed;
998 Curmonster.m_o_energy = Curmonster.m_energy;
999 Curmonster.m_melee = Curmonster.m_skirmish = 0.0;
1000 }
1001
1002 /*
1003 * FUNCTION: select a treasure
1004 *
1005 * GLOBAL INPUTS: Somebetter[], Curmonster, Whichmonster, Circle, Player,
1006 * *stdscr, Databuf[], *Statptr, Fightenv[]
1007 *
1008 * GLOBAL OUTPUTS: Whichmonster, Shield, Player
1009 *
1010 * DESCRIPTION:
1011 * Roll up a treasure based upon monster type and size, and
1012 * certain player statistics.
1013 * Handle cursed treasure.
1014 */
1015
1016 void
1017 awardtreasure(void)
1018 {
1019 int whichtreasure; /* calculated treasure to grant */
1020 int temp; /* temporary */
1021 int ch; /* input */
1022 double treasuretype; /* monster's treasure type */
1023 double gold = 0.0; /* gold awarded */
1024 double gems = 0.0; /* gems awarded */
1025 double dtemp; /* for temporary calculations */
1026
1027 whichtreasure = (int)ROLL(1.0, 3.0); /* pick a treasure */
1028 treasuretype = (double)Curmonster.m_treasuretype;
1029
1030 move(4, 0);
1031 clrtobot();
1032 move(6, 0);
1033
1034 if (drandom() > 0.65) {
1035 /* gold and gems */
1036 if (Curmonster.m_treasuretype > 7) {
1037 /* gems */
1038 gems = ROLL(1.0, (treasuretype - 7.0)
1039 * (treasuretype - 7.0) * (Circle - 1.0) / 4.0);
1040 printw("You have discovered %.0f gems!", gems);
1041 } else {
1042 /* gold */
1043 gold = ROLL(treasuretype * 10.0, treasuretype
1044 * treasuretype * 10.0 * (Circle - 1.0));
1045 printw("You have found %.0f gold pieces.", gold);
1046 }
1047
1048 addstr(" Do you want to pick them up ? ");
1049 ch = getanswer("NY", FALSE);
1050 addstr("\n\n");
1051
1052 if (ch == 'Y') {
1053 if (drandom() < treasuretype / 35.0 + 0.04) {
1054 /* cursed */
1055 addstr("They were cursed!\n");
1056 cursedtreasure();
1057 } else
1058 collecttaxes(gold, gems);
1059 }
1060
1061 return;
1062 } else {
1063 /* other treasures */
1064 addstr("You have found some treasure. Do you want to inspect it ? ");
1065 ch = getanswer("NY", FALSE);
1066 addstr("\n\n");
1067
1068 if (ch != 'Y')
1069 return;
1070 else if (drandom() < 0.08 && Curmonster.m_treasuretype != 4) {
1071 addstr("It was cursed!\n");
1072 cursedtreasure();
1073 return;
1074 } else
1075 switch (Curmonster.m_treasuretype) {
1076 case 1: /* treasure type 1 */
1077 switch (whichtreasure) {
1078 case 1:
1079 addstr("You've discovered a power booster!\n");
1080 Player.p_mana += ROLL(Circle * 4.0, Circle * 30.0);
1081 break;
1082
1083 case 2:
1084 addstr("You have encountered a druid.\n");
1085 Player.p_experience +=
1086 ROLL(0.0, 2000.0 + Circle * 400.0);
1087 break;
1088
1089 case 3:
1090 addstr("You have found a holy orb.\n");
1091 Player.p_sin = MAX(0.0, Player.p_sin - 0.25);
1092 break;
1093 }
1094 break;
1095 /* end treasure type 1 */
1096
1097 case 2: /* treasure type 2 */
1098 switch (whichtreasure) {
1099 case 1:
1100 addstr("You have found an amulet.\n");
1101 ++Player.p_amulets;
1102 break;
1103
1104 case 2:
1105 addstr("You've found some holy water!\n");
1106 ++Player.p_holywater;
1107 break;
1108
1109 case 3:
1110 addstr("You've met a hermit!\n");
1111 Player.p_sin *= 0.75;
1112 Player.p_mana += 12.0 * Circle;
1113 break;
1114 }
1115 break;
1116 /* end treasure type 2 */
1117
1118 case 3: /* treasure type 3 */
1119 switch (whichtreasure) {
1120 case 1:
1121 dtemp = ROLL(7.0, 30.0 + Circle / 10.0);
1122 printw("You've found a +%.0f shield!\n", dtemp);
1123 if (dtemp >= Player.p_shield)
1124 Player.p_shield = dtemp;
1125 else
1126 SOMEBETTER();
1127 break;
1128
1129 case 2:
1130 addstr("You have rescued a virgin. Will you be honorable ? ");
1131 ch = getanswer("NY", FALSE);
1132 addstr("\n\n");
1133 if (ch == 'Y')
1134 Player.p_virgin = TRUE;
1135 else {
1136 Player.p_experience += 2000.0 * Circle;
1137 ++Player.p_sin;
1138 }
1139 break;
1140
1141 case 3:
1142 addstr("You've discovered some athelas!\n");
1143 --Player.p_poison;
1144 break;
1145 }
1146 break;
1147 /* end treasure type 3 */
1148
1149 case 4: /* treasure type 4 */
1150 addstr("You've found a scroll. Will you read it ? ");
1151 ch = getanswer("NY", FALSE);
1152 addstr("\n\n");
1153
1154 if (ch == 'Y')
1155 switch ((int)ROLL(1, 6)) {
1156 case 1:
1157 addstr("It throws up a shield for you next monster.\n");
1158 getyx(stdscr, whichtreasure, ch);
1159 more(whichtreasure);
1160 Shield =
1161 (Player.p_maxenergy + Player.p_energy) * 5.5 + Circle * 50.0;
1162 Whichmonster = pickmonster();
1163 longjmp(Fightenv, 0);
1164 /*NOTREACHED*/
1165
1166 case 2:
1167 addstr("It makes you invisible for you next monster.\n");
1168 getyx(stdscr, whichtreasure, ch);
1169 more(whichtreasure);
1170 Player.p_speed = 1e6;
1171 Whichmonster = pickmonster();
1172 longjmp(Fightenv, 0);
1173 /* NOTREACHED */
1174
1175 case 3:
1176 addstr("It increases your strength ten fold to fight your next monster.\n");
1177 getyx(stdscr, whichtreasure, ch);
1178 more(whichtreasure);
1179 Player.p_might *= 10.0;
1180 Whichmonster = pickmonster();
1181 longjmp(Fightenv, 0);
1182 /* NOTREACHED */
1183
1184 case 4:
1185 addstr("It is a general knowledge scroll.\n");
1186 Player.p_brains += ROLL(2.0, Circle);
1187 Player.p_magiclvl += ROLL(1.0, Circle / 2.0);
1188 break;
1189
1190 case 5:
1191 addstr("It tells you how to pick your next monster.\n");
1192 addstr("Which monster do you want [0-99] ? ");
1193 Whichmonster = (int)infloat();
1194 Whichmonster = MIN(99, MAX(0, Whichmonster));
1195 longjmp(Fightenv, 0);
1196
1197 case 6:
1198 addstr("It was cursed!\n");
1199 cursedtreasure();
1200 break;
1201 }
1202 break;
1203 /* end treasure type 4 */
1204
1205 case 5: /* treasure type 5 */
1206 switch (whichtreasure) {
1207 case 1:
1208 dtemp = ROLL(Circle / 4.0 + 5.0, Circle / 2.0 + 9.0);
1209 printw("You've discovered a +%.0f dagger.\n", dtemp);
1210 if (dtemp >= Player.p_sword)
1211 Player.p_sword = dtemp;
1212 else
1213 SOMEBETTER();
1214 break;
1215
1216 case 2:
1217 dtemp = ROLL(7.5 + Circle * 3.0, Circle * 2.0 + 160.0);
1218 printw("You have found some +%.0f armour!\n", dtemp);
1219 if (dtemp >= Player.p_shield)
1220 Player.p_shield = dtemp;
1221 else
1222 SOMEBETTER();
1223 break;
1224
1225 case 3:
1226 addstr("You've found a tablet.\n");
1227 Player.p_brains += 4.5 * Circle;
1228 break;
1229 }
1230 break;
1231 /* end treasure type 5 */
1232
1233 case 6: /* treasure type 6 */
1234 switch (whichtreasure) {
1235 case 1:
1236 addstr("You've found a priest.\n");
1237 Player.p_energy = Player.p_maxenergy + Player.p_shield;
1238 Player.p_sin /= 2.0;
1239 Player.p_mana += 24.0 * Circle;
1240 Player.p_brains += Circle;
1241 break;
1242
1243 case 2:
1244 addstr("You have come upon Robin Hood!\n");
1245 Player.p_shield += Circle * 2.0;
1246 Player.p_strength += Circle / 2.5 + 1.0;
1247 break;
1248
1249 case 3:
1250 dtemp = ROLL(2.0 + Circle / 4.0, Circle / 1.2 + 10.0);
1251 printw("You have found a +%.0f axe!\n", dtemp);
1252 if (dtemp >= Player.p_sword)
1253 Player.p_sword = dtemp;
1254 else
1255 SOMEBETTER();
1256 break;
1257 }
1258 break;
1259 /* end treasure type 6 */
1260
1261 case 7: /* treasure type 7 */
1262 switch (whichtreasure) {
1263 case 1:
1264 addstr("You've discovered a charm!\n");
1265 ++Player.p_charms;
1266 break;
1267
1268 case 2:
1269 addstr("You have encountered Merlyn!\n");
1270 Player.p_brains += Circle + 5.0;
1271 Player.p_magiclvl += Circle / 3.0 + 5.0;
1272 Player.p_mana += Circle * 10.0;
1273 break;
1274
1275 case 3:
1276 dtemp = ROLL(5.0 + Circle / 3.0, Circle / 1.5 + 20.0);
1277 printw("You have found a +%.0f war hammer!\n", dtemp);
1278 if (dtemp >= Player.p_sword)
1279 Player.p_sword = dtemp;
1280 else
1281 SOMEBETTER();
1282 break;
1283 }
1284 break;
1285 /* end treasure type 7 */
1286
1287 case 8: /* treasure type 8 */
1288 switch (whichtreasure) {
1289 case 1:
1290 addstr("You have found a healing potion.\n");
1291 Player.p_poison = MIN(-2.0, Player.p_poison - 2.0);
1292 break;
1293
1294 case 2:
1295 addstr("You have discovered a transporter. Do you wish to go anywhere ? ");
1296 ch = getanswer("NY", FALSE);
1297 addstr("\n\n");
1298 if (ch == 'Y') {
1299 double x, y;
1300
1301 addstr("X Y Coordinates ? ");
1302 getstring(Databuf, SZ_DATABUF);
1303 sscanf(Databuf, "%lf %lf", &x, &y);
1304 altercoordinates(x, y, A_FORCED);
1305 }
1306 break;
1307
1308 case 3:
1309 dtemp = ROLL(10.0 + Circle / 1.2, Circle * 3.0 + 30.0);
1310 printw("You've found a +%.0f sword!\n", dtemp);
1311 if (dtemp >= Player.p_sword)
1312 Player.p_sword = dtemp;
1313 else
1314 SOMEBETTER();
1315 break;
1316 }
1317 break;
1318 /* end treasure type 8 */
1319
1320 case 10:
1321 case 11:
1322 case 12:
1323 case 13: /* treasure types 10 - 13 */
1324 if (drandom() < 0.33) {
1325 if (Curmonster.m_treasuretype == 10) {
1326 addstr("You've found a pair of elven boots!\n");
1327 Player.p_quickness += 2.0;
1328 break;
1329 } else if (Curmonster.m_treasuretype == 11 &&
1330 !Player.p_palantir) {
1331 addstr("You've acquired Saruman's palantir.\n");
1332 Player.p_palantir = TRUE;
1333 break;
1334 } else if (Player.p_ring.ring_type == R_NONE &&
1335 Player.p_specialtype < SC_COUNCIL &&
1336 (Curmonster.m_treasuretype == 12 ||
1337 Curmonster.m_treasuretype == 13)) {
1338 /* roll up a ring */
1339 if (drandom() < 0.8) {
1340 /* regular rings */
1341 if (Curmonster.m_treasuretype == 12) {
1342 whichtreasure = R_NAZREG;
1343 temp = 35;
1344 } else {
1345 whichtreasure = R_DLREG;
1346 temp = 0;
1347 }
1348 } else {
1349 /* bad rings */
1350 whichtreasure = R_BAD;
1351 temp = 15 + Statptr->c_ringduration + (int)ROLL(0, 5);
1352 }
1353
1354 addstr("You've discovered a ring. Will you pick it up ? ");
1355 ch = getanswer("NY", FALSE);
1356 addstr("\n\n");
1357
1358 if (ch == 'Y') {
1359 Player.p_ring.ring_type = whichtreasure;
1360 Player.p_ring.ring_duration = temp;
1361 }
1362
1363 break;
1364 }
1365 }
1366 /* end treasure types 10 - 13 */
1367 /* fall through to treasure type 9 if no treasure from above */
1368
1369 case 9: /* treasure type 9 */
1370 switch (whichtreasure) {
1371 case 1:
1372 if (Player.p_level <= 1000.0 &&
1373 Player.p_crowns <= 3 &&
1374 Player.p_level >= 10.0) {
1375 addstr("You have found a golden crown!\n");
1376 ++Player.p_crowns;
1377 break;
1378 }
1379 /* fall through otherwise */
1380
1381 case 2:
1382 addstr("You've been blessed!\n");
1383 Player.p_blessing = TRUE;
1384 Player.p_sin /= 3.0;
1385 Player.p_energy = Player.p_maxenergy + Player.p_shield;
1386 Player.p_mana += 100.0 * Circle;
1387 break;
1388
1389 case 3:
1390 dtemp = ROLL(1.0, Circle / 5.0 + 5.0);
1391 dtemp = MIN(dtemp, 99.0);
1392 printw("You have discovered some +%.0f quicksilver!\n", dtemp);
1393 if (dtemp >= Player.p_quksilver)
1394 Player.p_quksilver = dtemp;
1395 else
1396 SOMEBETTER();
1397 break;
1398 }
1399 break;
1400 /* end treasure type 9 */
1401 }
1402 }
1403 }
1404
1405 /*
1406 * FUNCTION: take care of cursed treasure
1407 *
1408 * GLOBAL INPUTS: Player, *stdscr
1409 *
1410 * GLOBAL OUTPUTS: Player
1411 *
1412 * DESCRIPTION:
1413 * Handle cursed treasure. Look for amulets and charms to save
1414 * the player from the curse.
1415 */
1416
1417 void
1418 cursedtreasure(void)
1419 {
1420 if (Player.p_charms > 0) {
1421 addstr("But your charm saved you!\n");
1422 --Player.p_charms;
1423 } else if (Player.p_amulets > 0) {
1424 addstr("But your amulet saved you!\n");
1425 --Player.p_amulets;
1426 } else {
1427 Player.p_energy = (Player.p_maxenergy + Player.p_shield) / 10.0;
1428 Player.p_poison += 0.25;
1429 }
1430 }
1431
1432 /*
1433 * FUNCTION: scramble some selected statistics
1434 *
1435 * GLOBAL INPUTS: Player
1436 *
1437 * GLOBAL OUTPUTS: Player
1438 *
1439 * DESCRIPTION:
1440 * Swap a few player statistics randomly.
1441 */
1442
1443 void
1444 scramblestats(void)
1445 {
1446 double dbuf[6]; /* to put statistic in */
1447 double dtemp1, dtemp2; /* for swapping values */
1448 int first, second; /* indices for swapping */
1449 double *dptr; /* pointer for filling and emptying buf[] */
1450
1451 /* fill buffer */
1452 dptr = &dbuf[0];
1453 *dptr++ = Player.p_strength;
1454 *dptr++ = Player.p_mana;
1455 *dptr++ = Player.p_brains;
1456 *dptr++ = Player.p_magiclvl;
1457 *dptr++ = Player.p_energy;
1458 *dptr = Player.p_sin;
1459
1460 /* pick values to swap */
1461 first = (int)ROLL(0, 5);
1462 second = (int)ROLL(0, 5);
1463
1464 /* swap values */
1465 dptr = &dbuf[0];
1466 dtemp1 = dptr[first];
1467 /* this expression is split to prevent a compiler loop on some compilers */
1468 dtemp2 = dptr[second];
1469 dptr[first] = dtemp2;
1470 dptr[second] = dtemp1;
1471
1472 /* empty buffer */
1473 Player.p_strength = *dptr++;
1474 Player.p_mana = *dptr++;
1475 Player.p_brains = *dptr++;
1476 Player.p_magiclvl = *dptr++;
1477 Player.p_energy = *dptr++;
1478 Player.p_sin = *dptr;
1479 }
DragonFly BSD