xref: /src/games/larn/object.c

/*	$NetBSD: object.c,v 1.16.32.1 2019/06/10 22:05:11 christos Exp $	*/

/* object.c		Larn is copyrighted 1986 by Noah Morgan. */

#include <sys/cdefs.h>
#ifndef lint
__RCSID("$NetBSD: object.c,v 1.16.32.1 2019/06/10 22:05:11 christos Exp $");
#endif				/* not lint */
#include "header.h"
#include "extern.h"

static void finditem(int);
static void ostairs(int);
static void opotion(int);
static void oscroll(int);
static void oorb(void);
static void opit(void);
static void obottomless(void);
static void oelevator(int);
static void ostatue(void);
static void omirror(void);
static void obook(void);
static void ocookie(void);
static void ogold(int);
static void ohome(void);

/*
	lookforobject

	subroutine to look for an object and give the player his options
	if an object was found.
 */
void
lookforobject(void)
{
	int    i, j;
	if (c[TIMESTOP])
		return;		/* can't find objects if time is stopped	 */
	i = item[playerx][playery];
	if (i == 0)
		return;
	showcell(playerx, playery);
	cursors();
	yrepcount = 0;
	switch (i) {
	case OGOLDPILE:
	case OMAXGOLD:
	case OKGOLD:
	case ODGOLD:
		lprcat("\n\nYou have found some gold!");
		ogold(i);
		break;

	case OPOTION:
		lprcat("\n\nYou have found a magic potion");
		i = iarg[playerx][playery];
		if (potionname[i][0] != 0)
			lprintf(" of%s", potionname[i]);
		opotion(i);
		break;

	case OSCROLL:
		lprcat("\n\nYou have found a magic scroll");
		i = iarg[playerx][playery];
		if (scrollname[i][0] != 0)
			lprintf(" of%s", scrollname[i]);
		oscroll(i);
		break;

	case OALTAR:
		if (nearbymonst())
			return;
		lprcat("\n\nThere is a Holy Altar here!");
		oaltar();
		break;

	case OBOOK:
		lprcat("\n\nYou have found a book.");
		obook();
		break;

	case OCOOKIE:
		lprcat("\n\nYou have found a fortune cookie.");
		ocookie();
		break;

	case OTHRONE:
		if (nearbymonst())
			return;
		lprintf("\n\nThere is %s here!", objectname[i]);
		othrone(0);
		break;

	case OTHRONE2:
		if (nearbymonst())
			return;
		lprintf("\n\nThere is %s here!", objectname[i]);
		othrone(1);
		break;

	case ODEADTHRONE:
		lprintf("\n\nThere is %s here!", objectname[i]);
		odeadthrone();
		break;

	case OORB:
		lprcat("\n\nYou have found the Orb!!!!!");
		oorb();
		break;

	case OPIT:
		lprcat("\n\nYou're standing at the top of a pit.");
		opit();
		break;

	case OSTAIRSUP:
		lprcat("\n\nThere is a circular staircase here");
		ostairs(1);	/* up */
		break;

	case OELEVATORUP:
		lprcat("\n\nYou feel heavy for a moment, but the feeling disappears");
		oelevator(1);	/* up  */
		break;

	case OFOUNTAIN:
		if (nearbymonst())
			return;
		lprcat("\n\nThere is a fountain here");
		ofountain();
		break;

	case OSTATUE:
		if (nearbymonst())
			return;
		lprcat("\n\nYou are standing in front of a statue");
		ostatue();
		break;

	case OCHEST:
		lprcat("\n\nThere is a chest here");
		ochest();
		break;

	case OIVTELETRAP:
		if (rnd(11) < 6)
			return;
		item[playerx][playery] = OTELEPORTER;
		know[playerx][playery] = 1;

		/* FALLTHROUGH */
	case OTELEPORTER:
		lprcat("\nZaaaappp!  You've been teleported!\n");
		beep();
		nap(3000);
		oteleport(0);
		break;

	case OSCHOOL:
		if (nearbymonst())
			return;
		lprcat("\n\nYou have found the College of Larn.");
		lprcat("\nDo you (g) go inside, or (i) stay here? ");
		i = 0;
		while ((i != 'g') && (i != 'i') && (i != '\33'))
			i = ttgetch();
		if (i == 'g') {
			oschool();	/* the college of larn	 */
		} else
			lprcat(" stay here");
		break;

	case OMIRROR:
		if (nearbymonst())
			return;
		lprcat("\n\nThere is a mirror here");
		omirror();
		break;

	case OBANK2:
	case OBANK:
		if (nearbymonst())
			return;
		if (i == OBANK)
			lprcat("\n\nYou have found the bank of Larn.");
		else
			lprcat("\n\nYou have found a branch office of the bank of Larn.");
		lprcat("\nDo you (g) go inside, or (i) stay here? ");
		j = 0;
		while ((j != 'g') && (j != 'i') && (j != '\33'))
			j = ttgetch();
		if (j == 'g') {
			if (i == OBANK)
				obank();
			else
				obank2();	/* the bank of larn  */
		} else
			lprcat(" stay here");
		break;

	case ODEADFOUNTAIN:
		if (nearbymonst())
			return;
		lprcat("\n\nThere is a dead fountain here");
		break;

	case ODNDSTORE:
		if (nearbymonst())
			return;
		lprcat("\n\nThere is a DND store here.");
		lprcat("\nDo you (g) go inside, or (i) stay here? ");
		i = 0;
		while ((i != 'g') && (i != 'i') && (i != '\33'))
			i = ttgetch();
		if (i == 'g')
			dndstore();	/* the dnd adventurers store  */
		else
			lprcat(" stay here");
		break;

	case OSTAIRSDOWN:
		lprcat("\n\nThere is a circular staircase here");
		ostairs(-1);	/* down */
		break;

	case OELEVATORDOWN:
		lprcat("\n\nYou feel light for a moment, but the feeling disappears");
		oelevator(-1);	/* down	 */
		break;

	case OOPENDOOR:
		lprintf("\n\nYou have found %s", objectname[i]);
		lprcat("\nDo you (c) close it");
		iopts();
		i = 0;
		while ((i != 'c') && (i != 'i') && (i != '\33'))
			i = ttgetch();
		if ((i == '\33') || (i == 'i')) {
			ignore();
			break;
		}
		lprcat("close");
		forget();
		item[playerx][playery] = OCLOSEDDOOR;
		iarg[playerx][playery] = 0;
		playerx = lastpx;
		playery = lastpy;
		break;

	case OCLOSEDDOOR:
		lprintf("\n\nYou have found %s", objectname[i]);
		lprcat("\nDo you (o) try to open it");
		iopts();
		i = 0;
		while ((i != 'o') && (i != 'i') && (i != '\33'))
			i = ttgetch();
		if ((i == '\33') || (i == 'i')) {
			ignore();
			playerx = lastpx;
			playery = lastpy;
			break;
		} else {
			lprcat("open");
			if (rnd(11) < 7) {
				switch (iarg[playerx][playery]) {
				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;
				}
				playerx = lastpx;
				playery = lastpy;
			} else {
				forget();
				item[playerx][playery] = OOPENDOOR;
			}
		}
		break;

	case OENTRANCE:
		lprcat("\nYou have found ");
		lprcat(objectname[OENTRANCE]);
		lprcat("\nDo you (g) go inside");
		iopts();
		i = 0;
		while ((i != 'g') && (i != 'i') && (i != '\33'))
			i = ttgetch();
		if (i == 'g') {
			newcavelevel(1);
			playerx = 33;
			playery = MAXY - 2;
			item[33][MAXY - 1] = know[33][MAXY - 1] = mitem[33][MAXY - 1] = 0;
			draws(0, MAXX, 0, MAXY);
			bot_linex();
			return;
		} else
			ignore();
		break;

	case OVOLDOWN:
		lprcat("\nYou have found ");
		lprcat(objectname[OVOLDOWN]);
		lprcat("\nDo you (c) climb down");
		iopts();
		i = 0;
		while ((i != 'c') && (i != 'i') && (i != '\33'))
			i = ttgetch();
		if ((i == '\33') || (i == 'i')) {
			ignore();
			break;
		}
		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");
			beep();
			lastnum = 275;
			losehp(30 + rnd(20));
			bottomhp();
		} else
			lprcat("climb down");
		nap(3000);
		newcavelevel(MAXLEVEL);
		for (i = 0; i < MAXY; i++)
			for (j = 0; j < MAXX; j++)	/* put player near
							 * volcano shaft */
				if (item[j][i] == OVOLUP) {
					playerx = j;
					playery = i;
					j = MAXX;
					i = MAXY;
					positionplayer();
				}
		draws(0, MAXX, 0, MAXY);
		bot_linex();
		return;

	case OVOLUP:
		lprcat("\nYou have found ");
		lprcat(objectname[OVOLUP]);
		lprcat("\nDo you (c) climb up");
		iopts();
		i = 0;
		while ((i != 'c') && (i != 'i') && (i != '\33'))
			i = ttgetch();
		if ((i == '\33') || (i == 'i')) {
			ignore();
			break;
		}
		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");
			beep();
			lastnum = 275;
			losehp(15 + rnd(20));
			bottomhp();
			return;
		}
		lprcat("climb up");
		lflush();
		nap(3000);
		newcavelevel(0);
		for (i = 0; i < MAXY; i++)
			for (j = 0; j < MAXX; j++)	/* put player near
							 * volcano shaft */
				if (item[j][i] == OVOLDOWN) {
					playerx = j;
					playery = i;
					j = MAXX;
					i = MAXY;
					positionplayer();
				}
		draws(0, MAXX, 0, MAXY);
		bot_linex();
		return;

	case OTRAPARROWIV:
		if (rnd(17) < 13)
			return;	/* for an arrow trap */
		item[playerx][playery] = OTRAPARROW;
		know[playerx][playery] = 0;

		/* FALLTHROUGH */
	case OTRAPARROW:
		lprcat("\nYou are hit by an arrow");
		beep();		/* for an arrow trap */
		lastnum = 259;
		losehp(rnd(10) + level);
		bottomhp();
		return;

	case OIVDARTRAP:
		if (rnd(17) < 13)
			return;	/* for a dart trap */
		item[playerx][playery] = ODARTRAP;
		know[playerx][playery] = 0;

		/* FALLTHROUGH */
	case ODARTRAP:
		lprcat("\nYou are hit by a dart");
		beep();		/* for a dart trap */
		lastnum = 260;
		losehp(rnd(5));
		if ((--c[STRENGTH]) < 3)
			c[STRENGTH] = 3;
		bottomline();
		return;

	case OIVTRAPDOOR:
		if (rnd(17) < 13)
			return;	/* for a trap door */
		item[playerx][playery] = OTRAPDOOR;
		know[playerx][playery] = 1;

		/* FALLTHROUGH */
	case OTRAPDOOR:
		lastnum = 272;	/* a trap door */
		if ((level == MAXLEVEL - 1) || (level == MAXLEVEL + MAXVLEVEL - 1)) {
			lprcat("\nYou fell through a bottomless trap door!");
			beep();
			nap(3000);
			died(271);
		}
		lprcat("\nYou fall through a trap door!");
		beep();		/* for a trap door */
		losehp(rnd(5 + level));
		nap(2000);
		newcavelevel(level + 1);
		draws(0, MAXX, 0, MAXY);
		bot_linex();
		return;


	case OTRADEPOST:
		if (nearbymonst())
			return;
		lprcat("\nYou have found the Larn trading Post.");
		lprcat("\nDo you (g) go inside, or (i) stay here? ");
		i = 0;
		while ((i != 'g') && (i != 'i') && (i != '\33'))
			i = ttgetch();
		if (i == 'g')
			otradepost();
		else
			lprcat("stay here");
		return;

	case OHOME:
		if (nearbymonst())
			return;
		lprcat("\nYou have found your way home.");
		lprcat("\nDo you (g) go inside, or (i) stay here? ");
		i = 0;
		while ((i != 'g') && (i != 'i') && (i != '\33'))
			i = ttgetch();
		if (i == 'g')
			ohome();
		else
			lprcat("stay here");
		return;

	case OWALL:
		break;

	case OANNIHILATION:
		died(283);
		return;		/* annihilated by sphere of annihilation */

	case OLRS:
		if (nearbymonst())
			return;
		lprcat("\n\nThere is an LRS office here.");
		lprcat("\nDo you (g) go inside, or (i) stay here? ");
		i = 0;
		while ((i != 'g') && (i != 'i') && (i != '\33'))
			i = ttgetch();
		if (i == 'g')
			olrs();	/* the larn revenue service */
		else
			lprcat(" stay here");
		break;

	default:
		finditem(i);
		break;
	};
}

