/*	$NetBSD: main.c,v 1.23 2009/08/31 08:27:16 dholland Exp $	*/

/*
 * Phantasia 3.3.2 -- Interterminal fantasy game
 *
 * Edward A. Estes
 * AT&T, March 12, 1986
 */

/* DISCLAIMER:
 *
 * This game is distributed for free as is.  It is not guaranteed to work
 * in every conceivable environment.  It is not even guaranteed to work
 * in ANY environment.
 *
 * This game is distributed without notice of copyright, therefore it
 * may be used in any manner the recipient sees fit.  However, the
 * author assumes no responsibility for maintaining or revising this
 * game, in its original form, or any derivitives thereof.
 *
 * The author shall not be responsible for any loss, cost, or damage,
 * including consequential damage, caused by reliance on this material.
 *
 * The author makes no warranties, express or implied, including warranties
 * of merchantability or fitness for a particular purpose or use.
 *
 * AT&T is in no way connected with this game.
 */

#include <sys/types.h>
#include <pwd.h>
#include <string.h>

/*
 * The program allocates as much file space as it needs to store characters,
 * so the possibility exists for the character file to grow without bound.
 * The file is purged upon normal entry to try to avoid that problem.
 * A similar problem exists for energy voids.  To alleviate the problem here,
 * the void file is cleared with every new king, and a limit is placed
 * on the size of the energy void file.
 */

/*
 * The scoreboard file is updated when someone dies, and keeps track
 * of the highest character to date for that login.
 * Being purged from the character file does not cause the scoreboard
 * to be updated.
 */


#include "include.h"

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);

static void __dead2
cleanup_dead(void)
{
	cleanup(TRUE);
	exit(0);
}

/*
 * FUNCTION: initialize state, and call main process
 *
 * 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.
 */

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_dead();
			/* NOTREACHED */

		case 'p':	/* purge old players */
			purgeoldplayers();
			cleanup_dead();
			/* NOTREACHED */

		case 'S':	/* set 'Wizard' */
			Wizard = !getuid();
			break;

		case 'x':	/* examine */
			examine = TRUE;
			break;

		case 'm':	/* monsters */
			monstlist();
			cleanup_dead();
			/* NOTREACHED */

		case 'b':	/* scoreboard */
			scorelist();
			cleanup_dead();
			/* NOTREACHED */
		}

	if (!isatty(0))		/* don't let non-tty's play */
		cleanup(TRUE);
	/* NOTREACHED */

	playinit();		/* set up to catch signals, init curses */

	if (examine) {
		changestats(FALSE);
		cleanup(TRUE);
		/* NOTREACHED */
	}

	if (!noheader) {
		titlelist();
		purgeoldplayers();	/* clean up old characters */
	}

	if (headeronly)
		cleanup(TRUE);
	/* NOTREACHED */

	do {
		/* get the player structure filled */
		Fileloc = -1L;

		mvaddstr(22, 17, "Do you have a character to run [Q = Quit] ? ");

		switch (getanswer("NYQ", FALSE)) {
		case 'Y':
			Fileloc = recallplayer();
			break;

		case 'Q':
			cleanup_dead();
			/* NOTREACHED */

		default:
			Fileloc = rollnewplayer();
			break;
		}
		clear();
	} while (Fileloc < 0L);

	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);

	Statptr = &Stattable[Player.p_type];	/* initialize pointer */

	/* catch interrupts */
#ifdef  BSD41
	sigset(SIGINT, interrupt);
#endif
#ifdef  BSD42
	signal(SIGINT, interrupt);
#endif
#ifdef  SYS3
	signal(SIGINT, interrupt);
#endif
#ifdef  SYS5
	signal(SIGINT, interrupt);
#endif

	altercoordinates(Player.p_x, Player.p_y, A_FORCED);	/* set some flags */

	clear();

	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 */
				tradingpost();
				clear();
			}
		}

		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_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 */
	}
}

/*
 * FUNCTION: initialize some important global variable
 *
 * 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.
 */

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 */

	srandomdev();
}

/*
 * FUNCTION: roll up a new character
 *
 * GLOBAL INPUTS: Other, Wizard, Player, *stdscr, Databuf[]
 *
 * GLOBAL OUTPUTS: Echo
 *
 * DESCRIPTION:
 *	Prompt player, and roll up new character.
 */

