NetBSD/games/larn/object.c

1349 lines
26 KiB
C
Raw Normal View History

/* $NetBSD: object.c,v 1.10 2001/02/05 00:57:34 christos Exp $ */
/* object.c Larn is copyrighted 1986 by Noah Morgan. */
#include <sys/cdefs.h>
#ifndef lint
__RCSID("$NetBSD: object.c,v 1.10 2001/02/05 00:57:34 christos Exp $");
#endif /* not lint */
1993-03-21 12:45:37 +03:00
#include "header.h"
#include "extern.h"
1993-03-21 12:45:37 +03:00
/*
***************
LOOK_FOR_OBJECT
***************
subroutine to look for an object and give the player his options
if an object was found.
*/
void
1993-03-21 12:45:37 +03:00
lookforobject()
{
int i, j;
if (c[TIMESTOP])
return; /* can't find objects is 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 = lgetchar();
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;
1993-03-21 12:45:37 +03:00
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 = lgetchar();
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 = lgetchar();
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 = lgetchar();
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 = lgetchar();
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);
1993-03-21 12:45:37 +03:00
break;
case 7:
lprcat("\nYou are jolted by an electric shock ");
lastnum = 274;
losehp(rnd(20));
bottomline();
1993-03-21 12:45:37 +03:00
break;
case 8:
loselevel();
break;
1993-03-21 12:45:37 +03:00
case 9:
lprcat("\nYou suddenly feel weaker ");
if (c[STRENGTH] > 3)
c[STRENGTH]--;
bottomline();
break;
1993-03-21 12:45:37 +03:00
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 = lgetchar();
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 = lgetchar();
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 = lgetchar();
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 = lgetchar();
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 = lgetchar();
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 = lgetchar();
if (i == 'g')
olrs(); /* the larn revenue service */
else
lprcat(" stay here");
break;
1993-03-21 12:45:37 +03:00
default:
finditem(i);
break;
1993-03-21 12:45:37 +03:00
};
}
/*
function to say what object we found and ask if player wants to take it
*/
void
1993-03-21 12:45:37 +03:00
finditem(itm)
int itm;
{
int tmp, i;
lprintf("\n\nYou have found %s ", objectname[itm]);
tmp = iarg[playerx][playery];
switch (itm) {
case ODIAMOND:
case ORUBY:
case OEMERALD:
case OSAPPHIRE:
case OSPIRITSCARAB:
case OORBOFDRAGON:
case OCUBEofUNDEAD:
case ONOTHEFT:
break;
default:
if (tmp > 0)
lprintf("+ %d", (long) tmp);
else if (tmp < 0)
lprintf(" %d", (long) tmp);
}
lprcat("\nDo you want to (t) take it");
iopts();
i = 0;
while (i != 't' && i != 'i' && i != '\33')
i = lgetchar();
if (i == 't') {
lprcat("take");
if (take(itm, tmp) == 0)
forget();
return;
1993-03-21 12:45:37 +03:00
}
ignore();
}
1993-03-21 12:45:37 +03:00
/*
*******
OSTAIRS
*******
subroutine to process the stair cases
if dir > 0 the up else down
*/
void
1993-03-21 12:45:37 +03:00
ostairs(dir)
int dir;
{
int k;
1993-03-21 12:45:37 +03:00
lprcat("\nDo you (s) stay here ");
if (dir > 0)
lprcat("(u) go up ");
else
lprcat("(d) go down ");
1993-03-21 12:45:37 +03:00
lprcat("or (f) kick stairs? ");
while (1)
switch (lgetchar()) {
1993-03-21 12:45:37 +03:00
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 %d 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;
1993-03-21 12:45:37 +03:00
};
}
1993-03-21 12:45:37 +03:00
/*
*********
OTELEPORTER
*********
subroutine to handle a teleport trap +/- 1 level maximum
*/
void
1993-03-21 12:45:37 +03:00
oteleport(err)
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;
1993-03-21 12:45:37 +03:00
}
playerx = rnd(MAXX - 2);
playery = rnd(MAXY - 2);
if (level != tmp)
newcavelevel(tmp);
positionplayer();
draws(0, MAXX, 0, MAXY);
bot_linex();
}
1993-03-21 12:45:37 +03:00
/*
*******
OPOTION
*******
function to process a potion
*/
void
1993-03-21 12:45:37 +03:00
opotion(pot)
int pot;
{
lprcat("\nDo you (d) drink it, (t) take it");
iopts();
while (1)
switch (lgetchar()) {
1993-03-21 12:45:37 +03:00
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;
1993-03-21 12:45:37 +03:00
};
}
1993-03-21 12:45:37 +03:00
/*
function to drink a potion
*/
void
1993-03-21 12:45:37 +03:00
quaffpotion(pot)
int pot;
{
int i, j, k;
if (pot < 0 || pot >= MAXPOTION)
return; /* check for within bounds */
1993-04-21 02:00:26 +04:00
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;
}
1993-03-21 12:45:37 +03:00
/*
*******
OSCROLL
*******
function to process a magic scroll
*/
void
1993-03-21 12:45:37 +03:00
oscroll(typ)
int typ;
{
1993-03-21 12:45:37 +03:00
lprcat("\nDo you ");
if (c[BLINDCOUNT] == 0)
lprcat("(r) read it, ");
lprcat("(t) take it");
iopts();
while (1)
switch (lgetchar()) {
1993-03-21 12:45:37 +03:00
case '\33':
case 'i':
ignore();
return;
1993-03-21 12:45:37 +03:00
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;
1993-03-21 12:45:37 +03:00
};
}
1993-03-21 12:45:37 +03:00
/*
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
};
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
};
1993-03-21 12:45:37 +03:00
/*
* function to adjust time when time warping and taking courses in school
*/
void
adjusttime(tim)
long tim;
{
int j;
for (j = 0; j < 26; j++)/* adjust time related parameters */
1993-03-21 12:45:37 +03:00
if (c[time_change[j]])
if ((c[time_change[j]] -= tim) < 1)
c[time_change[j]] = 1;
1993-03-21 12:45:37 +03:00
regen();
}
1993-03-21 12:45:37 +03:00
/*
function to read a scroll
*/
void
1993-03-21 12:45:37 +03:00
read_scroll(typ)
int typ;
{
int i, j;
if (typ < 0 || typ >= MAXSCROLL)
return; /* be sure we are within bounds */
1993-04-21 02:00:26 +04:00
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 %d mobuls", (long) ((i + 99) / 100));
else
lprintf("\nYou went backward in time by %d 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;
1993-03-21 12:45:37 +03:00
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 */
};
}
1993-03-21 12:45:37 +03:00
void
1993-03-21 12:45:37 +03:00
oorb()
{
}
1993-03-21 12:45:37 +03:00
void
1993-03-21 12:45:37 +03:00
opit()
{
int i;
1998-08-30 13:19:36 +04:00
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 %d hit points damage", (long) i);
lastnum = 261; /* if he dies scoreboard
* will say so */
1993-03-21 12:45:37 +03:00
}
losehp(i);
nap(2000);
newcavelevel(level + 1);
draws(0, MAXX, 0, MAXY);
1993-03-21 12:45:37 +03:00
}
1998-08-30 13:19:36 +04:00
}
}
}
1993-03-21 12:45:37 +03:00
void
1993-03-21 12:45:37 +03:00
obottomless()
{
lprcat("\nYou fell into a bottomless pit!");
beep();
nap(3000);
died(262);
}
void
1993-03-21 12:45:37 +03:00
oelevator(dir)
int dir;
{
1993-03-21 12:45:37 +03:00
#ifdef lint
int x;
x = dir;
dir = x;
#endif /* lint */
}
1993-03-21 12:45:37 +03:00
void
1993-03-21 12:45:37 +03:00
ostatue()
{
}
1993-03-21 12:45:37 +03:00
void
1993-03-21 12:45:37 +03:00
omirror()
{
}
1993-03-21 12:45:37 +03:00
void
1993-03-21 12:45:37 +03:00
obook()
{
1993-03-21 12:45:37 +03:00
lprcat("\nDo you ");
if (c[BLINDCOUNT] == 0)
lprcat("(r) read it, ");
lprcat("(t) take it");
iopts();
while (1)
switch (lgetchar()) {
1993-03-21 12:45:37 +03:00
case '\33':
case 'i':
ignore();
return;
1993-03-21 12:45:37 +03:00
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;
1993-03-21 12:45:37 +03:00
};
}
1993-03-21 12:45:37 +03:00
/*
function to read a book
*/
void
1993-03-21 12:45:37 +03:00
readbook(lev)
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();
1993-03-21 12:45:37 +03:00
}
}
1993-03-21 12:45:37 +03:00
void
1993-03-21 12:45:37 +03:00
ocookie()
{
char *p;
lprcat("\nDo you (e) eat it, (t) take it");
iopts();
while (1)
switch (lgetchar()) {
1993-03-21 12:45:37 +03:00
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;
1993-03-21 12:45:37 +03:00
};
}
1993-03-21 12:45:37 +03:00
/*
* routine to pick up some gold -- if arg==OMAXGOLD then the pile is worth
* 100* the argument
*/
void
1993-03-21 12:45:37 +03:00
ogold(arg)
int arg;
{
long i;
1993-03-21 12:45:37 +03:00
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 %d!", (long) i);
c[GOLD] += i;
bottomgold();
item[playerx][playery] = know[playerx][playery] = 0; /* destroy gold */
}
1993-03-21 12:45:37 +03:00
void
1993-03-21 12:45:37 +03:00
ohome()
{
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);
}
1993-03-21 12:45:37 +03:00
}
while (1) {
clear();
lprintf("Welcome home %s. Latest word from the doctor is not good.\n", logname);
1993-03-21 12:45:37 +03:00
if (gltime > TIMELIMIT) {
1993-03-21 12:45:37 +03:00
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);
}
1993-03-21 12:45:37 +03:00
lprcat("\nThe diagnosis is confirmed as dianthroritis. He guesses that\n");
lprintf("your daughter has only %d 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);
1993-03-21 12:45:37 +03:00
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");
1993-03-21 12:45:37 +03:00
lprcat(" to leave ----- ");
i = lgetchar();
while (i != '\33' && i != '\n')
i = lgetchar();
if (i == '\33') {
drawscreen();
nosignal = 0; /* enable signals */
return;
1993-03-21 12:45:37 +03:00
}
}
}
1993-03-21 12:45:37 +03:00
/* routine to save program space */
void
1993-03-21 12:45:37 +03:00
iopts()
{
lprcat(", or (i) ignore it? ");
}
1993-03-21 12:45:37 +03:00
void
ignore()
{
lprcat("ignore\n");
}