/*
 * fight.c   Phantasia monster fighting routines
 */

#include "include.h"

/************************************************************************
/
/ FUNCTION NAME: encounter()
/
/ FUNCTION: monster battle routine
/
/ AUTHOR: E. A. Estes, 2/20/86
/
/ ARGUMENTS:
/	int particular - particular monster to fight if >= 0
/
/ RETURN VALUE: none
/
/ MODULES CALLED: monsthits(), playerhits(), readmessage(), callmonster(),
/	writerecord(), pickmonster(), displaystats(), pow(), cancelmonster(),
/	awardtreasure(), more(), death(), wmove(), setjmp(), drandom(), printw(),
/	longjmp(), wrefresh(), mvprintw(), wclrtobot()
/
/ GLOBAL INPUTS: Curmonster, Whichmonster, LINES, Lines, Circle, Shield,
/	Player, *stdscr, Fileloc, Fightenv[], *Enemyname
/
/ GLOBAL OUTPUTS: Curmonster, Whichmonster, Lines, Shield, Player, Luckout
/
/ DESCRIPTION:
/	Choose a monster and check against some special types.
/	Arbitrate between monster and player.  Watch for either
/	dying.
/
*************************************************************************/

encounter(particular)
int	particular;
{
bool	firsthit = Player.p_blessing;	/* set if player gets the first hit */
int	flockcnt = 1;			/* how many time flocked */

    /* let others know what we are doing */
    Player.p_status = S_MONSTER;
    writerecord(&Player, Fileloc);

#ifdef SYS5
    flushinp();
#endif

    Shield = 0.0;		/* no shield up yet */

    if (particular >= 0)
	/* monster is specified */
	Whichmonster = particular;
    else
	/* pick random monster */
	Whichmonster = pickmonster();

    setjmp(Fightenv);		/* this is to enable changing fight state */

    move(6, 0);
    clrtobot();			/* clear bottom area of screen */

    Lines = 9;
    callmonster(Whichmonster);	/* set up monster to fight */

    Luckout = FALSE;		/* haven't tried to luckout yet */

    if (Curmonster.m_type == SM_MORGOTH)
	mvprintw(4, 0, "You've encountered %s, Bane of the Council and Valar.\n",
	    Enemyname);

    if (Curmonster.m_type == SM_UNICORN)
	{
	if (Player.p_virgin)
	    {
	    printw("You just subdued %s, thanks to the virgin.\n", Enemyname);
	    Player.p_virgin = FALSE;
	    }
	else
	    {
	    printw("You just saw %s running away!\n", Enemyname);
	    Curmonster.m_experience = 0.0;
	    Curmonster.m_treasuretype = 0;
	    }
	}
    else
	/* not a special monster */
	for (;;)
	    /* print header, and arbitrate between player and monster */
	    {
	    mvprintw(6, 0, "You are being attacked by %s,   EXP: %.0f   (Size: %.0f)\n",
		Enemyname, Curmonster.m_experience, Circle);

	    displaystats();
	    mvprintw(1, 26, "%20.0f", Player.p_energy + Shield);	/* overprint energy */
	    readmessage();

	    if (Curmonster.m_type == SM_DARKLORD
		&& Player.p_blessing
		&& Player.p_charms > 0)
		/* overpower Dark Lord with blessing and charm */
		{
		mvprintw(7, 0, "You just overpowered %s!", Enemyname);
		Lines = 8;
		Player.p_blessing = FALSE;
		--Player.p_charms;
		break;
		}

	    /* allow paralyzed monster to wake up */
	    Curmonster.m_speed = MIN(Curmonster.m_speed + 1.0, Curmonster.m_maxspeed);

	    if (drandom() * Curmonster.m_speed > drandom() * Player.p_speed
		/* monster is faster */
		&& Curmonster.m_type != SM_DARKLORD
		/* not D. L. */
		&& Curmonster.m_type != SM_SHRIEKER
		/* not mimic */
		&& !firsthit)
		/* monster gets a hit */
		monsthits();
	    else
		/* player gets a hit */
		{
		firsthit = FALSE;
		playerhits();
		}

	    refresh();

	    if (Lines > LINES - 2)
		/* near bottom of screen - pause */
		{
		more(Lines);
		move(Lines = 8, 0);
		clrtobot();
		}

	    if (Player.p_energy <= 0.0)
		/* player died */
		{
		more(Lines);
		death(Enemyname);
		cancelmonster();
		break;		/* fight ends if the player is saved from death */
		}

	    if (Curmonster.m_energy <= 0.0)
		/* monster died */
		break;
	    }

    /* give player credit for killing monster */
    Player.p_experience += Curmonster.m_experience;

    if (drandom() < Curmonster.m_flock / 100.0)
	/* monster flocks */
	{
	more(Lines);
	++flockcnt;
	longjmp(Fightenv, 0);
	/*NOTREACHED*/
	}
    else if (Circle > 1.0
	&& Curmonster.m_treasuretype > 0
	&& drandom() > 0.2 + pow(0.4, (double) (flockcnt / 3 + Circle / 3.0)))
	/* monster has treasure; this takes # of flocks and size into account */
	{
	more(Lines);
	awardtreasure();
	}

    /* pause before returning */
    getyx(stdscr, Lines, flockcnt);
    more(Lines + 1);

    Player.p_ring.ring_inuse = FALSE;	/* not using ring */

    /* clean up the screen */
    move(4, 0);
    clrtobot();
}
/**/
/************************************************************************
/
/ FUNCTION NAME: pickmonster()
/
/ FUNCTION: choose a monster based upon where we are
/
/ AUTHOR: E. A. Estes, 2/20/86
/
/ ARGUMENTS: none
/
/ RETURN VALUE: monster number to call
/
/ MODULES CALLED: floor(), drandom()
/
/ GLOBAL INPUTS: Marsh, Circle, Player
/
/ GLOBAL OUTPUTS: none
/
/ DESCRIPTION:
/	Certain monsters can be found in certain areas of the grid.
/	We take care of rolling them here.
/	Unfortunately, this routine assumes that the monster data
/	base is arranged in a particular order.  If the data base
/	is altered (to add monsters, or make them tougher), this
/	routine may also need to be changed.
/
*************************************************************************/

