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