action.c

/*
    action.c

    Routines to perform the actual actions associated with various
    player entered commands.

    act_remove_gems         remove gems from a throne
    act_sit_throne          sit on a throne
    act_up_stairs           go up stairs
    act_down_stairs         go down stairs
    act_drink_fountain      drink from a fountain
    act_wash_fountain       wash at a fountain
    act_up_shaft            up volcanic shaft
    act_down_shaft          down volcanic shaft
    volshaft_climbed        place player near volcanic shaft
    act_desecrate_altar     desecrate an altar
    act_donation_pray       pray, donating money
    act_just_pray           pray, not donating money
    act_prayer_heard        prayer was heard
    act_ignore_altar        ignore an altar
    act_open_chest          open a chest
    act_open_door           open a door
*/

#include "larncons.h"
#include "larndata.h"
#include "larnfunc.h"


static void	volshaft_climbed(int);

static void	act_prayer_heard(void);




/*
    act_remove_gems

    Remove gems from a throne.

    arg is zero if there is a gnome king associated with the throne

    Assumes that cursors() has been called previously, and that a check
    has been made that the throne actually has gems.
*/
void act_remove_gems(int arg)
{
	int i, k ;

	k = rnd(101);
	
	if (k < 25) {
		
		for (i = 0; i < rnd(4); i++) {

			/* gems pop ohf the throne */
			creategem(); 
		}
		
		item[playerx][playery]=ODEADTHRONE;
		know[playerx][playery]=0;
	
        } else if (k < 40 && arg == 0) {
		
		createmonster(GNOMEKING);
		item[playerx][playery] = OTHRONE2;
		know[playerx][playery] = 0;
		
        } else { 
		
		lprcat("\nNothing happens");
	}
}



/*
    act_sit_throne

    Sit on a throne.

    arg is zero if there is a gnome king associated with the throne

    Assumes that cursors() has been called previously.
*/
void act_sit_throne(int arg)
{
	int k;

	k = rnd(101);
	
	if (k < 30 && arg == 0) {
		
		createmonster(GNOMEKING);
		item[playerx][playery]=OTHRONE2;
		know[playerx][playery]=0;
		
        } else if (k < 35) { 
		
		lprcat("\nZaaaappp!  You've been teleported!\n"); 
		oteleport(0); 
		
        } else { 
		
		lprcat("\nNothing happens");
	}
}



/*
    assumes that cursors() has been called and that a check has been made that
    the user is actually standing at a set of up stairs.
*/
void act_up_stairs(void)
{

	if (level >= 2 && level != 11) {
		
		newcavelevel( level - 1 ) ;
		draws( 0, MAXX, 0, MAXY );
		bot_linex() ;
		
	} else {
		
		lprcat("\nThe stairs lead to a dead end!");
	}
}



/*
    assumes that cursors() has been called and that a check has been made that
    the user is actually standing at a set of down stairs.
*/
void act_down_stairs(void)
{

	if (level != 0 && level != 10 && level != 13) {

		newcavelevel( level + 1 )  ;
		draws( 0, MAXX, 0, MAXY );
		bot_linex() ;
		
        } else {
		
		lprcat("\nThe stairs lead to a dead end!");
	}
}
    
    

/*
    Code to perform the action of drinking at a fountian.  Assumes that
    cursors() has already been called, and that a check has been made that
    the player is actually standing at a live fountain.
*/
void act_drink_fountain(void)
{
    int x ;

    if (rnd(1501)<2)
        {
        lprcat("\nOops!  You seem to have caught the dreadful sleep!");
        lflush();  
        nap(3000);  
        died(280); 
        return;
        }

    x = rnd(100);
    if (x<7)
        {
        c[HALFDAM] += 200 + rnd(200);
        lprcat("\nYou feel a sickness coming on");
        }

    else if (x < 13)
        quaffpotion(23, FALSE ); /* see invisible,but don't know the potion */

    else if (x < 45)
        lprcat("\nnothing seems to have happened");

    else if (rnd(3) != 2)
        fntchange(1);   /*  change char levels upward   */

    else
        fntchange(-1);  /*  change char levels downward */

    if (rnd(12)<3)
        {
        lprcat("\nThe fountains bubbling slowly quiets");
        item[playerx][playery]=ODEADFOUNTAIN; /* dead fountain */
        know[playerx][playery]=0;
        }
    return;
}