pickmonster()
{
    if (Player.p_specialtype == SC_VALAR)
	/* even chance of any monster */
	return((int) ROLL(0.0, 100.0));

    if (Marsh)
	/* water monsters */
	return((int) ROLL(0.0, 15.0));

    else if (Circle > 24)
	/* even chance of all non-water monsters */
	return((int) ROLL(14.0, 86.0));

    else if (Circle > 15)
	/* chance of all non-water monsters, weighted toward middle */
	return((int) (ROLL(0.0, 50.0) + ROLL(14.0, 37.0)));

    else if (Circle > 8)
	/* not all non-water monsters, weighted toward middle */
	return((int) (ROLL(0.0, 50.0) + ROLL(14.0, 26.0)));

    else if (Circle > 3)
	/* even chance of some tamer non-water monsters */
	return((int) ROLL(14.0, 50.0));

    else
	/* even chance of some of the tamest non-water monsters */
	return((int) ROLL(14.0, 25.0));
}
/**/
/************************************************************************
/
/ FUNCTION NAME: playerhits()
/
/ FUNCTION: prompt player for action in monster battle, and process
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: hitmonster(), throwspell(), inputoption(), cancelmonster(),
/	floor(), wmove(), drandom(), altercoordinates(), waddstr(), mvprintw(),
/	wclrtoeol(), wclrtobot()
/
/ GLOBAL INPUTS: Curmonster, Lines, Player, *stdscr, Luckout, *Enemyname
/
/ GLOBAL OUTPUTS: Curmonster, Lines, Player, Luckout
/
/ DESCRIPTION:
/	Process all monster battle options.
/
*************************************************************************/

playerhits()
{
double	inflict;	/* damage inflicted */
int	ch;		/* input */

    mvaddstr(7, 0, "1:Melee  2:Skirmish  3:Evade  4:Spell  5:Nick  ");

    if (!Luckout)
	/* haven't tried to luckout yet */
	if (Curmonster.m_type == SM_MORGOTH)
	    /* cannot luckout against Morgoth */
	    addstr("6:Ally  ");
	else
	    addstr("6:Luckout  ");

    if (Player.p_ring.ring_type != R_NONE)
	/* player has a ring */
	addstr("7:Use Ring  ");
    else
	clrtoeol();

    ch = inputoption();

    move(8, 0);
    clrtobot();			/* clear any messages from before */
    Lines = 9;
    mvaddstr(4, 0, "\n\n");	/* clear status area */

    switch (ch)
	{
	case 'T':		/* timeout; lose turn */
	    break;

	case ' ':
	case '1':		/* melee */
	    /* melee affects monster's energy and strength */
	    inflict = ROLL(Player.p_might / 2.0 + 5.0, 1.3 * Player.p_might)
		+ (Player.p_ring.ring_inuse ? Player.p_might : 0.0);

	    Curmonster.m_melee += inflict;
	    Curmonster.m_strength = Curmonster.m_o_strength
		- Curmonster.m_melee / Curmonster.m_o_energy
		* Curmonster.m_o_strength / 4.0;
	    hitmonster(inflict);
	    break;

	case '2':		/* skirmish */
	    /* skirmish affects monter's energy and speed */
	    inflict = ROLL(Player.p_might / 3.0 + 3.0, 1.1 * Player.p_might)
		+ (Player.p_ring.ring_inuse ? Player.p_might : 0.0);

	    Curmonster.m_skirmish += inflict;
	    Curmonster.m_maxspeed = Curmonster.m_o_speed
		- Curmonster.m_skirmish / Curmonster.m_o_energy
		* Curmonster.m_o_speed / 4.0;
	    hitmonster(inflict);
	    break;

	case '3':		/* evade */
	    /* use brains and speed to try to evade */
	    if ((Curmonster.m_type == SM_DARKLORD
		|| Curmonster.m_type == SM_SHRIEKER
		/* can always run from D. L. and shrieker */
		|| drandom() * Player.p_speed * Player.p_brains
		    > drandom() * Curmonster.m_speed * Curmonster.m_brains)
		&& (Curmonster.m_type != SM_MIMIC))
		/* cannot run from mimic */
		{
		mvaddstr(Lines++, 0, "You got away!");
		cancelmonster();
		altercoordinates(0.0, 0.0, A_NEAR);
		}
	    else
		mvprintw(Lines++, 0, "%s is still after you!", Enemyname);

	    break;

	case 'M':
	case '4':		/* magic spell */
	    throwspell();
	    break;

	case '5':		/* nick */
	    /* hit 1 plus sword; give some experience */
	    inflict = 1.0 + Player.p_sword;
	    Player.p_experience += floor(Curmonster.m_experience / 10.0);
	    Curmonster.m_experience *= 0.92;
	    /* monster gets meaner */
	    Curmonster.m_maxspeed += 2.0;
	    Curmonster.m_speed = (Curmonster.m_speed < 0.0) ? 0.0 : Curmonster.m_speed + 2.0;
	    if (Curmonster.m_type == SM_DARKLORD)
		/* Dark Lord; doesn't like to be nicked */
		{
		mvprintw(Lines++, 0,
		    "You hit %s %.0f times, and made him mad!", Enemyname, inflict);
		Player.p_quickness /= 2.0;
		altercoordinates(0.0, 0.0, A_FAR);
		cancelmonster();
		}
	    else
		hitmonster(inflict);
	    break;

	case 'B':
	case '6':	/* luckout */
	    if (Luckout)
		mvaddstr(Lines++, 0, "You already tried that.");
	    else
		{
		Luckout = TRUE;
		if (Curmonster.m_type == SM_MORGOTH)
		    /* Morgoth; ally */
		    {
		    if (drandom() < Player.p_sin / 100.0)
			{
			mvprintw(Lines++, 0, "%s accepted!", Enemyname);
			cancelmonster();
			}
		    else
			mvaddstr(Lines++, 0, "Nope, he's not interested.");
		    }
		else
		    /* normal monster; use brains for success */
		    {
		    if ((drandom() + 0.333) * Player.p_brains
			< (drandom() + 0.333) * Curmonster.m_brains)
			mvprintw(Lines++, 0, "You blew it, %s.", Player.p_name);
		    else
			{
			mvaddstr(Lines++, 0, "You made it!");
			Curmonster.m_energy = 0.0;
			}
		    }
		}
	    break;

	case '7':		/* use ring */
	    if (Player.p_ring.ring_type != R_NONE)
		{
		mvaddstr(Lines++, 0, "Now using ring.");
		Player.p_ring.ring_inuse = TRUE;
		if (Player.p_ring.ring_type != R_DLREG)
		    /* age ring */
		    --Player.p_ring.ring_duration;
		}
	    break;
	}

}
/**/
/************************************************************************
/
/ FUNCTION NAME: monsthits()
/
/ FUNCTION: process a monster hitting the player
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: cancelmonster(), scramblestats(), more(), floor(), wmove(),
/	drandom(), altercoordinates(), longjmp(), waddstr(), mvprintw(),
/	getanswer()
/
/ GLOBAL INPUTS: Curmonster, Lines, Circle, Shield, Player, *stdscr,
/	Fightenv[], *Enemyname
/
/ GLOBAL OUTPUTS: Curmonster, Whichmonster, Lines, Shield, Player,
/	*Enemyname
/
/ DESCRIPTION:
/	Handle all special monsters here.  If the monster is not a special
/	one, simply roll a hit against the player.
/
*************************************************************************/