/*
	function to say what object we found and ask if player wants to take it
 */
static void
finditem(int theitem)
{
	int             tmp, i;
	lprintf("\n\nYou have found %s ", objectname[theitem]);
	tmp = iarg[playerx][playery];
	switch (theitem) {
	case ODIAMOND:
	case ORUBY:
	case OEMERALD:
	case OSAPPHIRE:
	case OSPIRITSCARAB:
	case OORBOFDRAGON:
	case OCUBEofUNDEAD:
	case ONOTHEFT:
		break;

	default:
		if (tmp > 0)
			lprintf("+ %ld", (long) tmp);
		else if (tmp < 0)
			lprintf(" %ld", (long) tmp);
	}
	lprcat("\nDo you want to (t) take it");
	iopts();
	i = 0;
	while (i != 't' && i != 'i' && i != '\33')
		i = ttgetch();
	if (i == 't') {
		lprcat("take");
		if (take(theitem, tmp) == 0)
			forget();
		return;
	}
	ignore();
}



/*
	subroutine to process the stair cases
	if dir > 0 the up else down
 */
static void
ostairs(int dir)
{
	int    k;
	lprcat("\nDo you (s) stay here  ");
	if (dir > 0)
		lprcat("(u) go up  ");
	else
		lprcat("(d) go down  ");
	lprcat("or (f) kick stairs? ");

	while (1)
		switch (ttgetch()) {
		case '\33':
		case 's':
		case 'i':
			lprcat("stay here");
			return;

		case 'f':
			lprcat("kick stairs");
			if (rnd(2) == 1)
				lprcat("\nI hope you feel better.  Showing anger rids you of frustration.");
			else {
				k = rnd((level + 1) << 1);
				lprintf("\nYou hurt your foot dumb dumb!  You suffer %ld hit points", (long) k);
				lastnum = 276;
				losehp(k);
				bottomline();
			}
			return;

		case 'u':
			lprcat("go up");
			if (dir < 0)
				lprcat("\nThe stairs don't go up!");
			else if (level >= 2 && level != 11) {
				k = level;
				newcavelevel(level - 1);
				draws(0, MAXX, 0, MAXY);
				bot_linex();
			} else
				lprcat("\nThe stairs lead to a dead end!");
			return;

		case 'd':
			lprcat("go down");
			if (dir > 0)
				lprcat("\nThe stairs don't go down!");
			else if (level != 0 && level != 10 && level != 13) {
				k = level;
				newcavelevel(level + 1);
				draws(0, MAXX, 0, MAXY);
				bot_linex();
			} else
				lprcat("\nThe stairs lead to a dead end!");
			return;
		};
}



