![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hack.eat.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack|
Return to hack.eat.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack |
1.1 root 1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2: /* hack.eat.c - version 1.0.3 */
3:
4: #include "hack.h"
5: char POISONOUS[] = "ADKSVabhks";
6: extern char *nomovemsg;
7: extern int (*afternmv)();
8: extern int (*occupation)();
9: extern char *occtxt;
10: extern struct obj *splitobj(), *addinv();
11:
12: /* hunger texts used on bottom line (each 8 chars long) */
13: #define SATIATED 0
14: #define NOT_HUNGRY 1
15: #define HUNGRY 2
16: #define WEAK 3
17: #define FAINTING 4
18: #define FAINTED 5
19: #define STARVED 6
20:
21: char *hu_stat[] = {
22: "Satiated",
23: " ",
24: "Hungry ",
25: "Weak ",
26: "Fainting",
27: "Fainted ",
28: "Starved "
29: };
30:
31: init_uhunger(){
32: u.uhunger = 900;
33: u.uhs = NOT_HUNGRY;
34: }
35:
36: #define TTSZ SIZE(tintxts)
37: struct { char *txt; int nut; } tintxts[] = {
38: "It contains first quality peaches - what a surprise!", 40,
39: "It contains salmon - not bad!", 60,
40: "It contains apple juice - perhaps not what you hoped for.", 20,
41: "It contains some nondescript substance, tasting awfully.", 500,
42: "It contains rotten meat. You vomit.", -50,
43: "It turns out to be empty.", 0
44: };
45:
46: static struct {
47: struct obj *tin;
48: int usedtime, reqtime;
49: } tin;
50:
51: opentin(){
52: register int r;
53:
54: if(!carried(tin.tin)) /* perhaps it was stolen? */
55: return(0); /* %% probably we should use tinoid */
56: if(tin.usedtime++ >= 50) {
57: pline("You give up your attempt to open the tin.");
58: return(0);
59: }
60: if(tin.usedtime < tin.reqtime)
61: return(1); /* still busy */
62:
63: pline("You succeed in opening the tin.");
64: useup(tin.tin);
65: r = rn2(2*TTSZ);
66: if(r < TTSZ){
67: pline(tintxts[r].txt);
68: lesshungry(tintxts[r].nut);
69: if(r == 1) /* SALMON */ {
70: Glib = rnd(15);
71: pline("Eating salmon made your fingers very slippery.");
72: }
73: } else {
74: pline("It contains spinach - this makes you feel like Popeye!");
75: lesshungry(600);
76: if(u.ustr < 118)
77: u.ustr += rnd( ((u.ustr < 17) ? 19 : 118) - u.ustr);
78: if(u.ustr > u.ustrmax) u.ustrmax = u.ustr;
79: flags.botl = 1;
80: }
81: return(0);
82: }
83:
84: Meatdone(){
85: u.usym = '@';
86: prme();
87: }
88:
89: doeat(){
90: register struct obj *otmp;
91: register struct objclass *ftmp;
92: register tmp;
93:
94: /* Is there some food (probably a heavy corpse) here on the ground? */
95: if(!Levitation)
96: for(otmp = fobj; otmp; otmp = otmp->nobj) {
97: if(otmp->ox == u.ux && otmp->oy == u.uy &&
98: otmp->olet == FOOD_SYM) {
99: pline("There %s %s here; eat %s? [ny] ",
100: (otmp->quan == 1) ? "is" : "are",
101: doname(otmp),
102: (otmp->quan == 1) ? "it" : "one");
103: if(readchar() == 'y') {
104: if(otmp->quan != 1)
105: (void) splitobj(otmp, 1);
106: freeobj(otmp);
107: otmp = addinv(otmp);
108: addtobill(otmp);
109: goto gotit;
110: }
111: }
112: }
113: otmp = getobj("%", "eat");
114: if(!otmp) return(0);
115: gotit:
116: if(otmp->otyp == TIN){
117: if(uwep) {
118: switch(uwep->otyp) {
119: case CAN_OPENER:
120: tmp = 1;
121: break;
122: case DAGGER:
123: case CRYSKNIFE:
124: tmp = 3;
125: break;
126: case PICK_AXE:
127: case AXE:
128: tmp = 6;
129: break;
130: default:
131: goto no_opener;
132: }
133: pline("Using your %s you try to open the tin.",
134: aobjnam(uwep, (char *) 0));
135: } else {
136: no_opener:
137: pline("It is not so easy to open this tin.");
138: if(Glib) {
139: pline("The tin slips out of your hands.");
140: if(otmp->quan > 1) {
141: register struct obj *obj;
142: extern struct obj *splitobj();
143:
144: obj = splitobj(otmp, 1);
145: if(otmp == uwep) setuwep(obj);
146: }
147: dropx(otmp);
148: return(1);
149: }
150: tmp = 10 + rn2(1 + 500/((int)(u.ulevel + u.ustr)));
151: }
152: tin.reqtime = tmp;
153: tin.usedtime = 0;
154: tin.tin = otmp;
155: occupation = opentin;
156: occtxt = "opening the tin";
157: return(1);
158: }
159: ftmp = &objects[otmp->otyp];
160: multi = -ftmp->oc_delay;
161: if(otmp->otyp >= CORPSE && eatcorpse(otmp)) goto eatx;
162: if(!rn2(7) && otmp->otyp != FORTUNE_COOKIE) {
163: pline("Blecch! Rotten food!");
164: if(!rn2(4)) {
165: pline("You feel rather light headed.");
166: Confusion += d(2,4);
167: } else if(!rn2(4)&& !Blind) {
168: pline("Everything suddenly goes dark.");
169: Blind = d(2,10);
170: seeoff(0);
171: } else if(!rn2(3)) {
172: if(Blind)
173: pline("The world spins and you slap against the floor.");
174: else
175: pline("The world spins and goes dark.");
176: nomul(-rnd(10));
177: nomovemsg = "You are conscious again.";
178: }
179: lesshungry(ftmp->nutrition / 4);
180: } else {
181: if(u.uhunger >= 1500) {
182: pline("You choke over your food.");
183: pline("You die...");
184: killer = ftmp->oc_name;
185: done("choked");
186: }
187: switch(otmp->otyp){
188: case FOOD_RATION:
189: if(u.uhunger <= 200)
190: pline("That food really hit the spot!");
191: else if(u.uhunger <= 700)
192: pline("That satiated your stomach!");
193: else {
194: pline("You're having a hard time getting all that food down.");
195: multi -= 2;
196: }
197: lesshungry(ftmp->nutrition);
198: if(multi < 0) nomovemsg = "You finished your meal.";
199: break;
200: case TRIPE_RATION:
201: pline("Yak - dog food!");
202: more_experienced(1,0);
203: flags.botl = 1;
204: if(rn2(2)){
205: pline("You vomit.");
206: morehungry(20);
207: if(Sick) {
208: Sick = 0; /* David Neves */
209: pline("What a relief!");
210: }
211: } else lesshungry(ftmp->nutrition);
212: break;
213: default:
214: if(otmp->otyp >= CORPSE)
215: pline("That %s tasted terrible!",ftmp->oc_name);
216: else
217: pline("That %s was delicious!",ftmp->oc_name);
218: lesshungry(ftmp->nutrition);
219: if(otmp->otyp == DEAD_LIZARD && (Confusion > 2))
220: Confusion = 2;
221: else
222: #ifdef QUEST
223: if(otmp->otyp == CARROT && !Blind){
224: u.uhorizon++;
225: setsee();
226: pline("Your vision improves.");
227: } else
228: #endif QUEST
229: if(otmp->otyp == FORTUNE_COOKIE) {
230: if(Blind) {
231: pline("This cookie has a scrap of paper inside!");
232: pline("What a pity, that you cannot read it!");
233: } else
234: outrumor();
235: } else
236: if(otmp->otyp == LUMP_OF_ROYAL_JELLY) {
237: /* This stuff seems to be VERY healthy! */
238: if(u.ustrmax < 118) u.ustrmax++;
239: if(u.ustr < u.ustrmax) u.ustr++;
240: u.uhp += rnd(20);
241: if(u.uhp > u.uhpmax) {
242: if(!rn2(17)) u.uhpmax++;
243: u.uhp = u.uhpmax;
244: }
245: heal_legs();
246: }
247: break;
248: }
249: }
250: eatx:
251: if(multi<0 && !nomovemsg){
252: static char msgbuf[BUFSZ];
253: (void) sprintf(msgbuf, "You finished eating the %s.",
254: ftmp->oc_name);
255: nomovemsg = msgbuf;
256: }
257: useup(otmp);
258: return(1);
259: }
260:
261: /* called in hack.main.c */
262: gethungry(){
263: --u.uhunger;
264: if(moves % 2) {
265: if(Regeneration) u.uhunger--;
266: if(Hunger) u.uhunger--;
267: /* a3: if(Hunger & LEFT_RING) u.uhunger--;
268: if(Hunger & RIGHT_RING) u.uhunger--;
269: etc. */
270: }
271: if(moves % 20 == 0) { /* jimt@asgb */
272: if(uleft) u.uhunger--;
273: if(uright) u.uhunger--;
274: }
275: newuhs(TRUE);
276: }
277:
278: /* called after vomiting and after performing feats of magic */
279: morehungry(num) register num; {
280: u.uhunger -= num;
281: newuhs(TRUE);
282: }
283:
284: /* called after eating something (and after drinking fruit juice) */
285: lesshungry(num) register num; {
286: u.uhunger += num;
287: newuhs(FALSE);
288: }
289:
290: unfaint(){
291: u.uhs = FAINTING;
292: flags.botl = 1;
293: }
294:
295: newuhs(incr) boolean incr; {
296: register int newhs, h = u.uhunger;
297:
298: newhs = (h > 1000) ? SATIATED :
299: (h > 150) ? NOT_HUNGRY :
300: (h > 50) ? HUNGRY :
301: (h > 0) ? WEAK : FAINTING;
302:
303: if(newhs == FAINTING) {
304: if(u.uhs == FAINTED)
305: newhs = FAINTED;
306: if(u.uhs <= WEAK || rn2(20-u.uhunger/10) >= 19) {
307: if(u.uhs != FAINTED && multi >= 0 /* %% */) {
308: pline("You faint from lack of food.");
309: nomul(-10+(u.uhunger/10));
310: nomovemsg = "You regain consciousness.";
311: afternmv = unfaint;
312: newhs = FAINTED;
313: }
314: } else
315: if(u.uhunger < -(int)(200 + 25*u.ulevel)) {
316: u.uhs = STARVED;
317: flags.botl = 1;
318: bot();
319: pline("You die from starvation.");
320: done("starved");
321: }
322: }
323:
324: if(newhs != u.uhs) {
325: if(newhs >= WEAK && u.uhs < WEAK)
326: losestr(1); /* this may kill you -- see below */
327: else
328: if(newhs < WEAK && u.uhs >= WEAK && u.ustr < u.ustrmax)
329: losestr(-1);
330: switch(newhs){
331: case HUNGRY:
332: pline((!incr) ? "You only feel hungry now." :
333: (u.uhunger < 145) ? "You feel hungry." :
334: "You are beginning to feel hungry.");
335: break;
336: case WEAK:
337: pline((!incr) ? "You feel weak now." :
338: (u.uhunger < 45) ? "You feel weak." :
339: "You are beginning to feel weak.");
340: break;
341: }
342: u.uhs = newhs;
343: flags.botl = 1;
344: if(u.uhp < 1) {
345: pline("You die from hunger and exhaustion.");
346: killer = "exhaustion";
347: done("starved");
348: }
349: }
350: }
351:
352: #define CORPSE_I_TO_C(otyp) (char) ((otyp >= DEAD_ACID_BLOB)\
353: ? 'a' + (otyp - DEAD_ACID_BLOB)\
354: : '@' + (otyp - DEAD_HUMAN))
355: poisonous(otmp)
356: register struct obj *otmp;
357: {
358: return(index(POISONOUS, CORPSE_I_TO_C(otmp->otyp)) != 0);
359: }
360:
361: /* returns 1 if some text was printed */
362: eatcorpse(otmp) register struct obj *otmp; {
363: register char let = CORPSE_I_TO_C(otmp->otyp);
364: register tp = 0;
365: if(let != 'a' && moves > otmp->age + 50 + rn2(100)) {
366: tp++;
367: pline("Ulch -- that meat was tainted!");
368: pline("You get very sick.");
369: Sick = 10 + rn2(10);
370: u.usick_cause = objects[otmp->otyp].oc_name;
371: } else if(index(POISONOUS, let) && rn2(5)){
372: tp++;
373: pline("Ecch -- that must have been poisonous!");
374: if(!Poison_resistance){
375: losestr(rnd(4));
376: losehp(rnd(15), "poisonous corpse");
377: } else
378: pline("You don't seem affected by the poison.");
379: } else if(index("ELNOPQRUuxz", let) && rn2(5)){
380: tp++;
381: pline("You feel sick.");
382: losehp(rnd(8), "cadaver");
383: }
384: switch(let) {
385: case 'L':
386: case 'N':
387: case 't':
388: Teleportation |= INTRINSIC;
389: break;
390: case 'W':
391: pluslvl();
392: break;
393: case 'n':
394: u.uhp = u.uhpmax;
395: flags.botl = 1;
396: /* fall into next case */
397: case '@':
398: pline("You cannibal! You will be sorry for this!");
399: /* not tp++; */
400: /* fall into next case */
401: case 'd':
402: Aggravate_monster |= INTRINSIC;
403: break;
404: case 'I':
405: if(!Invis) {
406: Invis = 50+rn2(100);
407: if(!See_invisible)
408: newsym(u.ux, u.uy);
409: } else {
410: Invis |= INTRINSIC;
411: See_invisible |= INTRINSIC;
412: }
413: /* fall into next case */
414: case 'y':
415: #ifdef QUEST
416: u.uhorizon++;
417: #endif QUEST
418: /* fall into next case */
419: case 'B':
420: Confusion = 50;
421: break;
422: case 'D':
423: Fire_resistance |= INTRINSIC;
424: break;
425: case 'E':
426: Telepat |= INTRINSIC;
427: break;
428: case 'F':
429: case 'Y':
430: Cold_resistance |= INTRINSIC;
431: break;
432: case 'k':
433: case 's':
434: Poison_resistance |= INTRINSIC;
435: break;
436: case 'c':
437: pline("You turn to stone.");
438: killer = "dead cockatrice";
439: done("died");
440: /* NOTREACHED */
441: case 'a':
442: if(Stoned) {
443: pline("What a pity - you just destroyed a future piece of art!");
444: tp++;
445: Stoned = 0;
446: }
447: break;
448: case 'M':
449: pline("You cannot resist the temptation to mimic a treasure chest.");
450: tp++;
451: nomul(-30);
452: afternmv = Meatdone;
453: nomovemsg = "You now again prefer mimicking a human.";
454: u.usym = '$';
455: prme();
456: break;
457: }
458: return(tp);
459: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.