306 lines
6.5 KiB
C
306 lines
6.5 KiB
C
/* $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");
|
|
}
|