/*
	subroutine to handle a teleport trap +/- 1 level maximum
 */
void
oteleport(int err)
{
	int    tmp;
	if (err)
		if (rnd(151) < 3)
			died(264);	/* stuck in a rock */
	c[TELEFLAG] = 1;	/* show ?? on bottomline if been teleported	 */
	if (level == 0)
		tmp = 0;
	else if (level < MAXLEVEL) {
		tmp = rnd(5) + level - 3;
		if (tmp >= MAXLEVEL)
			tmp = MAXLEVEL - 1;
		if (tmp < 1)
			tmp = 1;
	} else {
		tmp = rnd(3) + level - 2;
		if (tmp >= MAXLEVEL + MAXVLEVEL)
			tmp = MAXLEVEL + MAXVLEVEL - 1;
		if (tmp < MAXLEVEL)
			tmp = MAXLEVEL;
	}
	playerx = rnd(MAXX - 2);
	playery = rnd(MAXY - 2);
	if (level != tmp)
		newcavelevel(tmp);
	positionplayer();
	draws(0, MAXX, 0, MAXY);
	bot_linex();
}


/*
	function to process a potion
 */
static void
opotion(int pot)
{
	lprcat("\nDo you (d) drink it, (t) take it");
	iopts();
	while (1)
		switch (ttgetch()) {
		case '\33':
		case 'i':
			ignore();
			return;

		case 'd':
			lprcat("drink\n");
			forget();	/* destroy potion	 */
			quaffpotion(pot);
			return;

		case 't':
			lprcat("take\n");
			if (take(OPOTION, pot) == 0)
				forget();
			return;
		};
}

