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