NetBSD-5.0.2/games/hack/hack.eat.c
/* $NetBSD: hack.eat.c,v 1.6.42.1 2009/06/29 23:22:24 snj Exp $ */
/*
* Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
* Amsterdam
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions are
* met:
*
* - Redistributions of source code must retain the above copyright notice,
* this list of conditions and the following disclaimer.
*
* - Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* - Neither the name of the Stichting Centrum voor Wiskunde en
* Informatica, nor the names of its contributors may be used to endorse or
* promote products derived from this software without specific prior
* written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
* IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
* PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
* OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
* PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
* LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
/*
* Copyright (c) 1982 Jay Fenlason <hack@gnu.org>
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
* INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
* AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
* THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include <sys/cdefs.h>
#ifndef lint
__RCSID("$NetBSD: hack.eat.c,v 1.6.42.1 2009/06/29 23:22:24 snj Exp $");
#endif /* not lint */
#include "hack.h"
#include "extern.h"
char POISONOUS[] = "ADKSVabhks";
/* 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
const char *const hu_stat[] = {
"Satiated",
" ",
"Hungry ",
"Weak ",
"Fainting",
"Fainted ",
"Starved "
};
void
init_uhunger()
{
u.uhunger = 900;
u.uhs = NOT_HUNGRY;
}
#define TTSZ SIZE(tintxts)
const struct {
const 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;
int
opentin()
{
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);
}
int
Meatdone()
{
u.usym = '@';
prme();
return 0;
}
int
doeat()
{
struct obj *otmp;
struct objclass *ftmp;
int 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) {
struct obj *obj;
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) snprintf(msgbuf, sizeof(msgbuf),
"You finished eating the %s.",
ftmp->oc_name);
nomovemsg = msgbuf;
}
useup(otmp);
return (1);
}
/* called in hack.main.c */
void
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 */
void
morehungry(num)
int num;
{
u.uhunger -= num;
newuhs(TRUE);
}
/* called after eating something (and after drinking fruit juice) */
void
lesshungry(num)
int num;
{
u.uhunger += num;
newuhs(FALSE);
}
int
unfaint()
{
u.uhs = FAINTING;
flags.botl = 1;
return 0;
}
void
newuhs(incr)
boolean incr;
{
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))
int
poisonous(otmp)
struct obj *otmp;
{
return (strchr(POISONOUS, CORPSE_I_TO_C(otmp->otyp)) != 0);
}
/* returns 1 if some text was printed */
int
eatcorpse(otmp)
struct obj *otmp;
{
char let = CORPSE_I_TO_C(otmp->otyp);
int 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 (strchr(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 (strchr("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);
}