[unix-history] / usr / src / games / phantasia / gamesupport.c

/*
 * gamesupport.c - auxiliary routines for support of Phantasia
 */

#include "include.h"

/************************************************************************
/
/ FUNCTION NAME: changestats()
/
/ FUNCTION: examine/change statistics for a player
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS:
/	bool ingameflag - set if called while playing game (Wizard only)
/
/ RETURN VALUE: none
/
/ MODULES CALLED: freerecord(), writerecord(), descrstatus(), truncstring(), 
/	time(), more(), wmove(), wclear(), strcmp(), printw(), strcpy(), 
/	infloat(), waddstr(), cleanup(), findname(), userlist(), mvprintw(), 
/	localtime(), getanswer(), descrtype(), getstring()
/
/ GLOBAL INPUTS: LINES, *Login, Other, Wizard, Player, *stdscr, Databuf[], 
/	Fileloc
/
/ GLOBAL OUTPUTS: Echo
/
/ DESCRIPTION:
/	Prompt for player name to examine/change.
/	If the name is NULL, print a list of all players.
/	If we are called from within the game, check for the
/	desired name being the same as the current player's name.
/	Only the 'Wizard' may alter players.
/	Items are changed only if a non-zero value is specified.
/	To change an item to 0, use 0.1; it will be truncated later.
/
/	Players may alter their names and passwords, if the following
/	are true:
/	    - current login matches the character's logins
/	    - the password is known
/	    - the player is not in the middle of the game (ingameflag == FALSE)
/
/	The last condition is imposed for two reasons:
/	    - the game could possibly get a bit hectic if a player were
/	      continually changing his/her name
/	    - another player structure would be necessary to check for names
/	      already in use
/
/************************************************************************/

