-/* $NetBSD: main.c,v 1.2 1995/03/24 03:58:54 cgd Exp $ */
+/* $NetBSD: main.c,v 1.24 2019/02/03 03:19:25 mrg Exp $ */
/*
* Phantasia 3.3.2 -- Interterminal fantasy game
*/
#include <sys/types.h>
+#include <sys/stat.h>
+#include <err.h>
+#include <math.h>
#include <pwd.h>
+#include <setjmp.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+
+#include "macros.h"
+#include "phantdefs.h"
+#include "phantstruct.h"
+#include "phantglobs.h"
+#include "pathnames.h"
+
+#undef bool
+#include <curses.h>
/*
* The program allocates as much file space as it needs to store characters,
* to be updated.
*/
-/*
- * All source files are set up for 'vi' with shiftwidth=4, tabstop=8.
- */
-
-/*\f*/
/*
* main.c Main routines for Phantasia
*/
-#include "include.h"
-
-/***************************************************************************
-/ FUNCTION NAME: main()
-/
-/ FUNCTION: initialize state, and call main process
-/
-/ AUTHOR: E. A. Estes, 12/4/85
-/
-/ ARGUMENTS:
-/ int argc - argument count
-/ char **argv - argument vector
-/
-/ RETURN VALUE: none
-/
-/ MODULES CALLED: monstlist(), checkenemy(), activelist(),
-/ throneroom(), checkbattle(), readmessage(), changestats(), writerecord(),
-/ tradingpost(), adjuststats(), recallplayer(), displaystats(), checktampered(),
-/ fabs(), rollnewplayer(), time(), exit(), sqrt(), floor(), wmove(),
-/ signal(), strcat(), purgeoldplayers(), getuid(), isatty(), wclear(),
-/ strcpy(), system(), altercoordinates(), cleanup(), waddstr(), procmain(),
-/ playinit(), leavegame(), localtime(), getanswer(), neatstuff(), initialstate(),
-/ scorelist(), titlelist()
-/
-/ GLOBAL INPUTS: *Login, Throne, Wizard, Player, *stdscr, Changed, Databuf[],
-/ Fileloc, Stattable[]
-/
-/ GLOBAL OUTPUTS: Wizard, Player, Changed, Fileloc, Timeout, *Statptr
-/
-/ DESCRIPTION:
-/ Process arguments, initialize program, and loop forever processing
-/ player input.
-/
-/***************************************************************************/
-
-main(argc, argv)
-int argc;
-char **argv;
-{
-bool noheader = FALSE; /* set if don't want header */
-bool headeronly = FALSE; /* set if only want header */
-bool examine = FALSE; /* set if examine a character */
-long seconds; /* for time of day */
-double dtemp; /* for temporary calculations */
-
- initialstate(); /* init globals */
-
- /* process arguments */
- while (--argc && (*++argv)[0] == '-')
- switch ((*argv)[1])
- {
- case 's': /* short */
- noheader = TRUE;
- break;
+static void genchar(int);
+static void initialstate(void);
+static void neatstuff(void);
+static void playinit(void);
+static void procmain(void);
+static long recallplayer(void);
+static long rollnewplayer(void);
+static void titlelist(void);
- case 'H': /* Header */
- headeronly = TRUE;
- break;
+int main(int, char **);
- case 'a': /* all users */
- activelist();
- cleanup(TRUE);
- /*NOTREACHED*/
+int
+main(int argc, char **argv)
+{
+ bool noheader = FALSE; /* set if don't want header */
+ bool headeronly = FALSE; /* set if only want header */
+ bool examine = FALSE; /* set if examine a character */
+ time_t seconds; /* for time of day */
+ double dtemp; /* for temporary calculations */
+
+ initialstate(); /* init globals */
+
+ /* process arguments */
+ while (--argc && (*++argv)[0] == '-')
+ switch ((*argv)[1]) {
+ case 's': /* short */
+ noheader = TRUE;
+ break;
+
+ case 'H': /* Header */
+ headeronly = TRUE;
+ break;
+
+ case 'a': /* all users */
+ activelist();
+ cleanup(TRUE);
+ __unreachable();
+ /* NOTREACHED */
- case 'p': /* purge old players */
- purgeoldplayers();
- cleanup(TRUE);
- /*NOTREACHED*/
+ case 'p': /* purge old players */
+ purgeoldplayers();
+ cleanup(TRUE);
+ __unreachable();
+ /* NOTREACHED */
- case 'S': /* set 'Wizard' */
- Wizard = !getuid();
- break;
+ case 'S': /* set 'Wizard' */
+ Wizard = !getuid();
+ break;
- case 'x': /* examine */
- examine = TRUE;
- break;
+ case 'x': /* examine */
+ examine = TRUE;
+ break;
- case 'm': /* monsters */
- monstlist();
- cleanup(TRUE);
- /*NOTREACHED*/
+ case 'm': /* monsters */
+ monstlist();
+ cleanup(TRUE);
+ __unreachable();
+ /* NOTREACHED */
- case 'b': /* scoreboard */
- scorelist();
- cleanup(TRUE);
- /*NOTREACHED*/
+ case 'b': /* scoreboard */
+ scorelist();
+ cleanup(TRUE);
+ __unreachable();
+ /* NOTREACHED */
}
- if (!isatty(0)) /* don't let non-tty's play */
- cleanup(TRUE);
- /*NOTREACHED*/
+ if (!isatty(0)) /* don't let non-tty's play */
+ cleanup(TRUE);
+ /* NOTREACHED */
- playinit(); /* set up to catch signals, init curses */
+ playinit(); /* set up to catch signals, init curses */
- if (examine)
- {
- changestats(FALSE);
- cleanup(TRUE);
- /*NOTREACHED*/
+ if (examine) {
+ changestats(FALSE);
+ cleanup(TRUE);
+ __unreachable();
+ /* NOTREACHED */
}
-
- if (!noheader)
- {
- titlelist();
- purgeoldplayers(); /* clean up old characters */
+ if (!noheader) {
+ titlelist();
+ purgeoldplayers(); /* clean up old characters */
+ }
+ if (headeronly) {
+ cleanup(TRUE);
+ __unreachable();
+ /* NOTREACHED */
}
- if (headeronly)
- cleanup(TRUE);
- /*NOTREACHED*/
-
- do
- /* get the player structure filled */
+ do
+ /* get the player structure filled */
{
- Fileloc = -1L;
+ Fileloc = -1L;
- mvaddstr(22, 17, "Do you have a character to run [Q = Quit] ? ");
+ mvaddstr(22, 17, "Do you have a character to run [Q = Quit] ? ");
- switch (getanswer("NYQ", FALSE))
- {
- case 'Y':
- Fileloc = recallplayer();
- break;
+ switch (getanswer("NYQ", FALSE)) {
+ case 'Y':
+ Fileloc = recallplayer();
+ break;
- case 'Q':
- cleanup(TRUE);
- /*NOTREACHED*/
+ case 'Q':
+ cleanup(TRUE);
+ __unreachable();
+ /* NOTREACHED */
- default:
- Fileloc = rollnewplayer();
- break;
- }
- clear();
+ default:
+ Fileloc = rollnewplayer();
+ break;
+ }
+ clear();
}
- while (Fileloc < 0L);
+ while (Fileloc < 0L);
- if (Player.p_level > 5.0)
- /* low level players have long timeout */
- Timeout = TRUE;
+ if (Player.p_level > 5.0)
+ /* low level players have long timeout */
+ Timeout = TRUE;
- /* update some important player statistics */
- strcpy(Player.p_login, Login);
- time(&seconds);
- Player.p_lastused = localtime(&seconds)->tm_yday;
- Player.p_status = S_PLAYING;
- writerecord(&Player, Fileloc);
+ /* update some important player statistics */
+ strlcpy(Player.p_login, Login, sizeof(Player.p_login));
+ time(&seconds);
+ Player.p_lastused = localtime(&seconds)->tm_yday;
+ Player.p_status = S_PLAYING;
+ writerecord(&Player, Fileloc);
- Statptr = &Stattable[Player.p_type]; /* initialize pointer */
+ Statptr = &Stattable[Player.p_type]; /* initialize pointer */
- /* catch interrupts */
+ /* catch interrupts */
#ifdef BSD41
- sigset(SIGINT, interrupt);
+ sigset(SIGINT, interrupt);
#endif
#ifdef BSD42
- signal(SIGINT, interrupt);
+ signal(SIGINT, interrupt);
#endif
#ifdef SYS3
- signal(SIGINT, interrupt);
+ signal(SIGINT, interrupt);
#endif
#ifdef SYS5
- signal(SIGINT, interrupt);
+ signal(SIGINT, interrupt);
#endif
- altercoordinates(Player.p_x, Player.p_y, A_FORCED); /* set some flags */
+ altercoordinates(Player.p_x, Player.p_y, A_FORCED); /* set some flags */
- clear();
+ clear();
- for (;;)
- /* loop forever, processing input */
+ for (;;)
+ /* loop forever, processing input */
{
- adjuststats(); /* cleanup stats */
-
- if (Throne && Player.p_crowns == 0 && Player.p_specialtype != SC_KING)
- /* not allowed on throne -- move */
- {
- mvaddstr(5,0,"You're not allowed in the Lord's Chamber without a crown.\n");
- altercoordinates(0.0, 0.0, A_NEAR);
- }
-
- checktampered(); /* check for energy voids, etc. */
-
- if (Player.p_status != S_CLOAKED
- /* not cloaked */
- && (dtemp = fabs(Player.p_x)) == fabs(Player.p_y)
- /* |x| = |y| */
- && !Throne)
- /* not on throne */
- {
- dtemp = sqrt(dtemp / 100.0);
- if (floor(dtemp) == dtemp)
- /* |x| / 100 == n*n; at a trading post */
+ adjuststats(); /* cleanup stats */
+
+ if (Throne && Player.p_crowns == 0 && Player.p_specialtype != SC_KING)
+ /* not allowed on throne -- move */
{
- tradingpost();
- clear();
+ mvaddstr(5, 0, "You're not allowed in the Lord's Chamber without a crown.\n");
+ altercoordinates(0.0, 0.0, A_NEAR);
+ }
+ checktampered();/* check for energy voids, etc. */
+
+ if (Player.p_status != S_CLOAKED
+ /* not cloaked */
+ && (dtemp = fabs(Player.p_x)) == fabs(Player.p_y)
+ /* |x| = |y| */
+ && !Throne)
+ /* not on throne */
+ {
+ dtemp = sqrt(dtemp / 100.0);
+ if (floor(dtemp) == dtemp)
+ /* |x| / 100 == n*n; at a trading post */
+ {
+ tradingpost();
+ clear();
+ }
}
- }
+ checkbattle(); /* check for player to player battle */
+ neatstuff(); /* gurus, medics, etc. */
- checkbattle(); /* check for player to player battle */
- neatstuff(); /* gurus, medics, etc. */
+ if (Player.p_status == S_CLOAKED) {
+ /* costs 3 mana per turn to be cloaked */
+ if (Player.p_mana > 3.0)
+ Player.p_mana -= 3.0;
+ else
+ /* ran out of mana, uncloak */
+ {
+ Player.p_status = S_PLAYING;
+ Changed = TRUE;
+ }
+ }
- if (Player.p_status == S_CLOAKED)
- /* costs 3 mana per turn to be cloaked */
- if (Player.p_mana > 3.0)
- Player.p_mana -= 3.0;
- else
- /* ran out of mana, uncloak */
+ if (Player.p_status != S_PLAYING && Player.p_status != S_CLOAKED)
+ /* change status back to S_PLAYING */
{
- Player.p_status = S_PLAYING;
- Changed = TRUE;
+ Player.p_status = S_PLAYING;
+ Changed = TRUE;
}
+ if (Changed)
+ /* update file only if important stuff has changed */
+ {
+ writerecord(&Player, Fileloc);
+ Changed = FALSE;
+ continue;
+ }
+ readmessage(); /* read message, if any */
+
+ displaystats(); /* print statistics */
- if (Player.p_status != S_PLAYING && Player.p_status != S_CLOAKED)
- /* change status back to S_PLAYING */
- {
- Player.p_status = S_PLAYING;
- Changed = TRUE;
- }
-
- if (Changed)
- /* update file only if important stuff has changed */
- {
- writerecord(&Player, Fileloc);
- Changed = FALSE;
- continue;
- }
-
- readmessage(); /* read message, if any */
-
- displaystats(); /* print statistics */
-
- move(6, 0);
-
- if (Throne)
- /* maybe make king, print prompt, etc. */
- throneroom();
-
- /* print status line */
- addstr("1:Move 2:Players 3:Talk 4:Stats 5:Quit ");
- if (Player.p_level >= MEL_CLOAK && Player.p_magiclvl >= ML_CLOAK)
- addstr("6:Cloak ");
- if (Player.p_level >= MEL_TELEPORT && Player.p_magiclvl >= ML_TELEPORT)
- addstr("7:Teleport ");
- if (Player.p_specialtype >= SC_COUNCIL || Wizard)
- addstr("8:Intervene ");
-
- procmain(); /* process input */
+ move(6, 0);
+
+ if (Throne)
+ /* maybe make king, print prompt, etc. */
+ throneroom();
+
+ /* print status line */
+ addstr("1:Move 2:Players 3:Talk 4:Stats 5:Quit ");
+ if (Player.p_level >= MEL_CLOAK && Player.p_magiclvl >= ML_CLOAK)
+ addstr("6:Cloak ");
+ if (Player.p_level >= MEL_TELEPORT && Player.p_magiclvl >= ML_TELEPORT)
+ addstr("7:Teleport ");
+ if (Player.p_specialtype >= SC_COUNCIL || Wizard)
+ addstr("8:Intervene ");
+
+ procmain(); /* process input */
}
}
-/*\f*/
-/************************************************************************
-/
-/ FUNCTION NAME: initialstate()
-/
-/ FUNCTION: initialize some important global variable
-/
-/ AUTHOR: E. A. Estes, 12/4/85
-/
-/ ARGUMENTS: none
-/
-/ RETURN VALUE: none
-/
-/ MODULES CALLED: time(), fopen(), srandom(), error(), getuid(), getlogin(),
-/ getpwuid()
-/
-/ GLOBAL INPUTS:
-/
-/ GLOBAL OUTPUTS: *Energyvoidfp, Echo, Marsh, *Login, Users, Beyond,
-/ Throne, Wizard, Changed, Okcount, Timeout, Windows, *Monstfp, *Messagefp,
-/ *Playersfp
-/
-/ DESCRIPTION:
-/ Set global flags, and open files which remain open.
-/
-/************************************************************************/
-
-initialstate()
+
+static void
+initialstate(void)
{
- Beyond = FALSE;
- Marsh = FALSE;
- Throne = FALSE;
- Changed = FALSE;
- Wizard = FALSE;
- Timeout = FALSE;
- Users = 0;
- Windows = FALSE;
- Echo = TRUE;
-
- /* setup login name */
- if ((Login = getlogin()) == NULL)
- Login = getpwuid(getuid())->pw_name;
-
- /* open some files */
- if ((Playersfp = fopen(_PATH_PEOPLE, "r+")) == NULL)
- error(_PATH_PEOPLE);
- /*NOTREACHED*/
-
- if ((Monstfp = fopen(_PATH_MONST, "r+")) == NULL)
- error(_PATH_MONST);
- /*NOTREACHED*/
-
- if ((Messagefp = fopen(_PATH_MESS, "r")) == NULL)
- error(_PATH_MESS);
- /*NOTREACHED*/
-
- if ((Energyvoidfp = fopen(_PATH_VOID, "r+")) == NULL)
- error(_PATH_VOID);
- /*NOTREACHED*/
-
- srandom((unsigned) time((long *) NULL)); /* prime random numbers */
+ struct stat sb;
+ struct passwd *pw;
+
+ Beyond = FALSE;
+ Marsh = FALSE;
+ Throne = FALSE;
+ Changed = FALSE;
+ Wizard = FALSE;
+ Timeout = FALSE;
+ Users = 0;
+ Windows = FALSE;
+ Echo = TRUE;
+
+ /* setup login name */
+ if ((Login = getlogin()) == NULL) {
+ pw = getpwuid(getuid());
+ if (pw == NULL) {
+ errx(1, "Who are you?");
+ }
+ Login = pw->pw_name;
+ }
+
+ /* open some files */
+ if ((Playersfp = fopen(_PATH_PEOPLE, "r+")) == NULL)
+ error(_PATH_PEOPLE);
+ /* NOTREACHED */
+ if (fileno(Playersfp) < 3)
+ exit(1);
+
+ if ((Monstfp = fopen(_PATH_MONST, "r+")) == NULL)
+ error(_PATH_MONST);
+ /* NOTREACHED */
+
+ if ((Messagefp = fopen(_PATH_MESS, "r")) == NULL)
+ error(_PATH_MESS);
+ /* NOTREACHED */
+
+ if ((Energyvoidfp = fopen(_PATH_VOID, "r+")) == NULL)
+ error(_PATH_VOID);
+ if (fstat(fileno(Energyvoidfp), &sb) == -1)
+ error("stat");
+ if (sb.st_size == 0) {
+ /* initialize grail to new location */
+ Enrgyvoid.ev_active = TRUE;
+ Enrgyvoid.ev_x = ROLL(-1.0e6, 2.0e6);
+ Enrgyvoid.ev_y = ROLL(-1.0e6, 2.0e6);
+ writevoid(&Enrgyvoid, 0L);
+ }
+
+ /* NOTREACHED */
+
+ srandom((unsigned) time(NULL)); /* prime random numbers */
}
-/*\f*/
-/************************************************************************
-/
-/ FUNCTION NAME: rollnewplayer()
-/
-/ FUNCTION: roll up a new character
-/
-/ AUTHOR: E. A. Estes, 12/4/85
-/
-/ ARGUMENTS: none
-/
-/ RETURN VALUE: none
-/
-/ MODULES CALLED: initplayer(), allocrecord(), truncstring(), fabs(), wmove(),
-/ wclear(), sscanf(), strcmp(), genchar(), waddstr(), findname(), mvprintw(),
-/ getanswer(), getstring()
-/
-/ GLOBAL INPUTS: Other, Wizard, Player, *stdscr, Databuf[]
-/
-/ GLOBAL OUTPUTS: Echo
-/
-/ DESCRIPTION:
-/ Prompt player, and roll up new character.
-/
-/************************************************************************/
-
-long
-rollnewplayer()
+
+static long
+rollnewplayer(void)
{
-int chartype; /* character type */
-int ch; /* input */
+ int chartype; /* character type */
+ int ch; /* input */
- initplayer(&Player); /* initialize player structure */
+ initplayer(&Player); /* initialize player structure */
- clear();
- mvaddstr(4, 21, "Which type of character do you want:");
- mvaddstr(8, 4, "1:Magic User 2:Fighter 3:Elf 4:Dwarf 5:Halfling 6:Experimento ");
- if (Wizard) {
- addstr("7:Super ? ");
- chartype = getanswer("1234567", FALSE);
- }
- else {
- addstr("? ");
- chartype = getanswer("123456", FALSE);
+ clear();
+ mvaddstr(4, 21, "Which type of character do you want:");
+ mvaddstr(8, 4,
+"1:Magic User 2:Fighter 3:Elf 4:Dwarf 5:Halfling 6:Experimento ");
+ if (Wizard) {
+ addstr("7:Super ? ");
+ chartype = getanswer("1234567", FALSE);
+ } else {
+ addstr("? ");
+ chartype = getanswer("123456", FALSE);
}
- do
- {
- genchar(chartype); /* roll up a character */
+ do {
+ genchar(chartype); /* roll up a character */
- /* print out results */
- mvprintw(12, 14,
- "Strength : %2.0f Quickness: %2.0f Mana : %2.0f\n",
- Player.p_strength, Player.p_quickness, Player.p_mana);
- mvprintw(13, 14,
- "Energy Level: %2.0f Brains : %2.0f Magic Level: %2.0f\n",
- Player.p_energy, Player.p_brains, Player.p_magiclvl);
+ /* print out results */
+ mvprintw(12, 14,
+ "Strength : %2.0f Quickness: %2.0f Mana : %2.0f\n",
+ Player.p_strength, Player.p_quickness, Player.p_mana);
+ mvprintw(13, 14,
+ "Energy Level: %2.0f Brains : %2.0f Magic Level: %2.0f\n",
+ Player.p_energy, Player.p_brains, Player.p_magiclvl);
- if (Player.p_type == C_EXPER || Player.p_type == C_SUPER)
- break;
+ if (Player.p_type == C_EXPER || Player.p_type == C_SUPER)
+ break;
- mvaddstr(14, 14, "Type '1' to keep >");
- ch = getanswer(" ", TRUE);
+ mvaddstr(14, 14, "Type '1' to keep >");
+ ch = getanswer(" ", TRUE);
}
- while (ch != '1');
+ while (ch != '1');
- if (Player.p_type == C_EXPER || Player.p_type == C_SUPER)
- /* get coordinates for experimento */
- for (;;)
- {
- mvaddstr(16, 0, "Enter the X Y coordinates of your experimento ? ");
- getstring(Databuf, SZ_DATABUF);
- sscanf(Databuf, "%lf %lf", &Player.p_x, &Player.p_y);
-
- if (fabs(Player.p_x) > D_EXPER || fabs(Player.p_y) > D_EXPER)
- mvaddstr(17, 0, "Invalid coordinates. Try again.\n");
- else
- break;
- }
+ if (Player.p_type == C_EXPER || Player.p_type == C_SUPER)
+ /* get coordinates for experimento */
+ for (;;) {
+ mvaddstr(16, 0, "Enter the X Y coordinates of your experimento ? ");
+ getstring(Databuf, SZ_DATABUF);
+ sscanf(Databuf, "%lf %lf", &Player.p_x, &Player.p_y);
+
+ if (fabs(Player.p_x) > D_EXPER || fabs(Player.p_y) > D_EXPER)
+ mvaddstr(17, 0, "Invalid coordinates. Try again.\n");
+ else
+ break;
+ }
- for (;;)
- /* name the new character */
+ for (;;)
+ /* name the new character */
{
- mvprintw(18, 0,
- "Give your character a name [up to %d characters] ? ", SZ_NAME - 1);
- getstring(Player.p_name, SZ_NAME);
- truncstring(Player.p_name); /* remove trailing blanks */
-
- if (Player.p_name[0] == '\0')
- /* no null names */
- mvaddstr(19, 0, "Invalid name.");
- else if (findname(Player.p_name, &Other) >= 0L)
- /* cannot have duplicate names */
- mvaddstr(19, 0, "Name already in use.");
- else
- /* name is acceptable */
- break;
-
- addstr(" Pick another.\n");
+ mvprintw(18, 0,
+ "Give your character a name [up to %d characters] ? ", SZ_NAME - 1);
+ getstring(Player.p_name, SZ_NAME);
+ truncstring(Player.p_name); /* remove trailing blanks */
+
+ if (Player.p_name[0] == '\0')
+ /* no null names */
+ mvaddstr(19, 0, "Invalid name.");
+ else
+ if (findname(Player.p_name, &Other) >= 0L)
+ /* cannot have duplicate names */
+ mvaddstr(19, 0, "Name already in use.");
+ else
+ /* name is acceptable */
+ break;
+
+ addstr(" Pick another.\n");
}
- /* get a password for character */
- Echo = FALSE;
+ /* get a password for character */
+ Echo = FALSE;
- do
- {
- mvaddstr(20, 0, "Give your character a password [up to 8 characters] ? ");
- getstring(Player.p_password, SZ_PASSWORD);
- mvaddstr(21, 0, "One more time to verify ? ");
- getstring(Databuf, SZ_PASSWORD);
+ do {
+ mvaddstr(20, 0, "Give your character a password [up to 8 characters] ? ");
+ getstring(Player.p_password, SZ_PASSWORD);
+ mvaddstr(21, 0, "Enter again to verify: ");
+ getstring(Databuf, SZ_PASSWORD);
}
- while (strcmp(Player.p_password, Databuf) != 0);
+ while (strcmp(Player.p_password, Databuf) != 0);
- Echo = TRUE;
+ Echo = TRUE;
- return(allocrecord());
+ return (allocrecord());
}
-/*\f*/
-/************************************************************************
-/
-/ FUNCTION NAME: procmain()
-/
-/ FUNCTION: process input from player
-/
-/ AUTHOR: E. A. Estes, 12/4/85
-/
-/ ARGUMENTS: none
-/
-/ RETURN VALUE: none
-/
-/ MODULES CALLED: dotampered(), changestats(), inputoption(), allstatslist(),
-/ fopen(), wmove(), drandom(), sscanf(), fclose(), altercoordinates(),
-/ waddstr(), fprintf(), distance(), userlist(), leavegame(), encounter(),
-/ getstring(), wclrtobot()
-/
-/ GLOBAL INPUTS: Circle, Illcmd[], Throne, Wizard, Player, *stdscr,
-/ Databuf[], Illmove[]
-/
-/ GLOBAL OUTPUTS: Player, Changed
-/
-/ DESCRIPTION:
-/ Process main menu options.
-/
-/************************************************************************/
-
-procmain()
+
+static void
+procmain(void)
{
-int ch; /* input */
-double x; /* desired new x coordinate */
-double y; /* desired new y coordinate */
-double temp; /* for temporary calculations */
-FILE *fp; /* for opening files */
-register int loop; /* a loop counter */
-bool hasmoved = FALSE; /* set if player has moved */
+ int ch; /* input */
+ double x; /* desired new x coordinate */
+ double y; /* desired new y coordinate */
+ double temp; /* for temporary calculations */
+ FILE *fp; /* for opening files */
+ int loop; /* a loop counter */
+ bool hasmoved = FALSE; /* set if player has moved */
- ch = inputoption();
- mvaddstr(4, 0, "\n\n"); /* clear status area */
+ ch = inputoption();
+ mvaddstr(4, 0, "\n\n"); /* clear status area */
- move(7, 0);
- clrtobot(); /* clear data on bottom area of screen */
+ move(7, 0);
+ clrtobot(); /* clear data on bottom area of screen */
- if (Player.p_specialtype == SC_VALAR && (ch == '1' || ch == '7'))
- /* valar cannot move */
- ch = ' ';
+ if (Player.p_specialtype == SC_VALAR && (ch == '1' || ch == '7'))
+ /* valar cannot move */
+ ch = ' ';
- switch (ch)
- {
+ switch (ch) {
case 'K': /* move up/north */
case 'N':
- x = Player.p_x;
- y = Player.p_y + MAXMOVE();
- hasmoved = TRUE;
- break;
+ x = Player.p_x;
+ y = Player.p_y + MAXMOVE();
+ hasmoved = TRUE;
+ break;
case 'J': /* move down/south */
case 'S':
- x = Player.p_x;
- y = Player.p_y - MAXMOVE();
- hasmoved = TRUE;
- break;
+ x = Player.p_x;
+ y = Player.p_y - MAXMOVE();
+ hasmoved = TRUE;
+ break;
case 'L': /* move right/east */
case 'E':
- x = Player.p_x + MAXMOVE();
- y = Player.p_y;
- hasmoved = TRUE;
- break;
+ x = Player.p_x + MAXMOVE();
+ y = Player.p_y;
+ hasmoved = TRUE;
+ break;
case 'H': /* move left/west */
case 'W':
- x = Player.p_x - MAXMOVE();
- y = Player.p_y;
- hasmoved = TRUE;
- break;
-
- default: /* rest */
- Player.p_energy += (Player.p_maxenergy + Player.p_shield) / 15.0
- + Player.p_level / 3.0 + 2.0;
- Player.p_energy =
- MIN(Player.p_energy, Player.p_maxenergy + Player.p_shield);
+ x = Player.p_x - MAXMOVE();
+ y = Player.p_y;
+ hasmoved = TRUE;
+ break;
+
+ default: /* rest */
+ Player.p_energy += (Player.p_maxenergy + Player.p_shield) / 15.0
+ + Player.p_level / 3.0 + 2.0;
+ Player.p_energy =
+ MIN(Player.p_energy, Player.p_maxenergy + Player.p_shield);
- if (Player.p_status != S_CLOAKED)
- /* cannot find mana if cloaked */
+ if (Player.p_status != S_CLOAKED)
+ /* cannot find mana if cloaked */
{
- Player.p_mana += (Circle + Player.p_level) / 4.0;
+ Player.p_mana += (Circle + Player.p_level) / 4.0;
- if (drandom() < 0.2 && Player.p_status == S_PLAYING && !Throne)
- /* wandering monster */
- encounter(-1);
+ if (drandom() < 0.2 && Player.p_status == S_PLAYING && !Throne)
+ /* wandering monster */
+ encounter(-1);
}
- break;
+ break;
case 'X': /* change/examine a character */
- changestats(TRUE);
- break;
+ changestats(TRUE);
+ break;
case '1': /* move */
- for (loop = 3; loop; --loop)
- {
- mvaddstr(4, 0, "X Y Coordinates ? ");
- getstring(Databuf, SZ_DATABUF);
+ for (loop = 3; loop; --loop) {
+ mvaddstr(4, 0, "X Y Coordinates ? ");
+ getstring(Databuf, SZ_DATABUF);
- if (sscanf(Databuf, "%lf %lf", &x, &y) != 2)
- mvaddstr(5, 0, "Try again\n");
- else if (distance(Player.p_x, x, Player.p_y, y) > MAXMOVE())
- ILLMOVE();
- else
- {
- hasmoved = TRUE;
- break;
- }
+ if (sscanf(Databuf, "%lf %lf", &x, &y) != 2)
+ mvaddstr(5, 0, "Try again\n");
+ else
+ if (distance(Player.p_x, x, Player.p_y, y) > MAXMOVE())
+ ILLMOVE();
+ else {
+ hasmoved = TRUE;
+ break;
+ }
}
- break;
+ break;
case '2': /* players */
- userlist(TRUE);
- break;
+ userlist(TRUE);
+ break;
case '3': /* message */
- mvaddstr(4, 0, "Message ? ");
- getstring(Databuf, SZ_DATABUF);
- /* we open the file for writing to erase any data which is already there */
- fp = fopen(_PATH_MESS, "w");
- if (Databuf[0] != '\0')
- fprintf(fp, "%s: %s", Player.p_name, Databuf);
- fclose(fp);
- break;
+ mvaddstr(4, 0, "Message ? ");
+ getstring(Databuf, SZ_DATABUF);
+ /* we open the file for writing to erase any data which is
+ * already there */
+ fp = fopen(_PATH_MESS, "w");
+ if (Databuf[0] != '\0')
+ fprintf(fp, "%s: %s", Player.p_name, Databuf);
+ fclose(fp);
+ break;
case '4': /* stats */
- allstatslist();
- break;
+ allstatslist();
+ break;
case '5': /* good-bye */
- leavegame();
- /*NOTREACHED*/
+ leavegame();
+ __unreachable();
+ /* NOTREACHED */
case '6': /* cloak */
- if (Player.p_level < MEL_CLOAK || Player.p_magiclvl < ML_CLOAK)
- ILLCMD();
- else if (Player.p_status == S_CLOAKED)
- Player.p_status = S_PLAYING;
- else if (Player.p_mana < MM_CLOAK)
- mvaddstr(5, 0, "No mana left.\n");
- else
- {
- Changed = TRUE;
- Player.p_mana -= MM_CLOAK;
- Player.p_status = S_CLOAKED;
- }
- break;
-
- case '7': /* teleport */
- /*
- * conditions for teleport
- * - 20 per (level plus magic level)
- * - OR council of the wise or valar or ex-valar
- * - OR transport from throne
- * transports from throne cost no mana
- */
- if (Player.p_level < MEL_TELEPORT || Player.p_magiclvl < ML_TELEPORT)
- ILLCMD();
- else
- for (loop = 3; loop; --loop)
- {
- mvaddstr(4, 0, "X Y Coordinates ? ");
- getstring(Databuf, SZ_DATABUF);
-
- if (sscanf(Databuf, "%lf %lf", &x, &y) == 2)
- {
- temp = distance(Player.p_x, x, Player.p_y, y);
- if (!Throne
- /* can transport anywhere from throne */
- && Player.p_specialtype <= SC_COUNCIL
- /* council, valar can transport anywhere */
- && temp > (Player.p_level + Player.p_magiclvl) * 20.0)
- /* can only move 20 per exp. level + mag. level */
- ILLMOVE();
+ if (Player.p_level < MEL_CLOAK || Player.p_magiclvl < ML_CLOAK)
+ ILLCMD();
+ else
+ if (Player.p_status == S_CLOAKED)
+ Player.p_status = S_PLAYING;
else
- {
- temp = (temp / 75.0 + 1.0) * 20.0; /* mana used */
+ if (Player.p_mana < MM_CLOAK)
+ mvaddstr(5, 0, "No mana left.\n");
+ else {
+ Changed = TRUE;
+ Player.p_mana -= MM_CLOAK;
+ Player.p_status = S_CLOAKED;
+ }
+ break;
- if (!Throne && temp > Player.p_mana)
- mvaddstr(5, 0, "Not enough power for that distance.\n");
- else
- {
- if (!Throne)
- Player.p_mana -= temp;
- hasmoved = TRUE;
- break;
+ case '7': /* teleport */
+ /*
+ * conditions for teleport
+ * - 20 per (level plus magic level)
+ * - OR council of the wise or valar or ex-valar
+ * - OR transport from throne
+ * transports from throne cost no mana
+ */
+ if (Player.p_level < MEL_TELEPORT || Player.p_magiclvl < ML_TELEPORT)
+ ILLCMD();
+ else
+ for (loop = 3; loop; --loop) {
+ mvaddstr(4, 0, "X Y Coordinates ? ");
+ getstring(Databuf, SZ_DATABUF);
+
+ if (sscanf(Databuf, "%lf %lf", &x, &y) == 2) {
+ temp = distance(Player.p_x, x, Player.p_y, y);
+ if (!Throne
+ /* can transport anywhere from throne */
+ && Player.p_specialtype <= SC_COUNCIL
+ /* council, valar can transport
+ * anywhere */
+ && temp > (Player.p_level + Player.p_magiclvl) * 20.0)
+ /* can only move 20 per exp.
+ * level + mag. level */
+ ILLMOVE();
+ else {
+ temp = (temp / 75.0 + 1.0) * 20.0; /* mana used */
+
+ if (!Throne && temp > Player.p_mana)
+ mvaddstr(5, 0, "Not enough power for that distance.\n");
+ else {
+ if (!Throne)
+ Player.p_mana -= temp;
+ hasmoved = TRUE;
+ break;
+ }
+ }
}
- }
}
- }
- break;
+ break;
case 'C':
case '9': /* monster */
- if (Throne)
- /* no monsters while on throne */
- mvaddstr(5, 0, "No monsters in the chamber!\n");
- else if (Player.p_specialtype != SC_VALAR)
- /* the valar cannot call monsters */
- {
- Player.p_sin += 1e-6;
- encounter(-1);
- }
- break;
+ if (Throne)
+ /* no monsters while on throne */
+ mvaddstr(5, 0, "No monsters in the chamber!\n");
+ else
+ if (Player.p_specialtype != SC_VALAR)
+ /* the valar cannot call monsters */
+ {
+ Player.p_sin += 1e-6;
+ encounter(-1);
+ }
+ break;
case '0': /* decree */
- if (Wizard || Player.p_specialtype == SC_KING && Throne)
- /* kings must be on throne to decree */
- dotampered();
- else
- ILLCMD();
- break;
+ if (Wizard || (Player.p_specialtype == SC_KING && Throne))
+ /* kings must be on throne to decree */
+ dotampered();
+ else
+ ILLCMD();
+ break;
case '8': /* intervention */
- if (Wizard || Player.p_specialtype >= SC_COUNCIL)
- dotampered();
- else
- ILLCMD();
- break;
+ if (Wizard || Player.p_specialtype >= SC_COUNCIL)
+ dotampered();
+ else
+ ILLCMD();
+ break;
}
- if (hasmoved)
- /* player has moved -- alter coordinates, and do random monster */
+ if (hasmoved)
+ /* player has moved -- alter coordinates, and do random
+ * monster */
{
- altercoordinates(x, y, A_SPECIFIC);
+ altercoordinates(x, y, A_SPECIFIC);
- if (drandom() < 0.2 && Player.p_status == S_PLAYING && !Throne)
- encounter(-1);
+ if (drandom() < 0.2 && Player.p_status == S_PLAYING && !Throne)
+ encounter(-1);
}
}
-/*\f*/
-/************************************************************************
-/
-/ FUNCTION NAME: titlelist()
-/
-/ FUNCTION: print title page
-/
-/ AUTHOR: E. A. Estes, 12/4/85
-/
-/ ARGUMENTS: none
-/
-/ RETURN VALUE: none
-/
-/ MODULES CALLED: fread(), fseek(), fopen(), fgets(), wmove(), strcpy(),
-/ fclose(), strlen(), waddstr(), sprintf(), wrefresh()
-/
-/ GLOBAL INPUTS: Lines, Other, *stdscr, Databuf[], *Playersfp
-/
-/ GLOBAL OUTPUTS: Lines
-/
-/ DESCRIPTION:
-/ Print important information about game, players, etc.
-/
-/************************************************************************/
-
-titlelist()
+
+static void
+titlelist(void)
{
-register FILE *fp; /* used for opening various files */
-bool councilfound = FALSE; /* set if we find a member of the council */
-bool kingfound = FALSE; /* set if we find a king */
-double hiexp, nxtexp; /* used for finding the two highest players */
-double hilvl, nxtlvl; /* used for finding the two highest players */
-char hiname[21], nxtname[21];/* used for finding the two highest players */
-
- 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)!");
-
- /* print message of the day */
- if ((fp = fopen(_PATH_MOTD, "r")) != NULL
- && fgets(Databuf, SZ_DATABUF, fp) != NULL)
- {
- mvaddstr(2, 40 - strlen(Databuf) / 2, Databuf);
- fclose(fp);
+ FILE *fp; /* used for opening various files */
+ bool councilfound = FALSE; /* set if we find a member of the
+ * council */
+ bool kingfound = FALSE; /* set if we find a king */
+ double hiexp, nxtexp; /* used for finding the two highest players */
+ double hilvl, nxtlvl; /* used for finding the two highest players */
+ char hiname[21], nxtname[21]; /* used for finding the two
+ * highest players */
+
+ nxtexp = 0;
+ 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)!");
+
+ /* print message of the day */
+ if ((fp = fopen(_PATH_MOTD, "r")) != NULL
+ && fgets(Databuf, SZ_DATABUF, fp) != NULL) {
+ mvaddstr(2, 40 - strlen(Databuf) / 2, Databuf);
+ fclose(fp);
}
-
- /* search for king */
- fseek(Playersfp, 0L, 0);
- while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
- if (Other.p_specialtype == SC_KING && Other.p_status != S_NOTUSED)
- /* found the king */
- {
- sprintf(Databuf, "The present ruler is %s Level:%.0f",
- Other.p_name, Other.p_level);
- mvaddstr(4, 40 - strlen(Databuf) / 2, Databuf);
- kingfound = TRUE;
- break;
- }
-
- if (!kingfound)
- mvaddstr(4, 24, "There is no ruler at this time.");
-
- /* search for valar */
- fseek(Playersfp, 0L, 0);
- while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
- if (Other.p_specialtype == SC_VALAR && Other.p_status != S_NOTUSED)
- /* found the valar */
- {
- sprintf(Databuf, "The Valar is %s Login: %s", Other.p_name, Other.p_login);
- mvaddstr(6, 40 - strlen(Databuf) / 2 , Databuf);
- break;
- }
-
- /* search for council of the wise */
- fseek(Playersfp, 0L, 0);
- Lines = 10;
- while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
- if (Other.p_specialtype == SC_COUNCIL && Other.p_status != S_NOTUSED)
- /* found a member of the council */
- {
- if (!councilfound)
+ /* search for king */
+ fseek(Playersfp, 0L, SEEK_SET);
+ while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+ if (Other.p_specialtype == SC_KING &&
+ Other.p_status != S_NOTUSED)
+ /* found the king */
{
- mvaddstr(8, 30, "Council of the Wise:");
- councilfound = TRUE;
+ snprintf(Databuf, SZ_DATABUF,
+ "The present ruler is %s Level:%.0f",
+ Other.p_name, Other.p_level);
+ mvaddstr(4, 40 - strlen(Databuf) / 2, Databuf);
+ kingfound = TRUE;
+ break;
}
-
- /* This assumes a finite (<=5) number of C.O.W.: */
- sprintf(Databuf, "%s Login: %s", Other.p_name, Other.p_login);
- mvaddstr(Lines++, 40 - strlen(Databuf) / 2, Databuf);
- }
-
- /* search for the two highest players */
- nxtname[0] = hiname[0] = '\0';
- hiexp = 0.0;
- nxtlvl = hilvl = 0;
-
- fseek(Playersfp, 0L, 0);
- while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
- if (Other.p_experience > hiexp && Other.p_specialtype <= SC_KING && Other.p_status != S_NOTUSED)
- /* highest found so far */
- {
- nxtexp = hiexp;
- hiexp = Other.p_experience;
- nxtlvl = hilvl;
- hilvl = Other.p_level;
- strcpy(nxtname, hiname);
- strcpy(hiname, Other.p_name);
- }
- else if (Other.p_experience > nxtexp
- && Other.p_specialtype <= SC_KING
- && Other.p_status != S_NOTUSED)
- /* next highest found so far */
- {
- nxtexp = Other.p_experience;
- nxtlvl = Other.p_level;
- strcpy(nxtname, Other.p_name);
- }
-
- mvaddstr(15, 28, "Highest characters are:");
- sprintf(Databuf, "%s Level:%.0f and %s Level:%.0f",
- hiname, hilvl, nxtname, nxtlvl);
- mvaddstr(17, 40 - strlen(Databuf) / 2, Databuf);
-
- /* print last to die */
- if ((fp = fopen(_PATH_LASTDEAD,"r")) != NULL
- && fgets(Databuf, SZ_DATABUF, fp) != NULL)
- {
- mvaddstr(19, 25, "The last character to die was:");
- mvaddstr(20, 40 - strlen(Databuf) / 2,Databuf);
- fclose(fp);
+ if (!kingfound)
+ mvaddstr(4, 24, "There is no ruler at this time.");
+
+ /* search for valar */
+ fseek(Playersfp, 0L, SEEK_SET);
+ while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+ if (Other.p_specialtype == SC_VALAR && Other.p_status != S_NOTUSED)
+ /* found the valar */
+ {
+ snprintf(Databuf, SZ_DATABUF,
+ "The Valar is %s Login: %s",
+ Other.p_name, Other.p_login);
+ mvaddstr(6, 40 - strlen(Databuf) / 2, Databuf);
+ break;
+ }
+ /* search for council of the wise */
+ fseek(Playersfp, 0L, SEEK_SET);
+ Lines = 10;
+ while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+ if (Other.p_specialtype == SC_COUNCIL && Other.p_status != S_NOTUSED)
+ /* found a member of the council */
+ {
+ if (!councilfound) {
+ mvaddstr(8, 30, "Council of the Wise:");
+ councilfound = TRUE;
+ }
+ /* This assumes a finite (<=5) number of C.O.W.: */
+ snprintf(Databuf, SZ_DATABUF,
+ "%s Login: %s", Other.p_name, Other.p_login);
+ mvaddstr(Lines++, 40 - strlen(Databuf) / 2, Databuf);
+ }
+ /* search for the two highest players */
+ nxtname[0] = hiname[0] = '\0';
+ hiexp = 0.0;
+ nxtlvl = hilvl = 0;
+
+ fseek(Playersfp, 0L, SEEK_SET);
+ while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+ if (Other.p_experience > hiexp && Other.p_specialtype <= SC_KING && Other.p_status != S_NOTUSED)
+ /* highest found so far */
+ {
+ nxtexp = hiexp;
+ hiexp = Other.p_experience;
+ nxtlvl = hilvl;
+ hilvl = Other.p_level;
+ strcpy(nxtname, hiname);
+ strcpy(hiname, Other.p_name);
+ } else
+ if (Other.p_experience > nxtexp
+ && Other.p_specialtype <= SC_KING
+ && Other.p_status != S_NOTUSED)
+ /* next highest found so far */
+ {
+ nxtexp = Other.p_experience;
+ nxtlvl = Other.p_level;
+ strcpy(nxtname, Other.p_name);
+ }
+ mvaddstr(15, 28, "Highest characters are:");
+ snprintf(Databuf, SZ_DATABUF,
+ "%s Level:%.0f and %s Level:%.0f",
+ hiname, hilvl, nxtname, nxtlvl);
+ mvaddstr(17, 40 - strlen(Databuf) / 2, Databuf);
+
+ /* print last to die */
+ if ((fp = fopen(_PATH_LASTDEAD, "r")) != NULL
+ && fgets(Databuf, SZ_DATABUF, fp) != NULL) {
+ mvaddstr(19, 25, "The last character to die was:");
+ mvaddstr(20, 40 - strlen(Databuf) / 2, Databuf);
}
-
- refresh();
+ if (fp)
+ fclose(fp);
+ refresh();
}
-/*\f*/
-/************************************************************************
-/
-/ FUNCTION NAME: recallplayer()
-/
-/ FUNCTION: find a character on file
-/
-/ AUTHOR: E. A. Estes, 12/4/85
-/
-/ ARGUMENTS: none
-/
-/ RETURN VALUE: none
-/
-/ MODULES CALLED: writerecord(), truncstring(), more(), death(), wmove(),
-/ wclear(), strcmp(), printw(), cleanup(), waddstr(), findname(), mvprintw(),
-/ getanswer(), getstring()
-/
-/ GLOBAL INPUTS: Player, *stdscr, Databuf[]
-/
-/ GLOBAL OUTPUTS: Echo, Player
-/
-/ DESCRIPTION:
-/ Search for a character of a certain name, and check password.
-/
-/************************************************************************/
-
-long
-recallplayer()
+
+static long
+recallplayer(void)
{
-long loc = 0L; /* location in player file */
-register int loop; /* loop counter */
-int ch; /* input */
+ long loc = 0L; /* location in player file */
+ int loop; /* loop counter */
+ int ch; /* input */
- clear();
- mvprintw(10, 0, "What was your character's name ? ");
- getstring(Databuf, SZ_NAME);
- truncstring(Databuf);
+ clear();
+ mvprintw(10, 0, "What was your character's name ? ");
+ getstring(Databuf, SZ_NAME);
+ truncstring(Databuf);
- if ((loc = findname(Databuf, &Player)) >= 0L)
- /* found character */
+ if ((loc = findname(Databuf, &Player)) >= 0L)
+ /* found character */
{
- Echo = FALSE;
-
- for (loop = 0; loop < 2; ++loop)
- {
- /* prompt for password */
- mvaddstr(11, 0, "Password ? ");
- getstring(Databuf, SZ_PASSWORD);
- if (strcmp(Databuf, Player.p_password) == 0)
- /* password good */
- {
- Echo = TRUE;
-
- if (Player.p_status != S_OFF)
- /* player did not exit normally last time */
- {
- clear();
- addstr("Your character did not exit normally last time.\n");
- addstr("If you think you have good cause to have your character saved,\n");
- printw("you may quit and mail your reason to 'root'.\n");
- addstr("Otherwise, continuing spells certain death.\n");
- addstr("Do you want to quit ? ");
- ch = getanswer("YN", FALSE);
- if (ch == 'Y')
+ Echo = FALSE;
+
+ for (loop = 0; loop < 2; ++loop) {
+ /* prompt for password */
+ mvaddstr(11, 0, "Password ? ");
+ getstring(Databuf, SZ_PASSWORD);
+ if (strcmp(Databuf, Player.p_password) == 0)
+ /* password good */
{
- Player.p_status = S_HUNGUP;
- writerecord(&Player, loc);
- cleanup(TRUE);
- /*NOTREACHED*/
- }
- death("Stupidity");
- /*NOTREACHED*/
- }
- return(loc);
+ Echo = TRUE;
+
+ if (Player.p_status != S_OFF)
+ /* player did not exit normally last
+ * time */
+ {
+ clear();
+ addstr("Your character did not exit normally last time.\n");
+ addstr("If you think you have good cause to have your character saved,\n");
+ printw("you may quit and mail your reason to 'root'.\n");
+ addstr("Otherwise, continuing spells certain death.\n");
+ addstr("Do you want to quit ? ");
+ ch = getanswer("YN", FALSE);
+ if (ch == 'Y') {
+ Player.p_status = S_HUNGUP;
+ writerecord(&Player, loc);
+ cleanup(TRUE);
+ /* NOTREACHED */
+ }
+ death("Stupidity");
+ /* NOTREACHED */
+ }
+ return (loc);
+ } else
+ mvaddstr(12, 0, "No good.\n");
}
- else
- mvaddstr(12, 0, "No good.\n");
- }
- Echo = TRUE;
- }
- else
- mvaddstr(11, 0, "Not found.\n");
+ Echo = TRUE;
+ } else
+ mvaddstr(11, 0, "Not found.\n");
- more(13);
- return(-1L);
+ more(13);
+ return (-1L);
}
-/*\f*/
-/************************************************************************
-/
-/ FUNCTION NAME: neatstuff()
-/
-/ FUNCTION: do random stuff
-/
-/ AUTHOR: E. A. Estes, 3/3/86
-/
-/ ARGUMENTS: none
-/
-/ RETURN VALUE: none
-/
-/ MODULES CALLED: collecttaxes(), floor(), wmove(), drandom(), infloat(),
-/ waddstr(), mvprintw(), getanswer()
-/
-/ GLOBAL INPUTS: Player, *stdscr, *Statptr
-/
-/ GLOBAL OUTPUTS: Player
-/
-/ DESCRIPTION:
-/ Handle gurus, medics, etc.
-/
-/************************************************************************/
-
-neatstuff()
+
+static void
+neatstuff(void)
{
-double temp; /* for temporary calculations */
-int ch; /* input */
+ double temp; /* for temporary calculations */
+ int ch; /* input */
- switch ((int) ROLL(0.0, 100.0))
- {
+ switch ((int) ROLL(0.0, 100.0)) {
case 1:
case 2:
- if (Player.p_poison > 0.0)
- {
- mvaddstr(4, 0, "You've found a medic! How much will you offer to be cured ? ");
- temp = floor(infloat());
- if (temp < 0.0 || temp > Player.p_gold)
- /* negative gold, or more than available */
- {
- mvaddstr(6, 0, "He was not amused, and made you worse.\n");
- Player.p_poison += 1.0;
- }
- else if (drandom() / 2.0 > (temp + 1.0) / MAX(Player.p_gold, 1))
- /* medic wants 1/2 of available gold */
- mvaddstr(5, 0, "Sorry, he wasn't interested.\n");
- else
- {
- mvaddstr(5, 0, "He accepted.");
- Player.p_poison = MAX(0.0, Player.p_poison - 1.0);
- Player.p_gold -= temp;
- }
+ if (Player.p_poison > 0.0) {
+ mvaddstr(4, 0, "You've found a medic! How much will you offer to be cured ? ");
+ temp = floor(infloat());
+ if (temp < 0.0 || temp > Player.p_gold)
+ /* negative gold, or more than available */
+ {
+ mvaddstr(6, 0, "He was not amused, and made you worse.\n");
+ Player.p_poison += 1.0;
+ } else
+ if (drandom() / 2.0 > (temp + 1.0) / MAX(Player.p_gold, 1))
+ /* medic wants 1/2 of available gold */
+ mvaddstr(5, 0, "Sorry, he wasn't interested.\n");
+ else {
+ mvaddstr(5, 0, "He accepted.");
+ Player.p_poison = MAX(0.0, Player.p_poison - 1.0);
+ Player.p_gold -= temp;
+ }
}
- break;
+ break;
case 3:
- mvaddstr(4, 0, "You've been caught raping and pillaging!\n");
- Player.p_experience += 4000.0;
- Player.p_sin += 0.5;
- break;
+ mvaddstr(4, 0, "You've been caught raping and pillaging!\n");
+ Player.p_experience += 4000.0;
+ Player.p_sin += 0.5;
+ break;
case 4:
- temp = ROLL(10.0, 75.0);
- mvprintw(4, 0, "You've found %.0f gold pieces, want them ? ", temp);
- ch = getanswer("NY", FALSE);
+ temp = ROLL(10.0, 75.0);
+ mvprintw(4, 0, "You've found %.0f gold pieces, want them ? ", temp);
+ ch = getanswer("NY", FALSE);
- if (ch == 'Y')
- collecttaxes(temp, 0.0);
- break;
+ if (ch == 'Y')
+ collecttaxes(temp, 0.0);
+ break;
case 5:
- if (Player.p_sin > 1.0)
- {
- mvaddstr(4, 0, "You've found a Holy Orb!\n");
- Player.p_sin -= 0.25;
+ if (Player.p_sin > 1.0) {
+ mvaddstr(4, 0, "You've found a Holy Orb!\n");
+ Player.p_sin -= 0.25;
}
- break;
+ break;
case 6:
- if (Player.p_poison < 1.0)
- {
- mvaddstr(4, 0, "You've been hit with a plague!\n");
- Player.p_poison += 1.0;
+ if (Player.p_poison < 1.0) {
+ mvaddstr(4, 0, "You've been hit with a plague!\n");
+ Player.p_poison += 1.0;
}
- break;
+ break;
case 7:
- mvaddstr(4, 0, "You've found some holy water.\n");
- ++Player.p_holywater;
- break;
+ mvaddstr(4, 0, "You've found some holy water.\n");
+ ++Player.p_holywater;
+ break;
case 8:
- mvaddstr(4, 0, "You've met a Guru. . .");
- if (drandom() * Player.p_sin > 1.0)
- addstr("You disgusted him with your sins!\n");
- else if (Player.p_poison > 0.0)
- {
- addstr("He looked kindly upon you, and cured you.\n");
- Player.p_poison = 0.0;
- }
- else
- {
- addstr("He rewarded you for your virtue.\n");
- Player.p_mana += 50.0;
- Player.p_shield += 2.0;
- }
- break;
+ mvaddstr(4, 0, "You've met a Guru. . .");
+ if (drandom() * Player.p_sin > 1.0)
+ addstr("You disgusted him with your sins!\n");
+ else
+ if (Player.p_poison > 0.0) {
+ addstr("He looked kindly upon you, and cured you.\n");
+ Player.p_poison = 0.0;
+ } else {
+ addstr("He rewarded you for your virtue.\n");
+ Player.p_mana += 50.0;
+ Player.p_shield += 2.0;
+ }
+ break;
case 9:
- mvaddstr(4, 0, "You've found an amulet.\n");
- ++Player.p_amulets;
- break;
+ mvaddstr(4, 0, "You've found an amulet.\n");
+ ++Player.p_amulets;
+ break;
case 10:
- if (Player.p_blindness)
- {
- mvaddstr(4, 0, "You've regained your sight!\n");
- Player.p_blindness = FALSE;
+ if (Player.p_blindness) {
+ mvaddstr(4, 0, "You've regained your sight!\n");
+ Player.p_blindness = FALSE;
}
- break;
+ break;
- default: /* deal with poison */
- if (Player.p_poison > 0.0)
- {
- temp = Player.p_poison * Statptr->c_weakness
- * Player.p_maxenergy / 600.0;
- if (Player.p_energy > Player.p_maxenergy / 10.0
- && temp + 5.0 < Player.p_energy)
- Player.p_energy -= temp;
+ default: /* deal with poison */
+ if (Player.p_poison > 0.0) {
+ temp = Player.p_poison * Statptr->c_weakness
+ * Player.p_maxenergy / 600.0;
+ if (Player.p_energy > Player.p_maxenergy / 10.0
+ && temp + 5.0 < Player.p_energy)
+ Player.p_energy -= temp;
}
- break;
+ break;
}
}
-/*\f*/
-/************************************************************************
-/
-/ FUNCTION NAME: genchar()
-/
-/ FUNCTION: generate a random character
-/
-/ AUTHOR: E. A. Estes, 12/4/85
-/
-/ ARGUMENTS:
-/ int type - ASCII value of character type to generate
-/
-/ RETURN VALUE: none
-/
-/ MODULES CALLED: floor(), drandom()
-/
-/ GLOBAL INPUTS: Wizard, Player, Stattable[]
-/
-/ GLOBAL OUTPUTS: Player
-/
-/ DESCRIPTION:
-/ Use the lookup table for rolling stats.
-/
-/************************************************************************/
-
-genchar(type)
-int type;
+
+static void
+genchar(int type)
{
-register int subscript; /* used for subscripting into Stattable */
-register struct charstats *statptr;/* for pointing into Stattable */
-
- subscript = type - '1';
-
- if (subscript < C_MAGIC || subscript > C_EXPER)
- if (subscript != C_SUPER || !Wizard)
- /* fighter is default */
- subscript = C_FIGHTER;
-
- statptr = &Stattable[subscript];
-
- Player.p_quickness =
- ROLL(statptr->c_quickness.base, statptr->c_quickness.interval);
- Player.p_strength =
- ROLL(statptr->c_strength.base, statptr->c_strength.interval);
- Player.p_mana =
- ROLL(statptr->c_mana.base, statptr->c_mana.interval);
- Player.p_maxenergy =
- Player.p_energy =
- ROLL(statptr->c_energy.base, statptr->c_energy.interval);
- Player.p_brains =
- ROLL(statptr->c_brains.base, statptr->c_brains.interval);
- Player.p_magiclvl =
- ROLL(statptr->c_magiclvl.base, statptr->c_magiclvl.interval);
-
- Player.p_type = subscript;
-
- if (Player.p_type == C_HALFLING)
- /* give halfling some experience */
- Player.p_experience = ROLL(600.0, 200.0);
+ int subscript; /* used for subscripting into Stattable */
+ const struct charstats *statptr; /* for pointing into Stattable */
+
+ subscript = type - '1';
+
+ if (subscript < C_MAGIC || subscript > C_EXPER)
+ if (subscript != C_SUPER || !Wizard)
+ /* fighter is default */
+ subscript = C_FIGHTER;
+
+ statptr = &Stattable[subscript];
+
+ Player.p_quickness =
+ ROLL(statptr->c_quickness.base, statptr->c_quickness.interval);
+ Player.p_strength =
+ ROLL(statptr->c_strength.base, statptr->c_strength.interval);
+ Player.p_mana =
+ ROLL(statptr->c_mana.base, statptr->c_mana.interval);
+ Player.p_maxenergy =
+ Player.p_energy =
+ ROLL(statptr->c_energy.base, statptr->c_energy.interval);
+ Player.p_brains =
+ ROLL(statptr->c_brains.base, statptr->c_brains.interval);
+ Player.p_magiclvl =
+ ROLL(statptr->c_magiclvl.base, statptr->c_magiclvl.interval);
+
+ Player.p_type = subscript;
+
+ if (Player.p_type == C_HALFLING)
+ /* give halfling some experience */
+ Player.p_experience = ROLL(600.0, 200.0);
}
-/*\f*/
-/************************************************************************
-/
-/ FUNCTION NAME: playinit()
-/
-/ FUNCTION: initialize for playing game
-/
-/ AUTHOR: E. A. Estes, 12/4/85
-/
-/ ARGUMENTS: none
-/
-/ RETURN VALUE: none
-/
-/ MODULES CALLED: signal(), wclear(), noecho(), crmode(), initscr(),
-/ wrefresh()
-/
-/ GLOBAL INPUTS: *stdscr, ill_sig()
-/
-/ GLOBAL OUTPUTS: Windows
-/
-/ DESCRIPTION:
-/ Catch a bunch of signals, and turn on curses stuff.
-/
-/************************************************************************/
-
-playinit()
+
+static void
+playinit(void)
{
- /* catch/ingnore signals */
+ /* catch/ingnore signals */
#ifdef BSD41
- sigignore(SIGQUIT);
- sigignore(SIGALRM);
- sigignore(SIGTERM);
- sigignore(SIGTSTP);
- sigignore(SIGTTIN);
- sigignore(SIGTTOU);
- sighold(SIGINT);
- sigset(SIGHUP, ill_sig);
- sigset(SIGTRAP, ill_sig);
- sigset(SIGIOT, ill_sig);
- sigset(SIGEMT, ill_sig);
- sigset(SIGFPE, ill_sig);
- sigset(SIGBUS, ill_sig);
- sigset(SIGSEGV, ill_sig);
- sigset(SIGSYS, ill_sig);
- sigset(SIGPIPE, ill_sig);
+ sigignore(SIGQUIT);
+ sigignore(SIGALRM);
+ sigignore(SIGTERM);
+ sigignore(SIGTSTP);
+ sigignore(SIGTTIN);
+ sigignore(SIGTTOU);
+ sighold(SIGINT);
+ sigset(SIGHUP, ill_sig);
+ sigset(SIGTRAP, ill_sig);
+ sigset(SIGIOT, ill_sig);
+ sigset(SIGEMT, ill_sig);
+ sigset(SIGFPE, ill_sig);
+ sigset(SIGBUS, ill_sig);
+ sigset(SIGSEGV, ill_sig);
+ sigset(SIGSYS, ill_sig);
+ sigset(SIGPIPE, ill_sig);
#endif
#ifdef BSD42
- signal(SIGQUIT, ill_sig);
- signal(SIGALRM, SIG_IGN);
- signal(SIGTERM, SIG_IGN);
- signal(SIGTSTP, SIG_IGN);
- signal(SIGTTIN, SIG_IGN);
- signal(SIGTTOU, SIG_IGN);
- signal(SIGINT, ill_sig);
- signal(SIGHUP, SIG_DFL);
- signal(SIGTRAP, ill_sig);
- signal(SIGIOT, ill_sig);
- signal(SIGEMT, ill_sig);
- signal(SIGFPE, ill_sig);
- signal(SIGBUS, ill_sig);
- signal(SIGSEGV, ill_sig);
- signal(SIGSYS, ill_sig);
- signal(SIGPIPE, ill_sig);
+ signal(SIGQUIT, ill_sig);
+ signal(SIGALRM, SIG_IGN);
+ signal(SIGTERM, SIG_IGN);
+ signal(SIGTSTP, SIG_IGN);
+ signal(SIGTTIN, SIG_IGN);
+ signal(SIGTTOU, SIG_IGN);
+ signal(SIGINT, ill_sig);
+ signal(SIGHUP, SIG_DFL);
+ signal(SIGTRAP, ill_sig);
+ signal(SIGIOT, ill_sig);
+ signal(SIGEMT, ill_sig);
+ signal(SIGFPE, ill_sig);
+ signal(SIGBUS, ill_sig);
+ signal(SIGSEGV, ill_sig);
+ signal(SIGSYS, ill_sig);
+ signal(SIGPIPE, ill_sig);
#endif
#ifdef SYS3
- signal(SIGINT, SIG_IGN);
- signal(SIGQUIT, SIG_IGN);
- signal(SIGTERM, SIG_IGN);
- signal(SIGALRM, SIG_IGN);
- signal(SIGHUP, ill_sig);
- signal(SIGTRAP, ill_sig);
- signal(SIGIOT, ill_sig);
- signal(SIGEMT, ill_sig);
- signal(SIGFPE, ill_sig);
- signal(SIGBUS, ill_sig);
- signal(SIGSEGV, ill_sig);
- signal(SIGSYS, ill_sig);
- signal(SIGPIPE, ill_sig);
+ signal(SIGINT, SIG_IGN);
+ signal(SIGQUIT, SIG_IGN);
+ signal(SIGTERM, SIG_IGN);
+ signal(SIGALRM, SIG_IGN);
+ signal(SIGHUP, ill_sig);
+ signal(SIGTRAP, ill_sig);
+ signal(SIGIOT, ill_sig);
+ signal(SIGEMT, ill_sig);
+ signal(SIGFPE, ill_sig);
+ signal(SIGBUS, ill_sig);
+ signal(SIGSEGV, ill_sig);
+ signal(SIGSYS, ill_sig);
+ signal(SIGPIPE, ill_sig);
#endif
#ifdef SYS5
- signal(SIGINT, SIG_IGN);
- signal(SIGQUIT, SIG_IGN);
- signal(SIGTERM, SIG_IGN);
- signal(SIGALRM, SIG_IGN);
- signal(SIGHUP, ill_sig);
- signal(SIGTRAP, ill_sig);
- signal(SIGIOT, ill_sig);
- signal(SIGEMT, ill_sig);
- signal(SIGFPE, ill_sig);
- signal(SIGBUS, ill_sig);
- signal(SIGSEGV, ill_sig);
- signal(SIGSYS, ill_sig);
- signal(SIGPIPE, ill_sig);
+ signal(SIGINT, SIG_IGN);
+ signal(SIGQUIT, SIG_IGN);
+ signal(SIGTERM, SIG_IGN);
+ signal(SIGALRM, SIG_IGN);
+ signal(SIGHUP, ill_sig);
+ signal(SIGTRAP, ill_sig);
+ signal(SIGIOT, ill_sig);
+ signal(SIGEMT, ill_sig);
+ signal(SIGFPE, ill_sig);
+ signal(SIGBUS, ill_sig);
+ signal(SIGSEGV, ill_sig);
+ signal(SIGSYS, ill_sig);
+ signal(SIGPIPE, ill_sig);
#endif
- initscr(); /* turn on curses */
- noecho(); /* do not echo input */
- crmode(); /* do not process erase, kill */
- clear();
- refresh();
- Windows = TRUE; /* mark the state */
+ if (!initscr()) { /* turn on curses */
+ fprintf(stderr, "couldn't initialize screen\n");
+ exit (0);
+ }
+ noecho(); /* do not echo input */
+ cbreak(); /* do not process erase, kill */
+ clear();
+ refresh();
+ Windows = TRUE; /* mark the state */
}
-/*\f*/
-/************************************************************************
-/
-/ FUNCTION NAME: cleanup()
-/
-/ FUNCTION: close some files, and maybe exit
-/
-/ AUTHOR: E. A. Estes, 12/4/85
-/
-/ ARGUMENTS:
-/ bool doexit - exit flag
-/
-/ RETURN VALUE: none
-/
-/ MODULES CALLED: exit(), wmove(), fclose(), endwin(), nocrmode(), wrefresh()
-/
-/ GLOBAL INPUTS: *Energyvoidfp, LINES, *stdscr, Windows, *Monstfp,
-/ *Messagefp, *Playersfp
-/
-/ GLOBAL OUTPUTS: none
-/
-/ DESCRIPTION:
-/ Close all open files. If we are "in curses" terminate curses.
-/ If 'doexit' is set, exit, otherwise return.
-/
-/************************************************************************/
-
-cleanup(doexit)
-bool doexit;
+void
+cleanup(int doexit)
{
- if (Windows)
- {
- move(LINES - 2, 0);
- refresh();
- nocrmode();
- endwin();
+ if (Windows) {
+ move(LINES - 2, 0);
+ refresh();
+ nocbreak();
+ endwin();
}
-
- fclose(Playersfp);
- fclose(Monstfp);
- fclose(Messagefp);
- fclose(Energyvoidfp);
-
- if (doexit)
- exit(0);
- /*NOTREACHED*/
+ if (Playersfp)
+ fclose(Playersfp);
+ if (Monstfp)
+ fclose(Monstfp);
+ if (Messagefp)
+ fclose(Messagefp);
+ if (Energyvoidfp)
+ fclose(Energyvoidfp);
+
+ if (doexit)
+ exit(0);
+ /* NOTREACHED */
}
git.ckatri.com / bsdgames-darwin.git / blobdiff