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