changestats(ingameflag)
bool	ingameflag;
{
static char	flag[2] = /* for printing values of bools */
	{'F', 'T'};
register struct player	*playerp;/* pointer to structure to alter */
register char	*prompt;	/* pointer to prompt string */
int	c;			/* input */
int	today;			/* day of year of today */
int	temp;			/* temporary variable */
long	loc;			/* location in player file */
long	now;			/* time now */
double	dtemp;			/* temporary variable */
bool	*bptr;			/* pointer to bool item to change */
double	*dptr;			/* pointer to double item to change */
short	*sptr;			/* pointer to short item to change */

    clear();

    for (;;)
	/* get name of player to examine/alter */
	{
	mvaddstr(5, 0, "Which character do you want to look at ? ");
	getstring(Databuf, SZ_DATABUF);
	truncstring(Databuf);

	if (Databuf[0] == '\0')
	    userlist(ingameflag);
	else
	    break;
	}

    loc = -1L;

    if (!ingameflag)
	/* use 'Player' structure */
	playerp = &Player;
    else if (strcmp(Databuf, Player.p_name) == 0)
	/* alter/examine current player */
	{
	playerp = &Player;
	loc = Fileloc;
	}
    else
	/* use 'Other' structure */
	playerp = &Other;

    /* find player on file */
    if (loc < 0L && (loc = findname(Databuf, playerp)) < 0L)
	/* didn't find player */
	{
	clear();
	mvaddstr(11, 0, "Not found.");
	return;
	}

    time(&now);
    today = localtime(&now)->tm_yday;

    clear();

    for (;;)
	/* print player structure, and prompt for action */
	{
	mvprintw(0, 0,"A:Name         %s\n", playerp->p_name);

	if (Wizard)
	    printw("B:Password     %s\n", playerp->p_password);
	else
	    addstr("B:Password     XXXXXXXX\n");

	printw(" :Login        %s\n", playerp->p_login);

	printw("C:Experience   %.0f\n", playerp->p_experience);
	printw("D:Level        %.0f\n", playerp->p_level);
	printw("E:Strength     %.0f\n", playerp->p_strength);
	printw("F:Sword        %.0f\n", playerp->p_sword);
	printw(" :Might        %.0f\n", playerp->p_might);
	printw("G:Energy       %.0f\n", playerp->p_energy);
	printw("H:Max-Energy   %.0f\n", playerp->p_maxenergy);
	printw("I:Shield       %.0f\n", playerp->p_shield);
	printw("J:Quickness    %.0f\n", playerp->p_quickness);
	printw("K:Quicksilver  %.0f\n", playerp->p_quksilver);
	printw(" :Speed        %.0f\n", playerp->p_speed);
	printw("L:Magic Level  %.0f\n", playerp->p_magiclvl);
	printw("M:Mana         %.0f\n", playerp->p_mana);
	printw("N:Brains       %.0f\n", playerp->p_brains);

	if (Wizard || playerp->p_specialtype != SC_VALAR)
	    mvaddstr(0, 40, descrstatus(playerp));

	mvprintw(1, 40, "O:Poison       %0.3f\n", playerp->p_poison);
	mvprintw(2, 40, "P:Gold         %.0f\n", playerp->p_gold);
	mvprintw(3, 40, "Q:Gem          %.0f\n", playerp->p_gems);
	mvprintw(4, 40, "R:Sin          %0.3f\n", playerp->p_sin);
	if (Wizard)
	    {
	    mvprintw(5, 40, "S:X-coord      %.0f\n", playerp->p_x);
	    mvprintw(6, 40, "T:Y-coord      %.0f\n", playerp->p_y);
	    }
	else
	    {
	    mvaddstr(5, 40, "S:X-coord      ?\n");
	    mvaddstr(6, 40, "T:Y-coord      ?\n");
	    }

	mvprintw(7, 40, "U:Age          %ld\n", playerp->p_age);
	mvprintw(8, 40, "V:Degenerated  %d\n", playerp->p_degenerated);

	mvprintw(9, 40, "W:Type         %d (%s)\n",
	    playerp->p_type, descrtype(playerp, FALSE) + 1);
	mvprintw(10, 40, "X:Special Type %d\n", playerp->p_specialtype);
	mvprintw(11, 40, "Y:Lives        %d\n", playerp->p_lives);
	mvprintw(12, 40, "Z:Crowns       %d\n", playerp->p_crowns);
	mvprintw(13, 40, "0:Charms       %d\n", playerp->p_charms);
	mvprintw(14, 40, "1:Amulets      %d\n", playerp->p_amulets);
	mvprintw(15, 40, "2:Holy Water   %d\n", playerp->p_holywater);

	temp = today - playerp->p_lastused;
	if (temp < 0)
	    /* last year */
	    temp += 365;
	mvprintw(16, 40, "3:Lastused     %d  (%d)\n", playerp->p_lastused,  temp);

	mvprintw(18, 8, "4:Palantir %c  5:Blessing %c  6:Virgin %c  7:Blind %c",
	    flag[playerp->p_palantir],
	    flag[playerp->p_blessing],
	    flag[playerp->p_virgin],
	    flag[playerp->p_blindness]);

	if (!Wizard)
	    mvprintw(19, 8, "8:Ring    %c",
		flag[playerp->p_ring.ring_type != R_NONE]);
	else
	    mvprintw(19, 8, "8:Ring    %d  9:Duration %d",
		playerp->p_ring.ring_type, playerp->p_ring.ring_duration);

	if (!Wizard
	    /* not wizard */
	    && (ingameflag || strcmp(Login, playerp->p_login) != 0))
	    /* in game or not examining own character */
	    {
	    if (ingameflag)
		{
		more(LINES - 1);
		clear();
		return;
		}
	    else
		cleanup(TRUE);
		/*NOTREACHED*/
	    }

	mvaddstr(20, 0, "!:Quit       ?:Delete");
	mvaddstr(21, 0, "What would you like to change ? ");

	if (Wizard)
	    c = getanswer(" ", TRUE);
	else
	    /* examining own player; allow to change name and password */
	    c = getanswer("!BA", FALSE);

	switch (c)
	    {
	    case 'A':	/* change name */
	    case 'B':	/* change password */
		if (!Wizard)
		    /* prompt for password */
		    {
		    mvaddstr(23, 0, "Password ? ");
		    Echo = FALSE;
		    getstring(Databuf, 9);
		    Echo = TRUE;
		    if (strcmp(Databuf, playerp->p_password) != 0)
			continue;
		    }
		    
		if (c == 'A')
		    /* get new name */
		    {
		    mvaddstr(23, 0, "New name: ");
		    getstring(Databuf, SZ_NAME);
		    truncstring(Databuf);
		    if (Databuf[0] != '\0')
			if (Wizard || findname(Databuf, &Other) < 0L)
			    strcpy(playerp->p_name, Databuf);
		    }
		else
		    /* get new password */
		    {
		    if (!Wizard)
			Echo = FALSE;

		    do
			/* get two copies of new password until they match */
			{
			/* get first copy */
			mvaddstr(23, 0, "New password ? ");
			getstring(Databuf, SZ_PASSWORD);
			if (Databuf[0] == '\0')
			    break;

			/* get second copy */
			mvaddstr(23, 0, "One more time ? ");
			getstring(playerp->p_password, SZ_PASSWORD);
			}
		    while (strcmp(playerp->p_password, Databuf) != 0);

		    Echo = TRUE;
		    }

		continue;

	    case 'C':	/* change experience */
		prompt = "experience";
		dptr = &playerp->p_experience;
		goto DALTER;

	    case 'D':	/* change level */
		prompt = "level";
		dptr = &playerp->p_level;
		goto DALTER;

	    case 'E':	/* change strength */
		prompt = "strength";
		dptr = &playerp->p_strength;
		goto DALTER;

	    case 'F':	/* change swords */
		prompt = "sword";
		dptr = &playerp->p_sword;
		goto DALTER;

	    case 'G':	/* change energy */
		prompt = "energy";
		dptr = &playerp->p_energy;
		goto DALTER;

	    case 'H':	/* change maximum energy */
		prompt = "max energy";
		dptr = &playerp->p_maxenergy;
		goto DALTER;

	    case 'I':	/* change shields */
		prompt = "shield";
		dptr = &playerp->p_shield;
		goto DALTER;

	    case 'J':	/* change quickness */
		prompt = "quickness";
		dptr = &playerp->p_quickness;
		goto DALTER;

	    case 'K':	/* change quicksilver */
		prompt = "quicksilver";
		dptr = &playerp->p_quksilver;
		goto DALTER;

	    case 'L':	/* change magic */
		prompt = "magic level";
		dptr = &playerp->p_magiclvl;
		goto DALTER;

	    case 'M':	/* change mana */
		prompt = "mana";
		dptr = &playerp->p_mana;
		goto DALTER;

	    case 'N':	/* change brains */
		prompt = "brains";
		dptr = &playerp->p_brains;
		goto DALTER;

	    case 'O':	/* change poison */
		prompt = "poison";
		dptr = &playerp->p_poison;
		goto DALTER;

	    case 'P':	/* change gold */
		prompt = "gold";
		dptr = &playerp->p_gold;
		goto DALTER;

	    case 'Q':	/* change gems */
		prompt = "gems";
		dptr = &playerp->p_gems;
		goto DALTER;

	    case 'R':	/* change sin */
		prompt = "sin";
		dptr = &playerp->p_sin;
		goto DALTER;

	    case 'S':	/* change x coord */
		prompt = "x";
		dptr = &playerp->p_x;
		goto DALTER;

	    case 'T':	/* change y coord */
		prompt = "y";
		dptr = &playerp->p_y;
		goto DALTER;

	    case 'U':	/* change age */
		mvprintw(23, 0, "age = %ld; age = ", playerp->p_age);
		dtemp = infloat();
		if (dtemp != 0.0)
		    playerp->p_age = (long) dtemp;
		continue;

	    case 'V':	/* change degen */
		mvprintw(23, 0, "degen = %d; degen = ", playerp->p_degenerated);
		dtemp = infloat();
		if (dtemp != 0.0)
		    playerp->p_degenerated = (int) dtemp;
		continue;

	    case 'W':	/* change type */
		prompt = "type";
		sptr = &playerp->p_type;
		goto SALTER;

	    case 'X':	/* change special type */
		prompt = "special type";
		sptr = &playerp->p_specialtype;
		goto SALTER;

	    case 'Y':	/* change lives */
		prompt = "lives";
		sptr = &playerp->p_lives;
		goto SALTER;

	    case 'Z':	/* change crowns */
		prompt = "crowns";
		sptr = &playerp->p_crowns;
		goto SALTER;

	    case '0':	/* change charms */
		prompt = "charm";
		sptr = &playerp->p_charms;
		goto SALTER;

	    case '1':	/* change amulet */
		prompt = "amulet";
		sptr = &playerp->p_amulets;
		goto SALTER;

	    case '2':	/* change holy water */
		prompt = "holy water";
		sptr = &playerp->p_holywater;
		goto SALTER;

	    case '3':	/* change last-used */
		prompt = "last-used";
		sptr = &playerp->p_lastused;
		goto SALTER;

	    case '4':	/* change palantir */
		prompt = "palantir";
		bptr = &playerp->p_palantir;
		goto BALTER;

	    case '5':	/* change blessing */
		prompt = "blessing";
		bptr = &playerp->p_blessing;
		goto BALTER;

	    case '6':	/* change virgin */
		prompt = "virgin";
		bptr = &playerp->p_virgin;
		goto BALTER;

	    case '7':	/* change blindness */
		prompt = "blindness";
		bptr = &playerp->p_blindness;
		goto BALTER;

	    case '8':	/* change ring type */
		prompt = "ring-type";
		sptr = &playerp->p_ring.ring_type;
		goto SALTER;

	    case '9':	/* change ring duration */
		prompt = "ring-duration";
		sptr = &playerp->p_ring.ring_duration;
		goto SALTER;

	    case '!':	/* quit, update */
		if (Wizard &&
		    (!ingameflag || playerp != &Player))
		    /* turn off status if not modifying self */
		    {
		    playerp->p_status = S_OFF;
		    playerp->p_tampered = T_OFF;
		    }

		writerecord(playerp, loc);
		clear();
		return;

	    case '?':	/* delete player */
		if (ingameflag && playerp == &Player)
		    /* cannot delete self */
		    continue;

		freerecord(playerp, loc);
		clear();
		return;

	    default:
		continue;
	    }
DALTER:
	mvprintw(23, 0, "%s = %f; %s = ", prompt, *dptr, prompt);
	dtemp = infloat();
	if (dtemp != 0.0)
	    *dptr = dtemp;
	continue;

SALTER:
	mvprintw(23, 0, "%s = %d; %s = ", prompt, *sptr, prompt);
	dtemp = infloat();
	if (dtemp != 0.0)
	    *sptr = (short) dtemp;
	continue;

BALTER:
	mvprintw(23, 0, "%s = %c; %s = ", prompt, flag[*bptr], prompt);
	c = getanswer("\nTF", TRUE);
	if (c == 'T')
	    *bptr = TRUE;
	else if (c == 'F')
	    *bptr = FALSE;
	continue;
	}
}
/*\f*/
/************************************************************************
/
/ FUNCTION NAME: monstlist()
/
/ FUNCTION: print a monster listing
/
/ AUTHOR: E. A. Estes, 2/27/86
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: puts(), fread(), fseek(), printf()
/
/ GLOBAL INPUTS: Curmonster, *Monstfp
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/	Read monster file, and print a monster listing on standard output.
/
/************************************************************************/

