460 lines
10 KiB
C
460 lines
10 KiB
C
|
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
|
||
|
|
/* hack.eat.c - version 1.0.3 */
|
||
|
|
|
||
|
|
#include "hack.h"
|
||
|
|
char POISONOUS[] = "ADKSVabhks";
|
||
|
|
extern char *nomovemsg;
|
||
|
|
extern int (*afternmv)();
|
||
|
|
extern int (*occupation)();
|
||
|
|
extern char *occtxt;
|
||
|
|
extern struct obj *splitobj(), *addinv();
|
||
|
|
|
||
|
|
/* hunger texts used on bottom line (each 8 chars long) */
|
||
|
|
#define SATIATED 0
|
||
|
|
#define NOT_HUNGRY 1
|
||
|
|
#define HUNGRY 2
|
||
|
|
#define WEAK 3
|
||
|
|
#define FAINTING 4
|
||
|
|
#define FAINTED 5
|
||
|
|
#define STARVED 6
|
||
|
|
|
||
|
|
char *hu_stat[] = {
|
||
|
|
"Satiated",
|
||
|
|
" ",
|
||
|
|
"Hungry ",
|
||
|
|
"Weak ",
|
||
|
|
"Fainting",
|
||
|
|
"Fainted ",
|
||
|
|
"Starved "
|
||
|
|
};
|
||
|
|
|
||
|
|
init_uhunger(){
|
||
|
|
u.uhunger = 900;
|
||
|
|
u.uhs = NOT_HUNGRY;
|
||
|
|
}
|
||
|
|
|
||
|
|
#define TTSZ SIZE(tintxts)
|
||
|
|
struct { char *txt; int nut; } tintxts[] = {
|
||
|
|
"It contains first quality peaches - what a surprise!", 40,
|
||
|
|
"It contains salmon - not bad!", 60,
|
||
|
|
"It contains apple juice - perhaps not what you hoped for.", 20,
|
||
|
|
"It contains some nondescript substance, tasting awfully.", 500,
|
||
|
|
"It contains rotten meat. You vomit.", -50,
|
||
|
|
"It turns out to be empty.", 0
|
||
|
|
};
|
||
|
|
|
||
|
|
static struct {
|
||
|
|
struct obj *tin;
|
||
|
|
int usedtime, reqtime;
|
||
|
|
} tin;
|
||
|
|
|
||
|
|
opentin(){
|
||
|
|
register int r;
|
||
|
|
|
||
|
|
if(!carried(tin.tin)) /* perhaps it was stolen? */
|
||
|
|
return(0); /* %% probably we should use tinoid */
|
||
|
|
if(tin.usedtime++ >= 50) {
|
||
|
|
pline("You give up your attempt to open the tin.");
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
if(tin.usedtime < tin.reqtime)
|
||
|
|
return(1); /* still busy */
|
||
|
|
|
||
|
|
pline("You succeed in opening the tin.");
|
||
|
|
useup(tin.tin);
|
||
|
|
r = rn2(2*TTSZ);
|
||
|
|
if(r < TTSZ){
|
||
|
|
pline(tintxts[r].txt);
|
||
|
|
lesshungry(tintxts[r].nut);
|
||
|
|
if(r == 1) /* SALMON */ {
|
||
|
|
Glib = rnd(15);
|
||
|
|
pline("Eating salmon made your fingers very slippery.");
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
pline("It contains spinach - this makes you feel like Popeye!");
|
||
|
|
lesshungry(600);
|
||
|
|
if(u.ustr < 118)
|
||
|
|
u.ustr += rnd( ((u.ustr < 17) ? 19 : 118) - u.ustr);
|
||
|
|
if(u.ustr > u.ustrmax) u.ustrmax = u.ustr;
|
||
|
|
flags.botl = 1;
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
Meatdone(){
|
||
|
|
u.usym = '@';
|
||
|
|
prme();
|
||
|
|
}
|
||
|
|
|
||
|
|
doeat(){
|
||
|
|
register struct obj *otmp;
|
||
|
|
register struct objclass *ftmp;
|
||
|
|
register tmp;
|
||
|
|
|
||
|
|
/* Is there some food (probably a heavy corpse) here on the ground? */
|
||
|
|
if(!Levitation)
|
||
|
|
for(otmp = fobj; otmp; otmp = otmp->nobj) {
|
||
|
|
if(otmp->ox == u.ux && otmp->oy == u.uy &&
|
||
|
|
otmp->olet == FOOD_SYM) {
|
||
|
|
pline("There %s %s here; eat %s? [ny] ",
|
||
|
|
(otmp->quan == 1) ? "is" : "are",
|
||
|
|
doname(otmp),
|
||
|
|
(otmp->quan == 1) ? "it" : "one");
|
||
|
|
if(readchar() == 'y') {
|
||
|
|
if(otmp->quan != 1)
|
||
|
|
(void) splitobj(otmp, 1);
|
||
|
|
freeobj(otmp);
|
||
|
|
otmp = addinv(otmp);
|
||
|
|
addtobill(otmp);
|
||
|
|
goto gotit;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
otmp = getobj("%", "eat");
|
||
|
|
if(!otmp) return(0);
|
||
|
|
gotit:
|
||
|
|
if(otmp->otyp == TIN){
|
||
|
|
if(uwep) {
|
||
|
|
switch(uwep->otyp) {
|
||
|
|
case CAN_OPENER:
|
||
|
|
tmp = 1;
|
||
|
|
break;
|
||
|
|
case DAGGER:
|
||
|
|
case CRYSKNIFE:
|
||
|
|
tmp = 3;
|
||
|
|
break;
|
||
|
|
case PICK_AXE:
|
||
|
|
case AXE:
|
||
|
|
tmp = 6;
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
goto no_opener;
|
||
|
|
}
|
||
|
|
pline("Using your %s you try to open the tin.",
|
||
|
|
aobjnam(uwep, (char *) 0));
|
||
|
|
} else {
|
||
|
|
no_opener:
|
||
|
|
pline("It is not so easy to open this tin.");
|
||
|
|
if(Glib) {
|
||
|
|
pline("The tin slips out of your hands.");
|
||
|
|
if(otmp->quan > 1) {
|
||
|
|
register struct obj *obj;
|
||
|
|
extern struct obj *splitobj();
|
||
|
|
|
||
|
|
obj = splitobj(otmp, 1);
|
||
|
|
if(otmp == uwep) setuwep(obj);
|
||
|
|
}
|
||
|
|
dropx(otmp);
|
||
|
|
return(1);
|
||
|
|
}
|
||
|
|
tmp = 10 + rn2(1 + 500/((int)(u.ulevel + u.ustr)));
|
||
|
|
}
|
||
|
|
tin.reqtime = tmp;
|
||
|
|
tin.usedtime = 0;
|
||
|
|
tin.tin = otmp;
|
||
|
|
occupation = opentin;
|
||
|
|
occtxt = "opening the tin";
|
||
|
|
return(1);
|
||
|
|
}
|
||
|
|
ftmp = &objects[otmp->otyp];
|
||
|
|
multi = -ftmp->oc_delay;
|
||
|
|
if(otmp->otyp >= CORPSE && eatcorpse(otmp)) goto eatx;
|
||
|
|
if(!rn2(7) && otmp->otyp != FORTUNE_COOKIE) {
|
||
|
|
pline("Blecch! Rotten food!");
|
||
|
|
if(!rn2(4)) {
|
||
|
|
pline("You feel rather light headed.");
|
||
|
|
Confusion += d(2,4);
|
||
|
|
} else if(!rn2(4)&& !Blind) {
|
||
|
|
pline("Everything suddenly goes dark.");
|
||
|
|
Blind = d(2,10);
|
||
|
|
seeoff(0);
|
||
|
|
} else if(!rn2(3)) {
|
||
|
|
if(Blind)
|
||
|
|
pline("The world spins and you slap against the floor.");
|
||
|
|
else
|
||
|
|
pline("The world spins and goes dark.");
|
||
|
|
nomul(-rnd(10));
|
||
|
|
nomovemsg = "You are conscious again.";
|
||
|
|
}
|
||
|
|
lesshungry(ftmp->nutrition / 4);
|
||
|
|
} else {
|
||
|
|
if(u.uhunger >= 1500) {
|
||
|
|
pline("You choke over your food.");
|
||
|
|
pline("You die...");
|
||
|
|
killer = ftmp->oc_name;
|
||
|
|
done("choked");
|
||
|
|
}
|
||
|
|
switch(otmp->otyp){
|
||
|
|
case FOOD_RATION:
|
||
|
|
if(u.uhunger <= 200)
|
||
|
|
pline("That food really hit the spot!");
|
||
|
|
else if(u.uhunger <= 700)
|
||
|
|
pline("That satiated your stomach!");
|
||
|
|
else {
|
||
|
|
pline("You're having a hard time getting all that food down.");
|
||
|
|
multi -= 2;
|
||
|
|
}
|
||
|
|
lesshungry(ftmp->nutrition);
|
||
|
|
if(multi < 0) nomovemsg = "You finished your meal.";
|
||
|
|
break;
|
||
|
|
case TRIPE_RATION:
|
||
|
|
pline("Yak - dog food!");
|
||
|
|
more_experienced(1,0);
|
||
|
|
flags.botl = 1;
|
||
|
|
if(rn2(2)){
|
||
|
|
pline("You vomit.");
|
||
|
|
morehungry(20);
|
||
|
|
if(Sick) {
|
||
|
|
Sick = 0; /* David Neves */
|
||
|
|
pline("What a relief!");
|
||
|
|
}
|
||
|
|
} else lesshungry(ftmp->nutrition);
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
if(otmp->otyp >= CORPSE)
|
||
|
|
pline("That %s tasted terrible!",ftmp->oc_name);
|
||
|
|
else
|
||
|
|
pline("That %s was delicious!",ftmp->oc_name);
|
||
|
|
lesshungry(ftmp->nutrition);
|
||
|
|
if(otmp->otyp == DEAD_LIZARD && (Confusion > 2))
|
||
|
|
Confusion = 2;
|
||
|
|
else
|
||
|
|
#ifdef QUEST
|
||
|
|
if(otmp->otyp == CARROT && !Blind){
|
||
|
|
u.uhorizon++;
|
||
|
|
setsee();
|
||
|
|
pline("Your vision improves.");
|
||
|
|
} else
|
||
|
|
#endif QUEST
|
||
|
|
if(otmp->otyp == FORTUNE_COOKIE) {
|
||
|
|
if(Blind) {
|
||
|
|
pline("This cookie has a scrap of paper inside!");
|
||
|
|
pline("What a pity, that you cannot read it!");
|
||
|
|
} else
|
||
|
|
outrumor();
|
||
|
|
} else
|
||
|
|
if(otmp->otyp == LUMP_OF_ROYAL_JELLY) {
|
||
|
|
/* This stuff seems to be VERY healthy! */
|
||
|
|
if(u.ustrmax < 118) u.ustrmax++;
|
||
|
|
if(u.ustr < u.ustrmax) u.ustr++;
|
||
|
|
u.uhp += rnd(20);
|
||
|
|
if(u.uhp > u.uhpmax) {
|
||
|
|
if(!rn2(17)) u.uhpmax++;
|
||
|
|
u.uhp = u.uhpmax;
|
||
|
|
}
|
||
|
|
heal_legs();
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
eatx:
|
||
|
|
if(multi<0 && !nomovemsg){
|
||
|
|
static char msgbuf[BUFSZ];
|
||
|
|
(void) sprintf(msgbuf, "You finished eating the %s.",
|
||
|
|
ftmp->oc_name);
|
||
|
|
nomovemsg = msgbuf;
|
||
|
|
}
|
||
|
|
useup(otmp);
|
||
|
|
return(1);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* called in hack.main.c */
|
||
|
|
gethungry(){
|
||
|
|
--u.uhunger;
|
||
|
|
if(moves % 2) {
|
||
|
|
if(Regeneration) u.uhunger--;
|
||
|
|
if(Hunger) u.uhunger--;
|
||
|
|
/* a3: if(Hunger & LEFT_RING) u.uhunger--;
|
||
|
|
if(Hunger & RIGHT_RING) u.uhunger--;
|
||
|
|
etc. */
|
||
|
|
}
|
||
|
|
if(moves % 20 == 0) { /* jimt@asgb */
|
||
|
|
if(uleft) u.uhunger--;
|
||
|
|
if(uright) u.uhunger--;
|
||
|
|
}
|
||
|
|
newuhs(TRUE);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* called after vomiting and after performing feats of magic */
|
||
|
|
morehungry(num) register num; {
|
||
|
|
u.uhunger -= num;
|
||
|
|
newuhs(TRUE);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* called after eating something (and after drinking fruit juice) */
|
||
|
|
lesshungry(num) register num; {
|
||
|
|
u.uhunger += num;
|
||
|
|
newuhs(FALSE);
|
||
|
|
}
|
||
|
|
|
||
|
|
unfaint(){
|
||
|
|
u.uhs = FAINTING;
|
||
|
|
flags.botl = 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
newuhs(incr) boolean incr; {
|
||
|
|
register int newhs, h = u.uhunger;
|
||
|
|
|
||
|
|
newhs = (h > 1000) ? SATIATED :
|
||
|
|
(h > 150) ? NOT_HUNGRY :
|
||
|
|
(h > 50) ? HUNGRY :
|
||
|
|
(h > 0) ? WEAK : FAINTING;
|
||
|
|
|
||
|
|
if(newhs == FAINTING) {
|
||
|
|
if(u.uhs == FAINTED)
|
||
|
|
newhs = FAINTED;
|
||
|
|
if(u.uhs <= WEAK || rn2(20-u.uhunger/10) >= 19) {
|
||
|
|
if(u.uhs != FAINTED && multi >= 0 /* %% */) {
|
||
|
|
pline("You faint from lack of food.");
|
||
|
|
nomul(-10+(u.uhunger/10));
|
||
|
|
nomovemsg = "You regain consciousness.";
|
||
|
|
afternmv = unfaint;
|
||
|
|
newhs = FAINTED;
|
||
|
|
}
|
||
|
|
} else
|
||
|
|
if(u.uhunger < -(int)(200 + 25*u.ulevel)) {
|
||
|
|
u.uhs = STARVED;
|
||
|
|
flags.botl = 1;
|
||
|
|
bot();
|
||
|
|
pline("You die from starvation.");
|
||
|
|
done("starved");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if(newhs != u.uhs) {
|
||
|
|
if(newhs >= WEAK && u.uhs < WEAK)
|
||
|
|
losestr(1); /* this may kill you -- see below */
|
||
|
|
else
|
||
|
|
if(newhs < WEAK && u.uhs >= WEAK && u.ustr < u.ustrmax)
|
||
|
|
losestr(-1);
|
||
|
|
switch(newhs){
|
||
|
|
case HUNGRY:
|
||
|
|
pline((!incr) ? "You only feel hungry now." :
|
||
|
|
(u.uhunger < 145) ? "You feel hungry." :
|
||
|
|
"You are beginning to feel hungry.");
|
||
|
|
break;
|
||
|
|
case WEAK:
|
||
|
|
pline((!incr) ? "You feel weak now." :
|
||
|
|
(u.uhunger < 45) ? "You feel weak." :
|
||
|
|
"You are beginning to feel weak.");
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
u.uhs = newhs;
|
||
|
|
flags.botl = 1;
|
||
|
|
if(u.uhp < 1) {
|
||
|
|
pline("You die from hunger and exhaustion.");
|
||
|
|
killer = "exhaustion";
|
||
|
|
done("starved");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
#define CORPSE_I_TO_C(otyp) (char) ((otyp >= DEAD_ACID_BLOB)\
|
||
|
|
? 'a' + (otyp - DEAD_ACID_BLOB)\
|
||
|
|
: '@' + (otyp - DEAD_HUMAN))
|
||
|
|
poisonous(otmp)
|
||
|
|
register struct obj *otmp;
|
||
|
|
{
|
||
|
|
return(index(POISONOUS, CORPSE_I_TO_C(otmp->otyp)) != 0);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* returns 1 if some text was printed */
|
||
|
|
eatcorpse(otmp) register struct obj *otmp; {
|
||
|
|
register char let = CORPSE_I_TO_C(otmp->otyp);
|
||
|
|
register tp = 0;
|
||
|
|
if(let != 'a' && moves > otmp->age + 50 + rn2(100)) {
|
||
|
|
tp++;
|
||
|
|
pline("Ulch -- that meat was tainted!");
|
||
|
|
pline("You get very sick.");
|
||
|
|
Sick = 10 + rn2(10);
|
||
|
|
u.usick_cause = objects[otmp->otyp].oc_name;
|
||
|
|
} else if(index(POISONOUS, let) && rn2(5)){
|
||
|
|
tp++;
|
||
|
|
pline("Ecch -- that must have been poisonous!");
|
||
|
|
if(!Poison_resistance){
|
||
|
|
losestr(rnd(4));
|
||
|
|
losehp(rnd(15), "poisonous corpse");
|
||
|
|
} else
|
||
|
|
pline("You don't seem affected by the poison.");
|
||
|
|
} else if(index("ELNOPQRUuxz", let) && rn2(5)){
|
||
|
|
tp++;
|
||
|
|
pline("You feel sick.");
|
||
|
|
losehp(rnd(8), "cadaver");
|
||
|
|
}
|
||
|
|
switch(let) {
|
||
|
|
case 'L':
|
||
|
|
case 'N':
|
||
|
|
case 't':
|
||
|
|
Teleportation |= INTRINSIC;
|
||
|
|
break;
|
||
|
|
case 'W':
|
||
|
|
pluslvl();
|
||
|
|
break;
|
||
|
|
case 'n':
|
||
|
|
u.uhp = u.uhpmax;
|
||
|
|
flags.botl = 1;
|
||
|
|
/* fall into next case */
|
||
|
|
case '@':
|
||
|
|
pline("You cannibal! You will be sorry for this!");
|
||
|
|
/* not tp++; */
|
||
|
|
/* fall into next case */
|
||
|
|
case 'd':
|
||
|
|
Aggravate_monster |= INTRINSIC;
|
||
|
|
break;
|
||
|
|
case 'I':
|
||
|
|
if(!Invis) {
|
||
|
|
Invis = 50+rn2(100);
|
||
|
|
if(!See_invisible)
|
||
|
|
newsym(u.ux, u.uy);
|
||
|
|
} else {
|
||
|
|
Invis |= INTRINSIC;
|
||
|
|
See_invisible |= INTRINSIC;
|
||
|
|
}
|
||
|
|
/* fall into next case */
|
||
|
|
case 'y':
|
||
|
|
#ifdef QUEST
|
||
|
|
u.uhorizon++;
|
||
|
|
#endif QUEST
|
||
|
|
/* fall into next case */
|
||
|
|
case 'B':
|
||
|
|
Confusion = 50;
|
||
|
|
break;
|
||
|
|
case 'D':
|
||
|
|
Fire_resistance |= INTRINSIC;
|
||
|
|
break;
|
||
|
|
case 'E':
|
||
|
|
Telepat |= INTRINSIC;
|
||
|
|
break;
|
||
|
|
case 'F':
|
||
|
|
case 'Y':
|
||
|
|
Cold_resistance |= INTRINSIC;
|
||
|
|
break;
|
||
|
|
case 'k':
|
||
|
|
case 's':
|
||
|
|
Poison_resistance |= INTRINSIC;
|
||
|
|
break;
|
||
|
|
case 'c':
|
||
|
|
pline("You turn to stone.");
|
||
|
|
killer = "dead cockatrice";
|
||
|
|
done("died");
|
||
|
|
/* NOTREACHED */
|
||
|
|
case 'a':
|
||
|
|
if(Stoned) {
|
||
|
|
pline("What a pity - you just destroyed a future piece of art!");
|
||
|
|
tp++;
|
||
|
|
Stoned = 0;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case 'M':
|
||
|
|
pline("You cannot resist the temptation to mimic a treasure chest.");
|
||
|
|
tp++;
|
||
|
|
nomul(-30);
|
||
|
|
afternmv = Meatdone;
|
||
|
|
nomovemsg = "You now again prefer mimicking a human.";
|
||
|
|
u.usym = '$';
|
||
|
|
prme();
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return(tp);
|
||
|
|
}
|