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