monsthits()
{
double	inflict;		/* damage inflicted */
int	ch;			/* input */

    switch (Curmonster.m_type)
	/* may be a special monster */
	{
	case SM_DARKLORD:
	    /* hits just enough to kill player */
	    inflict = (Player.p_energy + Shield) * 1.02;
	    goto SPECIALHIT;

	case SM_SHRIEKER:
	    /* call a big monster */
	    mvaddstr(Lines++, 0,
		"Shrieeeek!!  You scared it, and it called one of its friends.");
	    more(Lines);
	    Whichmonster = (int) ROLL(70.0, 30.0);
	    longjmp(Fightenv, 0);
	    /*NOTREACHED*/

	case SM_BALROG:
	    /* take experience away */
	    inflict = ROLL(10.0, Curmonster.m_strength);
	    inflict = MIN(Player.p_experience, inflict);
	    mvprintw(Lines++, 0,
		"%s took away %.0f experience points.", Enemyname, inflict);
	    Player.p_experience -= inflict;
	    return;

	case SM_FAERIES:
	    if (Player.p_holywater > 0)
		/* holy water kills when monster tries to hit */
		{
		mvprintw(Lines++, 0, "Your holy water killed it!");
		--Player.p_holywater;
		Curmonster.m_energy = 0.0;
		return;
		}
	    break;

	case SM_NONE:
	    /* normal hit */
	    break;

	default:
	    if (drandom() > 0.2)
		/* normal hit */
		break;

	    /* else special things */
	    switch (Curmonster.m_type)
		{
		case SM_LEANAN:
		    /* takes some of the player's strength */
		    inflict = ROLL(1.0, (Circle - 1.0) / 2.0);
		    inflict = MIN(Player.p_strength, inflict);
		    mvprintw(Lines++, 0, "%s sapped %0.f of your strength!",
			Enemyname, inflict);
		    Player.p_strength -= inflict;
		    Player.p_might -= inflict;
		    break;

		case SM_SARUMAN:
		    if (Player.p_palantir)
			/* take away palantir */
			{
			mvprintw(Lines++, 0, "Wormtongue stole your palantir!");
			Player.p_palantir = FALSE;
			}
		    else if (drandom() > 0.5)
			/* gems turn to gold */
			{
			mvprintw(Lines++, 0,
			    "%s transformed your gems into gold!", Enemyname);
			Player.p_gold += Player.p_gems;
			Player.p_gems = 0.0;
			}
		    else
			/* scramble some stats */
			{
			mvprintw(Lines++, 0, "%s scrambled your stats!", Enemyname);
			scramblestats();
			}
		    break;

		case SM_THAUMATURG:
		    /* transport player */
		    mvprintw(Lines++, 0, "%s transported you!", Enemyname);
		    altercoordinates(0.0, 0.0, A_FAR);
		    cancelmonster();
		    break;

		case SM_VORTEX:
		    /* suck up some mana */
		    inflict = ROLL(0, 7.5 * Circle);
		    inflict = MIN(Player.p_mana, floor(inflict));
		    mvprintw(Lines++, 0,
			"%s sucked up %.0f of your mana!", Enemyname, inflict);
		    Player.p_mana -= inflict;
		    break;

		case SM_NAZGUL:
		    /* try to take ring if player has one */
		    if (Player.p_ring.ring_type != R_NONE)
			/* player has a ring */
			{
			mvaddstr(Lines++, 0, "Will you relinguish your ring ? ");
			ch = getanswer("YN", FALSE);
			if (ch == 'Y')
			    /* take ring away */
			    {
			    Player.p_ring.ring_type = R_NONE;
			    Player.p_ring.ring_inuse = FALSE;
			    cancelmonster();
			    break;
			    }
			}

		    /* otherwise, take some brains */
		    mvprintw(Lines++, 0,
			"%s neutralized 1/5 of your brain!", Enemyname);
		    Player.p_brains *= 0.8;
		    break;

		case SM_TIAMAT:
		    /* take some gold and gems */
		    mvprintw(Lines++, 0,
			"%s took half your gold and gems and flew off.", Enemyname);
		    Player.p_gold /= 2.0;
		    Player.p_gems /= 2.0;
		    cancelmonster();
		    break;

		case SM_KOBOLD:
		    /* steal a gold piece and run */
		    mvprintw(Lines++, 0,
			"%s stole one gold piece and ran away.", Enemyname);
		    Player.p_gold = MAX(0.0, Player.p_gold - 1.0);
		    cancelmonster();
		    break;

		case SM_SHELOB:
		    /* bite and (medium) poison */
		    mvprintw(Lines++, 0,
			"%s has bitten and poisoned you!", Enemyname);
		    Player.p_poison -= 1.0;
		    break;

		case SM_LAMPREY:
		    /*  bite and (small) poison */
		    mvprintw(Lines++, 0, "%s bit and poisoned you!", Enemyname);
		    Player.p_poison += 0.25;
		    break;

		case SM_BONNACON:
		    /* fart and run */
		    mvprintw(Lines++, 0, "%s farted and scampered off.", Enemyname);
		    Player.p_energy /= 2.0;		/* damage from fumes */
		    cancelmonster();
		    break;

		case SM_SMEAGOL:
		    if (Player.p_ring.ring_type != R_NONE)
			/* try to steal ring */
			{
			mvprintw(Lines++, 0,
			    "%s tried to steal your ring, ", Enemyname);
			if (drandom() > 0.1)
			    addstr("but was unsuccessful.");
			else
			    {
			    addstr("and ran away with it!");
			    Player.p_ring.ring_type = R_NONE;
			    cancelmonster();
			    }
			}
		    break;

		case SM_SUCCUBUS:
		    /* inflict damage through shield */
		    inflict = ROLL(15.0, Circle * 10.0);
		    inflict = MIN(inflict, Player.p_energy);
		    mvprintw(Lines++, 0, "%s sapped %.0f of your energy.",
			Enemyname, inflict);
		    Player.p_energy -= inflict;
		    break;

		case SM_CERBERUS:
		    /* take all metal treasures */
		    mvprintw(Lines++, 0,
			"%s took all your metal treasures!", Enemyname);
		    Player.p_crowns = 0;
		    Player.p_sword =
		    Player.p_shield =
		    Player.p_gold = 0.0;
		    cancelmonster();
		    break;

		case SM_UNGOLIANT:
		    /* (large) poison and take a quickness */
		    mvprintw(Lines++, 0,
			"%s poisoned you, and took one quik.", Enemyname);
		    Player.p_poison += 5.0;
		    Player.p_quickness -= 1.0;
		    break;

		case SM_JABBERWOCK:
		    /* fly away, and leave either a Jubjub bird or Bonnacon */
		    mvprintw(Lines++, 0,
			"%s flew away, and left you to contend with one of its friends.",
			Enemyname);
		    Whichmonster = 55 + (drandom() > 0.5) ? 22 : 0;
		    longjmp(Fightenv, 0);
		    /*NOTREACHED*/

		case SM_TROLL:
		    /* partially regenerate monster */
		    mvprintw(Lines++, 0,
			"%s partially regenerated his energy.!", Enemyname);
		    Curmonster.m_energy +=
			floor((Curmonster.m_o_energy - Curmonster.m_energy) / 2.0);
		    Curmonster.m_strength = Curmonster.m_o_strength;
		    Curmonster.m_melee = Curmonster.m_skirmish = 0.0;
		    Curmonster.m_maxspeed = Curmonster.m_o_speed;
		    break;

		case SM_WRAITH:
		    if (!Player.p_blindness)
			/* make blind */
			{
			mvprintw(Lines++, 0, "%s blinded you!", Enemyname);
			Player.p_blindness = TRUE;
			Enemyname = "A monster";
			}
		    break;
		}
	    return;
	}

    /* fall through to here if monster inflicts a normal hit */
    inflict = drandom() * Curmonster.m_strength + 0.5;
SPECIALHIT:
    mvprintw(Lines++, 0, "%s hit you %.0f times!", Enemyname, inflict);

    if ((Shield -= inflict) < 0)
	{
	Player.p_energy += Shield;
	Shield = 0.0;
	}
}
/**/
/************************************************************************
/
/ FUNCTION NAME: cancelmonster()
/
/ FUNCTION: mark current monster as no longer active
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: none
/
/ GLOBAL INPUTS: none
/
/ GLOBAL OUTPUTS: Curmonster
/
/ DESCRIPTION:
/	Clear current monster's energy, experience, treasure type, and
/	flock.  This is the same as having the monster run away.
/
*************************************************************************/

