games/phantasia/interplayer.c

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