Generally use NULL instead of explicitly casting 0 to some pointer type (part2).
[dragonfly.git] / games / hack / hack.eat.c
CommitLineData
984263bc
MD
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 $ */
c7106d58 4/* $DragonFly: src/games/hack/hack.eat.c,v 1.5 2006/08/21 19:45:32 pavalos Exp $ */
984263bc
MD
5
6#include "hack.h"
7char POISONOUS[] = "ADKSVabhks";
c7106d58
PA
8
9static bool opentin(void);
10static void Meatdone(void);
11static void unfaint(void);
12static void newuhs(bool);
13static int eatcorpse(struct obj *);
984263bc
MD
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
fd2d026f 24const char *hu_stat[] = {
984263bc
MD
25 "Satiated",
26 " ",
27 "Hungry ",
28 "Weak ",
29 "Fainting",
30 "Fainted ",
31 "Starved "
32};
33
c7106d58
PA
34void
35init_uhunger(void)
36{
984263bc
MD
37 u.uhunger = 900;
38 u.uhs = NOT_HUNGRY;
39}
40
41#define TTSZ SIZE(tintxts)
fd2d026f 42struct { const char *txt; int nut; } tintxts[] = {
c7106d58
PA
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 }
984263bc
MD
49};
50
51static struct {
52 struct obj *tin;
53 int usedtime, reqtime;
54} tin;
55
c7106d58
PA
56static bool
57opentin(void)
58{
984263bc
MD
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
c7106d58
PA
91static void
92Meatdone(void)
93{
984263bc
MD
94 u.usym = '@';
95 prme();
96}
97
c7106d58
PA
98int
99doeat(void)
100{
984263bc
MD
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)
c7106d58 116 splitobj(otmp, 1);
984263bc
MD
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);
126gotit:
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.",
902ec341 145 aobjnam(uwep, NULL));
984263bc
MD
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;
984263bc
MD
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
304d60d9 238#endif /* QUEST */
984263bc
MD
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 }
260eatx:
261 if(multi<0 && !nomovemsg){
262 static char msgbuf[BUFSZ];
c7106d58 263 sprintf(msgbuf, "You finished eating the %s.",
984263bc
MD
264 ftmp->oc_name);
265 nomovemsg = msgbuf;
266 }
267 useup(otmp);
268 return(1);
269}
270
271/* called in hack.main.c */
c7106d58
PA
272void
273gethungry(void)
274{
984263bc
MD
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 */
c7106d58
PA
291void
292morehungry(int num)
293{
984263bc
MD
294 u.uhunger -= num;
295 newuhs(TRUE);
296}
297
298/* called after eating something (and after drinking fruit juice) */
c7106d58
PA
299void
300lesshungry(int num)
301{
984263bc
MD
302 u.uhunger += num;
303 newuhs(FALSE);
304}
305
c7106d58
PA
306static void
307unfaint(void)
308{
984263bc
MD
309 u.uhs = FAINTING;
310 flags.botl = 1;
311}
312
c7106d58
PA
313static void
314newuhs(bool incr)
315{
984263bc
MD
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))
c7106d58
PA
375bool
376poisonous(struct obj *otmp)
984263bc
MD
377{
378 return(index(POISONOUS, CORPSE_I_TO_C(otmp->otyp)) != 0);
379}
380
381/* returns 1 if some text was printed */
c7106d58
PA
382static int
383eatcorpse(struct obj *otmp)
384{
984263bc
MD
385char let = CORPSE_I_TO_C(otmp->otyp);
386int 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++;
304d60d9 439#endif /* QUEST */
984263bc
MD
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}