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