/*
	function to drink a potion
 */
void
quaffpotion(int pot)
{
	int    i, j, k;
	if (pot < 0 || pot >= MAXPOTION)
		return;		/* check for within bounds */
	potionname[pot] = potionhide[pot];
	switch (pot) {
	case 9:
		lprcat("\nYou feel greedy . . .");
		nap(2000);
		for (i = 0; i < MAXY; i++)
			for (j = 0; j < MAXX; j++)
				if ((item[j][i] == OGOLDPILE) || (item[j][i] == OMAXGOLD)) {
					know[j][i] = 1;
					show1cell(j, i);
				}
		showplayer();
		return;

	case 19:
		lprcat("\nYou feel greedy . . .");
		nap(2000);
		for (i = 0; i < MAXY; i++)
			for (j = 0; j < MAXX; j++) {
				k = item[j][i];
				if ((k == ODIAMOND) || (k == ORUBY) || (k == OEMERALD) || (k == OMAXGOLD)
				    || (k == OSAPPHIRE) || (k == OLARNEYE) || (k == OGOLDPILE)) {
					know[j][i] = 1;
					show1cell(j, i);
				}
			}
		showplayer();
		return;

	case 20:
		c[HP] = c[HPMAX];
		break;		/* instant healing */

	case 1:
		lprcat("\nYou feel better");
		if (c[HP] == c[HPMAX])
			raisemhp(1);
		else if ((c[HP] += rnd(20) + 20 + c[LEVEL]) > c[HPMAX])
			c[HP] = c[HPMAX];
		break;

	case 2:
		lprcat("\nSuddenly, you feel much more skillful!");
		raiselevel();
		raisemhp(1);
		return;

	case 3:
		lprcat("\nYou feel strange for a moment");
		c[rund(6)]++;
		break;

	case 4:
		lprcat("\nYou feel more self confident!");
		c[WISDOM] += rnd(2);
		break;

	case 5:
		lprcat("\nWow!  You feel great!");
		if (c[STRENGTH] < 12)
			c[STRENGTH] = 12;
		else
			c[STRENGTH]++;
		break;

	case 6:
		lprcat("\nYour charm went up by one!");
		c[CHARISMA]++;
		break;

	case 8:
		lprcat("\nYour intelligence went up by one!");
		c[INTELLIGENCE]++;
		break;

	case 10:
		for (i = 0; i < MAXY; i++)
			for (j = 0; j < MAXX; j++)
				if (mitem[j][i]) {
					know[j][i] = 1;
					show1cell(j, i);
				}
		 /* monster detection	 */ return;

	case 12:
		lprcat("\nThis potion has no taste to it");
		return;

	case 15:
		lprcat("\nWOW!!!  You feel Super-fantastic!!!");
		if (c[HERO] == 0)
			for (i = 0; i < 6; i++)
				c[i] += 11;
		c[HERO] += 250;
		break;

	case 16:
		lprcat("\nYou have a greater intestinal constitude!");
		c[CONSTITUTION]++;
		break;

	case 17:
		lprcat("\nYou now have incredibly bulging muscles!!!");
		if (c[GIANTSTR] == 0)
			c[STREXTRA] += 21;
		c[GIANTSTR] += 700;
		break;

	case 18:
		lprcat("\nYou feel a chill run up your spine!");
		c[FIRERESISTANCE] += 1000;
		break;

	case 0:
		lprcat("\nYou fall asleep. . .");
		i = rnd(11) - (c[CONSTITUTION] >> 2) + 2;
		while (--i > 0) {
			parse2();
			nap(1000);
		}
		cursors();
		lprcat("\nYou woke up!");
		return;

	case 7:
		lprcat("\nYou become dizzy!");
		if (--c[STRENGTH] < 3)
			c[STRENGTH] = 3;
		break;

	case 11:
		lprcat("\nYou stagger for a moment . .");
		for (i = 0; i < MAXY; i++)
			for (j = 0; j < MAXX; j++)
				know[j][i] = 0;
		nap(2000);
		draws(0, MAXX, 0, MAXY);	/* potion of forgetfulness */
		return;

	case 13:
		lprcat("\nYou can't see anything!");	/* blindness */
		c[BLINDCOUNT] += 500;
		return;

	case 14:
		lprcat("\nYou feel confused");
		c[CONFUSE] += 20 + rnd(9);
		return;

	case 21:
		lprcat("\nYou don't seem to be affected");
		return;		/* cure dianthroritis */

	case 22:
		lprcat("\nYou feel a sickness engulf you");	/* poison */
		c[HALFDAM] += 200 + rnd(200);
		return;

	case 23:
		lprcat("\nYou feel your vision sharpen");	/* see invisible */
		c[SEEINVISIBLE] += rnd(1000) + 400;
		monstnamelist[INVISIBLESTALKER] = 'I';
		return;
	};
	bottomline();		/* show new stats		 */
	return;
}