monstlist()
{
register int 	count = 0;		/* count in file */

    puts(" #)  Name                 Str  Brain  Quick  Energy  Exper  Treas  Type  Flock%\n");
    fseek(Monstfp, 0L, 0);
    while (fread((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp) == 1)
	printf("%2d)  %-20.20s%4.0f   %4.0f     %2.0f   %5.0f  %5.0f     %2d    %2d     %3.0f\n", count++,
	    Curmonster.m_name, Curmonster.m_strength, Curmonster.m_brains,
	    Curmonster.m_speed, Curmonster.m_energy, Curmonster.m_experience,
	    Curmonster.m_treasuretype, Curmonster.m_type, Curmonster.m_flock);
}
/*\f*/
/************************************************************************
/
/ FUNCTION NAME: scorelist()
/
/ FUNCTION: print player score board
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: fread(), fopen(), printf(), fclose()
/
/ GLOBAL INPUTS: Scorefile[]
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/	Read the scoreboard file and print the contents.
/
/************************************************************************/

scorelist()
{
struct	scoreboard	sbuf;	/* for reading entries */
register FILE	*fp;		/* to open the file */

    if ((fp = fopen(Scorefile, "r")) != NULL)
	{
	while (fread((char *) &sbuf, SZ_SCORESTRUCT, 1, fp) == 1)
	    printf("%-20s   (%-9s)  Level: %6.0f  Type: %s\n",
		sbuf.sb_name, sbuf.sb_login, sbuf.sb_level, sbuf.sb_type);
	fclose(fp);
	}
}
/*\f*/
/************************************************************************
/
/ FUNCTION NAME: activelist()
/
/ FUNCTION: print list of active players to standard output
/
/ AUTHOR: E. A. Estes, 3/7/86
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: descrstatus(), fread(), fseek(), printf(), descrtype()
/
/ GLOBAL INPUTS: Other, *Playersfp
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/	Read player file, and print list of active records to standard output.
/
/************************************************************************/

activelist()
{
    fseek(Playersfp, 0L, 0);
    printf("Current characters on file are:\n\n");

    while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
	if (Other.p_status != S_NOTUSED)
	    printf("%-20s   (%-9s)  Level: %6.0f  %s  (%s)\n",
		Other.p_name, Other.p_login, Other.p_level,
		descrtype(&Other, FALSE), descrstatus(&Other));

}
/*\f*/
/************************************************************************
/
/ FUNCTION NAME: purgeoldplayers()
/
/ FUNCTION: purge inactive players from player file
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: freerecord(), time(), fread(), fseek(), localtime()
/
/ GLOBAL INPUTS: Other, *Playersfp
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/	Delete characters which have not been used with the last
/	three weeks.
/
/************************************************************************/

purgeoldplayers()
{
int	today;		/* day of year for today */
int	daysold;	/* how many days since the character has been used */
long	ltime;		/* time in seconds */
long	loc = 0L;	/* location in file */

    time(&ltime);
    today = localtime(&ltime)->tm_yday;

    for (;;)
	{
	fseek(Playersfp, loc, 0);
	if (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) != 1)
	    break;

	daysold = today - Other.p_lastused;
	if (daysold < 0)
	    daysold += 365;

	if (daysold > N_DAYSOLD)
	    /* player hasn't been used in a while; delete */
	    freerecord(&Other, loc);

	loc += SZ_PLAYERSTRUCT;
	}
}
/*\f*/
/************************************************************************
/
/ FUNCTION NAME: enterscore()
/
/ FUNCTION: enter player into scoreboard
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: fread(), fseek(), fopen(), error(), strcmp(), fclose(), 
/	strcpy(), fwrite(), descrtype()
/
/ GLOBAL INPUTS: Player, Scorefile[]
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/	The scoreboard keeps track of the highest character on a
/	per-login basis.
/	Search the scoreboard for an entry for the current login,
/	if an entry is found, and it is lower than the current player,
/	replace it, otherwise create an entry.
/
/************************************************************************/

