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