gamesupport.c

早期freebsd实现

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