enterscore()
{
struct	scoreboard sbuf;		/* buffer to read in scoreboard entries */
FILE	*fp;				/* to open scoreboard file */
long	loc = 0L;			/* location in scoreboard file */
bool	found = FALSE;			/* set if we found an entry for this login */

    if ((fp = fopen(Scorefile, "r+")) != NULL)
	{
	while (fread((char *) &sbuf, SZ_SCORESTRUCT, 1, fp) == 1)
	    if (strcmp(Player.p_login, sbuf.sb_login) == 0)
		{
		found = TRUE;
		break;
		}
	    else
		loc += SZ_SCORESTRUCT;
	}
    else
	{
	error(Scorefile);
	/*NOTREACHED*/
	}

    /*
     * At this point, 'loc' will either indicate a point beyond
     * the end of file, or the place where the previous entry
     * was found.
     */

    if ((!found) || Player.p_level > sbuf.sb_level)
	/* put new entry in for this login */
	{
	strcpy(sbuf.sb_login, Player.p_login);
	strcpy(sbuf.sb_name, Player.p_name);
	sbuf.sb_level = Player.p_level;
	strcpy(sbuf.sb_type, descrtype(&Player, TRUE));
	}

    /* update entry */
    fseek(fp, loc, 0);
    fwrite((char *) &sbuf, SZ_SCORESTRUCT, 1, fp);
    fclose(fp);
}
Commit	Line	Data
2a00de37 KB	1	/*
	2	* gamesupport.c - auxiliary routines for support of Phantasia
	3	*/
	4
	5	#include "include.h"
	6
	7	/************************************************************************
	8	/
	9	/ FUNCTION NAME: changestats()
	10	/
	11	/ FUNCTION: examine/change statistics for a player
	12	/
	13	/ AUTHOR: E. A. Estes, 12/4/85
	14	/
	15	/ ARGUMENTS:
	16	/ bool ingameflag - set if called while playing game (Wizard only)
	17	/
	18	/ RETURN VALUE: none
	19	/
	20	/ MODULES CALLED: freerecord(), writerecord(), descrstatus(), truncstring(),
	21	/ time(), more(), wmove(), wclear(), strcmp(), printw(), strcpy(),
	22	/ infloat(), waddstr(), cleanup(), findname(), userlist(), mvprintw(),
	23	/ localtime(), getanswer(), descrtype(), getstring()
	24	/
	25	/ GLOBAL INPUTS: LINES, Login, Other, Wizard, Player, stdscr, Databuf[],
	26	/ Fileloc
	27	/
	28	/ GLOBAL OUTPUTS: Echo
	29	/
	30	/ DESCRIPTION:
	31	/ Prompt for player name to examine/change.
	32	/ If the name is NULL, print a list of all players.
	33	/ If we are called from within the game, check for the
	34	/ desired name being the same as the current player's name.
	35	/ Only the 'Wizard' may alter players.
	36	/ Items are changed only if a non-zero value is specified.
	37	/ To change an item to 0, use 0.1; it will be truncated later.
	38	/
	39	/ Players may alter their names and passwords, if the following
	40	/ are true:
	41	/ - current login matches the character's logins
	42	/ - the password is known
	43	/ - the player is not in the middle of the game (ingameflag == FALSE)
	44	/
	45	/ The last condition is imposed for two reasons:
	46	/ - the game could possibly get a bit hectic if a player were
	47	/ continually changing his/her name
	48	/ - another player structure would be necessary to check for names
	49	/ already in use
	50	/
	51	/************************************************************************/
	52
	53	changestats(ingameflag)
	54	bool ingameflag;
	55	{
	56	static char flag[2] = /* for printing values of bools */
	57	{'F', 'T'};
	58	register struct player playerp;/ pointer to structure to alter */
	59	register char prompt; / pointer to prompt string */
	60	int c; /* input */
	61	int today; /* day of year of today */
	62	int temp; /* temporary variable */
	63	long loc; /* location in player file */
	64	long now; /* time now */
65	double dtemp; /* temporary variable */
66	bool bptr; / pointer to bool item to change */
67	double dptr; / pointer to double item to change */
68	short sptr; / pointer to short item to change */
69
70	clear();
71
72	for (;;)
73	/* get name of player to examine/alter */
74	{
75	mvaddstr(5, 0, "Which character do you want to look at ? ");
76	getstring(Databuf, SZ_DATABUF);
77	truncstring(Databuf);
78
79	if (Databuf[0] == '\0')
80	userlist(ingameflag);
81	else
82	break;
83	}
84
85	loc = -1L;
86
87	if (!ingameflag)
88	/* use 'Player' structure */
89	playerp = &Player;
90	else if (strcmp(Databuf, Player.p_name) == 0)
91	/* alter/examine current player */
92	{
93	playerp = &Player;
94	loc = Fileloc;
95	}
96	else
97	/* use 'Other' structure */
98	playerp = &Other;
99
100	/* find player on file */
101	if (loc < 0L && (loc = findname(Databuf, playerp)) < 0L)
102	/* didn't find player */
103	{
104	clear();
105	mvaddstr(11, 0, "Not found.");
106	return;
107	}
108
109	time(&now);
110	today = localtime(&now)->tm_yday;
111
112	clear();
113
114	for (;;)
115	/* print player structure, and prompt for action */
116	{
117	mvprintw(0, 0,"A:Name %s\n", playerp->p_name);
118
119	if (Wizard)
120	printw("B:Password %s\n", playerp->p_password);
121	else
122	addstr("B:Password XXXXXXXX\n");
123
124	printw(" :Login %s\n", playerp->p_login);
125
126	printw("C:Experience %.0f\n", playerp->p_experience);
127	printw("D:Level %.0f\n", playerp->p_level);
128	printw("E:Strength %.0f\n", playerp->p_strength);
129	printw("F:Sword %.0f\n", playerp->p_sword);
130	printw(" :Might %.0f\n", playerp->p_might);
131	printw("G:Energy %.0f\n", playerp->p_energy);
132	printw("H:Max-Energy %.0f\n", playerp->p_maxenergy);
133	printw("I:Shield %.0f\n", playerp->p_shield);
134	printw("J:Quickness %.0f\n", playerp->p_quickness);
135	printw("K:Quicksilver %.0f\n", playerp->p_quksilver);
136	printw(" :Speed %.0f\n", playerp->p_speed);
137	printw("L:Magic Level %.0f\n", playerp->p_magiclvl);
138	printw("M:Mana %.0f\n", playerp->p_mana);
139	printw("N:Brains %.0f\n", playerp->p_brains);
140
141	if (Wizard \|\| playerp->p_specialtype != SC_VALAR)
142	mvaddstr(0, 40, descrstatus(playerp));
143
144	mvprintw(1, 40, "O:Poison %0.3f\n", playerp->p_poison);
145	mvprintw(2, 40, "P:Gold %.0f\n", playerp->p_gold);
146	mvprintw(3, 40, "Q:Gem %.0f\n", playerp->p_gems);
147	mvprintw(4, 40, "R:Sin %0.3f\n", playerp->p_sin);
148	if (Wizard)
149	{
150	mvprintw(5, 40, "S:X-coord %.0f\n", playerp->p_x);
151	mvprintw(6, 40, "T:Y-coord %.0f\n", playerp->p_y);
152	}
153	else
154	{
155	mvaddstr(5, 40, "S:X-coord ?\n");
156	mvaddstr(6, 40, "T:Y-coord ?\n");
157	}
158
159	mvprintw(7, 40, "U:Age %ld\n", playerp->p_age);
160	mvprintw(8, 40, "V:Degenerated %d\n", playerp->p_degenerated);
161
162	mvprintw(9, 40, "W:Type %d (%s)\n",
163	playerp->p_type, descrtype(playerp, FALSE) + 1);
164	mvprintw(10, 40, "X:Special Type %d\n", playerp->p_specialtype);
165	mvprintw(11, 40, "Y:Lives %d\n", playerp->p_lives);
166	mvprintw(12, 40, "Z:Crowns %d\n", playerp->p_crowns);
167	mvprintw(13, 40, "0:Charms %d\n", playerp->p_charms);
168	mvprintw(14, 40, "1:Amulets %d\n", playerp->p_amulets);
169	mvprintw(15, 40, "2:Holy Water %d\n", playerp->p_holywater);
170
171	temp = today - playerp->p_lastused;
172	if (temp < 0)
173	/* last year */
174	temp += 365;
175	mvprintw(16, 40, "3:Lastused %d (%d)\n", playerp->p_lastused, temp);
176
177	mvprintw(18, 8, "4:Palantir %c 5:Blessing %c 6:Virgin %c 7:Blind %c",
178	flag[playerp->p_palantir],
179	flag[playerp->p_blessing],
180	flag[playerp->p_virgin],
181	flag[playerp->p_blindness]);
182
183	if (!Wizard)
184	mvprintw(19, 8, "8:Ring %c",
185	flag[playerp->p_ring.ring_type != R_NONE]);
186	else
187	mvprintw(19, 8, "8:Ring %d 9:Duration %d",
188	playerp->p_ring.ring_type, playerp->p_ring.ring_duration);
189
190	if (!Wizard
191	/* not wizard */
192	&& (ingameflag \|\| strcmp(Login, playerp->p_login) != 0))
193	/* in game or not examining own character */
194	{
195	if (ingameflag)
196	{
197	more(LINES - 1);
198	clear();
199	return;
200	}
201	else
202	cleanup(TRUE);
203	/NOTREACHED/
204	}
205
206	mvaddstr(20, 0, "!:Quit ?:Delete");
207	mvaddstr(21, 0, "What would you like to change ? ");
208
209	if (Wizard)
210	c = getanswer(" ", TRUE);
211	else
212	/* examining own player; allow to change name and password */
213	c = getanswer("!BA", FALSE);
214
215	switch (c)
216	{
217	case 'A': /* change name */
218	case 'B': /* change password */
219	if (!Wizard)
220	/* prompt for password */
221	{
222	mvaddstr(23, 0, "Password ? ");
223	Echo = FALSE;
224	getstring(Databuf, 9);
225	Echo = TRUE;
226	if (strcmp(Databuf, playerp->p_password) != 0)
227	continue;
228	}
229
230	if (c == 'A')
231	/* get new name */
232	{
233	mvaddstr(23, 0, "New name: ");
234	getstring(Databuf, SZ_NAME);
235	truncstring(Databuf);
236	if (Databuf[0] != '\0')
237	if (Wizard \|\| findname(Databuf, &Other) < 0L)
238	strcpy(playerp->p_name, Databuf);
239	}
240	else
241	/* get new password */
242	{
243	if (!Wizard)
244	Echo = FALSE;
245
246	do
247	/* get two copies of new password until they match */
248	{
249	/* get first copy */
250	mvaddstr(23, 0, "New password ? ");
251	getstring(Databuf, SZ_PASSWORD);
252	if (Databuf[0] == '\0')
253	break;
254
255	/* get second copy */
256	mvaddstr(23, 0, "One more time ? ");
257	getstring(playerp->p_password, SZ_PASSWORD);
258	}
259	while (strcmp(playerp->p_password, Databuf) != 0);
260
261	Echo = TRUE;
262	}
263
264	continue;
265
266	case 'C': /* change experience */
267	prompt = "experience";
268	dptr = &playerp->p_experience;
269	goto DALTER;
270
271	case 'D': /* change level */
272	prompt = "level";
273	dptr = &playerp->p_level;
274	goto DALTER;
275
276	case 'E': /* change strength */
277	prompt = "strength";
278	dptr = &playerp->p_strength;
279	goto DALTER;
280
281	case 'F': /* change swords */
282	prompt = "sword";
283	dptr = &playerp->p_sword;
284	goto DALTER;
285
286	case 'G': /* change energy */
287	prompt = "energy";
288	dptr = &playerp->p_energy;
289	goto DALTER;
290
291	case 'H': /* change maximum energy */
292	prompt = "max energy";
293	dptr = &playerp->p_maxenergy;
294	goto DALTER;
295
296	case 'I': /* change shields */
297	prompt = "shield";
298	dptr = &playerp->p_shield;
299	goto DALTER;
300
301	case 'J': /* change quickness */
302	prompt = "quickness";
303	dptr = &playerp->p_quickness;
304	goto DALTER;
305
306	case 'K': /* change quicksilver */
307	prompt = "quicksilver";
308	dptr = &playerp->p_quksilver;
309	goto DALTER;
310
311	case 'L': /* change magic */
312	prompt = "magic level";
313	dptr = &playerp->p_magiclvl;
314	goto DALTER;
315
316	case 'M': /* change mana */
317	prompt = "mana";
318	dptr = &playerp->p_mana;
319	goto DALTER;
320
321	case 'N': /* change brains */
322	prompt = "brains";
323	dptr = &playerp->p_brains;
324	goto DALTER;
325
326	case 'O': /* change poison */
327	prompt = "poison";
328	dptr = &playerp->p_poison;
329	goto DALTER;
330
331	case 'P': /* change gold */
332	prompt = "gold";
333	dptr = &playerp->p_gold;
334	goto DALTER;
335
336	case 'Q': /* change gems */
337	prompt = "gems";
338	dptr = &playerp->p_gems;
339	goto DALTER;
340
341	case 'R': /* change sin */
342	prompt = "sin";
343	dptr = &playerp->p_sin;
344	goto DALTER;
345
346	case 'S': /* change x coord */
347	prompt = "x";
348	dptr = &playerp->p_x;
349	goto DALTER;
350
351	case 'T': /* change y coord */
352	prompt = "y";
353	dptr = &playerp->p_y;
354	goto DALTER;
355
356	case 'U': /* change age */
357	mvprintw(23, 0, "age = %ld; age = ", playerp->p_age);
358	dtemp = infloat();
359	if (dtemp != 0.0)
360	playerp->p_age = (long) dtemp;
361	continue;
362
363	case 'V': /* change degen */
364	mvprintw(23, 0, "degen = %d; degen = ", playerp->p_degenerated);
365	dtemp = infloat();
366	if (dtemp != 0.0)
367	playerp->p_degenerated = (int) dtemp;
368	continue;
369
370	case 'W': /* change type */
371	prompt = "type";
372	sptr = &playerp->p_type;
373	goto SALTER;
374
375	case 'X': /* change special type */
376	prompt = "special type";
377	sptr = &playerp->p_specialtype;
378	goto SALTER;
379
380	case 'Y': /* change lives */
381	prompt = "lives";
382	sptr = &playerp->p_lives;
383	goto SALTER;
384
385	case 'Z': /* change crowns */
386	prompt = "crowns";
387	sptr = &playerp->p_crowns;
388	goto SALTER;
389
390	case '0': /* change charms */
391	prompt = "charm";
392	sptr = &playerp->p_charms;
393	goto SALTER;
394
395	case '1': /* change amulet */
396	prompt = "amulet";
397	sptr = &playerp->p_amulets;
398	goto SALTER;
399
400	case '2': /* change holy water */
401	prompt = "holy water";
402	sptr = &playerp->p_holywater;
403	goto SALTER;
404
405	case '3': /* change last-used */
406	prompt = "last-used";
407	sptr = &playerp->p_lastused;
408	goto SALTER;
409
410	case '4': /* change palantir */
411	prompt = "palantir";
412	bptr = &playerp->p_palantir;
413	goto BALTER;
414
415	case '5': /* change blessing */
416	prompt = "blessing";
417	bptr = &playerp->p_blessing;
418	goto BALTER;
419
420	case '6': /* change virgin */
421	prompt = "virgin";
422	bptr = &playerp->p_virgin;
423	goto BALTER;
424
425	case '7': /* change blindness */
426	prompt = "blindness";
427	bptr = &playerp->p_blindness;
428	goto BALTER;
429
430	case '8': /* change ring type */
431	prompt = "ring-type";
432	sptr = &playerp->p_ring.ring_type;
433	goto SALTER;
434
435	case '9': /* change ring duration */
436	prompt = "ring-duration";
437	sptr = &playerp->p_ring.ring_duration;
438	goto SALTER;
439
440	case '!': /* quit, update */
441	if (Wizard &&
442	(!ingameflag \|\| playerp != &Player))
443	/* turn off status if not modifying self */
444	{
445	playerp->p_status = S_OFF;
446	playerp->p_tampered = T_OFF;
447	}
448
449	writerecord(playerp, loc);
450	clear();
451	return;
452
453	case '?': /* delete player */
454	if (ingameflag && playerp == &Player)
455	/* cannot delete self */
456	continue;
457
458	freerecord(playerp, loc);
459	clear();
460	return;
461
462	default:
463	continue;
464	}
465	DALTER:
466	mvprintw(23, 0, "%s = %f; %s = ", prompt, *dptr, prompt);
467	dtemp = infloat();
468	if (dtemp != 0.0)
469	*dptr = dtemp;
470	continue;
471
472	SALTER:
473	mvprintw(23, 0, "%s = %d; %s = ", prompt, *sptr, prompt);
474	dtemp = infloat();
475	if (dtemp != 0.0)
476	*sptr = (short) dtemp;
477	continue;
478
479	BALTER:
480	mvprintw(23, 0, "%s = %c; %s = ", prompt, flag[*bptr], prompt);
481	c = getanswer("\nTF", TRUE);
482	if (c == 'T')
483	*bptr = TRUE;
484	else if (c == 'F')
485	*bptr = FALSE;
486	continue;
487	}
488	}
489	/\f/
490	/************************************************************************
491	/
492	/ FUNCTION NAME: monstlist()
493	/
494	/ FUNCTION: print a monster listing
495	/
496	/ AUTHOR: E. A. Estes, 2/27/86
497	/
498	/ ARGUMENTS: none
499	/
500	/ RETURN VALUE: none
501	/
502	/ MODULES CALLED: puts(), fread(), fseek(), printf()
503	/
504	/ GLOBAL INPUTS: Curmonster, *Monstfp
505	/
506	/ GLOBAL OUTPUTS: none
507	/
508	/ DESCRIPTION:
509	/ Read monster file, and print a monster listing on standard output.
510	/
511	/************************************************************************/
512
513	monstlist()
514	{
515	register int count = 0; /* count in file */
516
517	puts(" #) Name Str Brain Quick Energy Exper Treas Type Flock%\n");
518	fseek(Monstfp, 0L, 0);
519	while (fread((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp) == 1)
520	printf("%2d) %-20.20s%4.0f %4.0f %2.0f %5.0f %5.0f %2d %2d %3.0f\n", count++,
521	Curmonster.m_name, Curmonster.m_strength, Curmonster.m_brains,
522	Curmonster.m_speed, Curmonster.m_energy, Curmonster.m_experience,
523	Curmonster.m_treasuretype, Curmonster.m_type, Curmonster.m_flock);
524	}
525	/\f/
526	/************************************************************************
527	/
528	/ FUNCTION NAME: scorelist()
529	/
530	/ FUNCTION: print player score board
531	/
532	/ AUTHOR: E. A. Estes, 12/4/85
533	/
534	/ ARGUMENTS: none
535	/
536	/ RETURN VALUE: none
537	/
538	/ MODULES CALLED: fread(), fopen(), printf(), fclose()
539	/
540	/ GLOBAL INPUTS: Scorefile[]
541	/
542	/ GLOBAL OUTPUTS: none
543	/
544	/ DESCRIPTION:
545	/ Read the scoreboard file and print the contents.
546	/
547	/************************************************************************/
548
549	scorelist()
550	{
551	struct scoreboard sbuf; /* for reading entries */
552	register FILE fp; / to open the file */
553
554	if ((fp = fopen(Scorefile, "r")) != NULL)
555	{
556	while (fread((char *) &sbuf, SZ_SCORESTRUCT, 1, fp) == 1)
557	printf("%-20s (%-9s) Level: %6.0f Type: %s\n",
558	sbuf.sb_name, sbuf.sb_login, sbuf.sb_level, sbuf.sb_type);
559	fclose(fp);
560	}
561	}
562	/\f/
563	/************************************************************************
564	/
565	/ FUNCTION NAME: activelist()
566	/
567	/ FUNCTION: print list of active players to standard output
568	/
569	/ AUTHOR: E. A. Estes, 3/7/86
570	/
571	/ ARGUMENTS: none
572	/
573	/ RETURN VALUE: none
574	/
575	/ MODULES CALLED: descrstatus(), fread(), fseek(), printf(), descrtype()
576	/
577	/ GLOBAL INPUTS: Other, *Playersfp
578	/
579	/ GLOBAL OUTPUTS: none
580	/
581	/ DESCRIPTION:
582	/ Read player file, and print list of active records to standard output.
583	/
584	/************************************************************************/
585
586	activelist()
587	{
588	fseek(Playersfp, 0L, 0);
589	printf("Current characters on file are:\n\n");
590
591	while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
592	if (Other.p_status != S_NOTUSED)
593	printf("%-20s (%-9s) Level: %6.0f %s (%s)\n",
594	Other.p_name, Other.p_login, Other.p_level,
595	descrtype(&Other, FALSE), descrstatus(&Other));
596
597	}
598	/\f/
599	/************************************************************************
600	/
601	/ FUNCTION NAME: purgeoldplayers()
602	/
603	/ FUNCTION: purge inactive players from player file
604	/
605	/ AUTHOR: E. A. Estes, 12/4/85
606	/
607	/ ARGUMENTS: none
608	/
609	/ RETURN VALUE: none
610	/
611	/ MODULES CALLED: freerecord(), time(), fread(), fseek(), localtime()
612	/
613	/ GLOBAL INPUTS: Other, *Playersfp
614	/
615	/ GLOBAL OUTPUTS: none
616	/
617	/ DESCRIPTION:
618	/ Delete characters which have not been used with the last
619	/ three weeks.
620	/
621	/************************************************************************/
622
623	purgeoldplayers()
624	{
625	int today; /* day of year for today */
626	int daysold; /* how many days since the character has been used */
627	long ltime; /* time in seconds */
628	long loc = 0L; /* location in file */
629
630	time(&ltime);
631	today = localtime(&ltime)->tm_yday;
632
633	for (;;)
634	{
635	fseek(Playersfp, loc, 0);
636	if (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) != 1)
637	break;
638
639	daysold = today - Other.p_lastused;
640	if (daysold < 0)
641	daysold += 365;
642
643	if (daysold > N_DAYSOLD)
644	/* player hasn't been used in a while; delete */
645	freerecord(&Other, loc);
646
647	loc += SZ_PLAYERSTRUCT;
648	}
649	}
650	/\f/
651	/************************************************************************
652	/
653	/ FUNCTION NAME: enterscore()
654	/
655	/ FUNCTION: enter player into scoreboard
656	/
657	/ AUTHOR: E. A. Estes, 12/4/85
658	/
659	/ ARGUMENTS: none
660	/
661	/ RETURN VALUE: none
662	/
663	/ MODULES CALLED: fread(), fseek(), fopen(), error(), strcmp(), fclose(),
664	/ strcpy(), fwrite(), descrtype()
665	/
666	/ GLOBAL INPUTS: Player, Scorefile[]
667	/
668	/ GLOBAL OUTPUTS: none
669	/
670	/ DESCRIPTION:
671	/ The scoreboard keeps track of the highest character on a
672	/ per-login basis.
673	/ Search the scoreboard for an entry for the current login,
674	/ if an entry is found, and it is lower than the current player,
675	/ replace it, otherwise create an entry.
676	/
677	/************************************************************************/
678
679	enterscore()
680	{
681	struct scoreboard sbuf; /* buffer to read in scoreboard entries */
682	FILE fp; / to open scoreboard file */
683	long loc = 0L; /* location in scoreboard file */
684	bool found = FALSE; /* set if we found an entry for this login */
685
686	if ((fp = fopen(Scorefile, "r+")) != NULL)
687	{
688	while (fread((char *) &sbuf, SZ_SCORESTRUCT, 1, fp) == 1)
689	if (strcmp(Player.p_login, sbuf.sb_login) == 0)
690	{
691	found = TRUE;
692	break;
693	}
694	else
695	loc += SZ_SCORESTRUCT;
696	}
697	else
698	{
699	error(Scorefile);
700	/NOTREACHED/
701	}
702
703	/*
704	* At this point, 'loc' will either indicate a point beyond
705	* the end of file, or the place where the previous entry
706	* was found.
707	*/
708
709	if ((!found) \|\| Player.p_level > sbuf.sb_level)
710	/* put new entry in for this login */
711	{
712	strcpy(sbuf.sb_login, Player.p_login);
713	strcpy(sbuf.sb_name, Player.p_name);
714	sbuf.sb_level = Player.p_level;
715	strcpy(sbuf.sb_type, descrtype(&Player, TRUE));
716	}
717
718	/* update entry */
719	fseek(fp, loc, 0);
720	fwrite((char *) &sbuf, SZ_SCORESTRUCT, 1, fp);
721	fclose(fp);
722	}