cancelmonster()
{
    Curmonster.m_energy = 0.0;
    Curmonster.m_experience = 0.0;
    Curmonster.m_treasuretype = 0;
    Curmonster.m_flock = 0.0;
}
/**/
/************************************************************************
/
/ FUNCTION NAME: hitmonster()
/
/ FUNCTION: inflict damage upon current monster
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS:
/	double inflict - damage to inflict upon monster
/
/ RETURN VALUE: none
/
/ MODULES CALLED: monsthits(), wmove(), strcmp(), waddstr(), mvprintw()
/
/ GLOBAL INPUTS: Curmonster, Lines, Player, *stdscr, *Enemyname
/
/ GLOBAL OUTPUTS: Curmonster, Lines
/
/ DESCRIPTION:
/	Hit monster specified number of times.  Handle when monster dies,
/	and a few special monsters.
/
*************************************************************************/

hitmonster(inflict)
double	inflict;
{
    mvprintw(Lines++, 0, "You hit %s %.0f times!", Enemyname, inflict);
    Curmonster.m_energy -= inflict;
    if (Curmonster.m_energy > 0.0)
	{
	if (Curmonster.m_type == SM_DARKLORD || Curmonster.m_type == SM_SHRIEKER)
	    /* special monster didn't die */
	    monsthits();
	}
    else
	/* monster died.  print message. */
	{
	if (Curmonster.m_type == SM_MORGOTH)
	    mvaddstr(Lines++, 0, "You have defeated Morgoth, but he may return. . .");
	else
	    /* all other types of monsters */
	    {
	    mvprintw(Lines++, 0, "You killed it.  Good work, %s.", Player.p_name);

	    if (Curmonster.m_type == SM_MIMIC
		&& strcmp(Curmonster.m_name, "A Mimic") != 0
		&& !Player.p_blindness)
		mvaddstr(Lines++, 0, "The body slowly changes into the form of a mimic.");
	    }
	}
}
/**/
/************************************************************************
/
/ FUNCTION NAME: throwspell()
/
/ FUNCTION: throw a magic spell
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: hitmonster(), cancelmonster(), sqrt(), floor(), wmove(),
/	drandom(), altercoordinates(), longjmp(), infloat(), waddstr(), mvprintw(),
/	getanswer()
/
/ GLOBAL INPUTS: Curmonster, Whichmonster, Nomana[], Player, *stdscr,
/	Fightenv[], Illspell[], *Enemyname
/
/ GLOBAL OUTPUTS: Curmonster, Whichmonster, Shield, Player
/
/ DESCRIPTION:
/	Prompt player and process magic spells.
/
*************************************************************************/

