xref: /dflybsd-src/games/larn/moreobj.c (revision 86d7f5d305c6adaa56ff4582ece9859d73106103)

/* moreobj.c 		Larn is copyrighted 1986 by Noah Morgan.
 * $FreeBSD: src/games/larn/moreobj.c,v 1.4 1999/11/16 02:57:22 billf Exp $
 * $DragonFly: src/games/larn/moreobj.c,v 1.3 2006/08/26 17:05:05 pavalos Exp $
 *
 *	Routines in this file:
 *
 *	oaltar()
 *	othrone()
 *	ochest()
 *	ofountain()
 */
#include "header.h"

static void ohear(void);
static void fch(int, long *);
static void fntchange(int);

/*
 *	subroutine to process an altar object
 */
void
oaltar(void)
{
	unsigned long k;

	lprcat("\nDo you (p) pray  (d) desecrate");
	iopts();
	while (1) {
		while (1)
			switch (getchr()) {
			case 'p':
				lprcat(" pray\nDo you (m) give money or (j) just pray? ");
				while (1)
					switch (getchr()) {
					case 'j':
						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));
						return;

					case 'm':
						lprcat("\n\n");
						cursor(1, 24);
						cltoeoln();
						cursor(1, 23);
						cltoeoln();
						lprcat("how much do you donate? ");
						k = readnum((long)c[GOLD]);
						if (c[GOLD] < (long)k) {
							lprcat("\nYou don't have that much!");
							return;
						}
						c[GOLD] -= k;
						if ((long)k < c[GOLD] / 10 || (long)k < 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();
						return;

					case '\33':
						return;
					}

			case 'd':
				lprcat(" desecrate");
				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;

			case 'i':
			case '\33':
				ignore();
				if (rnd(100) < 30) {
					createmonster(makemonst(level + 1));
					c[AGGRAVATE] += rnd(450);
				} else
					lprcat("\nnothing happens");
				return;
			}
	}
}

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

/*
	subroutine to process a throne object
 */
void
othrone(int arg)
{
	int i, k;

	lprcat("\nDo you (p) pry off jewels, (s) sit down");
	iopts();
	while (1) {
		while (1)
			switch (getchr()) {
			case 'p':
				lprcat(" pry off");
				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");
				return;

			case 's':
				lprcat(" sit down");
				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");
				return;

			case 'i':
			case '\33':
				ignore();
				return;
			}
	}
}

void
odeadthrone(void)
{
	int k;

	lprcat("\nDo you (s) sit down");
	iopts();
	while (1) {
		while (1)
			switch (getchr()) {
			case 's':
				lprcat(" sit down");
				k = rnd(101);
				if (k < 35) {
					lprcat("\nZaaaappp!  You've been teleported!\n");
					beep();
					oteleport(0);
				} else
					lprcat("\nnothing happens");
				return;

			case 'i':
			case '\33':
				ignore();
				return;
			}
	}
}

/*
	subroutine to process a throne object
 */
void
ochest(void)
{
	int i, k;
	lprcat("\nDo you (t) take it, (o) try to open it");
	iopts();
	while (1) {
		while (1)
			switch (getchr()) {
			case 'o':
				lprcat(" open it");
				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 %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!");
						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[playerx][playery] = know[playerx][playery] = 0;
					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;

			case 't':
				lprcat(" take");
				if (take(OCHEST, iarg[playerx][playery]) == 0)
					item[playerx][playery] = know[playerx][playery] = 0;
				return;

			case 'i':
			case '\33':
				ignore();
				return;
			}
	}
}

/*
	process a fountain object
 */
void
ofountain(void)
{
	int x;
	cursors();
	lprcat("\nDo you (d) drink, (w) wash yourself");
	iopts();
	while (1)
		switch (getchr()) {
		case 'd':
			lprcat("drink");
			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;
			}
			return;

		case '\33':
		case 'i':
			ignore();
			return;

		case 'w':
			lprcat("wash yourself");
			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;
		}
}

/*
	***
	FCH
	***

	subroutine to process an up/down of a character attribute for ofountain
 */
static void
fch(int how, long *x)
{
	if (how < 0) {
		lprcat(" went down by one!");
		--(*x);
	} else {
		lprcat(" went up by one!");
		(*x)++;
	}
	bottomline();
}

/*
	a subroutine to raise or lower character levels
	if x > 0 they are raised   if x < 0 they are lowered
 */
static void
fntchange(int how)
{
	long j;
	lprc('\n');
	switch (rnd(9)) {
	case 1:
		lprcat("Your strength");
		fch(how, &c[0]);
		break;
	case 2:
		lprcat("Your intelligence");
		fch(how, &c[1]);
		break;
	case 3:
		lprcat("Your wisdom");
		fch(how, &c[2]);
		break;
	case 4:
		lprcat("Your constitution");
		fch(how, &c[3]);
		break;
	case 5:
		lprcat("Your dexterity");
		fch(how, &c[4]);
		break;
	case 6:
		lprcat("Your charm");
		fch(how, &c[5]);
		break;
	case 7:
		j = rnd(level + 1);
		if (how < 0) {
			lprintf("You lose %d hit point", (long)j);
			if (j > 1)
				lprcat("s!");
			else
				lprc('!');
			losemhp((int)j);
		} else {
			lprintf("You gain %d hit point", (long)j);
			if (j > 1)
				lprcat("s!");
			else
				lprc('!');
			raisemhp((int)j);
		}
		bottomline();
		break;

	case 8:
		j = rnd(level + 1);
		if (how > 0) {
			lprintf("You just gained %d spell", (long)j);
			raisemspells((int)j);
			if (j > 1)
				lprcat("s!");
			else
				lprc('!');
		} else {
			lprintf("You just lost %d spell", (long)j);
			losemspells((int)j);
			if (j > 1)
				lprcat("s!");
			else
				lprc('!');
		}
		bottomline();
		break;

	case 9:
		j = 5 * rnd((level + 1) * (level + 1));
		if (how < 0) {
			lprintf("You just lost %d experience point", (long)j);
			if (j > 1)
				lprcat("s!");
			else
				lprc('!');
			loseexperience((long)j);
		} else {
			lprintf("You just gained %d experience point", (long)j);
			if (j > 1)
				lprcat("s!");
			else
				lprc('!');
			raiseexperience((long)j);
		}
		break;
	}
	cursors();
}