1 /* $NetBSD: hack.eat.c,v 1.13 2019/02/04 03:33:15 mrg Exp $ */
4 * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions are
12 * - Redistributions of source code must retain the above copyright notice,
13 * this list of conditions and the following disclaimer.
15 * - Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
19 * - Neither the name of the Stichting Centrum voor Wiskunde en
20 * Informatica, nor the names of its contributors may be used to endorse or
21 * promote products derived from this software without specific prior
24 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
25 * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
26 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
27 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
28 * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
29 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
30 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
31 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
32 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
33 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
34 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
38 * Copyright (c) 1982 Jay Fenlason <hack@gnu.org>
39 * All rights reserved.
41 * Redistribution and use in source and binary forms, with or without
42 * modification, are permitted provided that the following conditions
44 * 1. Redistributions of source code must retain the above copyright
45 * notice, this list of conditions and the following disclaimer.
46 * 2. Redistributions in binary form must reproduce the above copyright
47 * notice, this list of conditions and the following disclaimer in the
48 * documentation and/or other materials provided with the distribution.
49 * 3. The name of the author may not be used to endorse or promote products
50 * derived from this software without specific prior written permission.
52 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
53 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
54 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
55 * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
56 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
57 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
58 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
59 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
60 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
61 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
66 static char POISONOUS[] = "ADKSVabhks";
68 /* hunger texts used on bottom line (each 8 chars long) */
77 const char *const hu_stat[] = {
87 static int opentin(void);
88 static int Meatdone(void);
89 static int unfaint(void);
90 static void newuhs(boolean);
91 static int eatcorpse(struct obj *);
100 #define TTSZ SIZE(tintxts)
101 static const struct {
105 { "It contains first quality peaches - what a surprise!", 40 },
106 { "It contains salmon - not bad!", 60 },
107 { "It contains apple juice - perhaps not what you hoped for.", 20 },
108 { "It contains some nondescript substance, tasting awfully.", 500 },
109 { "It contains rotten meat. You vomit.", -50 },
110 { "It turns out to be empty.", 0 }
115 int usedtime, reqtime;
123 if (!carried(tin.tin)) /* perhaps it was stolen? */
124 return (0); /* %% probably we should use tinoid */
125 if (tin.usedtime++ >= 50) {
126 pline("You give up your attempt to open the tin.");
129 if (tin.usedtime < tin.reqtime)
130 return (1); /* still busy */
132 pline("You succeed in opening the tin.");
136 pline("%s", tintxts[r].txt);
137 lesshungry(tintxts[r].nut);
138 if (r == 1) { /* SALMON */
140 pline("Eating salmon made your fingers very slippery.");
143 pline("It contains spinach - this makes you feel like Popeye!");
146 u.ustr += rnd(((u.ustr < 17) ? 19 : 118) - u.ustr);
147 if (u.ustr > u.ustrmax)
166 struct objclass *ftmp;
169 /* Is there some food (probably a heavy corpse) here on the ground? */
171 for (otmp = fobj; otmp; otmp = otmp->nobj) {
172 if (otmp->ox == u.ux && otmp->oy == u.uy &&
173 otmp->olet == FOOD_SYM) {
174 pline("There %s %s here; eat %s? [ny] ",
175 (otmp->quan == 1) ? "is" : "are",
177 (otmp->quan == 1) ? "it" : "one");
178 if (readchar() == 'y') {
180 (void) splitobj(otmp, 1);
188 otmp = getobj("%", "eat");
192 if (otmp->otyp == TIN) {
194 switch (uwep->otyp) {
209 pline("Using your %s you try to open the tin.",
210 aobjnam(uwep, NULL));
213 pline("It is not so easy to open this tin.");
215 pline("The tin slips out of your hands.");
216 if (otmp->quan > 1) {
219 obj = splitobj(otmp, 1);
226 tmp = 10 + rn2(1 + 500 / ((int) (u.ulevel + u.ustr)));
231 occupation = opentin;
232 occtxt = "opening the tin";
235 ftmp = &objects[otmp->otyp];
236 multi = -ftmp->oc_delay;
237 if (otmp->otyp >= CORPSE && eatcorpse(otmp))
239 if (!rn2(7) && otmp->otyp != FORTUNE_COOKIE) {
240 pline("Blecch! Rotten food!");
242 pline("You feel rather light headed.");
243 Confusion += d(2, 4);
244 } else if (!rn2(4) && !Blind) {
245 pline("Everything suddenly goes dark.");
248 } else if (!rn2(3)) {
250 pline("The world spins and you slap against the floor.");
252 pline("The world spins and goes dark.");
254 nomovemsg = "You are conscious again.";
256 lesshungry(ftmp->nutrition / 4);
258 if (u.uhunger >= 1500) {
259 pline("You choke over your food.");
261 killer = ftmp->oc_name;
264 switch (otmp->otyp) {
266 if (u.uhunger <= 200)
267 pline("That food really hit the spot!");
268 else if (u.uhunger <= 700)
269 pline("That satiated your stomach!");
271 pline("You're having a hard time getting all that food down.");
274 lesshungry(ftmp->nutrition);
276 nomovemsg = "You finished your meal.";
279 pline("Yak - dog food!");
280 more_experienced(1, 0);
286 Sick = 0; /* David Neves */
287 pline("What a relief!");
290 lesshungry(ftmp->nutrition);
293 if (otmp->otyp >= CORPSE)
294 pline("That %s tasted terrible!", ftmp->oc_name);
296 pline("That %s was delicious!", ftmp->oc_name);
297 lesshungry(ftmp->nutrition);
298 if (otmp->otyp == DEAD_LIZARD && (Confusion > 2))
302 if (otmp->otyp == CARROT && !Blind) {
305 pline("Your vision improves.");
308 if (otmp->otyp == FORTUNE_COOKIE) {
310 pline("This cookie has a scrap of paper inside!");
311 pline("What a pity, that you cannot read it!");
314 } else if (otmp->otyp == LUMP_OF_ROYAL_JELLY) {
315 /* This stuff seems to be VERY healthy! */
318 if (u.ustr < u.ustrmax)
321 if (u.uhp > u.uhpmax) {
332 if (multi < 0 && !nomovemsg) {
333 static char msgbuf[BUFSZ];
334 (void) snprintf(msgbuf, sizeof(msgbuf),
335 "You finished eating the %s.",
343 /* called in hack.main.c */
354 * a3: if(Hunger & LEFT_RING) u.uhunger--; if(Hunger &
355 * RIGHT_RING) u.uhunger--; etc.
358 if (moves % 20 == 0) { /* jimt@asgb */
367 /* called after vomiting and after performing feats of magic */
375 /* called after eating something (and after drinking fruit juice) */
394 int newhs, h = u.uhunger;
396 newhs = (h > 1000) ? SATIATED :
397 (h > 150) ? NOT_HUNGRY :
399 (h > 0) ? WEAK : FAINTING;
401 if (newhs == FAINTING) {
402 if (u.uhs == FAINTED)
404 if (u.uhs <= WEAK || rn2(20 - u.uhunger / 10) >= 19) {
405 if (u.uhs != FAINTED && multi >= 0 /* %% */ ) {
406 pline("You faint from lack of food.");
407 nomul(-10 + (u.uhunger / 10));
408 nomovemsg = "You regain consciousness.";
412 } else if (u.uhunger < -(int) (200 + 25 * u.ulevel)) {
416 pline("You die from starvation.");
420 if (newhs != u.uhs) {
421 if (newhs >= WEAK && u.uhs < WEAK)
422 losestr(1); /* this may kill you -- see below */
423 else if (newhs < WEAK && u.uhs >= WEAK && u.ustr < u.ustrmax)
427 pline((!incr) ? "You only feel hungry now." :
428 (u.uhunger < 145) ? "You feel hungry." :
429 "You are beginning to feel hungry.");
432 pline((!incr) ? "You feel weak now." :
433 (u.uhunger < 45) ? "You feel weak." :
434 "You are beginning to feel weak.");
440 pline("You die from hunger and exhaustion.");
441 killer = "exhaustion";
447 #define CORPSE_I_TO_C(otyp) (char) ((otyp >= DEAD_ACID_BLOB)\
448 ? 'a' + (otyp - DEAD_ACID_BLOB)\
449 : '@' + (otyp - DEAD_HUMAN))
451 poisonous(struct obj *otmp)
453 return (strchr(POISONOUS, CORPSE_I_TO_C(otmp->otyp)) != 0);
456 /* returns 1 if some text was printed */
458 eatcorpse(struct obj *otmp)
460 char let = CORPSE_I_TO_C(otmp->otyp);
462 if (let != 'a' && moves > otmp->age + 50 + rn2(100)) {
464 pline("Ulch -- that meat was tainted!");
465 pline("You get very sick.");
467 u.usick_cause = objects[otmp->otyp].oc_name;
468 } else if (strchr(POISONOUS, let) && rn2(5)) {
470 pline("Ecch -- that must have been poisonous!");
471 if (!Poison_resistance) {
473 losehp(rnd(15), "poisonous corpse");
475 pline("You don't seem affected by the poison.");
476 } else if (strchr("ELNOPQRUuxz", let) && rn2(5)) {
478 pline("You feel sick.");
479 losehp(rnd(8), "cadaver");
485 Teleportation |= INTRINSIC;
495 pline("You cannibal! You will be sorry for this!");
499 Aggravate_monster |= INTRINSIC;
503 Invis = 50 + rn2(100);
508 See_invisible |= INTRINSIC;
520 Fire_resistance |= INTRINSIC;
523 Telepat |= INTRINSIC;
527 Cold_resistance |= INTRINSIC;
531 Poison_resistance |= INTRINSIC;
534 pline("You turn to stone.");
535 killer = "dead cockatrice";
540 pline("What a pity - you just destroyed a future piece of art!");
546 pline("You cannot resist the temptation to mimic a treasure chest.");
550 nomovemsg = "You now again prefer mimicking a human.";