throwspell()
{
double	inflict;	/* damage inflicted */
double	dtemp;		/* for dtemporary calculations */
int	ch;		/* input */

    mvaddstr(7, 0, "\n\n");		/* clear menu area */

    if (Player.p_magiclvl >= ML_ALLORNOTHING)
	mvaddstr(7, 0, "1:All or Nothing  ");
    if (Player.p_magiclvl >= ML_MAGICBOLT)
	addstr("2:Magic Bolt  ");
    if (Player.p_magiclvl >= ML_FORCEFIELD)
	addstr("3:Force Field  ");
    if (Player.p_magiclvl >= ML_XFORM)
	addstr("4:Transform  ");
    if (Player.p_magiclvl >= ML_INCRMIGHT)
	addstr("5:Increase Might\n");
    if (Player.p_magiclvl >= ML_INVISIBLE)
	mvaddstr(8, 0, "6:Invisibility  ");
    if (Player.p_magiclvl >= ML_XPORT)
	addstr("7:Transport  ");
    if (Player.p_magiclvl >= ML_PARALYZE)
	addstr("8:Paralyze  ");
    if (Player.p_specialtype >= SC_COUNCIL)
	addstr("9:Specify");
    mvaddstr(4, 0, "Spell ? ");

    ch = getanswer(" ", TRUE);

    mvaddstr(7, 0, "\n\n");		/* clear menu area */

    if (Curmonster.m_type == SM_MORGOTH && ch != '3')
	/* can only throw force field against Morgoth */
	ILLSPELL();
    else
	switch (ch)
	    {
	    case '1':   /* all or nothing */
		if (drandom() < 0.25)
		    /* success */
		    {
		    inflict = Curmonster.m_energy * 1.01 + 1.0;

		    if (Curmonster.m_type == SM_DARKLORD)
			/* all or nothing doesn't quite work against D. L. */
			inflict *= 0.9;
		    }
		else
		    /* failure -- monster gets stronger and quicker */
		    {
		    Curmonster.m_o_strength = Curmonster.m_strength *= 2.0;
		    Curmonster.m_maxspeed *= 2.0;
		    Curmonster.m_o_speed *= 2.0;

		    /* paralyzed monsters wake up a bit */
		    Curmonster.m_speed = MAX(1.0, Curmonster.m_speed * 2.0);
		    }

		if (Player.p_mana >= MM_ALLORNOTHING)
		    /* take a mana if player has one */
		    Player.p_mana -= MM_ALLORNOTHING;

		hitmonster(inflict);
		break;

	    case '2':   /* magic bolt */
		if (Player.p_magiclvl < ML_MAGICBOLT)
		    ILLSPELL();
		else
		    {
		    do
			/* prompt for amount to expend */
			{
			mvaddstr(4, 0, "How much mana for bolt? ");
			dtemp = floor(infloat());
			}
		    while (dtemp < 0.0 || dtemp > Player.p_mana);

		    Player.p_mana -= dtemp;

		    if (Curmonster.m_type == SM_DARKLORD)
			/* magic bolts don't work against D. L. */
			inflict = 0.0;
		    else
			inflict = dtemp * ROLL(15.0, sqrt(Player.p_magiclvl / 3.0 + 1.0));
		    mvaddstr(5, 0, "Magic Bolt fired!\n");
		    hitmonster(inflict);
		    }
		break;

	    case '3':   /* force field */
		if (Player.p_magiclvl < ML_FORCEFIELD)
		    ILLSPELL();
		else if (Player.p_mana < MM_FORCEFIELD)
		    NOMANA();
		else
		    {
		    Player.p_mana -= MM_FORCEFIELD;
		    Shield = (Player.p_maxenergy + Player.p_shield) * 4.2 + 45.0;
		    mvaddstr(5, 0, "Force Field up.\n");
		    }
		break;

	    case '4':   /* transform */
		if (Player.p_magiclvl < ML_XFORM)
		    ILLSPELL();
		else if (Player.p_mana < MM_XFORM)
		    NOMANA();
		else
		    {
		    Player.p_mana -= MM_XFORM;
		    Whichmonster = (int) ROLL(0.0, 100.0);
		    longjmp(Fightenv, 0);
		    /*NOTREACHED*/
		    }
		break;

	    case '5':   /* increase might */
		if (Player.p_magiclvl < ML_INCRMIGHT)
		    ILLSPELL();
		else if (Player.p_mana < MM_INCRMIGHT)
		    NOMANA();
		else
		    {
		    Player.p_mana -= MM_INCRMIGHT;
		    Player.p_might +=
			(1.2 * (Player.p_strength + Player.p_sword)
			+ 5.0 - Player.p_might) / 2.0;
		    mvprintw(5, 0, "New strength:  %.0f\n", Player.p_might);
		    }
		break;

	    case '6':   /* invisible */
		if (Player.p_magiclvl < ML_INVISIBLE)
		    ILLSPELL();
		else if (Player.p_mana < MM_INVISIBLE)
		    NOMANA();
		else
		    {
		    Player.p_mana -= MM_INVISIBLE;
		    Player.p_speed +=
			(1.2 * (Player.p_quickness + Player.p_quksilver)
			+ 5.0 - Player.p_speed) / 2.0;
		    mvprintw(5, 0, "New quickness:  %.0f\n", Player.p_speed);
		    }
		break;

	    case '7':   /* transport */
		if (Player.p_magiclvl < ML_XPORT)
		    ILLSPELL();
		else if (Player.p_mana < MM_XPORT)
		    NOMANA();
		else
		    {
		    Player.p_mana -= MM_XPORT;
		    if (Player.p_brains + Player.p_magiclvl
			< Curmonster.m_experience / 200.0 * drandom())
			{
			mvaddstr(5, 0, "Transport backfired!\n");
			altercoordinates(0.0, 0.0, A_FAR);
			cancelmonster();
			}
		    else
			{
			mvprintw(5, 0, "%s is transported.\n", Enemyname);
			if (drandom() < 0.3)
			    /* monster didn't drop its treasure */
			    Curmonster.m_treasuretype = 0;

			Curmonster.m_energy = 0.0;
			}
		    }
		break;

	    case '8':   /* paralyze */
		if (Player.p_magiclvl < ML_PARALYZE)
		    ILLSPELL();
		else if (Player.p_mana < MM_PARALYZE)
		    NOMANA();
		else
		    {
		    Player.p_mana -= MM_PARALYZE;
		    if (Player.p_magiclvl >
			Curmonster.m_experience / 1000.0 * drandom())
			{
			mvprintw(5, 0, "%s is held.\n", Enemyname);
			Curmonster.m_speed = -2.0;
			}
		    else
			mvaddstr(5, 0, "Monster unaffected.\n");
		    }
		break;

	    case '9':   /* specify */
		if (Player.p_specialtype < SC_COUNCIL)
		    ILLSPELL();
		else if (Player.p_mana < MM_SPECIFY)
		    NOMANA();
		else
		    {
		    Player.p_mana -= MM_SPECIFY;
		    mvaddstr(5, 0, "Which monster do you want [0-99] ? ");
		    Whichmonster = (int) infloat();
		    Whichmonster = MAX(0, MIN(99, Whichmonster));
		    longjmp(Fightenv, 0);
		    /*NOTREACHED*/
		    }
		break;
	    }
}
/**/
/************************************************************************
/
/ FUNCTION NAME: callmonster()
/
/ FUNCTION: read monster from file, and fill structure
/
/ AUTHOR: E. A. Estes, 2/25/86
/
/ ARGUMENTS:
/	int which - which monster to call
/
/ RETURN VALUE: none
/
/ MODULES CALLED: truncstring(), fread(), fseek(), floor(), drandom(),
/	strcpy()
/
/ GLOBAL INPUTS: Curmonster, Circle, Player, *Monstfp
/
/ GLOBAL OUTPUTS: Curmonster, Player, *Enemyname
/
/ DESCRIPTION:
/	Read specified monster from monster database and fill up
/	current monster structure.
/	Adjust statistics based upon current size.
/	Handle some special monsters.
/
*************************************************************************/

