games/phantasia/main.c

   1 /*
   2  * Phantasia 3.3.2 -- Interterminal fantasy game
   3  *
   4  * Edward A. Estes
   5  * AT&T, March 12, 1986
   6  *
   7  * $FreeBSD: src/games/phantasia/main.c,v 1.8 1999/11/16 02:57:34 billf Exp $
   8  * $DragonFly: src/games/phantasia/main.c,v 1.2 2003/06/17 04:25:24 dillon Exp $
   9  */
  10
  11 /* DISCLAIMER:
  12  *
  13  * This game is distributed for free as is.  It is not guaranteed to work
  14  * in every conceivable environment.  It is not even guaranteed to work
  15  * in ANY environment.
  16  *
  17  * This game is distributed without notice of copyright, therefore it
  18  * may be used in any manner the recipient sees fit.  However, the
  19  * author assumes no responsibility for maintaining or revising this
  20  * game, in its original form, or any derivitives thereof.
  21  *
  22  * The author shall not be responsible for any loss, cost, or damage,
  23  * including consequential damage, caused by reliance on this material.
  24  *
  25  * The author makes no warranties, express or implied, including warranties
  26  * of merchantability or fitness for a particular purpose or use.
  27  *
  28  * AT&T is in no way connected with this game.
  29  */
  30
  31 #include <sys/types.h>
  32 #include <pwd.h>
  33 #include <string.h>
  34
  35 /*
  36  * The program allocates as much file space as it needs to store characters,
  37  * so the possibility exists for the character file to grow without bound.
  38  * The file is purged upon normal entry to try to avoid that problem.
  39  * A similar problem exists for energy voids.  To alleviate the problem here,
  40  * the void file is cleared with every new king, and a limit is placed
  41  * on the size of the energy void file.
  42  */
  43
  44 /*
  45  * Put one line of text into the file 'motd' for announcements, etc.
  46  */
  47
  48 /*
  49  * The scoreboard file is updated when someone dies, and keeps track
  50  * of the highest character to date for that login.
  51  * Being purged from the character file does not cause the scoreboard
  52  * to be updated.
  53  */
  54
  55 /*
  56  * All source files are set up for 'vi' with shiftwidth=4, tabstop=8.
  57  */
  58
  59 /*\f*/
  60
  61 /*
  62  * main.c       Main routines for Phantasia
  63  */
  64
  65 #include "include.h"
  66
  67 /***************************************************************************
  68 / FUNCTION NAME: main()
  69 /
  70 / FUNCTION: initialize state, and call main process
  71 /
  72 / AUTHOR: E. A. Estes, 12/4/85
  73 /
  74 / ARGUMENTS:
  75 /       int     argc - argument count
  76 /       char    **argv - argument vector
  77 /
  78 / RETURN VALUE: none
  79 /
  80 / MODULES CALLED: monstlist(), checkenemy(), activelist(),
  81 /       throneroom(), checkbattle(), readmessage(), changestats(), writerecord(),
  82 /       tradingpost(), adjuststats(), recallplayer(), displaystats(), checktampered(),
  83 /       fabs(), rollnewplayer(), time(), exit(), sqrt(), floor(), wmove(),
  84 /       signal(), strcat(), purgeoldplayers(), getuid(), isatty(), wclear(),
  85 /       strcpy(), system(), altercoordinates(), cleanup(), waddstr(), procmain(),
  86 /       playinit(), leavegame(), localtime(), getanswer(), neatstuff(), initialstate(),
  87 /       scorelist(), titlelist()
  88 /
  89 / GLOBAL INPUTS: *Login, Throne, Wizard, Player, *stdscr, Changed, Databuf[],
  90 /       Fileloc, Stattable[]
  91 /
  92 / GLOBAL OUTPUTS: Wizard, Player, Changed, Fileloc, Timeout, *Statptr
  93 /
  94 / DESCRIPTION:
  95 /       Process arguments, initialize program, and loop forever processing
  96 /       player input.
  97 /
  98 ****************************************************************************/
  99
 100 main(argc, argv)
 101 int     argc;
 102 char    **argv;
 103 {
 104 bool    noheader = FALSE;       /* set if don't want header */
 105 bool    headeronly = FALSE;     /* set if only want header */
 106 bool    examine = FALSE;        /* set if examine a character */
 107 time_t  seconds;                /* for time of day */
 108 double  dtemp;                  /* for temporary calculations */
 109
 110     initialstate();             /* init globals */
 111
 112     /* process arguments */
 113     while (--argc && (*++argv)[0] == '-')
 114         switch ((*argv)[1])
 115             {
 116             case 's':   /* short */
 117                 noheader = TRUE;
 118                 break;
 119
 120             case 'H':   /* Header */
 121                 headeronly = TRUE;
 122                 break;
 123
 124             case 'a':   /* all users */
 125                 activelist();
 126                 cleanup(TRUE);
 127                 /*NOTREACHED*/
 128
 129             case 'p':   /* purge old players */
 130                 purgeoldplayers();
 131                 cleanup(TRUE);
 132                 /*NOTREACHED*/
 133
 134             case 'S':   /* set 'Wizard' */
 135                 Wizard = !getuid();
 136                 break;
 137
 138             case 'x':   /* examine */
 139                 examine = TRUE;
 140                 break;
 141
 142             case 'm':   /* monsters */
 143                 monstlist();
 144                 cleanup(TRUE);
 145                 /*NOTREACHED*/
 146
 147             case 'b':   /* scoreboard */
 148                 scorelist();
 149                 cleanup(TRUE);
 150                 /*NOTREACHED*/
 151                 }
 152
 153     if (!isatty(0))             /* don't let non-tty's play */
 154         cleanup(TRUE);
 155         /*NOTREACHED*/
 156
 157     playinit();                 /* set up to catch signals, init curses */
 158
 159     if (examine)
 160         {
 161         changestats(FALSE);
 162         cleanup(TRUE);
 163         /*NOTREACHED*/
 164         }
 165
 166     if (!noheader)
 167         {
 168         titlelist();
 169         purgeoldplayers();    /* clean up old characters */
 170         }
 171
 172     if (headeronly)
 173         cleanup(TRUE);
 174         /*NOTREACHED*/
 175
 176     do
 177         /* get the player structure filled */
 178         {
 179         Fileloc = -1L;
 180
 181         mvaddstr(22, 17, "Do you have a character to run [Q = Quit] ? ");
 182
 183         switch (getanswer("NYQ", FALSE))
 184             {
 185             case 'Y':
 186                 Fileloc = recallplayer();
 187                 break;
 188
 189             case 'Q':
 190                 cleanup(TRUE);
 191                 /*NOTREACHED*/
 192
 193             default:
 194                 Fileloc = rollnewplayer();
 195                 break;
 196             }
 197         clear();
 198         }
 199     while (Fileloc < 0L);
 200
 201     if (Player.p_level > 5.0)
 202         /* low level players have long timeout */
 203         Timeout = TRUE;
 204
 205     /* update some important player statistics */
 206     strcpy(Player.p_login, Login);
 207     time(&seconds);
 208     Player.p_lastused = localtime(&seconds)->tm_yday;
 209     Player.p_status = S_PLAYING;
 210     writerecord(&Player, Fileloc);
 211
 212     Statptr = &Stattable[Player.p_type];        /* initialize pointer */
 213
 214     /* catch interrupts */
 215 #ifdef  BSD41
 216     sigset(SIGINT, interrupt);
 217 #endif
 218 #ifdef  BSD42
 219     signal(SIGINT, interrupt);
 220 #endif
 221 #ifdef  SYS3
 222     signal(SIGINT, interrupt);
 223 #endif
 224 #ifdef  SYS5
 225     signal(SIGINT, interrupt);
 226 #endif
 227
 228     altercoordinates(Player.p_x, Player.p_y, A_FORCED); /* set some flags */
 229
 230     clear();
 231
 232     for (;;)
 233         /* loop forever, processing input */
 234         {
 235
 236         adjuststats();          /* cleanup stats */
 237
 238         if (Throne && Player.p_crowns == 0 && Player.p_specialtype != SC_KING)
 239             /* not allowed on throne -- move */
 240             {
 241             mvaddstr(5,0,"You're not allowed in the Lord's Chamber without a crown.\n");
 242             altercoordinates(0.0, 0.0, A_NEAR);
 243             }
 244
 245         checktampered();        /* check for energy voids, etc. */
 246
 247         if (Player.p_status != S_CLOAKED
 248             /* not cloaked */
 249             && (dtemp = fabs(Player.p_x)) == fabs(Player.p_y)
 250             /* |x| = |y| */
 251             && !Throne)
 252             /* not on throne */
 253             {
 254             dtemp = sqrt(dtemp / 100.0);
 255             if (floor(dtemp) == dtemp)
 256                 /* |x| / 100 == n*n; at a trading post */
 257                 {
 258                 tradingpost();
 259                 clear();
 260                 }
 261             }
 262
 263         checkbattle();          /* check for player to player battle */
 264         neatstuff();            /* gurus, medics, etc. */
 265
 266         if (Player.p_status == S_CLOAKED)
 267             /* costs 3 mana per turn to be cloaked */
 268             if (Player.p_mana > 3.0)
 269                 Player.p_mana -= 3.0;
 270             else
 271                 /* ran out of mana, uncloak */
 272                 {
 273                 Player.p_status = S_PLAYING;
 274                 Changed = TRUE;
 275                 }
 276
 277         if (Player.p_status != S_PLAYING && Player.p_status != S_CLOAKED)
 278             /* change status back to S_PLAYING */
 279             {
 280             Player.p_status = S_PLAYING;
 281             Changed = TRUE;
 282             }
 283
 284         if (Changed)
 285             /* update file only if important stuff has changed */
 286             {
 287             writerecord(&Player, Fileloc);
 288             Changed = FALSE;
 289             continue;
 290             }
 291
 292         readmessage();                  /* read message, if any */
 293
 294         displaystats();                 /* print statistics */
 295
 296         move(6, 0);
 297
 298         if (Throne)
 299             /* maybe make king, print prompt, etc. */
 300             throneroom();
 301
 302         /* print status line */
 303         addstr("1:Move  2:Players  3:Talk  4:Stats  5:Quit  ");
 304         if (Player.p_level >= MEL_CLOAK && Player.p_magiclvl >= ML_CLOAK)
 305             addstr("6:Cloak  ");
 306         if (Player.p_level >= MEL_TELEPORT && Player.p_magiclvl >= ML_TELEPORT)
 307             addstr("7:Teleport  ");
 308         if (Player.p_specialtype >= SC_COUNCIL || Wizard)
 309             addstr("8:Intervene  ");
 310
 311         procmain();                     /* process input */
 312         }
 313 }
 314 /*\f*/
 315 /************************************************************************
 316 /
 317 / FUNCTION NAME: initialstate()
 318 /
 319 / FUNCTION: initialize some important global variable
 320 /
 321 / AUTHOR: E. A. Estes, 12/4/85
 322 /
 323 / ARGUMENTS: none
 324 /
 325 / RETURN VALUE: none
 326 /
 327 / MODULES CALLED: time(), fopen(), srandom(), error(), getuid(), getlogin(),
 328 /       getpwuid()
 329 /
 330 / GLOBAL INPUTS:
 331 /
 332 / GLOBAL OUTPUTS: *Energyvoidfp, Echo, Marsh, *Login, Users, Beyond,
 333 /       Throne, Wizard, Changed, Okcount, Timeout, Windows, *Monstfp, *Messagefp,
 334 /       *Playersfp
 335 /
 336 / DESCRIPTION:
 337 /       Set global flags, and open files which remain open.
 338 /
 339 *************************************************************************/
 340
 341 initialstate()
 342 {
 343     Beyond = FALSE;
 344     Marsh = FALSE;
 345     Throne = FALSE;
 346     Changed = FALSE;
 347     Wizard = FALSE;
 348     Timeout = FALSE;
 349     Users = 0;
 350     Windows = FALSE;
 351     Echo = TRUE;
 352
 353     /* setup login name */
 354     if ((Login = getlogin()) == NULL)
 355         Login = getpwuid(getuid())->pw_name;
 356
 357     /* open some files */
 358     if ((Playersfp = fopen(_PATH_PEOPLE, "r+")) == NULL)
 359         error(_PATH_PEOPLE);
 360         /*NOTREACHED*/
 361
 362     if ((Monstfp = fopen(_PATH_MONST, "r+")) == NULL)
 363         error(_PATH_MONST);
 364         /*NOTREACHED*/
 365
 366     if ((Messagefp = fopen(_PATH_MESS, "r")) == NULL)
 367         error(_PATH_MESS);
 368         /*NOTREACHED*/
 369
 370     if ((Energyvoidfp = fopen(_PATH_VOID, "r+")) == NULL)
 371         error(_PATH_VOID);
 372         /*NOTREACHED*/
 373
 374     srandomdev();
 375 }
 376 /*\f*/
 377 /************************************************************************
 378 /
 379 / FUNCTION NAME: rollnewplayer()
 380 /
 381 / FUNCTION: roll up a new character
 382 /
 383 / AUTHOR: E. A. Estes, 12/4/85
 384 /
 385 / ARGUMENTS: none
 386 /
 387 / RETURN VALUE: none
 388 /
 389 / MODULES CALLED: initplayer(), allocrecord(), truncstring(), fabs(), wmove(),
 390 /       wclear(), sscanf(), strcmp(), genchar(), waddstr(), findname(), mvprintw(),
 391 /       getanswer(), getstring()
 392 /
 393 / GLOBAL INPUTS: Other, Wizard, Player, *stdscr, Databuf[]
 394 /
 395 / GLOBAL OUTPUTS: Echo
 396 /
 397 / DESCRIPTION:
 398 /       Prompt player, and roll up new character.
 399 /
 400 *************************************************************************/
 401
 402 long
 403 rollnewplayer()
 404 {
 405 int     chartype;       /* character type */
 406 int     ch;             /* input */
 407
 408     initplayer(&Player);                /* initialize player structure */
 409
 410     clear();
 411     mvaddstr(4, 21, "Which type of character do you want:");
 412     mvaddstr(8, 4, "1:Magic User  2:Fighter  3:Elf  4:Dwarf  5:Halfling  6:Experimento  ");
 413     if (Wizard) {
 414         addstr("7:Super  ? ");
 415         chartype = getanswer("1234567", FALSE);
 416         }
 417     else {
 418         addstr("?  ");
 419         chartype = getanswer("123456", FALSE);
 420         }
 421
 422     do
 423         {
 424         genchar(chartype);              /* roll up a character */
 425
 426         /* print out results */
 427         mvprintw(12, 14,
 428             "Strength    :  %2.0f  Quickness:  %2.0f  Mana       :  %2.0f\n",
 429             Player.p_strength, Player.p_quickness, Player.p_mana);
 430         mvprintw(13, 14,
 431             "Energy Level:  %2.0f  Brains   :  %2.0f  Magic Level:  %2.0f\n",
 432             Player.p_energy, Player.p_brains, Player.p_magiclvl);
 433
 434         if (Player.p_type == C_EXPER || Player.p_type == C_SUPER)
 435             break;
 436
 437         mvaddstr(14, 14, "Type '1' to keep >");
 438         ch = getanswer(" ", TRUE);
 439         }
 440     while (ch != '1');
 441
 442     if (Player.p_type == C_EXPER || Player.p_type == C_SUPER)
 443         /* get coordinates for experimento */
 444         for (;;)
 445             {
 446             mvaddstr(16, 0, "Enter the X Y coordinates of your experimento ? ");
 447             getstring(Databuf, SZ_DATABUF);
 448             sscanf(Databuf, "%lf %lf", &Player.p_x, &Player.p_y);
 449
 450             if (fabs(Player.p_x) > D_EXPER || fabs(Player.p_y) > D_EXPER)
 451                 mvaddstr(17, 0, "Invalid coordinates.  Try again.\n");
 452             else
 453                 break;
 454             }
 455
 456     for (;;)
 457         /* name the new character */
 458         {
 459         mvprintw(18, 0,
 460             "Give your character a name [up to %d characters] ?  ", SZ_NAME - 1);
 461         getstring(Player.p_name, SZ_NAME);
 462         truncstring(Player.p_name);             /* remove trailing blanks */
 463
 464         if (Player.p_name[0] == '\0')
 465             /* no null names */
 466             mvaddstr(19, 0, "Invalid name.");
 467         else if (findname(Player.p_name, &Other) >= 0L)
 468             /* cannot have duplicate names */
 469             mvaddstr(19, 0, "Name already in use.");
 470         else
 471             /* name is acceptable */
 472             break;
 473
 474         addstr("  Pick another.\n");
 475         }
 476
 477     /* get a password for character */
 478     Echo = FALSE;
 479
 480     do
 481         {
 482         mvaddstr(20, 0, "Give your character a password [up to 8 characters] ? ");
 483         getstring(Player.p_password, SZ_PASSWORD);
 484         mvaddstr(21, 0, "One more time to verify ? ");
 485         getstring(Databuf, SZ_PASSWORD);
 486         }
 487     while (strcmp(Player.p_password, Databuf) != 0);
 488
 489     Echo = TRUE;
 490
 491     return(allocrecord());
 492 }
 493 /*\f*/
 494 /************************************************************************
 495 /
 496 / FUNCTION NAME: procmain()
 497 /
 498 / FUNCTION: process input from player
 499 /
 500 / AUTHOR: E. A. Estes, 12/4/85
 501 /
 502 / ARGUMENTS: none
 503 /
 504 / RETURN VALUE: none
 505 /
 506 / MODULES CALLED: dotampered(), changestats(), inputoption(), allstatslist(),
 507 /       fopen(), wmove(), drandom(), sscanf(), fclose(), altercoordinates(),
 508 /       waddstr(), fprintf(), distance(), userlist(), leavegame(), encounter(),
 509 /       getstring(), wclrtobot()
 510 /
 511 / GLOBAL INPUTS: Circle, Illcmd[], Throne, Wizard, Player, *stdscr,
 512 /       Databuf[], Illmove[]
 513 /
 514 / GLOBAL OUTPUTS: Player, Changed
 515 /
 516 / DESCRIPTION:
 517 /       Process main menu options.
 518 /
 519 *************************************************************************/
 520
 521 procmain()
 522 {
 523 int     ch;                     /* input */
 524 double  x;                      /* desired new x coordinate */
 525 double  y;                      /* desired new y coordinate */
 526 double  temp;                   /* for temporary calculations */
 527 FILE    *fp;                    /* for opening files */
 528 int     loop;           /* a loop counter */
 529 bool    hasmoved = FALSE;       /* set if player has moved */
 530
 531     ch = inputoption();
 532     mvaddstr(4, 0, "\n\n");             /* clear status area */
 533
 534     move(7, 0);
 535     clrtobot();                 /* clear data on bottom area of screen */
 536
 537     if (Player.p_specialtype == SC_VALAR && (ch == '1' || ch == '7'))
 538         /* valar cannot move */
 539         ch = ' ';
 540
 541     switch (ch)
 542         {
 543         case 'K':               /* move up/north */
 544         case 'N':
 545             x = Player.p_x;
 546             y = Player.p_y + MAXMOVE();
 547             hasmoved = TRUE;
 548             break;
 549
 550         case 'J':               /* move down/south */
 551         case 'S':
 552             x = Player.p_x;
 553             y = Player.p_y - MAXMOVE();
 554             hasmoved = TRUE;
 555             break;
 556
 557         case 'L':               /* move right/east */
 558         case 'E':
 559             x = Player.p_x + MAXMOVE();
 560             y = Player.p_y;
 561             hasmoved = TRUE;
 562             break;
 563
 564         case 'H':               /* move left/west */
 565         case 'W':
 566             x = Player.p_x - MAXMOVE();
 567             y = Player.p_y;
 568             hasmoved = TRUE;
 569             break;
 570
 571         default:    /* rest */
 572             Player.p_energy += (Player.p_maxenergy + Player.p_shield) / 15.0
 573                 + Player.p_level / 3.0 + 2.0;
 574             Player.p_energy =
 575                 MIN(Player.p_energy, Player.p_maxenergy + Player.p_shield);
 576
 577             if (Player.p_status != S_CLOAKED)
 578                 /* cannot find mana if cloaked */
 579                 {
 580                 Player.p_mana += (Circle + Player.p_level) / 4.0;
 581
 582                 if (drandom() < 0.2 && Player.p_status == S_PLAYING && !Throne)
 583                     /* wandering monster */
 584                     encounter(-1);
 585                 }
 586             break;
 587
 588         case 'X':               /* change/examine a character */
 589             changestats(TRUE);
 590             break;
 591
 592         case '1':               /* move */
 593             for (loop = 3; loop; --loop)
 594                 {
 595                 mvaddstr(4, 0, "X Y Coordinates ? ");
 596                 getstring(Databuf, SZ_DATABUF);
 597
 598                 if (sscanf(Databuf, "%lf %lf", &x, &y) != 2)
 599                     mvaddstr(5, 0, "Try again\n");
 600                 else if (distance(Player.p_x, x, Player.p_y, y) > MAXMOVE())
 601                     ILLMOVE();
 602                 else
 603                     {
 604                     hasmoved = TRUE;
 605                     break;
 606                     }
 607                 }
 608             break;
 609
 610         case '2':               /* players */
 611             userlist(TRUE);
 612             break;
 613
 614         case '3':               /* message */
 615             mvaddstr(4, 0, "Message ? ");
 616             getstring(Databuf, SZ_DATABUF);
 617             /* we open the file for writing to erase any data which is already there */
 618             fp = fopen(_PATH_MESS, "w");
 619             if (Databuf[0] != '\0')
 620                 fprintf(fp, "%s: %s", Player.p_name, Databuf);
 621             fclose(fp);
 622             break;
 623
 624         case '4':               /* stats */
 625             allstatslist();
 626             break;
 627
 628         case '5':               /* good-bye */
 629             leavegame();
 630             /*NOTREACHED*/
 631
 632         case '6':               /* cloak */
 633             if (Player.p_level < MEL_CLOAK || Player.p_magiclvl < ML_CLOAK)
 634                 ILLCMD();
 635             else if (Player.p_status == S_CLOAKED)
 636                 Player.p_status = S_PLAYING;
 637             else if (Player.p_mana < MM_CLOAK)
 638                 mvaddstr(5, 0, "No mana left.\n");
 639             else
 640                 {
 641                 Changed = TRUE;
 642                 Player.p_mana -= MM_CLOAK;
 643                 Player.p_status = S_CLOAKED;
 644                 }
 645             break;
 646
 647         case '7':       /* teleport */
 648             /*
 649              * conditions for teleport
 650              *  - 20 per (level plus magic level)
 651              *  - OR council of the wise or valar or ex-valar
 652              *  - OR transport from throne
 653              * transports from throne cost no mana
 654              */
 655             if (Player.p_level < MEL_TELEPORT || Player.p_magiclvl < ML_TELEPORT)
 656                 ILLCMD();
 657             else
 658                 for (loop = 3; loop; --loop)
 659                     {
 660                     mvaddstr(4, 0, "X Y Coordinates ? ");
 661                     getstring(Databuf, SZ_DATABUF);
 662
 663                     if (sscanf(Databuf, "%lf %lf", &x, &y) == 2)
 664                         {
 665                         temp = distance(Player.p_x, x, Player.p_y, y);
 666                         if (!Throne
 667                             /* can transport anywhere from throne */
 668                             && Player.p_specialtype <= SC_COUNCIL
 669                             /* council, valar can transport anywhere */
 670                             && temp > (Player.p_level + Player.p_magiclvl) * 20.0)
 671                             /* can only move 20 per exp. level + mag. level */
 672                             ILLMOVE();
 673                         else
 674                             {
 675                             temp = (temp / 75.0 + 1.0) * 20.0;  /* mana used */
 676
 677                             if (!Throne && temp > Player.p_mana)
 678                                 mvaddstr(5, 0, "Not enough power for that distance.\n");
 679                             else
 680                                 {
 681                                 if (!Throne)
 682                                     Player.p_mana -= temp;
 683                                 hasmoved = TRUE;
 684                                 break;
 685                                 }
 686                             }
 687                         }
 688                     }
 689             break;
 690
 691         case 'C':
 692         case '9':               /* monster */
 693             if (Throne)
 694                 /* no monsters while on throne */
 695                 mvaddstr(5, 0, "No monsters in the chamber!\n");
 696             else if (Player.p_specialtype != SC_VALAR)
 697                 /* the valar cannot call monsters */
 698                 {
 699                 Player.p_sin += 1e-6;
 700                 encounter(-1);
 701                 }
 702             break;
 703
 704         case '0':               /* decree */
 705             if (Wizard || Player.p_specialtype == SC_KING && Throne)
 706                 /* kings must be on throne to decree */
 707                 dotampered();
 708             else
 709                 ILLCMD();
 710             break;
 711
 712         case '8':               /* intervention */
 713             if (Wizard || Player.p_specialtype >= SC_COUNCIL)
 714                 dotampered();
 715             else
 716                 ILLCMD();
 717             break;
 718         }
 719
 720     if (hasmoved)
 721         /* player has moved -- alter coordinates, and do random monster */
 722         {
 723         altercoordinates(x, y, A_SPECIFIC);
 724
 725         if (drandom() < 0.2 && Player.p_status == S_PLAYING && !Throne)
 726             encounter(-1);
 727         }
 728 }
 729 /*\f*/
 730 /************************************************************************
 731 /
 732 / FUNCTION NAME: titlelist()
 733 /
 734 / FUNCTION: print title page
 735 /
 736 / AUTHOR: E. A. Estes, 12/4/85
 737 /
 738 / ARGUMENTS: none
 739 /
 740 / RETURN VALUE: none
 741 /
 742 / MODULES CALLED: fread(), fseek(), fopen(), fgets(), wmove(), strcpy(),
 743 /       fclose(), strlen(), waddstr(), sprintf(), wrefresh()
 744 /
 745 / GLOBAL INPUTS: Lines, Other, *stdscr, Databuf[], *Playersfp
 746 /
 747 / GLOBAL OUTPUTS: Lines
 748 /
 749 / DESCRIPTION:
 750 /       Print important information about game, players, etc.
 751 /
 752 *************************************************************************/
 753
 754 titlelist()
 755 {
 756 FILE    *fp;            /* used for opening various files */
 757 bool    councilfound = FALSE;   /* set if we find a member of the council */
 758 bool    kingfound = FALSE;      /* set if we find a king */
 759 double  hiexp, nxtexp;          /* used for finding the two highest players */
 760 double  hilvl, nxtlvl;          /* used for finding the two highest players */
 761 char    hiname[21], nxtname[21];/* used for finding the two highest players */
 762
 763     mvaddstr(0, 14, "W e l c o m e   t o   P h a n t a s i a (vers. 3.3.2)!");
 764
 765     /* print message of the day */
 766     if ((fp = fopen(_PATH_MOTD, "r")) != NULL
 767         && fgets(Databuf, SZ_DATABUF, fp) != NULL)
 768         {
 769         mvaddstr(2, 40 - strlen(Databuf) / 2, Databuf);
 770         fclose(fp);
 771         }
 772
 773     /* search for king */
 774     fseek(Playersfp, 0L, 0);
 775     while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
 776         if (Other.p_specialtype == SC_KING && Other.p_status != S_NOTUSED)
 777             /* found the king */
 778             {
 779             sprintf(Databuf, "The present ruler is %s  Level:%.0f",
 780                 Other.p_name, Other.p_level);
 781             mvaddstr(4, 40 - strlen(Databuf) / 2, Databuf);
 782             kingfound = TRUE;
 783             break;
 784             }
 785
 786     if (!kingfound)
 787         mvaddstr(4, 24, "There is no ruler at this time.");
 788
 789     /* search for valar */
 790     fseek(Playersfp, 0L, 0);
 791     while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
 792         if (Other.p_specialtype == SC_VALAR && Other.p_status != S_NOTUSED)
 793             /* found the valar */
 794             {
 795             sprintf(Databuf, "The Valar is %s   Login:  %s", Other.p_name, Other.p_login);
 796             mvaddstr(6, 40 - strlen(Databuf) / 2 , Databuf);
 797             break;
 798             }
 799
 800     /* search for council of the wise */
 801     fseek(Playersfp, 0L, 0);
 802     Lines = 10;
 803     while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
 804         if (Other.p_specialtype == SC_COUNCIL && Other.p_status != S_NOTUSED)
 805             /* found a member of the council */
 806             {
 807             if (!councilfound)
 808                 {
 809                 mvaddstr(8, 30, "Council of the Wise:");
 810                 councilfound = TRUE;
 811                 }
 812
 813             /* This assumes a finite (<=5) number of C.O.W.: */
 814             sprintf(Databuf, "%s   Login:  %s", Other.p_name, Other.p_login);
 815             mvaddstr(Lines++, 40 - strlen(Databuf) / 2, Databuf);
 816             }
 817
 818     /* search for the two highest players */
 819     nxtname[0] = hiname[0] = '\0';
 820     hiexp = 0.0;
 821     nxtlvl = hilvl = 0;
 822
 823     fseek(Playersfp, 0L, 0);
 824     while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
 825         if (Other.p_experience > hiexp && Other.p_specialtype <= SC_KING && Other.p_status != S_NOTUSED)
 826             /* highest found so far */
 827             {
 828             nxtexp = hiexp;
 829             hiexp = Other.p_experience;
 830             nxtlvl = hilvl;
 831             hilvl = Other.p_level;
 832             strcpy(nxtname, hiname);
 833             strcpy(hiname, Other.p_name);
 834             }
 835         else if (Other.p_experience > nxtexp
 836             && Other.p_specialtype <= SC_KING
 837             && Other.p_status != S_NOTUSED)
 838             /* next highest found so far */
 839             {
 840             nxtexp = Other.p_experience;
 841             nxtlvl = Other.p_level;
 842             strcpy(nxtname, Other.p_name);
 843             }
 844
 845     mvaddstr(15, 28, "Highest characters are:");
 846     sprintf(Databuf, "%s  Level:%.0f   and   %s  Level:%.0f",
 847         hiname, hilvl, nxtname, nxtlvl);
 848     mvaddstr(17, 40 - strlen(Databuf) / 2, Databuf);
 849
 850     /* print last to die */
 851     if ((fp = fopen(_PATH_LASTDEAD,"r")) != NULL
 852         && fgets(Databuf, SZ_DATABUF, fp) != NULL)
 853         {
 854         mvaddstr(19, 25, "The last character to die was:");
 855         mvaddstr(20, 40 - strlen(Databuf) / 2,Databuf);
 856         fclose(fp);
 857         }
 858
 859     refresh();
 860 }
 861 /*\f*/
 862 /************************************************************************
 863 /
 864 / FUNCTION NAME: recallplayer()
 865 /
 866 / FUNCTION: find a character on file
 867 /
 868 / AUTHOR: E. A. Estes, 12/4/85
 869 /
 870 / ARGUMENTS: none
 871 /
 872 / RETURN VALUE: none
 873 /
 874 / MODULES CALLED: writerecord(), truncstring(), more(), death(), wmove(),
 875 /       wclear(), strcmp(), printw(), cleanup(), waddstr(), findname(), mvprintw(),
 876 /       getanswer(), getstring()
 877 /
 878 / GLOBAL INPUTS: Player, *stdscr, Databuf[]
 879 /
 880 / GLOBAL OUTPUTS: Echo, Player
 881 /
 882 / DESCRIPTION:
 883 /       Search for a character of a certain name, and check password.
 884 /
 885 *************************************************************************/
 886
 887 long
 888 recallplayer()
 889 {
 890 long    loc = 0L;               /* location in player file */
 891 int     loop;           /* loop counter */
 892 int     ch;                     /* input */
 893
 894     clear();
 895     mvprintw(10, 0, "What was your character's name ? ");
 896     getstring(Databuf, SZ_NAME);
 897     truncstring(Databuf);
 898
 899     if ((loc = findname(Databuf, &Player)) >= 0L)
 900         /* found character */
 901         {
 902         Echo = FALSE;
 903
 904         for (loop = 0; loop < 2; ++loop)
 905             {
 906             /* prompt for password */
 907             mvaddstr(11, 0, "Password ? ");
 908             getstring(Databuf, SZ_PASSWORD);
 909             if (strcmp(Databuf, Player.p_password) == 0)
 910                 /* password good */
 911                 {
 912                 Echo = TRUE;
 913
 914                 if (Player.p_status != S_OFF)
 915                     /* player did not exit normally last time */
 916                     {
 917                     clear();
 918                     addstr("Your character did not exit normally last time.\n");
 919                     addstr("If you think you have good cause to have your character saved,\n");
 920                     printw("you may quit and mail your reason to 'root'.\n");
 921                     addstr("Otherwise, continuing spells certain death.\n");
 922                     addstr("Do you want to quit ? ");
 923                     ch = getanswer("YN", FALSE);
 924                     if (ch == 'Y')
 925                         {
 926                         Player.p_status = S_HUNGUP;
 927                         writerecord(&Player, loc);
 928                         cleanup(TRUE);
 929                         /*NOTREACHED*/
 930                         }
 931                     death("Stupidity");
 932                     /*NOTREACHED*/
 933                     }
 934                 return(loc);
 935                 }
 936             else
 937                 mvaddstr(12, 0, "No good.\n");
 938             }
 939
 940         Echo = TRUE;
 941         }
 942     else
 943         mvaddstr(11, 0, "Not found.\n");
 944
 945     more(13);
 946     return(-1L);
 947 }
 948 /*\f*/
 949 /************************************************************************
 950 /
 951 / FUNCTION NAME: neatstuff()
 952 /
 953 / FUNCTION: do random stuff
 954 /
 955 / AUTHOR: E. A. Estes, 3/3/86
 956 /
 957 / ARGUMENTS: none
 958 /
 959 / RETURN VALUE: none
 960 /
 961 / MODULES CALLED: collecttaxes(), floor(), wmove(), drandom(), infloat(),
 962 /       waddstr(), mvprintw(), getanswer()
 963 /
 964 / GLOBAL INPUTS: Player, *stdscr, *Statptr
 965 /
 966 / GLOBAL OUTPUTS: Player
 967 /
 968 / DESCRIPTION:
 969 /       Handle gurus, medics, etc.
 970 /
 971 *************************************************************************/
 972
 973 neatstuff()
 974 {
 975 double  temp;   /* for temporary calculations */
 976 int     ch;     /* input */
 977
 978     switch ((int) ROLL(0.0, 100.0))
 979         {
 980         case 1:
 981         case 2:
 982             if (Player.p_poison > 0.0)
 983                 {
 984                 mvaddstr(4, 0, "You've found a medic!  How much will you offer to be cured ? ");
 985                 temp = floor(infloat());
 986                 if (temp < 0.0 || temp > Player.p_gold)
 987                     /* negative gold, or more than available */
 988                     {
 989                     mvaddstr(6, 0, "He was not amused, and made you worse.\n");
 990                     Player.p_poison += 1.0;
 991                     }
 992                 else if (drandom() / 2.0 > (temp + 1.0) / MAX(Player.p_gold, 1))
 993                     /* medic wants 1/2 of available gold */
 994                     mvaddstr(5, 0, "Sorry, he wasn't interested.\n");
 995                 else
 996                     {
 997                     mvaddstr(5, 0, "He accepted.");
 998                     Player.p_poison = MAX(0.0, Player.p_poison - 1.0);
 999                     Player.p_gold -= temp;
1000                     }
1001                 }
1002             break;
1003
1004         case 3:
1005             mvaddstr(4, 0, "You've been caught raping and pillaging!\n");
1006             Player.p_experience += 4000.0;
1007             Player.p_sin += 0.5;
1008             break;
1009
1010         case 4:
1011             temp = ROLL(10.0, 75.0);
1012             mvprintw(4, 0, "You've found %.0f gold pieces, want them ? ", temp);
1013             ch = getanswer("NY", FALSE);
1014
1015             if (ch == 'Y')
1016                 collecttaxes(temp, 0.0);
1017             break;
1018
1019         case 5:
1020             if (Player.p_sin > 1.0)
1021                 {
1022                 mvaddstr(4, 0, "You've found a Holy Orb!\n");
1023                 Player.p_sin -= 0.25;
1024                 }
1025             break;
1026
1027         case 6:
1028             if (Player.p_poison < 1.0)
1029                 {
1030                 mvaddstr(4, 0, "You've been hit with a plague!\n");
1031                 Player.p_poison += 1.0;
1032                 }
1033             break;
1034
1035         case 7:
1036             mvaddstr(4, 0, "You've found some holy water.\n");
1037             ++Player.p_holywater;
1038             break;
1039
1040         case 8:
1041             mvaddstr(4, 0, "You've met a Guru. . .");
1042             if (drandom() * Player.p_sin > 1.0)
1043                 addstr("You disgusted him with your sins!\n");
1044             else if (Player.p_poison > 0.0)
1045                 {
1046                 addstr("He looked kindly upon you, and cured you.\n");
1047                 Player.p_poison = 0.0;
1048                 }
1049             else
1050                 {
1051                 addstr("He rewarded you for your virtue.\n");
1052                 Player.p_mana += 50.0;
1053                 Player.p_shield += 2.0;
1054                 }
1055             break;
1056
1057         case 9:
1058             mvaddstr(4, 0, "You've found an amulet.\n");
1059             ++Player.p_amulets;
1060             break;
1061
1062         case 10:
1063             if (Player.p_blindness)
1064                 {
1065                 mvaddstr(4, 0, "You've regained your sight!\n");
1066                 Player.p_blindness = FALSE;
1067                 }
1068             break;
1069
1070         default:        /* deal with poison */
1071             if (Player.p_poison > 0.0)
1072                 {
1073                 temp = Player.p_poison * Statptr->c_weakness
1074                     * Player.p_maxenergy / 600.0;
1075                 if (Player.p_energy > Player.p_maxenergy / 10.0
1076                     && temp + 5.0 < Player.p_energy)
1077                     Player.p_energy -= temp;
1078                 }
1079             break;
1080         }
1081 }
1082 /*\f*/
1083 /************************************************************************
1084 /
1085 / FUNCTION NAME: genchar()
1086 /
1087 / FUNCTION: generate a random character
1088 /
1089 / AUTHOR: E. A. Estes, 12/4/85
1090 /
1091 / ARGUMENTS:
1092 /       int type - ASCII value of character type to generate
1093 /
1094 / RETURN VALUE: none
1095 /
1096 / MODULES CALLED: floor(), drandom()
1097 /
1098 / GLOBAL INPUTS: Wizard, Player, Stattable[]
1099 /
1100 / GLOBAL OUTPUTS: Player
1101 /
1102 / DESCRIPTION:
1103 /       Use the lookup table for rolling stats.
1104 /
1105 *************************************************************************/
1106
1107 genchar(type)
1108 int     type;
1109 {
1110 int     subscript;              /* used for subscripting into Stattable */
1111 struct charstats        *statptr;/* for pointing into Stattable */
1112
1113     subscript = type - '1';
1114
1115     if (subscript < C_MAGIC || subscript > C_EXPER)
1116         if (subscript != C_SUPER || !Wizard)
1117             /* fighter is default */
1118             subscript = C_FIGHTER;
1119
1120     statptr = &Stattable[subscript];
1121
1122     Player.p_quickness =
1123         ROLL(statptr->c_quickness.base, statptr->c_quickness.interval);
1124     Player.p_strength =
1125         ROLL(statptr->c_strength.base, statptr->c_strength.interval);
1126     Player.p_mana =
1127         ROLL(statptr->c_mana.base, statptr->c_mana.interval);
1128     Player.p_maxenergy =
1129     Player.p_energy =
1130         ROLL(statptr->c_energy.base, statptr->c_energy.interval);
1131     Player.p_brains =
1132         ROLL(statptr->c_brains.base, statptr->c_brains.interval);
1133     Player.p_magiclvl =
1134         ROLL(statptr->c_magiclvl.base, statptr->c_magiclvl.interval);
1135
1136     Player.p_type = subscript;
1137
1138     if (Player.p_type == C_HALFLING)
1139         /* give halfling some experience */
1140         Player.p_experience = ROLL(600.0, 200.0);
1141 }
1142 /*\f*/
1143 /************************************************************************
1144 /
1145 / FUNCTION NAME: playinit()
1146 /
1147 / FUNCTION: initialize for playing game
1148 /
1149 / AUTHOR: E. A. Estes, 12/4/85
1150 /
1151 / ARGUMENTS: none
1152 /
1153 / RETURN VALUE: none
1154 /
1155 / MODULES CALLED: signal(), wclear(), noecho(), crmode(), initscr(),
1156 /       wrefresh()
1157 /
1158 / GLOBAL INPUTS: *stdscr, ill_sig()
1159 /
1160 / GLOBAL OUTPUTS: Windows
1161 /
1162 / DESCRIPTION:
1163 /       Catch a bunch of signals, and turn on curses stuff.
1164 /
1165 *************************************************************************/
1166
1167 playinit()
1168 {
1169     /* catch/ingnore signals */
1170
1171 #ifdef  BSD41
1172     sigignore(SIGQUIT);
1173     sigignore(SIGALRM);
1174     sigignore(SIGTERM);
1175     sigignore(SIGTSTP);
1176     sigignore(SIGTTIN);
1177     sigignore(SIGTTOU);
1178     sighold(SIGINT);
1179     sigset(SIGHUP, ill_sig);
1180     sigset(SIGTRAP, ill_sig);
1181     sigset(SIGIOT, ill_sig);
1182     sigset(SIGEMT, ill_sig);
1183     sigset(SIGFPE, ill_sig);
1184     sigset(SIGBUS, ill_sig);
1185     sigset(SIGSEGV, ill_sig);
1186     sigset(SIGSYS, ill_sig);
1187     sigset(SIGPIPE, ill_sig);
1188 #endif
1189 #ifdef  BSD42
1190     signal(SIGQUIT, ill_sig);
1191     signal(SIGALRM, SIG_IGN);
1192     signal(SIGTERM, SIG_IGN);
1193     signal(SIGTSTP, SIG_IGN);
1194     signal(SIGTTIN, SIG_IGN);
1195     signal(SIGTTOU, SIG_IGN);
1196     signal(SIGINT, ill_sig);
1197     signal(SIGHUP, SIG_DFL);
1198     signal(SIGTRAP, ill_sig);
1199     signal(SIGIOT, ill_sig);
1200     signal(SIGEMT, ill_sig);
1201     signal(SIGFPE, ill_sig);
1202     signal(SIGBUS, ill_sig);
1203     signal(SIGSEGV, ill_sig);
1204     signal(SIGSYS, ill_sig);
1205     signal(SIGPIPE, ill_sig);
1206 #endif
1207 #ifdef  SYS3
1208     signal(SIGINT, SIG_IGN);
1209     signal(SIGQUIT, SIG_IGN);
1210     signal(SIGTERM, SIG_IGN);
1211     signal(SIGALRM, SIG_IGN);
1212     signal(SIGHUP, ill_sig);
1213     signal(SIGTRAP, ill_sig);
1214     signal(SIGIOT, ill_sig);
1215     signal(SIGEMT, ill_sig);
1216     signal(SIGFPE, ill_sig);
1217     signal(SIGBUS, ill_sig);
1218     signal(SIGSEGV, ill_sig);
1219     signal(SIGSYS, ill_sig);
1220     signal(SIGPIPE, ill_sig);
1221 #endif
1222 #ifdef  SYS5
1223     signal(SIGINT, SIG_IGN);
1224     signal(SIGQUIT, SIG_IGN);
1225     signal(SIGTERM, SIG_IGN);
1226     signal(SIGALRM, SIG_IGN);
1227     signal(SIGHUP, ill_sig);
1228     signal(SIGTRAP, ill_sig);
1229     signal(SIGIOT, ill_sig);
1230     signal(SIGEMT, ill_sig);
1231     signal(SIGFPE, ill_sig);
1232     signal(SIGBUS, ill_sig);
1233     signal(SIGSEGV, ill_sig);
1234     signal(SIGSYS, ill_sig);
1235     signal(SIGPIPE, ill_sig);
1236 #endif
1237
1238     initscr();          /* turn on curses */
1239     noecho();           /* do not echo input */
1240     crmode();           /* do not process erase, kill */
1241     clear();
1242     refresh();
1243     Windows = TRUE;     /* mark the state */
1244 }
1245
1246 /*\f*/
1247 /************************************************************************
1248 /
1249 / FUNCTION NAME: cleanup()
1250 /
1251 / FUNCTION: close some files, and maybe exit
1252 /
1253 / AUTHOR: E. A. Estes, 12/4/85
1254 /
1255 / ARGUMENTS:
1256 /       bool doexit - exit flag
1257 /
1258 / RETURN VALUE: none
1259 /
1260 / MODULES CALLED: exit(), wmove(), fclose(), endwin(), nocrmode(), wrefresh()
1261 /
1262 / GLOBAL INPUTS: *Energyvoidfp, LINES, *stdscr, Windows, *Monstfp,
1263 /       *Messagefp, *Playersfp
1264 /
1265 / GLOBAL OUTPUTS: none
1266 /
1267 / DESCRIPTION:
1268 /       Close all open files.  If we are "in curses" terminate curses.
1269 /       If 'doexit' is set, exit, otherwise return.
1270 /
1271 *************************************************************************/
1272
1273 cleanup(doexit)
1274 bool    doexit;
1275 {
1276     if (Windows)
1277         {
1278         move(LINES - 2, 0);
1279         refresh();
1280         nocrmode();
1281         endwin();
1282         }
1283
1284     if (Playersfp) {
1285         fclose(Playersfp);
1286         Playersfp = NULL;
1287     }
1288     if (Monstfp) {
1289         fclose(Monstfp);
1290         Monstfp = NULL;
1291     }
1292     if (Messagefp) {
1293         fclose(Messagefp);
1294         Messagefp = NULL;
1295     }
1296     if (Energyvoidfp) {
1297         fclose(Energyvoidfp);
1298         Energyvoidfp = NULL;
1299     }
1300
1301     if (doexit)
1302         exit(0);
1303         /*NOTREACHED*/
1304 }