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