![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to interplayer.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / games / phantasia|
Return to interplayer.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / games / phantasia |
1.1 ! root 1: /* ! 2: * interplayer.c - player to player routines for Phantasia ! 3: */ ! 4: ! 5: #include "include.h" ! 6: ! 7: /************************************************************************ ! 8: / ! 9: / FUNCTION NAME: checkbattle() ! 10: / ! 11: / FUNCTION: check to see if current player should battle another ! 12: / ! 13: / AUTHOR: E. A. Estes, 12/4/85 ! 14: / ! 15: / ARGUMENTS: none ! 16: / ! 17: / RETURN VALUE: none ! 18: / ! 19: / MODULES CALLED: battleplayer(), fread(), fseek() ! 20: / ! 21: / GLOBAL INPUTS: Other, Users, Player, Fileloc, *Playersfp ! 22: / ! 23: / GLOBAL OUTPUTS: Users ! 24: / ! 25: / DESCRIPTION: ! 26: / Seach player file for a foe at the same coordinates as the ! 27: / current player. ! 28: / Also update user count. ! 29: / ! 30: /************************************************************************/ ! 31: ! 32: checkbattle() ! 33: { ! 34: long foeloc = 0L; /* location in file of person to fight */ ! 35: ! 36: Users = 0; ! 37: fseek(Playersfp, 0L, 0); ! 38: ! 39: while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1) ! 40: { ! 41: if (Other.p_status != S_OFF ! 42: && Other.p_status != S_NOTUSED ! 43: && Other.p_status != S_HUNGUP ! 44: && (Other.p_status != S_CLOAKED || Other.p_specialtype != SC_VALAR)) ! 45: /* player is on and not a cloaked valar */ ! 46: { ! 47: ++Users; ! 48: ! 49: if (Player.p_x == Other.p_x ! 50: && Player.p_y == Other.p_y ! 51: /* same coordinates */ ! 52: && foeloc != Fileloc ! 53: /* not self */ ! 54: && Player.p_status == S_PLAYING ! 55: && (Other.p_status == S_PLAYING || Other.p_status == S_INBATTLE) ! 56: /* both are playing */ ! 57: && Other.p_specialtype != SC_VALAR ! 58: && Player.p_specialtype != SC_VALAR) ! 59: /* neither is valar */ ! 60: { ! 61: battleplayer(foeloc); ! 62: return; ! 63: } ! 64: } ! 65: foeloc += SZ_PLAYERSTRUCT; ! 66: } ! 67: } ! 68: /* */ ! 69: /************************************************************************ ! 70: / ! 71: / FUNCTION NAME: battleplayer() ! 72: / ! 73: / FUNCTION: inter-terminal battle with another player ! 74: / ! 75: / AUTHOR: E. A. Estes, 2/15/86 ! 76: / ! 77: / ARGUMENTS: ! 78: / long foeplace - location in player file of person to battle ! 79: / ! 80: / RETURN VALUE: none ! 81: / ! 82: / MODULES CALLED: readrecord(), readmessage(), writerecord(), collecttaxes(), ! 83: / displaystats(), fabs(), more(), death(), sleep(), wmove(), waddch(), printw(), ! 84: / myturn(), altercoordinates(), waddstr(), wrefresh(), mvprintw(), ! 85: / getanswer(), wclrtoeol(), wclrtobot() ! 86: / ! 87: / GLOBAL INPUTS: Foestrikes, LINES, Lines, Other, Shield, Player, *stdscr, ! 88: / Fileloc, *Enemyname ! 89: / ! 90: / GLOBAL OUTPUTS: Foestrikes, Lines, Shield, Player, Luckout, *Enemyname ! 91: / ! 92: / DESCRIPTION: ! 93: / Inter-terminal battle is a very fragile and slightly klugy thing. ! 94: / At any time, one player is master and the other is slave. ! 95: / We pick who is master first by speed and level. After that, ! 96: / the slave waits for the master to relinquish its turn, and ! 97: / the slave becomes master, and so on. ! 98: / ! 99: / The items in the player structure which control the handshake are: ! 100: / p_tampered: ! 101: / master increments this to relinquish control ! 102: / p_istat: ! 103: / master sets this to specify particular action ! 104: / p_1scratch: ! 105: / set to total damage inflicted so far; changes to indicate action ! 106: / ! 107: /************************************************************************/ ! 108: ! 109: battleplayer(foeplace) ! 110: long foeplace; ! 111: { ! 112: double dtemp; /* for temporary calculations */ ! 113: double oldhits = 0.0; /* previous damage inflicted by foe */ ! 114: register int loop; /* for timing out */ ! 115: int ch; /* input */ ! 116: short oldtampered; /* old value of foe's p_tampered */ ! 117: ! 118: Lines = 8; ! 119: Luckout = FALSE; ! 120: mvaddstr(4, 0, "Preparing for battle!\n"); ! 121: refresh(); ! 122: ! 123: #ifdef SYS5 ! 124: flushinp(); ! 125: #endif ! 126: ! 127: /* set up variables, file, etc. */ ! 128: Player.p_status = S_INBATTLE; ! 129: Shield = Player.p_energy; ! 130: ! 131: /* if p_tampered is not 0, someone else may try to change it (king, etc.) */ ! 132: Player.p_tampered = oldtampered = 1; ! 133: Player.p_1scratch = 0.0; ! 134: Player.p_istat = I_OFF; ! 135: ! 136: readrecord(&Other, foeplace); ! 137: if (fabs(Player.p_level - Other.p_level) > 20.0) ! 138: /* see if players are greatly mismatched */ ! 139: { ! 140: dtemp = (Player.p_level - Other.p_level) / MAX(Player.p_level, Other.p_level); ! 141: if (dtemp < -0.5) ! 142: /* foe outweighs this one */ ! 143: Player.p_speed *= 2.0; ! 144: } ! 145: ! 146: writerecord(&Player, Fileloc); /* write out all our info */ ! 147: ! 148: if (Player.p_blindness) ! 149: Enemyname = "someone"; ! 150: else ! 151: Enemyname = Other.p_name; ! 152: ! 153: mvprintw(6, 0, "You have encountered %s Level: %.0f\n", Enemyname, Other.p_level); ! 154: refresh(); ! 155: ! 156: for (loop = 0; Other.p_status != S_INBATTLE && loop < 30; ++loop) ! 157: /* wait for foe to respond */ ! 158: { ! 159: readrecord(&Other, foeplace); ! 160: sleep(1); ! 161: } ! 162: ! 163: if (Other.p_status != S_INBATTLE) ! 164: /* foe did not respond */ ! 165: { ! 166: mvprintw(5, 0, "%s is not responding.\n", Enemyname); ! 167: goto LEAVE; ! 168: } ! 169: /* else, we are ready to battle */ ! 170: ! 171: move(4, 0); ! 172: clrtoeol(); ! 173: ! 174: /* ! 175: * determine who is first master ! 176: * if neither player is faster, check level ! 177: * if neither level is greater, battle is not allowed ! 178: * (this should never happen, but we have to handle it) ! 179: */ ! 180: if (Player.p_speed > Other.p_speed) ! 181: Foestrikes = FALSE; ! 182: else if (Other.p_speed > Player.p_speed) ! 183: Foestrikes = TRUE; ! 184: else if (Player.p_level > Other.p_level) ! 185: Foestrikes = FALSE; ! 186: else if (Other.p_level > Player.p_level) ! 187: Foestrikes = TRUE; ! 188: else ! 189: /* no one is faster */ ! 190: { ! 191: printw("You can't fight %s yet.", Enemyname); ! 192: goto LEAVE; ! 193: } ! 194: ! 195: for (;;) ! 196: { ! 197: displaystats(); ! 198: readmessage(); ! 199: mvprintw(1, 26, "%20.0f", Shield); /* overprint energy */ ! 200: ! 201: if (!Foestrikes) ! 202: /* take action against foe */ ! 203: myturn(); ! 204: else ! 205: /* wait for foe to take action */ ! 206: { ! 207: mvaddstr(4, 0, "Waiting...\n"); ! 208: clrtoeol(); ! 209: refresh(); ! 210: ! 211: for (loop = 0; loop < 20; ++loop) ! 212: /* wait for foe to act */ ! 213: { ! 214: readrecord(&Other, foeplace); ! 215: if (Other.p_1scratch != oldhits) ! 216: /* p_1scratch changes to indicate action */ ! 217: break; ! 218: else ! 219: /* wait and try again */ ! 220: { ! 221: sleep(1); ! 222: addch('.'); ! 223: refresh(); ! 224: } ! 225: } ! 226: ! 227: if (Other.p_1scratch == oldhits) ! 228: { ! 229: /* timeout */ ! 230: mvaddstr(22, 0, "Timeout: waiting for response. Do you want to wait ? "); ! 231: ch = getanswer("NY", FALSE); ! 232: move(22, 0); ! 233: clrtobot(); ! 234: if (ch == 'Y') ! 235: continue; ! 236: else ! 237: break; ! 238: } ! 239: else ! 240: /* foe took action */ ! 241: { ! 242: switch (Other.p_istat) ! 243: { ! 244: case I_RAN: /* foe ran away */ ! 245: mvprintw(Lines++, 0, "%s ran away!", Enemyname); ! 246: break; ! 247: ! 248: case I_STUCK: /* foe tried to run, but couldn't */ ! 249: mvprintw(Lines++, 0, "%s tried to run away.", Enemyname); ! 250: break; ! 251: ! 252: case I_BLEWIT: /* foe tried to luckout, but didn't */ ! 253: mvprintw(Lines++, 0, "%s tried to luckout!", Enemyname); ! 254: break; ! 255: ! 256: default: ! 257: dtemp = Other.p_1scratch - oldhits; ! 258: mvprintw(Lines++, 0, "%s hit you %.0f times!", Enemyname, dtemp); ! 259: Shield -= dtemp; ! 260: break; ! 261: } ! 262: ! 263: oldhits = Other.p_1scratch; /* keep track of old hits */ ! 264: ! 265: if (Other.p_tampered != oldtampered) ! 266: /* p_tampered changes to relinquish turn */ ! 267: { ! 268: oldtampered = Other.p_tampered; ! 269: Foestrikes = FALSE; ! 270: } ! 271: } ! 272: } ! 273: ! 274: /* decide what happens next */ ! 275: refresh(); ! 276: if (Lines > LINES - 2) ! 277: { ! 278: more(Lines); ! 279: move(Lines = 8, 0); ! 280: clrtobot(); ! 281: } ! 282: ! 283: if (Other.p_istat == I_KILLED || Shield < 0.0) ! 284: /* we died */ ! 285: { ! 286: Shield = -2.0; /* insure this value is negative */ ! 287: break; ! 288: } ! 289: ! 290: if (Player.p_istat == I_KILLED) ! 291: /* we killed foe; award treasre */ ! 292: { ! 293: mvprintw(Lines++, 0, "You killed %s!", Enemyname); ! 294: Player.p_experience += Other.p_experience; ! 295: Player.p_crowns += (Player.p_level < 1000.0) ? Other.p_crowns : 0; ! 296: Player.p_amulets += Other.p_amulets; ! 297: Player.p_charms += Other.p_charms; ! 298: collecttaxes(Other.p_gold, Other.p_gems); ! 299: Player.p_sword = MAX(Player.p_sword, Other.p_sword); ! 300: Player.p_shield = MAX(Player.p_shield, Other.p_shield); ! 301: Player.p_quksilver = MAX(Player.p_quksilver, Other.p_quksilver); ! 302: if (Other.p_virgin && !Player.p_virgin) ! 303: { ! 304: mvaddstr(Lines++, 0, "You have rescued a virgin. Will you be honorable ? "); ! 305: if ((ch = getanswer("YN", FALSE)) == 'Y') ! 306: Player.p_virgin = TRUE; ! 307: else ! 308: { ! 309: ++Player.p_sin; ! 310: Player.p_experience += 8000.0; ! 311: } ! 312: } ! 313: sleep(3); /* give other person time to die */ ! 314: break; ! 315: } ! 316: else if (Player.p_istat == I_RAN || Other.p_istat == I_RAN) ! 317: /* either player ran away */ ! 318: break; ! 319: } ! 320: ! 321: LEAVE: ! 322: /* clean up things and leave */ ! 323: writerecord(&Player, Fileloc); /* update a final time */ ! 324: altercoordinates(0.0, 0.0, A_NEAR); /* move away from battle site */ ! 325: Player.p_energy = Shield; /* set energy to actual value */ ! 326: Player.p_tampered = T_OFF; /* clear p_tampered */ ! 327: ! 328: more(Lines); /* pause */ ! 329: ! 330: move(4, 0); ! 331: clrtobot(); /* clear bottom area of screen */ ! 332: ! 333: if (Player.p_energy < 0.0) ! 334: /* we are dead */ ! 335: death("Interterminal battle"); ! 336: } ! 337: /* */ ! 338: /************************************************************************ ! 339: / ! 340: / FUNCTION NAME: myturn() ! 341: / ! 342: / FUNCTION: process players action against foe in battle ! 343: / ! 344: / AUTHOR: E. A. Estes, 2/7/86 ! 345: / ! 346: / ARGUMENTS: none ! 347: / ! 348: / RETURN VALUE: none ! 349: / ! 350: / MODULES CALLED: writerecord(), inputoption(), floor(), wmove(), drandom(), ! 351: / waddstr(), wrefresh(), mvprintw(), wclrtoeol(), wclrtobot() ! 352: / ! 353: / GLOBAL INPUTS: Lines, Other, Player, *stdscr, Fileloc, Luckout, ! 354: / *Enemyname ! 355: / ! 356: / GLOBAL OUTPUTS: Foestrikes, Lines, Player, Luckout ! 357: / ! 358: / DESCRIPTION: ! 359: / Take action action against foe, and decide who is master ! 360: / for next iteration. ! 361: / ! 362: /************************************************************************/ ! 363: ! 364: myturn() ! 365: { ! 366: double dtemp; /* for temporary calculations */ ! 367: int ch; /* input */ ! 368: ! 369: mvaddstr(7, 0, "1:Fight 2:Run Away! 3:Power Blast "); ! 370: if (Luckout) ! 371: clrtoeol(); ! 372: else ! 373: addstr("4:Luckout "); ! 374: ! 375: ch = inputoption(); ! 376: move(Lines = 8, 0); ! 377: clrtobot(); ! 378: ! 379: switch (ch) ! 380: { ! 381: default: /* fight */ ! 382: dtemp = ROLL(2.0, Player.p_might); ! 383: HIT: ! 384: mvprintw(Lines++, 0, "You hit %s %.0f times!", Enemyname, dtemp); ! 385: Player.p_sin += 0.5; ! 386: Player.p_1scratch += dtemp; ! 387: Player.p_istat = I_OFF; ! 388: break; ! 389: ! 390: case '2': /* run away */ ! 391: Player.p_1scratch -= 1.0; /* change this to indicate action */ ! 392: if (drandom() > 0.25) ! 393: { ! 394: mvaddstr(Lines++, 0, "You got away!"); ! 395: Player.p_istat = I_RAN; ! 396: } ! 397: else ! 398: { ! 399: mvprintw(Lines++, 0, "%s is still after you!", Enemyname); ! 400: Player.p_istat = I_STUCK; ! 401: } ! 402: break; ! 403: ! 404: case '3': /* power blast */ ! 405: dtemp = MIN(Player.p_mana, Player.p_level * 5.0); ! 406: Player.p_mana -= dtemp; ! 407: dtemp *= (drandom() + 0.5) * Player.p_magiclvl * 0.2 + 2.0; ! 408: mvprintw(Lines++, 0, "You blasted %s !", Enemyname); ! 409: goto HIT; ! 410: ! 411: case '4': /* luckout */ ! 412: if (Luckout || drandom() > 0.1) ! 413: { ! 414: if (Luckout) ! 415: mvaddstr(Lines++, 0, "You already tried that!"); ! 416: else ! 417: { ! 418: mvaddstr(Lines++, 0, "Not this time . . ."); ! 419: Luckout = TRUE; ! 420: } ! 421: ! 422: Player.p_1scratch -= 1.0; ! 423: Player.p_istat = I_BLEWIT; ! 424: } ! 425: else ! 426: { ! 427: mvaddstr(Lines++, 0, "You just lucked out!"); ! 428: Player.p_1scratch = Other.p_energy * 1.1; ! 429: } ! 430: break; ! 431: } ! 432: ! 433: refresh(); ! 434: Player.p_1scratch = floor(Player.p_1scratch); /* clean up any mess */ ! 435: ! 436: if (Player.p_1scratch > Other.p_energy) ! 437: Player.p_istat = I_KILLED; ! 438: else if (drandom() * Player.p_speed < drandom() * Other.p_speed) ! 439: /* relinquish control */ ! 440: { ! 441: ++Player.p_tampered; ! 442: Foestrikes = TRUE; ! 443: } ! 444: ! 445: writerecord(&Player, Fileloc); /* let foe know what we did */ ! 446: } ! 447: /* */ ! 448: /************************************************************************ ! 449: / ! 450: / FUNCTION NAME: checktampered() ! 451: / ! 452: / FUNCTION: check if current player has been tampered with ! 453: / ! 454: / AUTHOR: E. A. Estes, 12/4/85 ! 455: / ! 456: / ARGUMENTS: none ! 457: / ! 458: / RETURN VALUE: none ! 459: / ! 460: / MODULES CALLED: readrecord(), fread(), fseek(), tampered(), writevoid() ! 461: / ! 462: / GLOBAL INPUTS: *Energyvoidfp, Other, Player, Fileloc, Enrgyvoid ! 463: / ! 464: / GLOBAL OUTPUTS: Enrgyvoid ! 465: / ! 466: / DESCRIPTION: ! 467: / Check for energy voids, holy grail, and tampering by other ! 468: / players. ! 469: / ! 470: /************************************************************************/ ! 471: ! 472: checktampered() ! 473: { ! 474: long loc = 0L; /* location in energy void file */ ! 475: ! 476: /* first check for energy voids */ ! 477: fseek(Energyvoidfp, 0L, 0); ! 478: while (fread((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp) == 1) ! 479: if (Enrgyvoid.ev_active ! 480: && Enrgyvoid.ev_x == Player.p_x ! 481: && Enrgyvoid.ev_y == Player.p_y) ! 482: /* sitting on one */ ! 483: { ! 484: if (loc > 0L) ! 485: /* not the holy grail; inactivate energy void */ ! 486: { ! 487: Enrgyvoid.ev_active = FALSE; ! 488: writevoid(&Enrgyvoid, loc); ! 489: tampered(T_NRGVOID, 0.0, 0.0); ! 490: } ! 491: else if (Player.p_status != S_CLOAKED) ! 492: /* holy grail */ ! 493: tampered(T_GRAIL, 0.0, 0.0); ! 494: break; ! 495: } ! 496: else ! 497: loc += SZ_VOIDSTRUCT; ! 498: ! 499: /* now check for other things */ ! 500: readrecord(&Other, Fileloc); ! 501: if (Other.p_tampered != T_OFF) ! 502: tampered(Other.p_tampered, Other.p_1scratch, Other.p_2scratch); ! 503: } ! 504: /* */ ! 505: /************************************************************************ ! 506: / ! 507: / FUNCTION NAME: tampered() ! 508: / ! 509: / FUNCTION: take care of tampering by other players ! 510: / ! 511: / AUTHOR: E. A. Estes, 12/4/85 ! 512: / ! 513: / ARGUMENTS: ! 514: / int what - what type of tampering ! 515: / double arg1, arg2 - rest of tampering info ! 516: / ! 517: / RETURN VALUE: none ! 518: / ! 519: / MODULES CALLED: writerecord(), more(), fread(), death(), fseek(), sleep(), ! 520: / floor(), wmove(), waddch(), drandom(), printw(), altercoordinates(), ! 521: / waddstr(), wrefresh(), encounter(), writevoid() ! 522: / ! 523: / GLOBAL INPUTS: Other, Player, *stdscr, Enrgyvoid, *Playersfp ! 524: / ! 525: / GLOBAL OUTPUTS: Other, Player, Changed, Enrgyvoid ! 526: / ! 527: / DESCRIPTION: ! 528: / Take care of energy voids, holy grail, decree and intervention ! 529: / action on current player. ! 530: / ! 531: /************************************************************************/ ! 532: ! 533: tampered(what, arg1, arg2) ! 534: int what; ! 535: double arg1; ! 536: double arg2; ! 537: { ! 538: long loc; /* location in file of other players */ ! 539: ! 540: Changed = TRUE; ! 541: move(4,0); ! 542: ! 543: Player.p_tampered = T_OFF; /* no longer tampered with */ ! 544: ! 545: switch (what) ! 546: { ! 547: case T_NRGVOID: ! 548: addstr("You've hit an energy void !\n"); ! 549: Player.p_mana /= 3.0; ! 550: Player.p_energy /= 2.0; ! 551: Player.p_gold = floor(Player.p_gold/1.25) + 0.1; ! 552: altercoordinates(0.0, 0.0, A_NEAR); ! 553: break; ! 554: ! 555: case T_TRANSPORT: ! 556: addstr("The king transported you ! "); ! 557: if (Player.p_charms > 0) ! 558: { ! 559: addstr("But your charm saved you. . .\n"); ! 560: --Player.p_charms; ! 561: } ! 562: else ! 563: { ! 564: altercoordinates(0.0, 0.0, A_FAR); ! 565: addch('\n'); ! 566: } ! 567: break; ! 568: ! 569: case T_BESTOW: ! 570: printw("The king has bestowed %.0f gold pieces on you !\n", arg1); ! 571: Player.p_gold += arg1; ! 572: break; ! 573: ! 574: case T_CURSED: ! 575: addstr("You've been cursed ! "); ! 576: if (Player.p_blessing) ! 577: { ! 578: addstr("But your blessing saved you. . .\n"); ! 579: Player.p_blessing = FALSE; ! 580: } ! 581: else ! 582: { ! 583: addch('\n'); ! 584: Player.p_poison += 2.0; ! 585: Player.p_energy = 10.0; ! 586: Player.p_maxenergy *= 0.95; ! 587: Player.p_status = S_PLAYING; /* no longer cloaked */ ! 588: } ! 589: break; ! 590: ! 591: case T_VAPORIZED: ! 592: addstr("You have been vaporized!\n"); ! 593: more(7); ! 594: death("Vaporization"); ! 595: break; ! 596: ! 597: case T_MONSTER: ! 598: addstr("The Valar zapped you with a monster!\n"); ! 599: more(7); ! 600: encounter((int) arg1); ! 601: return; ! 602: ! 603: case T_BLESSED: ! 604: addstr("The Valar has blessed you!\n"); ! 605: Player.p_energy = (Player.p_maxenergy *= 1.05) + Player.p_shield; ! 606: Player.p_mana += 500.0; ! 607: Player.p_strength += 0.5; ! 608: Player.p_brains += 0.5; ! 609: Player.p_magiclvl += 0.5; ! 610: Player.p_poison = MIN(0.5, Player.p_poison); ! 611: break; ! 612: ! 613: case T_RELOCATE: ! 614: addstr("You've been relocated. . .\n"); ! 615: altercoordinates(arg1, arg2, A_FORCED); ! 616: break; ! 617: ! 618: case T_HEAL: ! 619: addstr("You've been healed!\n"); ! 620: Player.p_poison -= 0.25; ! 621: Player.p_energy = Player.p_maxenergy + Player.p_shield; ! 622: break; ! 623: ! 624: case T_EXVALAR: ! 625: addstr("You are no longer Valar!\n"); ! 626: Player.p_specialtype = SC_COUNCIL; ! 627: break; ! 628: ! 629: case T_GRAIL: ! 630: addstr("You have found The Holy Grail!!\n"); ! 631: if (Player.p_specialtype < SC_COUNCIL) ! 632: /* must be council of wise to behold grail */ ! 633: { ! 634: addstr("However, you are not experienced enough to behold it.\n"); ! 635: Player.p_sin *= Player.p_sin; ! 636: Player.p_mana += 1000; ! 637: } ! 638: else if (Player.p_specialtype == SC_VALAR ! 639: || Player.p_specialtype == SC_EXVALAR) ! 640: { ! 641: addstr("You have made it to the position of Valar once already.\n"); ! 642: addstr("The Grail is of no more use to you now.\n"); ! 643: } ! 644: else ! 645: { ! 646: addstr("It is now time to see if you are worthy to behold it. . .\n"); ! 647: refresh(); ! 648: sleep(4); ! 649: ! 650: if (drandom() / 2.0 < Player.p_sin) ! 651: { ! 652: addstr("You have failed!\n"); ! 653: Player.p_strength = ! 654: Player.p_mana = ! 655: Player.p_energy = ! 656: Player.p_maxenergy = ! 657: Player.p_magiclvl = ! 658: Player.p_brains = ! 659: Player.p_experience = ! 660: Player.p_quickness = 1.0; ! 661: ! 662: altercoordinates(1.0, 1.0, A_FORCED); ! 663: Player.p_level = 0.0; ! 664: } ! 665: else ! 666: { ! 667: addstr("You made to position of Valar!\n"); ! 668: Player.p_specialtype = SC_VALAR; ! 669: Player.p_lives = 5; ! 670: fseek(Playersfp, 0L, 0); ! 671: loc = 0L; ! 672: while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1) ! 673: /* search for existing valar */ ! 674: if (Other.p_specialtype == SC_VALAR ! 675: && Other.p_status != S_NOTUSED) ! 676: /* found old valar */ ! 677: { ! 678: Other.p_tampered = T_EXVALAR; ! 679: writerecord(&Other, loc); ! 680: break; ! 681: } ! 682: else ! 683: loc += SZ_PLAYERSTRUCT; ! 684: } ! 685: } ! 686: ! 687: /* move grail to new location */ ! 688: Enrgyvoid.ev_active = TRUE; ! 689: Enrgyvoid.ev_x = ROLL(-1.0e6, 2.0e6); ! 690: Enrgyvoid.ev_y = ROLL(-1.0e6, 2.0e6); ! 691: writevoid(&Enrgyvoid, 0L); ! 692: break; ! 693: } ! 694: refresh(); ! 695: sleep(2); ! 696: } ! 697: /* */ ! 698: /************************************************************************ ! 699: / ! 700: / FUNCTION NAME: userlist() ! 701: / ! 702: / FUNCTION: print list of players and locations ! 703: / ! 704: / AUTHOR: E. A. Estes, 2/28/86 ! 705: / ! 706: / ARGUMENTS: ! 707: / bool ingameflag - set if called while playing ! 708: / ! 709: / RETURN VALUE: none ! 710: / ! 711: / MODULES CALLED: descrstatus(), descrlocation(), more(), fread(), fseek(), ! 712: / floor(), wmove(), printw(), waddstr(), distance(), wrefresh(), ! 713: / descrtype(), wclrtobot() ! 714: / ! 715: / GLOBAL INPUTS: LINES, Other, Circle, Wizard, Player, *stdscr, *Playersfp ! 716: / ! 717: / GLOBAL OUTPUTS: none ! 718: / ! 719: / DESCRIPTION: ! 720: / We can only see the coordinate of those closer to the origin ! 721: / from us. ! 722: / Kings and council of the wise can see and can be seen by everyone. ! 723: / Palantirs are good for seeing everyone; and the valar can use ! 724: / one to see through a 'cloak' spell. ! 725: / The valar has no coordinates, and is completely invisible if ! 726: / cloaked. ! 727: / ! 728: /************************************************************************/ ! 729: ! 730: userlist(ingameflag) ! 731: bool ingameflag; ! 732: { ! 733: register int numusers = 0; /* number of users on file */ ! 734: ! 735: if (ingameflag && Player.p_blindness) ! 736: { ! 737: mvaddstr(8, 0, "You cannot see anyone.\n"); ! 738: return; ! 739: } ! 740: ! 741: fseek(Playersfp, 0L, 0); ! 742: mvaddstr(8, 0, ! 743: "Name X Y Lvl Type Login Status\n"); ! 744: ! 745: while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1) ! 746: { ! 747: if (Other.p_status == S_NOTUSED ! 748: /* record is unused */ ! 749: || (Other.p_specialtype == SC_VALAR && Other.p_status == S_CLOAKED)) ! 750: /* cloaked valar */ ! 751: { ! 752: if (!Wizard) ! 753: /* wizard can see everything on file */ ! 754: continue; ! 755: } ! 756: ! 757: ++numusers; ! 758: ! 759: if (ingameflag && ! 760: /* must be playing for the rest of these conditions */ ! 761: (Player.p_specialtype >= SC_KING ! 762: /* kings and higher can see others */ ! 763: || Other.p_specialtype >= SC_KING ! 764: /* kings and higher can be seen by others */ ! 765: || Circle >= CIRCLE(Other.p_x, Other.p_y) ! 766: /* those nearer the origin can be seen */ ! 767: || Player.p_palantir) ! 768: /* palantir enables one to see others */ ! 769: && (Other.p_status != S_CLOAKED ! 770: || (Player.p_specialtype == SC_VALAR && Player.p_palantir)) ! 771: /* not cloaked; valar can see through cloak with a palantir */ ! 772: && Other.p_specialtype != SC_VALAR) ! 773: /* not a valar */ ! 774: /* coordinates should be printed */ ! 775: printw("%-20s %8.0f %8.0f ", ! 776: Other.p_name, Other.p_x, Other.p_y); ! 777: else ! 778: /* cannot see player's coordinates */ ! 779: printw("%-20s %19.19s ", ! 780: Other.p_name, descrlocation(&Other, TRUE)); ! 781: ! 782: printw("%6.0f %s %-9.9s%s\n", Other.p_level, descrtype(&Other, TRUE), ! 783: Other.p_login, descrstatus(&Other)); ! 784: ! 785: if ((numusers % (LINES - 10)) == 0) ! 786: { ! 787: more(LINES - 1); ! 788: move(9, 0); ! 789: clrtobot(); ! 790: } ! 791: } ! 792: ! 793: printw("Total players on file = %d\n", numusers); ! 794: refresh(); ! 795: } ! 796: /* */ ! 797: /************************************************************************ ! 798: / ! 799: / FUNCTION NAME: throneroom() ! 800: / ! 801: / FUNCTION: king stuff upon entering throne ! 802: / ! 803: / AUTHOR: E. A. Estes, 12/16/85 ! 804: / ! 805: / ARGUMENTS: none ! 806: / ! 807: / RETURN VALUE: none ! 808: / ! 809: / MODULES CALLED: writerecord(), fread(), fseek(), fopen(), wmove(), fclose(), ! 810: / fwrite(), altercoordinates(), waddstr(), fprintf() ! 811: / ! 812: / GLOBAL INPUTS: *Energyvoidfp, Other, Player, *stdscr, Voidfile[], ! 813: / Messfile[], Enrgyvoid, *Playersfp ! 814: / ! 815: / GLOBAL OUTPUTS: Other, Player, Changed ! 816: / ! 817: / DESCRIPTION: ! 818: / If player is not already king, make him/her so if the old king ! 819: / is not playing. ! 820: / Clear energy voids with new king. ! 821: / Print 'decree' prompt. ! 822: / ! 823: /************************************************************************/ ! 824: ! 825: throneroom() ! 826: { ! 827: FILE *fp; /* to clear energy voids */ ! 828: long loc = 0L; /* location of old king in player file */ ! 829: ! 830: if (Player.p_specialtype < SC_KING) ! 831: /* not already king -- assumes crown */ ! 832: { ! 833: fseek(Playersfp, 0L, 0); ! 834: while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1) ! 835: if (Other.p_specialtype == SC_KING && Other.p_status != S_NOTUSED) ! 836: /* found old king */ ! 837: { ! 838: if (Other.p_status != S_OFF) ! 839: /* old king is playing */ ! 840: { ! 841: mvaddstr( 4, 0, "The king is playing, so you cannot steal his throne\n"); ! 842: altercoordinates(0.0, 0.0, A_NEAR); ! 843: move(6, 0); ! 844: return; ! 845: } ! 846: else ! 847: /* old king is not playing - remove him/her */ ! 848: { ! 849: Other.p_specialtype = SC_NONE; ! 850: if (Other.p_crowns) ! 851: --Other.p_crowns; ! 852: writerecord(&Other, loc); ! 853: break; ! 854: } ! 855: } ! 856: else ! 857: loc += SZ_PLAYERSTRUCT; ! 858: ! 859: /* make player new king */ ! 860: Changed = TRUE; ! 861: Player.p_specialtype = SC_KING; ! 862: mvaddstr(4, 0, "You have become king!\n"); ! 863: ! 864: /* let everyone else know */ ! 865: fp = fopen(Messfile, "w"); ! 866: fprintf(fp, "All hail the new king!"); ! 867: fclose(fp); ! 868: ! 869: /* clear all energy voids; retain location of holy grail */ ! 870: fseek(Energyvoidfp, 0L, 0); ! 871: fread((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp); ! 872: fp = fopen(Voidfile, "w"); ! 873: fwrite((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, fp); ! 874: fclose(fp); ! 875: } ! 876: ! 877: mvaddstr(6, 0, "0:Decree "); ! 878: } ! 879: /* */ ! 880: /************************************************************************ ! 881: / ! 882: / FUNCTION NAME: dotampered() ! 883: / ! 884: / FUNCTION: king and valar special options ! 885: / ! 886: / AUTHOR: E. A. Estes, 2/28/86 ! 887: / ! 888: / ARGUMENTS: none ! 889: / ! 890: / RETURN VALUE: none ! 891: / ! 892: / MODULES CALLED: writerecord(), truncstring(), fread(), fseek(), fopen(), ! 893: / floor(), wmove(), drandom(), fclose(), fwrite(), sscanf(), strcmp(), ! 894: / infloat(), waddstr(), findname(), distance(), userlist(), mvprintw(), ! 895: / allocvoid(), getanswer(), getstring(), wclrtoeol(), writevoid() ! 896: / ! 897: / GLOBAL INPUTS: *Energyvoidfp, Other, Illcmd[], Wizard, Player, *stdscr, ! 898: / Databuf[], Goldfile[], Enrgyvoid ! 899: / ! 900: / GLOBAL OUTPUTS: Other, Player, Enrgyvoid ! 901: / ! 902: / DESCRIPTION: ! 903: / Tamper with other players. Handle king/valar specific options. ! 904: / ! 905: /************************************************************************/ ! 906: ! 907: dotampered() ! 908: { ! 909: short tamper; /* value for tampering with other players */ ! 910: char *option; /* pointer to option description */ ! 911: double temp1 = 0.0, temp2 = 0.0; /* other tampering values */ ! 912: int ch; /* input */ ! 913: long loc; /* location in energy void file */ ! 914: FILE *fp; /* for opening gold file */ ! 915: ! 916: move(6, 0); ! 917: clrtoeol(); ! 918: if (Player.p_specialtype < SC_COUNCIL && !Wizard) ! 919: /* king options */ ! 920: { ! 921: addstr("1:Transport 2:Curse 3:Energy Void 4:Bestow 5:Collect Taxes "); ! 922: ! 923: ch = getanswer(" ", TRUE); ! 924: move(6, 0); ! 925: clrtoeol(); ! 926: move(4, 0); ! 927: switch (ch) ! 928: { ! 929: case '1': /* transport someone */ ! 930: tamper = T_TRANSPORT; ! 931: option = "transport"; ! 932: break; ! 933: ! 934: case '2': /* curse another */ ! 935: tamper = T_CURSED; ! 936: option = "curse"; ! 937: break; ! 938: ! 939: case '3': /* create energy void */ ! 940: if ((loc = allocvoid()) > 20L * SZ_VOIDSTRUCT) ! 941: /* can only have 20 void active at once */ ! 942: mvaddstr(5, 0, "Sorry, void creation limit reached.\n"); ! 943: else ! 944: { ! 945: addstr("Enter the X Y coordinates of void ? "); ! 946: getstring(Databuf, SZ_DATABUF); ! 947: sscanf(Databuf, "%lf %lf", &temp1, &temp2); ! 948: Enrgyvoid.ev_x = floor(temp1); ! 949: Enrgyvoid.ev_y = floor(temp2); ! 950: Enrgyvoid.ev_active = TRUE; ! 951: writevoid(&Enrgyvoid, loc); ! 952: mvaddstr(5, 0, "It is done.\n"); ! 953: } ! 954: return; ! 955: ! 956: case '4': /* bestow gold to subject */ ! 957: tamper = T_BESTOW; ! 958: addstr("How much gold to bestow ? "); ! 959: temp1 = infloat(); ! 960: if (temp1 > Player.p_gold || temp1 < 0) ! 961: { ! 962: mvaddstr(5, 0, "You don't have that !\n"); ! 963: return; ! 964: } ! 965: ! 966: /* adjust gold after we are sure it will be given to someone */ ! 967: option = "give gold to"; ! 968: break; ! 969: ! 970: case '5': /* collect accumulated taxes */ ! 971: if ((fp = fopen(Goldfile, "r+")) != NULL) ! 972: /* collect taxes */ ! 973: { ! 974: fread((char *) &temp1, sizeof(double), 1, fp); ! 975: fseek(fp, 0L, 0); ! 976: /* clear out value */ ! 977: temp2 = 0.0; ! 978: fwrite((char *) &temp2, sizeof(double), 1, fp); ! 979: fclose(fp); ! 980: } ! 981: ! 982: mvprintw(4, 0, "You have collected %.0f in gold.\n", temp1); ! 983: Player.p_gold += floor(temp1); ! 984: return; ! 985: ! 986: default: ! 987: return; ! 988: } ! 989: /* end of king options */ ! 990: } ! 991: else ! 992: /* council of wise, valar, wizard options */ ! 993: { ! 994: addstr("1:Heal "); ! 995: if (Player.p_palantir || Wizard) ! 996: addstr("2:Seek Grail "); ! 997: if (Player.p_specialtype == SC_VALAR || Wizard) ! 998: addstr("3:Throw Monster 4:Relocate 5:Bless "); ! 999: if (Wizard) ! 1000: addstr("6:Vaporize "); ! 1001: ! 1002: ch = getanswer(" ", TRUE); ! 1003: if (!Wizard) ! 1004: { ! 1005: if (ch > '2' && Player.p_specialtype != SC_VALAR) ! 1006: { ! 1007: ILLCMD(); ! 1008: return; ! 1009: } ! 1010: ! 1011: if (Player.p_mana < MM_INTERVENE) ! 1012: { ! 1013: mvaddstr(5, 0, "No mana left.\n"); ! 1014: return; ! 1015: } ! 1016: else ! 1017: Player.p_mana -= MM_INTERVENE; ! 1018: } ! 1019: ! 1020: switch (ch) ! 1021: { ! 1022: case '1': /* heal another */ ! 1023: tamper = T_HEAL; ! 1024: option = "heal"; ! 1025: break; ! 1026: ! 1027: case '2': /* seek grail */ ! 1028: if (Player.p_palantir) ! 1029: /* need a palantir to seek */ ! 1030: { ! 1031: fseek(Energyvoidfp, 0L, 0); ! 1032: fread((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp); ! 1033: temp1 = distance(Player.p_x, Enrgyvoid.ev_x, Player.p_y, Enrgyvoid.ev_y); ! 1034: temp1 += ROLL(-temp1 / 10.0, temp1 / 5.0); /* add some error */ ! 1035: mvprintw(5, 0, "The palantir says the Grail is about %.0f away.\n", temp1); ! 1036: } ! 1037: else ! 1038: /* no palantir */ ! 1039: mvaddstr(5, 0, "You need a palantir to seek the Grail.\n"); ! 1040: return; ! 1041: ! 1042: case '3': /* lob monster at someone */ ! 1043: mvaddstr(4, 0, "Which monster [0-99] ? "); ! 1044: temp1 = infloat(); ! 1045: temp1 = MAX(0.0, MIN(99.0, temp1)); ! 1046: tamper = T_MONSTER; ! 1047: option = "throw a monster at"; ! 1048: break; ! 1049: ! 1050: case '4': /* move another player */ ! 1051: mvaddstr(4, 0, "New X Y coordinates ? "); ! 1052: getstring(Databuf, SZ_DATABUF); ! 1053: sscanf(Databuf, "%lf %lf", &temp1, &temp2); ! 1054: tamper = T_RELOCATE; ! 1055: option = "relocate"; ! 1056: break; ! 1057: ! 1058: case '5': /* bless a player */ ! 1059: tamper = T_BLESSED; ! 1060: option = "bless"; ! 1061: break; ! 1062: ! 1063: case '6': /* kill off a player */ ! 1064: if (Wizard) ! 1065: { ! 1066: tamper = T_VAPORIZED; ! 1067: option = "vaporize"; ! 1068: break; ! 1069: } ! 1070: else ! 1071: return; ! 1072: ! 1073: default: ! 1074: return; ! 1075: } ! 1076: ! 1077: /* adjust age after we are sure intervention will be done */ ! 1078: /* end of valar, etc. options */ ! 1079: } ! 1080: ! 1081: for (;;) ! 1082: /* prompt for player to affect */ ! 1083: { ! 1084: mvprintw(4, 0, "Who do you want to %s ? ", option); ! 1085: getstring(Databuf, SZ_DATABUF); ! 1086: truncstring(Databuf); ! 1087: ! 1088: if (Databuf[0] == '\0') ! 1089: userlist(TRUE); ! 1090: else ! 1091: break; ! 1092: } ! 1093: ! 1094: if (strcmp(Player.p_name, Databuf) != 0) ! 1095: /* name other than self */ ! 1096: { ! 1097: if ((loc = findname(Databuf, &Other)) >= 0L) ! 1098: { ! 1099: if (Other.p_tampered != T_OFF) ! 1100: { ! 1101: mvaddstr(5, 0, "That person has something pending already.\n"); ! 1102: return; ! 1103: } ! 1104: else ! 1105: { ! 1106: if (tamper == T_RELOCATE ! 1107: && CIRCLE(temp1, temp2) < CIRCLE(Other.p_x, Other.p_y) ! 1108: && !Wizard) ! 1109: mvaddstr(5, 0, "Cannot move someone closer to the Lord's Chamber.\n"); ! 1110: else ! 1111: { ! 1112: if (tamper == T_BESTOW) Player.p_gold -= floor(temp1); ! 1113: if (!Wizard && (tamper == T_HEAL || tamper == T_MONSTER || ! 1114: tamper == T_RELOCATE || tamper == T_BLESSED)) ! 1115: Player.p_age += N_AGE; /* age penalty */ ! 1116: Other.p_tampered = tamper; ! 1117: Other.p_1scratch = floor(temp1); ! 1118: Other.p_2scratch = floor(temp2); ! 1119: writerecord(&Other, loc); ! 1120: mvaddstr(5, 0, "It is done.\n"); ! 1121: } ! 1122: return; ! 1123: } ! 1124: } ! 1125: else ! 1126: /* player not found */ ! 1127: mvaddstr(5, 0, "There is no one by that name.\n"); ! 1128: } ! 1129: else ! 1130: /* self */ ! 1131: mvaddstr(5, 0, "You may not do it to yourself!\n"); ! 1132: } ! 1133: /* */ ! 1134: /************************************************************************ ! 1135: / ! 1136: / FUNCTION NAME: writevoid() ! 1137: / ! 1138: / FUNCTION: update energy void entry in energy void file ! 1139: / ! 1140: / AUTHOR: E. A. Estes, 12/4/85 ! 1141: / ! 1142: / ARGUMENTS: ! 1143: / struct energyvoid *vp - pointer to structure to write to file ! 1144: / long loc - location in file to update ! 1145: / ! 1146: / RETURN VALUE: none ! 1147: / ! 1148: / MODULES CALLED: fseek(), fwrite(), fflush() ! 1149: / ! 1150: / GLOBAL INPUTS: *Energyvoidfp ! 1151: / ! 1152: / GLOBAL OUTPUTS: none ! 1153: / ! 1154: / DESCRIPTION: ! 1155: / Write out energy void structure at specified location. ! 1156: / ! 1157: /************************************************************************/ ! 1158: ! 1159: writevoid(vp, loc) ! 1160: register struct energyvoid *vp; ! 1161: long loc; ! 1162: { ! 1163: ! 1164: fseek(Energyvoidfp, loc, 0); ! 1165: fwrite((char *) vp, SZ_VOIDSTRUCT, 1, Energyvoidfp); ! 1166: fflush(Energyvoidfp); ! 1167: fseek(Energyvoidfp, 0L, 0); ! 1168: } ! 1169: /* */ ! 1170: /************************************************************************ ! 1171: / ! 1172: / FUNCTION NAME: allocvoid() ! 1173: / ! 1174: / FUNCTION: allocate space for a new energy void ! 1175: / ! 1176: / AUTHOR: E. A. Estes, 12/4/85 ! 1177: / ! 1178: / ARGUMENTS: none ! 1179: / ! 1180: / RETURN VALUE: location of new energy void space ! 1181: / ! 1182: / MODULES CALLED: fread(), fseek() ! 1183: / ! 1184: / GLOBAL INPUTS: *Energyvoidfp, Enrgyvoid ! 1185: / ! 1186: / GLOBAL OUTPUTS: none ! 1187: / ! 1188: / DESCRIPTION: ! 1189: / Search energy void file for an inactive entry and return its ! 1190: / location. ! 1191: / If no inactive ones are found, return one more than last location. ! 1192: / ! 1193: /************************************************************************/ ! 1194: ! 1195: long ! 1196: allocvoid() ! 1197: { ! 1198: long loc = 0L; /* location of new energy void */ ! 1199: ! 1200: fseek(Energyvoidfp, 0L, 0); ! 1201: while (fread((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp) == 1) ! 1202: if (Enrgyvoid.ev_active) ! 1203: loc += SZ_VOIDSTRUCT; ! 1204: else ! 1205: break; ! 1206: ! 1207: return(loc); ! 1208: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.