summaryrefslogtreecommitdiff
path: root/games/hack/hack.eat.c
diff options
context:
space:
mode:
Diffstat (limited to 'games/hack/hack.eat.c')
-rw-r--r--games/hack/hack.eat.c459
1 files changed, 0 insertions, 459 deletions
diff --git a/games/hack/hack.eat.c b/games/hack/hack.eat.c
deleted file mode 100644
index f1a767779af1d..0000000000000
--- a/games/hack/hack.eat.c
+++ /dev/null
@@ -1,459 +0,0 @@
-/* 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);
-}
generated by cgit v1.2.3 (git 2.25.1) at 2025-08-02 11:29:49 +0000