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