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