/*      $NetBSD: action.c,v 1.2 2021/05/02 12:50:45 rillig Exp $        */

/*
 * action.c             Larn is copyrighted 1986 by Noah Morgan.
 *
 * Routines in this file:
 *
 * ...
 */
#include <sys/cdefs.h>
#ifndef lint
__RCSID("$NetBSD: action.c,v 1.2 2021/05/02 12:50:45 rillig Exp $");
#endif                          /* not lint */
#include <stdlib.h>
#include <unistd.h>
#include "header.h"
#include "extern.h"

static void ohear(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++)
                        creategem();    /* gems pop off the
                                         * throne */
                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");
                beep();
                oteleport(0);
        } else
                lprcat("\nnothing happens");
}

/*
 * Code to perform the action of drinking 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_drink_fountain(void)
{
        int x;

        if (rnd(1501) < 2) {
                lprcat("\nOops!  You seem to have caught the dreadful sleep!");
                beep();
                lflush();
                sleep(3);
                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);        /* see invisible */
        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;
        }
}

/*
 * 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 %ld 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");
}

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

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

        lprcat("\n\n");
        cursor(1, 24);
        cltoeoln();
        cursor(1, 23);
        cltoeoln();
        lprcat("how much do you donate? ");
        amt = readnum((long) c[GOLD]);
        if (amt < 0 || c[GOLD] < amt) {
                lprcat("\nYou don't have that much!");
                return;
        }
        c[GOLD] -= amt;
        if (amt < c[GOLD] / 10 || amt < rnd(50)) {
                createmonster(makemonst(level + 1));
                c[AGGRAVATE] += 200;
        } else if (rnd(101) > 50) {
                ohear();
                return;
        } else if (rnd(43) == 5) {
                if (c[WEAR])
                        lprcat("\nYou feel your armor vibrate for a moment");
                enchantarmor();
                return;
        } else if (rnd(43) == 8) {
                if (c[WIELD])
                        lprcat("\nYou feel your weapon vibrate for a moment");
                enchweapon();
                return;
        } else
                lprcat("\nThank You.");
        bottomline();
}

/*
 *  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("\nnothing happens");
        else if (rnd(13) < 4)
                ohear();
        else if (rnd(43) == 10) {
                if (c[WEAR])
                        lprcat("\nYou feel your armor vibrate for a moment");
                enchantarmor();
                return;
        } else if (rnd(43) == 10) {
                if (c[WIELD])
                        lprcat("\nYou feel your weapon vibrate for a moment");
                enchweapon();
                return;
        } else
                createmonster(makemonst(level + 1));
}

/*
 * Function to cast a +3 protection on the player
 */
static void
ohear(void)
{
        lprcat("\nYou have been heard!");
        if (c[ALTPRO] == 0)
                c[MOREDEFENSES] += 3;
        c[ALTPRO] += 500;       /* protection field */
        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");
}

/*
 * 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");
                beep();
                i = rnd(10);
                lastnum = 281;  /* in case he dies */
                lprintf("\nYou suffer %ld 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!");
                        beep();
                        break;

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

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