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