/*
	function to process a magic scroll
 */
static void
oscroll(int typ)
{
	lprcat("\nDo you ");
	if (c[BLINDCOUNT] == 0)
		lprcat("(r) read it, ");
	lprcat("(t) take it");
	iopts();
	while (1)
		switch (ttgetch()) {
		case '\33':
		case 'i':
			ignore();
			return;

		case 'r':
			if (c[BLINDCOUNT])
				break;
			lprcat("read");
			forget();
			if (typ == 2 || typ == 15) {
				show1cell(playerx, playery);
				cursors();
			}
			 /* destroy it	 */ read_scroll(typ);
			return;

		case 't':
			lprcat("take");
			if (take(OSCROLL, typ) == 0)
				forget();	/* destroy it	 */
			return;
		};
}

/*
	data for the function to read a scroll
 */
static int      xh, yh, yl, xl;
static u_char     curse[] = {
	BLINDCOUNT, CONFUSE, AGGRAVATE, HASTEMONST, ITCHING,
	LAUGHING, DRAINSTRENGTH, CLUMSINESS, INFEEBLEMENT, HALFDAM
};

static u_char     exten[] = {
	PROTECTIONTIME, DEXCOUNT, STRCOUNT, CHARMCOUNT, INVISIBILITY,
	CANCELLATION, HASTESELF, GLOBE, SCAREMONST, HOLDMONST, TIMESTOP
};