callmonster(which)
int	which;
{
struct monster	Othermonster;		/* to find a name for mimics */

    which = MIN(which, 99);		/* make sure within range */

    /* fill structure */
    fseek(Monstfp, (long) which * (long) SZ_MONSTERSTRUCT, 0);
    fread((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp);

    /* handle some special monsters */
    if (Curmonster.m_type == SM_MODNAR)
	{
	if (Player.p_specialtype < SC_COUNCIL)
	    /* randomize some stats */
	    {
	    Curmonster.m_strength *= drandom() + 0.5;
	    Curmonster.m_brains *= drandom() + 0.5;
	    Curmonster.m_speed *= drandom() + 0.5;
	    Curmonster.m_energy *= drandom() + 0.5;
	    Curmonster.m_experience *= drandom() + 0.5;
	    Curmonster.m_treasuretype =
		(int) ROLL(0.0, (double) Curmonster.m_treasuretype);
	    }
	else
	    /* make Modnar into Morgoth */
	    {
	    strcpy(Curmonster.m_name, "Morgoth");
	    Curmonster.m_strength = drandom() * (Player.p_maxenergy + Player.p_shield) / 1.4
		+ drandom() * (Player.p_maxenergy + Player.p_shield) / 1.5;
	    Curmonster.m_brains = Player.p_brains;
	    Curmonster.m_energy = Player.p_might * 30.0;
	    Curmonster.m_type = SM_MORGOTH;
	    Curmonster.m_speed = Player.p_speed * 1.1
		+ (Player.p_specialtype == SC_EXVALAR) ? Player.p_speed : 0.0;
	    Curmonster.m_flock = 0.0;
	    Curmonster.m_treasuretype = 0;
	    Curmonster.m_experience = 0.0;
	    }
	}
    else if (Curmonster.m_type == SM_MIMIC)
	/* pick another name */
	{
	which = (int) ROLL(0.0, 100.0);
	fseek(Monstfp, (long) which * (long) SZ_MONSTERSTRUCT, 0);
	fread(&Othermonster, SZ_MONSTERSTRUCT, 1, Monstfp);
	strcpy(Curmonster.m_name, Othermonster.m_name);
	}

    truncstring(Curmonster.m_name);

    if (Curmonster.m_type != SM_MORGOTH)
	/* adjust stats based on which circle player is in */
	{
	Curmonster.m_strength *= (1.0 + Circle / 2.0);
	Curmonster.m_brains *= Circle;
	Curmonster.m_speed += Circle * 1.e-9;
	Curmonster.m_energy *= Circle;
	Curmonster.m_experience *= Circle;
	}

    if (Player.p_blindness)
	/* cannot see monster if blind */
	Enemyname = "A monster";
    else
	Enemyname = Curmonster.m_name;

    if (Player.p_speed <= 0.0)
	/* make Player.p_speed positive */
	{
	Curmonster.m_speed += -Player.p_speed;
	Player.p_speed = 1.0;
	}

    /* fill up the rest of the structure */
    Curmonster.m_o_strength = Curmonster.m_strength;
    Curmonster.m_o_speed = Curmonster.m_maxspeed = Curmonster.m_speed;
    Curmonster.m_o_energy = Curmonster.m_energy;
    Curmonster.m_melee = Curmonster.m_skirmish = 0.0;
}
/**/
/************************************************************************
/
/ FUNCTION NAME: awardtreasure()
/
/ FUNCTION: select a treasure
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: pickmonster(), collecttaxes(), more(), cursedtreasure(),
/	floor(), wmove(), drandom(), sscanf(), printw(), altercoordinates(),
/	longjmp(), infloat(), waddstr(), getanswer(), getstring(), wclrtobot()
/
/ GLOBAL INPUTS: Somebetter[], Curmonster, Whichmonster, Circle, Player,
/	*stdscr, Databuf[], *Statptr, Fightenv[]
/
/ GLOBAL OUTPUTS: Whichmonster, Shield, Player
/
/ DESCRIPTION:
/	Roll up a treasure based upon monster type and size, and
/	certain player statistics.
/	Handle cursed treasure.
/
*************************************************************************/

awardtreasure()
{
register int	whichtreasure;		/* calculated treasure to grant */
int	temp;				/* temporary */
int	ch;				/* input */
double	treasuretype;			/* monster's treasure type */
double	gold = 0.0;			/* gold awarded */
double	gems = 0.0;			/* gems awarded */
double	dtemp;				/* for temporary calculations */

    whichtreasure = (int) ROLL(1.0, 3.0);	/* pick a treasure */
    treasuretype = (double) Curmonster.m_treasuretype;

    move(4, 0);
    clrtobot();
    move(6, 0);

    if (drandom() > 0.65)
	/* gold and gems */
	{
	if (Curmonster.m_treasuretype > 7)
	    /* gems */
	    {
	    gems = ROLL(1.0, (treasuretype - 7.0)
		* (treasuretype - 7.0) * (Circle - 1.0) / 4.0);
	    printw("You have discovered %.0f gems!", gems);
	    }
	else
	    /* gold */
	    {
	    gold = ROLL(treasuretype * 10.0, treasuretype
		* treasuretype * 10.0 * (Circle - 1.0));
	    printw("You have found %.0f gold pieces.", gold);
	    }

	addstr("  Do you want to pick them up ? ");
	ch = getanswer("NY", FALSE);
	addstr("\n\n");

	if (ch == 'Y')
	    if (drandom() < treasuretype / 35.0 + 0.04)
		/* cursed */
		{
		addstr("They were cursed!\n");
		cursedtreasure();
		}
	    else
		collecttaxes(gold, gems);

	return;
	}
    else
	/* other treasures */
	{
	addstr("You have found some treasure.  Do you want to inspect it ? ");
	ch = getanswer("NY", FALSE);
	addstr("\n\n");

	if (ch != 'Y')
	    return;
	else
	    if (drandom() < 0.08 && Curmonster.m_treasuretype != 4)
		{
		addstr("It was cursed!\n");
		cursedtreasure();
		return;
		}
	    else
		switch (Curmonster.m_treasuretype)
		    {
		    case 1:	/* treasure type 1 */
			switch (whichtreasure)
			    {
			    case 1:
				addstr("You've discovered a power booster!\n");
				Player.p_mana += ROLL(Circle * 4.0, Circle * 30.0);
				break;

			    case 2:
				addstr("You have encountered a druid.\n");
				Player.p_experience +=
				    ROLL(0.0, 2000.0 + Circle * 400.0);
				break;

			    case 3:
				addstr("You have found a holy orb.\n");
				Player.p_sin = MAX(0.0, Player.p_sin - 0.25);
				break;
			    }
			break;
		    /* end treasure type 1 */

		    case 2:	/* treasure type 2 */
			switch (whichtreasure)
			    {
			    case 1:
				addstr("You have found an amulet.\n");
				++Player.p_amulets;
				break;

			    case 2:
				addstr("You've found some holy water!\n");
				++Player.p_holywater;
				break;

			    case 3:
				addstr("You've met a hermit!\n");
				Player.p_sin *= 0.75;
				Player.p_mana += 12.0 * Circle;
				break;
			    }
			break;
		    /* end treasure type 2 */

		    case 3:	/* treasure type 3 */
			switch (whichtreasure)
			    {
			    case 1:
				dtemp = ROLL(7.0, 30.0 + Circle / 10.0);
				printw("You've found a +%.0f shield!\n", dtemp);
				if (dtemp >= Player.p_shield)
				    Player.p_shield = dtemp;
				else
				    SOMEBETTER();
				break;

			    case 2:
				addstr("You have rescued a virgin.  Will you be honorable ? ");
				ch = getanswer("NY", FALSE);
				addstr("\n\n");
				if (ch == 'Y')
				    Player.p_virgin = TRUE;
				else
				    {
				    Player.p_experience += 2000.0 * Circle;
				    ++Player.p_sin;
				    }
				break;

			    case 3:
				addstr("You've discovered some athelas!\n");
				--Player.p_poison;
				break;
			    }
			break;
		    /* end treasure type 3 */

		    case 4:	/* treasure type 4 */
			addstr("You've found a scroll.  Will you read it ? ");
			ch = getanswer("NY", FALSE);
			addstr("\n\n");

			if (ch == 'Y')
			    switch ((int) ROLL(1, 6))
				{
				case 1:
				    addstr("It throws up a shield for you next monster.\n");
				    getyx(stdscr, whichtreasure, ch);
				    more(whichtreasure);
				    Shield =
					(Player.p_maxenergy + Player.p_energy) * 5.5 + Circle * 50.0;
				    Whichmonster = pickmonster();
				    longjmp(Fightenv, 0);
				    /*NOTREACHED*/

				case 2:
				    addstr("It makes you invisible for you next monster.\n");
				    getyx(stdscr, whichtreasure, ch);
				    more(whichtreasure);
				    Player.p_speed = 1e6;
				    Whichmonster = pickmonster();
				    longjmp(Fightenv, 0);
				    /*NOTREACHED*/

				case 3:
				    addstr("It increases your strength ten fold to fight your next monster.\n");
				    getyx(stdscr, whichtreasure, ch);
				    more(whichtreasure);
				    Player.p_might *= 10.0;
				    Whichmonster = pickmonster();
				    longjmp(Fightenv, 0);
				    /*NOTREACHED*/

				case 4:
				    addstr("It is a general knowledge scroll.\n");
				    Player.p_brains += ROLL(2.0, Circle);
				    Player.p_magiclvl += ROLL(1.0, Circle / 2.0);
				    break;

				case 5:
				    addstr("It tells you how to pick your next monster.\n");
				    addstr("Which monster do you want [0-99] ? ");
				    Whichmonster = (int) infloat();
				    Whichmonster = MIN(99, MAX(0, Whichmonster));
				    longjmp(Fightenv, 0);

				case 6:
				    addstr("It was cursed!\n");
				    cursedtreasure();
				    break;
				}
			    break;
		    /* end treasure type 4 */

		    case 5:	/* treasure type 5 */
			switch (whichtreasure)
			    {
			    case 1:
				dtemp = ROLL(Circle / 4.0 + 5.0, Circle / 2.0 + 9.0);
				printw("You've discovered a +%.0f dagger.\n", dtemp);
				if (dtemp >= Player.p_sword)
				    Player.p_sword = dtemp;
				else
				    SOMEBETTER();
				break;

			    case 2:
				dtemp = ROLL(7.5 + Circle * 3.0, Circle * 2.0 + 160.0);
				printw("You have found some +%.0f armour!\n", dtemp);
				if (dtemp >= Player.p_shield)
				    Player.p_shield = dtemp;
				else
				    SOMEBETTER();
				break;

			    case 3:
				addstr("You've found a tablet.\n");
				Player.p_brains += 4.5 * Circle;
				break;
			    }
			break;
		    /* end treasure type 5 */

		    case 6:	/* treasure type 6 */
			switch (whichtreasure)
			    {
			    case 1:
				addstr("You've found a priest.\n");
				Player.p_energy = Player.p_maxenergy + Player.p_shield;
				Player.p_sin /= 2.0;
				Player.p_mana += 24.0 * Circle;
				Player.p_brains += Circle;
				break;

			    case 2:
				addstr("You have come upon Robin Hood!\n");
				Player.p_shield += Circle * 2.0;
				Player.p_strength += Circle / 2.5 + 1.0;
				break;

			    case 3:
				dtemp = ROLL(2.0 + Circle / 4.0, Circle / 1.2 + 10.0);
				printw("You have found a +%.0f axe!\n", dtemp);
				if (dtemp >= Player.p_sword)
				    Player.p_sword = dtemp;
				else
				    SOMEBETTER();
				break;
			    }
			break;
		    /* end treasure type 6 */

		    case 7:	/* treasure type 7 */
			switch (whichtreasure)
			    {
			    case 1:
				addstr("You've discovered a charm!\n");
				++Player.p_charms;
				break;

			    case 2:
				addstr("You have encountered Merlyn!\n");
				Player.p_brains += Circle + 5.0;
				Player.p_magiclvl += Circle / 3.0 + 5.0;
				Player.p_mana += Circle * 10.0;
				break;

			    case 3:
				dtemp = ROLL(5.0 + Circle / 3.0, Circle / 1.5 + 20.0);
				printw("You have found a +%.0f war hammer!\n", dtemp);
				if (dtemp >= Player.p_sword)
				    Player.p_sword = dtemp;
				else
				    SOMEBETTER();
				break;
			    }
			break;
		    /* end treasure type 7 */

		    case 8:	/* treasure type 8 */
			switch (whichtreasure)
			    {
			    case 1:
				addstr("You have found a healing potion.\n");
				Player.p_poison = MIN(-2.0, Player.p_poison - 2.0);
				break;

			    case 2:
				addstr("You have discovered a transporter.  Do you wish to go anywhere ? ");
				ch = getanswer("NY", FALSE);
				addstr("\n\n");
				if (ch == 'Y')
				    {
				    double x, y;

				    addstr("X Y Coordinates ? ");
				    getstring(Databuf, SZ_DATABUF);
				    sscanf(Databuf, "%lf %lf", &x, &y);
				    altercoordinates(x, y, A_FORCED);
				    }
				break;

			    case 3:
				dtemp = ROLL(10.0 + Circle / 1.2, Circle * 3.0 + 30.0);
				printw("You've found a +%.0f sword!\n", dtemp);
				if (dtemp >= Player.p_sword)
				    Player.p_sword = dtemp;
				else
				    SOMEBETTER();
				break;
			    }
			break;
		    /* end treasure type 8 */

		    case 10:
		    case 11:
		    case 12:
		    case 13:	/* treasure types 10 - 13 */
			if (drandom() < 0.33)
			    {
			    if (Curmonster.m_treasuretype == 10)
				{
				addstr("You've found a pair of elven boots!\n");
				Player.p_quickness += 2.0;
				break;
				}
			    else if (Curmonster.m_treasuretype == 11
				&& !Player.p_palantir)
				{
				addstr("You've acquired Saruman's palantir.\n");
				Player.p_palantir = TRUE;
				break;
				}
			    else if (Player.p_ring.ring_type == R_NONE
				&& Player.p_specialtype < SC_COUNCIL
				&& (Curmonster.m_treasuretype == 12
				|| Curmonster.m_treasuretype == 13))
				/* roll up a ring */
				{
				if (drandom() < 0.8)
				    /* regular rings */
				    {
				    if (Curmonster.m_treasuretype == 12)
					{
					whichtreasure = R_NAZREG;
					temp = 35;
					}
				    else
					{
					whichtreasure = R_DLREG;
					temp = 0;
					}
				    }
				else
				    /* bad rings */
				    {
				    whichtreasure = R_BAD;
				    temp = 15 + Statptr->c_ringduration + (int) ROLL(0,5);
				    }

				addstr("You've discovered a ring.  Will you pick it up ? ");
				ch = getanswer("NY", FALSE);
				addstr("\n\n");

				if (ch == 'Y')
				    {
				    Player.p_ring.ring_type = whichtreasure;
				    Player.p_ring.ring_duration = temp;
				    }

				break;
				}
			    }
			/* end treasure types 10 - 13 */
			/* fall through to treasure type 9 if no treasure from above */

			case 9:	/* treasure type 9 */
			    switch (whichtreasure)
				{
				case 1:
				    if (Player.p_level <= 1000.0
					&& Player.p_crowns <= 3
					&& Player.p_level >= 10.0)
					{
					addstr("You have found a golden crown!\n");
					++Player.p_crowns;
					break;
					}
				    /* fall through otherwise */

				case 2:
				    addstr("You've been blessed!\n");
				    Player.p_blessing = TRUE;
				    Player.p_sin /= 3.0;
				    Player.p_energy = Player.p_maxenergy + Player.p_shield;
				    Player.p_mana += 100.0 * Circle;
				    break;

				case 3:
				    dtemp = ROLL(1.0, Circle / 5.0 + 5.0);
				    dtemp = MIN(dtemp, 99.0);
				    printw("You have discovered some +%.0f quicksilver!\n",dtemp);
				    if (dtemp >= Player.p_quksilver)
					Player.p_quksilver = dtemp;
				    else
					SOMEBETTER();
				    break;
				}
			    break;
		    /* end treasure type 9 */
		    }
	}
}
/**/
/************************************************************************
/
/ FUNCTION NAME: cursedtreasure()
/
/ FUNCTION: take care of cursed treasure
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: waddstr()
/
/ GLOBAL INPUTS: Player, *stdscr
/
/ GLOBAL OUTPUTS: Player
/
/ DESCRIPTION:
/	Handle cursed treasure.  Look for amulets and charms to save
/	the player from the curse.
/
*************************************************************************/

cursedtreasure()
{
    if (Player.p_charms > 0)
	{
	addstr("But your charm saved you!\n");
	--Player.p_charms;
	}
    else if (Player.p_amulets > 0)
	{
	addstr("But your amulet saved you!\n");
	--Player.p_amulets;
	}
    else
	{
	Player.p_energy = (Player.p_maxenergy + Player.p_shield) / 10.0;
	Player.p_poison += 0.25;
	}
}
/**/
/************************************************************************
/
/ FUNCTION NAME: scramblestats()
/
/ FUNCTION: scramble some selected statistics
/
/ AUTHOR: E. A. Estes, 12/4/85
/
/ ARGUMENTS: none
/
/ RETURN VALUE: none
/
/ MODULES CALLED: floor(), drandom()
/
/ GLOBAL INPUTS: Player
/
/ GLOBAL OUTPUTS: Player
/
/ DESCRIPTION:
/	Swap a few player statistics randomly.
/
*************************************************************************/

scramblestats()
{
double	dbuf[6];		/* to put statistic in */
double	dtemp1, dtemp2;		/* for swapping values */
register int	first, second;	/* indices for swapping */
register double  *dptr;		/* pointer for filling and emptying buf[] */

    /* fill buffer */
    dptr = &dbuf[0];
    *dptr++ = Player.p_strength;
    *dptr++ = Player.p_mana;
    *dptr++ = Player.p_brains;
    *dptr++ = Player.p_magiclvl;
    *dptr++ = Player.p_energy;
    *dptr = Player.p_sin;

    /* pick values to swap */
    first = (int) ROLL(0, 5);
    second = (int) ROLL(0, 5);

    /* swap values */
    dptr = &dbuf[0];
    dtemp1 = dptr[first];
    /* this expression is split to prevent a compiler loop on some compilers */
    dtemp2 = dptr[second];
    dptr[first] = dtemp2;
    dptr[second] = dtemp1;

    /* empty buffer */
    Player.p_strength = *dptr++;
    Player.p_mana = *dptr++;
    Player.p_brains = *dptr++;
    Player.p_magiclvl = *dptr++;
    Player.p_energy = *dptr++;
    Player.p_sin = *dptr;
}