/*
    Code to perform the action of washing at a fountain.  Assumes that
    cursors() has already been called and that a check has been made that
    the player is actually standing at a live fountain.
*/
void act_wash_fountain(void)
{
    int x ;

    if (rnd(100) < 11)
        {
        x=rnd((level<<2)+2);
        lprintf("\nOh no!  The water was foul!  You suffer %d hit points!",(long)x);
        lastnum=273;
        losehp(x); 
        bottomline();  
        cursors();
        }

    else if (rnd(100) < 29)
        lprcat("\nYou got the dirt off!");

    else if (rnd(100) < 31)
        lprcat("\nThis water seems to be hard water!  The dirt didn't come off!");

    else if (rnd(100) < 34)
        createmonster(WATERLORD); /*    make water lord     */

    else
        lprcat("\nnothing seems to have happened");

    return;
}



/*
    Perform the act of climbing down the volcanic shaft.  Assumes
    cursors() has been called and that a check has been made that
    are actually at a down shaft.
*/
void act_down_shaft(void)
{
    if (level!=0)
        {
        lprcat("\nThe shaft only extends 5 feet downward!");
        return;
        }

    if (packweight() > 45+3*(c[STRENGTH]+c[STREXTRA]))
        {
        lprcat("\nYou slip and fall down the shaft");
        lastnum=275;
        losehp(30+rnd(20));
        bottomhp();
        }

    newcavelevel(MAXLEVEL);
    draws(0,MAXX,0,MAXY);
    bot_linex();
    return;
}



/*
    Perform the action of climbing up the volcanic shaft. Assumes
    cursors() has been called and that a check has been made that
    are actually at an up shaft.

*/
void act_up_shaft(void)
{
    if (level!=11) 
        { 
        lprcat("\nThe shaft only extends 8 feet upwards before you find a blockage!"); 
        return; 
        }

    if (packweight() > 45+5*(c[STRENGTH]+c[STREXTRA])) 
        { 
        lprcat("\nYou slip and fall down the shaft"); 
        lastnum=275; 
        losehp(15+rnd(20)); 
        bottomhp(); 
        return; 
        }

    lflush(); 
    newcavelevel(0);
    volshaft_climbed( OVOLDOWN );
    return;
}

    

/*
    Perform the action of placing the player near the volcanic shaft
    after it has been climbed.

    Takes one parameter:  the volcanic shaft object to be found.  If have
    climbed up, search for OVOLDOWN, otherwise search for OVOLUP.
*/
static void volshaft_climbed(int object)
{
	int i,j ;

    /* place player near the volcanic shaft */
    for (i=0; i<MAXY; i++)
        for (j=0; j<MAXX; j++)
            if (item[j][i] == object)
                {
                playerx=j;
                playery=i;
                positionplayer();
                i=MAXY;
                break;
                }
    draws(0,MAXX,0,MAXY);
    bot_linex();
    return ;
}



/*
    Perform the actions associated with Altar desecration.
*/
void act_desecrate_altar(void)
{
    if (rnd(100)<60)
    { 
    createmonster(makemonst(level+2)+8); 
    c[AGGRAVATE] += 2500; 
    }
    else if (rnd(101)<30)
    {
    lprcat("\nThe altar crumbles into a pile of dust before your eyes");
    forget();   /*  remember to destroy the altar   */
    }
    else
    lprcat("\nnothing happens");
    return ;
}



/*
    Perform the actions associated with praying at an altar and giving a
    donation.
*/
void act_donation_pray(void)
{
	unsigned long k,temp ;

    while (1)
        {
        lprcat("\n\n");
        cursor(1,24);
        cltoeoln();
        cursor(1,23);
        cltoeoln();
        lprcat("how much do you donate? ");
        k = readnum((long)c[GOLD]);

	lprcat("\n");

        /* make giving zero gold equivalent to 'just pray'ing.  Allows player to
           'just pray' in command mode, without having to add yet another command.
        */
        if (k == 0)
            {
            act_just_pray();
            return;
            }

        if (c[GOLD] >= k)
            {
            temp = c[GOLD] / 10 ;
            c[GOLD] -= k;
            bottomline();

            /* if player gave less than 10% of _original_ gold, make a monster
            */
            if (k < temp || k < rnd(50))
                {
                createmonster(makemonst(level+1));
                c[AGGRAVATE] += 200;
                return;
                }
            if (rnd(101) > 50)
                {
                act_prayer_heard();
                return;
                }
            if (rnd(43) == 5)
                {
                if (c[WEAR])
                    lprcat("You feel your armor vibrate for a moment");
                enchantarmor();
                return;
                }
            if (rnd(43) == 8)
                {
                if (c[WIELD])
                    lprcat("You feel your weapon vibrate for a moment");
                enchweapon();
                return;
                }

            lprcat("Thank You.");
            return ;
            }

        /* Player donates more gold than they have.  Loop back around so
           player can't escape the altar for free.
        */
        lprcat("You don't have that much!");
        }
}