static u_char time_change[] = {
	HASTESELF, HERO, ALTPRO, PROTECTIONTIME, DEXCOUNT, STRCOUNT,
	GIANTSTR, CHARMCOUNT, INVISIBILITY, CANCELLATION, HASTESELF,
	AGGRAVATE, SCAREMONST, STEALTH, AWARENESS, HOLDMONST,
	HASTEMONST, FIRERESISTANCE, GLOBE, SPIRITPRO, UNDEADPRO,
	HALFDAM, SEEINVISIBLE, ITCHING, CLUMSINESS, WTW
};

/*
 *	function to adjust time when time warping and taking courses in school
 */
void
adjusttime(long tim)
{
	int    j;
	for (j = 0; j < 26; j++)/* adjust time related parameters */
		if (c[time_change[j]])
			if ((c[time_change[j]] -= tim) < 1)
				c[time_change[j]] = 1;
	regen();
}

/*
	function to read a scroll
 */
void
read_scroll(int typ)
{
	int    i, j;
	if (typ < 0 || typ >= MAXSCROLL)
		return;		/* be sure we are within bounds */
	scrollname[typ] = scrollhide[typ];
	switch (typ) {
	case 0:
		lprcat("\nYour armor glows for a moment");
		enchantarmor();
		return;

	case 1:
		lprcat("\nYour weapon glows for a moment");
		enchweapon();
		return;		/* enchant weapon */

	case 2:
		lprcat("\nYou have been granted enlightenment!");
		yh = min(playery + 7, MAXY);
		xh = min(playerx + 25, MAXX);
		yl = max(playery - 7, 0);
		xl = max(playerx - 25, 0);
		for (i = yl; i < yh; i++)
			for (j = xl; j < xh; j++)
				know[j][i] = 1;
		nap(2000);
		draws(xl, xh, yl, yh);
		return;

	case 3:
		lprcat("\nThis scroll seems to be blank");
		return;

	case 4:
		createmonster(makemonst(level + 1));
		return;		/* this one creates a monster  */

	case 5:
		something(level);	/* create artifact		 */
		return;

	case 6:
		c[AGGRAVATE] += 800;
		return;		/* aggravate monsters */

	case 7:
		gltime += (i = rnd(1000) - 850);	/* time warp */
		if (i >= 0)
			lprintf("\nYou went forward in time by %ld mobuls", (long) ((i + 99) / 100));
		else
			lprintf("\nYou went backward in time by %ld mobuls", (long) (-(i + 99) / 100));
		adjusttime((long) i);	/* adjust time for time warping */
		return;

	case 8:
		oteleport(0);
		return;		/* teleportation */

	case 9:
		c[AWARENESS] += 1800;
		return;		/* expanded awareness	 */

	case 10:
		c[HASTEMONST] += rnd(55) + 12;
		return;		/* haste monster */

	case 11:
		for (i = 0; i < MAXY; i++)
			for (j = 0; j < MAXX; j++)
				if (mitem[j][i])
					hitp[j][i] = monster[mitem[j][i]].hitpoints;
		return;		/* monster healing */
	case 12:
		c[SPIRITPRO] += 300 + rnd(200);
		bottomline();
		return;		/* spirit protection */

	case 13:
		c[UNDEADPRO] += 300 + rnd(200);
		bottomline();
		return;		/* undead protection */

	case 14:
		c[STEALTH] += 250 + rnd(250);
		bottomline();
		return;		/* stealth */

	case 15:
		lprcat("\nYou have been granted enlightenment!");	/* magic mapping */
		for (i = 0; i < MAXY; i++)
			for (j = 0; j < MAXX; j++)
				know[j][i] = 1;
		nap(2000);
		draws(0, MAXX, 0, MAXY);
		return;

	case 16:
		c[HOLDMONST] += 30;
		bottomline();
		return;		/* hold monster */

	case 17:
		for (i = 0; i < 26; i++)	/* gem perfection */
			switch (iven[i]) {
			case ODIAMOND:
			case ORUBY:
			case OEMERALD:
			case OSAPPHIRE:
				j = ivenarg[i];
				j &= 255;
				j <<= 1;
				if (j > 255)
					j = 255;	/* double value */
				ivenarg[i] = j;
				break;
			}
		break;

	case 18:
		for (i = 0; i < 11; i++)
			c[exten[i]] <<= 1;	/* spell extension */
		break;

	case 19:
		for (i = 0; i < 26; i++) {	/* identify */
			if (iven[i] == OPOTION)
				potionname[ivenarg[i]] = potionhide[ivenarg[i]];
			if (iven[i] == OSCROLL)
				scrollname[ivenarg[i]] = scrollhide[ivenarg[i]];
		}
		break;

	case 20:
		for (i = 0; i < 10; i++)	/* remove curse */
			if (c[curse[i]])
				c[curse[i]] = 1;
		break;

	case 21:
		annihilate();
		break;		/* scroll of annihilation */

	case 22:
		godirect(22, 150, "The ray hits the %s", 0, ' ');	/* pulverization */
		break;
	case 23:
		c[LIFEPROT]++;
		break;		/* life protection */
	};
}



