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