games/phantasia/fight.c

   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 }