static void
oorb(void)
{
}

static void
opit(void)
{
	int    i;
	if (rnd(101) < 81) {
		if (rnd(70) > 9 * c[DEXTERITY] - packweight() || rnd(101) < 5) {
			if (level == MAXLEVEL - 1)
				obottomless();
			else if (level == MAXLEVEL + MAXVLEVEL - 1)
				obottomless();
			else {
				if (rnd(101) < 20) {
					i = 0;
					lprcat("\nYou fell into a pit!  Your fall is cushioned by an unknown force\n");
				} else {
					i = rnd(level * 3 + 3);
					lprintf("\nYou fell into a pit!  You suffer %ld hit points damage", (long) i);
					lastnum = 261;	/* if he dies scoreboard
							 * will say so */
				}
				losehp(i);
				nap(2000);
				newcavelevel(level + 1);
				draws(0, MAXX, 0, MAXY);
			}
		}
	}
}

static void
obottomless(void)
{
	lprcat("\nYou fell into a bottomless pit!");
	beep();
	nap(3000);
	died(262);
}

static void
oelevator(int dir)
{
#ifdef lint
	int             x;
	x = dir;
	dir = x;
#endif	/* lint */
}

static void
ostatue(void)
{
}

static void
omirror(void)
{
}

static void
obook(void)
{
	lprcat("\nDo you ");
	if (c[BLINDCOUNT] == 0)
		lprcat("(r) read it, ");
	lprcat("(t) take it");
	iopts();
	while (1)
		switch (ttgetch()) {
		case '\33':
		case 'i':
			ignore();
			return;

		case 'r':
			if (c[BLINDCOUNT])
				break;
			lprcat("read");
			 /* no more book	 */ readbook(iarg[playerx][playery]);
			forget();
			return;

		case 't':
			lprcat("take");
			if (take(OBOOK, iarg[playerx][playery]) == 0)
				forget();	/* no more book	 */
			return;
		};
}

/*
	function to read a book
 */
