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