/*
    Performs the actions associated with 'just praying' at the altar.  Called
    when the user responds 'just pray' when in prompt mode, or enters 0 to
    the money prompt when praying.

    Assumes cursors(), and that any leading \n have been printed
*/
void act_just_pray(void)
{
    if (rnd(100)<75) 
    lprcat("nothing happens");
    else if (rnd(43) == 10)
    {
    if (c[WEAR]) 
        lprcat("You feel your armor vibrate for a moment");
    enchantarmor(); 
    return;
    }
    else if (rnd(43) == 10)
    {
    if (c[WIELD]) 
        lprcat("You feel your weapon vibrate for a moment");
    enchweapon(); 
    return;
    }
    else 
    createmonster(makemonst(level+1));
    return;
}

    

/*
 * function to cast a +3 protection on the player
 */
static void act_prayer_heard(void)
{

	lprcat("You have been heard!");

	if (c[ALTPRO] == 0) {

		c[MOREDEFENSES] += 3;
	}
	
	/* protection field */
	c[ALTPRO] += 500;   

	bottomline();
}



/*
    Performs the act of ignoring an altar.

    Assumptions:  cursors() has been called.
*/
void act_ignore_altar(void)
{
    if (rnd(100)<30)    
        {
        createmonster(makemonst(level+1)); 
        c[AGGRAVATE] += rnd(450); 
        }
    else    
        lprcat("\nNothing happens");
    return;
}

    
    
/*
    Performs the act of opening a chest.  

    Parameters:   x,y location of the chest to open.
    Assumptions:  cursors() has been called previously
*/
void act_open_chest(int x, int y)
{
    int i,k;

    k=rnd(101);
    if (k<40)
        {
        lprcat("\nThe chest explodes as you open it");
        i = rnd(10);  lastnum=281;  /* in case he dies */
        lprintf("\nYou suffer %d hit points damage!",(long)i);
        checkloss(i);
        switch(rnd(10)) /* see if he gets a curse */
            {
            case 1: c[ITCHING]+= rnd(1000)+100;
                    lprcat("\nYou feel an irritation spread over your skin!");
                    break;

            case 2: c[CLUMSINESS]+= rnd(1600)+200;
                    lprcat("\nYou begin to lose hand to eye coordination!");
                    break;

            case 3: c[HALFDAM]+= rnd(1600)+200;
                    lprcat("\nA sickness engulfs you!");    break;
            };
    item[x][y]=know[x][y]=0;    /* destroy the chest */
        if (rnd(100)<69) creategem(); /* gems from the chest */
    dropgold(rnd(110*iarg[playerx][playery]+200));
        for (i=0; i<rnd(4); i++) something(iarg[playerx][playery]+2);
        }
    else
        lprcat("\nNothing happens");
    return;
}



/*
    Perform the actions common to command and prompt mode when opening a
    door.  Assumes cursors().

    Parameters:     the X,Y location of the door to open.
    Return value:   TRUE if successful in opening the door, false if not.
*/
int act_open_door(int x, int y)
{
    if (rnd(11)<7)
        {
        switch(iarg[x][y])
            {
            case 6: c[AGGRAVATE] += rnd(400);   break;

            case 7: lprcat("\nYou are jolted by an electric shock ");
                    lastnum=274; losehp(rnd(20));  bottomline();  break;

            case 8: loselevel();  break;

            case 9: lprcat("\nYou suddenly feel weaker ");
                    if (c[STRENGTH]>3) c[STRENGTH]--;
                    bottomline();  break;

            default:    break;
            }
    return( 0 );
        }
    else
        {
        know[x][y]=0;
        item[x][y]=OOPENDOOR;
        return( 1 );
        }
}