void
readbook(int lev)
{
	int    i, tmp;
	if (lev <= 3)
		i = rund((tmp = splev[lev]) ? tmp : 1);
	else
		i = rnd((tmp = splev[lev] - 9) ? tmp : 1) + 9;
	spelknow[i] = 1;
	lprintf("\nSpell \"%s\":  %s\n%s", spelcode[i], spelname[i], speldescript[i]);
	if (rnd(10) == 4) {
		lprcat("\nYour int went up by one!");
		c[INTELLIGENCE]++;
		bottomline();
	}
}

static void
ocookie(void)
{
	const char *p;

	lprcat("\nDo you (e) eat it, (t) take it");
	iopts();
	while (1)
		switch (ttgetch()) {
		case '\33':
		case 'i':
			ignore();
			return;

		case 'e':
			lprcat("eat\nThe cookie tasted good.");
			forget();	/* no more cookie	 */
			if (c[BLINDCOUNT])
				return;
			if (!(p = fortune()))
				return;
			lprcat("  A message inside the cookie reads:\n");
			lprcat(p);
			return;

		case 't':
			lprcat("take");
			if (take(OCOOKIE, 0) == 0)
				forget();	/* no more book	 */
			return;
		};
}


/*
 * routine to pick up some gold -- if arg==OMAXGOLD then the pile is worth
 * 100* the argument
 */
static void
ogold(int arg)
{
	long   i;
	i = iarg[playerx][playery];
	if (arg == OMAXGOLD)
		i *= 100;
	else if (arg == OKGOLD)
		i *= 1000;
	else if (arg == ODGOLD)
		i *= 10;
	lprintf("\nIt is worth %ld!", (long) i);
	c[GOLD] += i;
	bottomgold();
	item[playerx][playery] = know[playerx][playery] = 0;	/* destroy gold	 */
}

static void
ohome(void)
{
	int    i;
	nosignal = 1;		/* disable signals */
	for (i = 0; i < 26; i++)
		if (iven[i] == OPOTION)
			if (ivenarg[i] == 21) {
				iven[i] = 0;	/* remove the potion of cure
						 * dianthroritis from
						 * inventory */
				clear();
				lprcat("Congratulations.  You found a potion of cure dianthroritis.\n");
				lprcat("\nFrankly, No one thought you could do it.  Boy!  Did you surprise them!\n");
				if (gltime > TIMELIMIT) {
					lprcat("\nThe doctor has the sad duty to inform you that your daughter died!\n");
					lprcat("You didn't make it in time.  In your agony, you kill the doctor,\nyour wife, and yourself!  Too bad!\n");
					nap(5000);
					died(269);
				} else {
					lprcat("\nThe doctor is now administering the potion, and in a few moments\n");
					lprcat("Your daughter should be well on her way to recovery.\n");
					nap(6000);
					lprcat("\nThe potion is");
					nap(3000);
					lprcat(" working!  The doctor thinks that\n");
					lprcat("your daughter will recover in a few days.  Congratulations!\n");
					beep();
					nap(5000);
					died(263);
				}
			}
	while (1) {
		clear();
		lprintf("Welcome home %s.  Latest word from the doctor is not good.\n", logname);

		if (gltime > TIMELIMIT) {
			lprcat("\nThe doctor has the sad duty to inform you that your daughter died!\n");
			lprcat("You didn't make it in time.  In your agony, you kill the doctor,\nyour wife, and yourself!  Too bad!\n");
			nap(5000);
			died(269);
		}
		lprcat("\nThe diagnosis is confirmed as dianthroritis.  He guesses that\n");
		lprintf("your daughter has only %ld mobuls left in this world.  It's up to you,\n", (long) ((TIMELIMIT - gltime + 99) / 100));
		lprintf("%s, to find the only hope for your daughter, the very rare\n", logname);
		lprcat("potion of cure dianthroritis.  It is rumored that only deep in the\n");
		lprcat("depths of the caves can this potion be found.\n\n\n");
		lprcat("\n     ----- press ");
		standout("return");
		lprcat(" to continue, ");
		standout("escape");
		lprcat(" to leave ----- ");
		i = ttgetch();
		while (i != '\33' && i != '\n')
			i = ttgetch();
		if (i == '\33') {
			drawscreen();
			nosignal = 0;	/* enable signals */
			return;
		}
	}
}

/* routine to save program space	 */
void
iopts(void)
{
	lprcat(", or (i) ignore it? ");
}

void
ignore(void)
{
	lprcat("ignore\n");
}