initial commit

1 files changed, 1336 insertions, 0 deletions

diff --git a/larn/object.c b/larn/object.c
new file mode 100644
index 0000000..a8e1449
--- /dev/null
+++ b/larn/object.c
@@ -0,0 +1,1336 @@
+/*	$NetBSD: object.c,v 1.16 2012/06/19 05:30:43 dholland Exp $	*/
+
+/* object.c		Larn is copyrighted 1986 by Noah Morgan. */
+
+#include <sys/cdefs.h>
+#ifndef lint
+__RCSID("$NetBSD: object.c,v 1.16 2012/06/19 05:30:43 dholland 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;
+
+	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;
+
+	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;
+
+	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;
+
+	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");
+}