static long
rollnewplayer(void)
{
	int chartype;		/* character type */
	int ch;			/* input */

	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);
	}

	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);

		if (Player.p_type == C_EXPER || Player.p_type == C_SUPER)
			break;

		mvaddstr(14, 14, "Type '1' to keep >");
		ch = getanswer(" ", TRUE);
	} 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;
		}

	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");
	}

	/* 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);
	} while (strcmp(Player.p_password, Databuf) != 0);

	Echo = TRUE;

	return (allocrecord());
}

/*
 * FUNCTION: process input from player
 *
 * GLOBAL INPUTS: Circle, Illcmd[], Throne, Wizard, Player, *stdscr,
 *	Databuf[], Illmove[]
 *
 * GLOBAL OUTPUTS: Player, Changed
 *
 * DESCRIPTION:
 *	Process main menu options.
 */

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 */
	int loop;		/* a loop counter */
	bool hasmoved = FALSE;	/* set if player has moved */

	ch = inputoption();
	mvaddstr(4, 0, "\n\n");	/* clear status area */

	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 = ' ';

	switch (ch) {
	case 'K':		/* move up/north */
	case 'N':
		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;

	case 'L':		/* move right/east */
	case 'E':
		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);

		if (Player.p_status != S_CLOAKED) {
			/* cannot find mana if cloaked */
			Player.p_mana += (Circle + Player.p_level) / 4.0;

			if (drandom() < 0.2 && Player.p_status == S_PLAYING && !Throne)
				/* wandering monster */
				encounter(-1);
		}
		break;

	case 'X':		/* change/examine a character */
		changestats(TRUE);
		break;

	case '1':		/* move */
		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;
			}
		}
		break;

	case '2':		/* players */
		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;

	case '4':		/* stats */
		allstatslist();
		break;

	case '5':		/* good-bye */
		leavegame();
		/* 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();
					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;

	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;

	case '0':		/* decree */
		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 (hasmoved) {
		/* player has moved -- alter coordinates, and do random monster */
		altercoordinates(x, y, A_SPECIFIC);

		if (drandom() < 0.2 && Player.p_status == S_PLAYING && !Throne)
			encounter(-1);
	}
}

/*
 * FUNCTION: print title page
 *
 * GLOBAL INPUTS: Lines, Other, *stdscr, Databuf[], *Playersfp
 *
 * GLOBAL OUTPUTS: Lines
 *
 * DESCRIPTION:
 *	Print important information about game, players, etc.
 */

static void
titlelist(void)
{
	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, 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 */
			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, 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 */
			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, 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.: */
			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, 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:");
	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);
	}

	refresh();
}

/*
 * FUNCTION: find a character on file
 *
 * GLOBAL INPUTS: Player, *stdscr, Databuf[]
 *
 * GLOBAL OUTPUTS: Echo, Player
 *
 * DESCRIPTION:
 *	Search for a character of a certain name, and check password.
 */

static long
recallplayer(void)
{
	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);

	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') {
						Player.p_status = S_HUNGUP;
						writerecord(&Player, loc);
						cleanup(TRUE);
						/* NOTREACHED */
					}
					death("Stupidity");
					/* NOTREACHED */
				}
				return (loc);
			} else
				mvaddstr(12, 0, "No good.\n");
		}

		Echo = TRUE;
	} else
		mvaddstr(11, 0, "Not found.\n");

	more(13);
	return (-1L);
}

/*
 * FUNCTION: do random stuff
 *
 * GLOBAL INPUTS: Player, *stdscr, *Statptr
 *
 * GLOBAL OUTPUTS: Player
 *
 * DESCRIPTION:
 *	Handle gurus, medics, etc.
 */

static void
neatstuff(void)
{
	double temp;	/* for temporary calculations */
	int ch;		/* input */

	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;
			}
		}
		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;

	case 4:
		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;

	case 5:
		if (Player.p_sin > 1.0) {
			mvaddstr(4, 0, "You've found a Holy Orb!\n");
			Player.p_sin -= 0.25;
		}
		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;
		}
		break;

	case 7:
		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;

	case 9:
		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;
		}
		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;
		}
		break;
	}
}

/*
 * FUNCTION: generate a random character
 *
 * ARGUMENTS:
 *	int type - ASCII value of character type to generate
 *
 * GLOBAL INPUTS: Wizard, Player, Stattable[]
 *
 * GLOBAL OUTPUTS: Player
 *
 * DESCRIPTION:
 *	Use the lookup table for rolling stats.
 */

static void
genchar(int type)
{
	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);
}

/*
 * FUNCTION: initialize for playing game
 *
 * GLOBAL INPUTS: *stdscr, ill_sig()
 *
 * GLOBAL OUTPUTS: Windows
 *
 * DESCRIPTION:
 *	Catch a bunch of signals, and turn on curses stuff.
 */

static void
playinit(void)
{
	/* 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);
#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);
#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);
#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);
#endif

	initscr();		/* turn on curses */
	noecho();		/* do not echo input */
	cbreak();		/* do not process erase, kill */
	clear();
	refresh();
	Windows = TRUE;		/* mark the state */
}


/*
 * FUNCTION: close some files, and maybe exit
 *
 * ARGUMENTS:
 *	bool doexit - exit flag
 *
 * GLOBAL INPUTS: *Energyvoidfp, LINES, *stdscr, Windows, *Monstfp,
 *	*Messagefp, *Playersfp
 *
 * DESCRIPTION:
 *	Close all open files.  If we are "in curses" terminate curses.
 *	If 'doexit' is set, exit, otherwise return.
 */

void
cleanup(bool doexit)
{
	if (Windows) {
		move(LINES - 2, 0);
		refresh();
		nocbreak();
		endwin();
	}
	if (Playersfp) {
		fclose(Playersfp);
		Playersfp = NULL;
	}
	if (Monstfp) {
		fclose(Monstfp);
		Monstfp = NULL;
	}
	if (Messagefp) {
		fclose(Messagefp);
		Messagefp = NULL;
	}
	if (Energyvoidfp) {
		fclose(Energyvoidfp);
		Energyvoidfp = NULL;
	}

	if (doexit)
		exit(0);
	/* NOTREACHED */
}