Source:NetHack 3.1.0/eat.c

From NetHackWiki
Jump to navigation Jump to search

Below is the full text to eat.c from the source code of NetHack 3.1.0.

Warning! This is the source code from an old release. For newer releases, see Source code

The NetHack General Public License applies to screenshots, source code and other content from NetHack.

This content was modified from the original NetHack source code distribution (by splitting up NetHack content between wiki pages, and possibly further editing). See the page history for a list of who changed it, and on what dates.

1.    /*	SCCS Id: @(#)eat.c	3.1	92/12/06	*/
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    /* NetHack may be freely redistributed.  See license for details. */
4.    
5.    #include	"hack.h"
6.    /*#define DEBUG		/* uncomment to enable new eat code debugging */
7.    
8.    #ifdef DEBUG
9.    # ifdef WIZARD
10.   #define debugpline	if (wizard) pline
11.   # else
12.   #define debugpline	pline
13.   # endif
14.   #endif
15.   
16.   STATIC_PTR int NDECL(eatmdone);
17.   STATIC_PTR int NDECL(eatfood);
18.   STATIC_PTR int NDECL(opentin);
19.   STATIC_PTR int NDECL(unfaint);
20.   
21.   #ifdef OVLB
22.   static void FDECL(choke, (struct obj *));
23.   static void NDECL(recalc_wt);
24.   static struct obj *FDECL(touchfood, (struct obj *));
25.   static void NDECL(do_reset_eat);
26.   static void FDECL(done_eating, (BOOLEAN_P));
27.   static void FDECL(cprefx, (int));
28.   static int FDECL(intrinsic_possible, (int,struct permonst *));
29.   static void FDECL(givit, (int,struct permonst *));
30.   static void FDECL(cpostfx, (int));
31.   static void FDECL(start_tin, (struct obj *));
32.   static int FDECL(eatcorpse, (struct obj *));
33.   static void FDECL(start_eating, (struct obj *));
34.   static void FDECL(fprefx, (struct obj *));
35.   static void FDECL(fpostfx, (struct obj *));
36.   static int NDECL(bite);
37.   
38.   #ifdef POLYSELF
39.   static int FDECL(rottenfood, (struct obj *));
40.   static void NDECL(eatspecial);
41.   static void FDECL(eatring, (struct obj *));
42.   static const char * FDECL(foodword, (struct obj *));
43.   #else
44.   static int NDECL(rottenfood);
45.   #endif /* POLYSELF */
46.   
47.   char corpsename[60];
48.   char msgbuf[BUFSZ];
49.   
50.   #endif /* OVLB */
51.   
52.   /* hunger texts used on bottom line (each 8 chars long) */
53.   #define SATIATED	0
54.   #define NOT_HUNGRY	1
55.   #define HUNGRY		2
56.   #define WEAK		3
57.   #define FAINTING	4
58.   #define FAINTED		5
59.   #define STARVED		6
60.   
61.   #ifdef OVLB
62.   
63.   const char *hu_stat[] = {
64.   	"Satiated",
65.   	"        ",
66.   	"Hungry  ",
67.   	"Weak    ",
68.   	"Fainting",
69.   	"Fainted ",
70.   	"Starved "
71.   };
72.   
73.   #endif /* OVLB */
74.   
75.   #ifndef OVLB
76.   
77.   STATIC_DCL const char NEARDATA comestibles[];
78.   #ifdef POLYSELF
79.   STATIC_OVL const char NEARDATA allobj[];
80.   #endif /* POLYSELF */
81.   
82.   #else
83.   
84.   STATIC_OVL const char NEARDATA comestibles[] = { FOOD_CLASS, 0 };
85.   
86.   #ifdef POLYSELF
87.   /* Gold must come first for getobj(). */
88.   STATIC_OVL const char NEARDATA allobj[] = {
89.   	GOLD_CLASS, WEAPON_CLASS, ARMOR_CLASS, POTION_CLASS, SCROLL_CLASS,
90.   	WAND_CLASS, RING_CLASS, AMULET_CLASS, FOOD_CLASS, TOOL_CLASS,
91.   	GEM_CLASS, ROCK_CLASS, BALL_CLASS, CHAIN_CLASS, SPBOOK_CLASS, 0 };
92.   #endif /* POLYSELF */
93.   
94.   #endif /* OVLB */
95.   #ifdef OVL1
96.   # ifdef POLYSELF
97.   
98.   boolean
99.   is_edible(obj)
100.  register struct obj *obj;
101.  {
102.  	if (metallivorous(uasmon) && is_metallic(obj))
103.  		return TRUE;
104.  	if (u.umonnum == PM_GELATINOUS_CUBE && is_organic(obj))
105.  		return TRUE;
106.  	return !!index(comestibles, obj->oclass);
107.  }
108.  # endif /* POLYSELF */
109.  #endif /* OVL1 */
110.  #ifdef OVLB
111.  
112.  void
113.  init_uhunger(){
114.  	u.uhunger = 900;
115.  	u.uhs = NOT_HUNGRY;
116.  }
117.  
118.  static const struct { const char *txt; int nut; } tintxts[] = {
119.  	{"deep fried",	 60},
120.  	{"pickled",	 40},
121.  	{"soup made from", 20},
122.  	{"pureed",	500},
123.  	{"rotten",	-50},
124.  	{"homemade",	 50},
125.  	{"", 0}
126.  };
127.  #define	TTSZ	SIZE(tintxts)
128.  
129.  static struct {
130.  	struct	obj *tin;
131.  	int	usedtime, reqtime;
132.  } NEARDATA tin;
133.  
134.  static struct {
135.  	struct	obj *piece;	/* the thing being eaten, or last thing that
136.  				 * was partially eaten, unless that thing was
137.  				 * a tin, which uses the tin structure above */
138.  	int	usedtime,	/* turns spent eating */
139.  		reqtime;	/* turns required to eat */
140.  	int	nmod;		/* coded nutrition per turn */
141.  	Bitfield(canchoke,1);	/* was satiated at beginning */
142.  	Bitfield(fullwarn,1);	/* have warned about being full */
143.  	Bitfield(eating,1);	/* victual currently being eaten */
144.  	Bitfield(doreset,1);	/* stop eating at end of turn */
145.  } NEARDATA victual;
146.  
147.  STATIC_PTR
148.  int
149.  eatmdone() {		/* called after mimicing is over */
150.  	u.usym =
151.  #ifdef POLYSELF
152.  		u.mtimedone ? uasmon->mlet :
153.  #endif
154.  		S_HUMAN;
155.  	newsym(u.ux,u.uy);
156.  	return 0;
157.  }
158.  
159.  /* Created by GAN 01/28/87
160.   * Amended by AKP 09/22/87: if not hard, don't choke, just vomit.
161.   * Amended by 3.  06/12/89: if not hard, sometimes choke anyway, to keep risk.
162.   *		  11/10/89: if hard, rarely vomit anyway, for slim chance.
163.   */
164.  /*ARGSUSED*/
165.  static void
166.  choke(food)	/* To a full belly all food is bad. (It.) */
167.  	register struct obj *food;
168.  {
169.  	/* only happens if you were satiated */
170.  	if(u.uhs != SATIATED) return;
171.  
172.  	if (pl_character[0] == 'K' && u.ualign.type == A_LAWFUL)
173.  		u.ualign.record--;	/* gluttony is unchivalrous */
174.  
175.  	if (!rn2(20)) {
176.  		You("stuff yourself and then vomit voluminously.");
177.  		morehungry(1000);	/* you just got *very* sick! */
178.  		vomit();
179.  	} else {
180.  		killer_format = KILLED_BY_AN;
181.  		/*
182.  		 * Note all "killer"s below read "Choked on %s" on the
183.  		 * high score list & tombstone.  So plan accordingly.
184.  		 */
185.  		if(food) {
186.  #ifdef POLYSELF
187.  			You("choke over your %s.", foodword(food));
188.  			if (food->oclass == GOLD_CLASS) {
189.  				killer_format = KILLED_BY;
190.  				killer = "eating too rich a meal";
191.  			} else {
192.  #else
193.  				You("choke over your food.");
194.  #endif
195.  				killer = singular(food, xname);
196.  #ifdef POLYSELF
197.  			}
198.  #endif
199.  		} else {
200.  			You("choke over it.");
201.  			killer = "quick snack";
202.  		}
203.  		You("die...");
204.  		done(CHOKING);
205.  	}
206.  }
207.  
208.  static void
209.  recalc_wt() {	/* modify object wt. depending on time spent consuming it */
210.  	register struct obj *piece = victual.piece;
211.  
212.  #ifdef DEBUG
213.  	debugpline("Old weight = %d", piece->owt);
214.  	debugpline("Used time = %d, Req'd time = %d",
215.  		victual.usedtime, victual.reqtime);
216.  #endif
217.  	/* weight(piece) = weight of full item */
218.  	if(victual.usedtime)
219.  	    piece->owt = eaten_stat(weight(piece), piece);
220.  #ifdef DEBUG
221.  	debugpline("New weight = %d", piece->owt);
222.  #endif
223.  }
224.  
225.  void
226.  reset_eat() {		/* called when eating interrupted by an event */
227.  
228.      /* we only set a flag here - the actual reset process is done after
229.       * the round is spent eating.
230.       */
231.  	if(victual.eating && !victual.doreset) {
232.  #ifdef DEBUG
233.  	    debugpline("reset_eat...");
234.  #endif
235.  	    victual.doreset = TRUE;
236.  	}
237.  	return;
238.  }
239.  
240.  void
241.  bill_dummy_object(otmp)
242.  register struct obj *otmp;
243.  {
244.  	/* Create a dummy duplicate to put on bill.  The duplicate exists
245.  	 * only in the billobjs chain.  This function is used when a store
246.  	 * object is being altered, and a copy of the original is needed
247.  	 * for billing purposes.
248.  	 */
249.  	register struct obj *dummy;
250.  
251.  	if(otmp->unpaid)
252.  		subfrombill(otmp, shop_keeper(*u.ushops));
253.  	dummy = newobj(otmp->onamelth);
254.  	*dummy = *otmp;
255.  	dummy->o_id = flags.ident++;
256.  	dummy->owt = weight(dummy);
257.  	if(otmp->onamelth)
258.  		(void)strncpy(ONAME(dummy),ONAME(otmp), (int)otmp->onamelth);
259.  	if(Is_candle(dummy)) dummy->lamplit = 0;
260.  	addtobill(dummy, FALSE, TRUE, TRUE);
261.  }
262.  
263.  static struct obj *
264.  touchfood(otmp)
265.  register struct obj *otmp;
266.  {
267.  	if (otmp->quan > 1L) {
268.  	    if(!carried(otmp))
269.  		(void) splitobj(otmp, 1L);
270.  	    else
271.  		otmp = splitobj(otmp, otmp->quan - 1L);
272.  #ifdef DEBUG
273.  	    debugpline("split object,");
274.  #endif
275.  	}
276.  
277.  	if (!otmp->oeaten) {
278.  	    if(((!carried(otmp) && costly_spot(otmp->ox, otmp->oy) &&
279.  		 saleable(rooms[*u.ushops-ROOMOFFSET].rtype-SHOPBASE, otmp))
280.  		 || otmp->unpaid) &&
281.  		 (otmp->otyp == CORPSE || objects[otmp->otyp].oc_delay > 1)) {
282.  		/* create a dummy duplicate to put on bill */
283.  		You("bite it, you bought it!");
284.  		bill_dummy_object(otmp);
285.  	    }
286.  	    otmp->oeaten = (otmp->otyp == CORPSE ?
287.  				(int)mons[otmp->corpsenm].cnutrit :
288.  				objects[otmp->otyp].oc_nutrition);
289.  	}
290.  
291.  	if (carried(otmp)) {
292.  	    freeinv(otmp);
293.  	    if(inv_cnt() >= 52)
294.  		dropy(otmp);
295.  	    else
296.  		otmp = addinv(otmp); /* unlikely but a merge is possible */
297.  	}
298.  	return(otmp);
299.  }
300.  
301.  /* When food decays, in the middle of your meal, we don't want to dereference
302.   * any dangling pointers, so set it to null (which should still trigger
303.   * do_reset_eat() at the beginning of eatfood()) and check for null pointers
304.   * in do_reset_eat().
305.   */
306.  void
307.  food_disappears(obj)
308.  register struct obj *obj;
309.  {
310.  	if (obj == victual.piece) victual.piece = (struct obj *)0;
311.  }
312.  
313.  static void
314.  do_reset_eat() {
315.  
316.  #ifdef DEBUG
317.  	debugpline("do_reset_eat...");
318.  #endif
319.  	if (victual.piece) {
320.  		victual.piece = touchfood(victual.piece);
321.  		recalc_wt();
322.  	}
323.  	victual.fullwarn = victual.eating = victual.doreset = FALSE;
324.  	/* Do not set canchoke to FALSE; if we continue eating the same object
325.  	 * we need to know if canchoke was set when they started eating it the
326.  	 * previous time.  And if we don't continue eating the same object
327.  	 * canchoke always gets recalculated anyway.
328.  	 */
329.  	stop_occupation();
330.  }
331.  
332.  STATIC_PTR
333.  int
334.  eatfood() {		/* called each move during eating process */
335.  	if(!carried(victual.piece) && !obj_here(victual.piece, u.ux, u.uy)) {
336.  		/* maybe it was stolen? */
337.  		do_reset_eat();
338.  		return(0);
339.  	}
340.  	if(!victual.eating) return(0);
341.  
342.  	if(++victual.usedtime < victual.reqtime) {
343.  	    if(bite()) return(0);
344.  	    return(1);	/* still busy */
345.  	} else {	/* done */
346.  	    done_eating(TRUE);
347.  	    return(0);
348.  	}
349.  }
350.  
351.  static void
352.  done_eating(message)
353.  boolean message;
354.  {
355.  #ifndef NO_SIGNAL
356.  	victual.piece->in_use = TRUE;
357.  #endif
358.  	if (nomovemsg) {
359.  		if (message) pline(nomovemsg);
360.  		nomovemsg = 0;
361.  	} else if (message)
362.  		You("finish eating %s.", the(singular(victual.piece, xname)));
363.  
364.  	if(victual.piece->otyp == CORPSE)
365.  		cpostfx(victual.piece->corpsenm);
366.  	else
367.  		fpostfx(victual.piece);
368.  
369.  	if (carried(victual.piece)) useup(victual.piece);
370.  	else useupf(victual.piece);
371.  	victual.piece = (struct obj *) 0;
372.  	victual.fullwarn = victual.eating = victual.doreset = FALSE;
373.  }
374.  
375.  static void
376.  cprefx(pm)
377.  register int pm;
378.  {
379.  	if ((pl_character[0]=='E') ? is_elf(&mons[pm]) : is_human(&mons[pm])) {
380.  		You("cannibal!  You will regret this!");
381.  		Aggravate_monster |= FROMOUTSIDE;
382.  	}
383.  
384.  	switch(pm) {
385.  	    case PM_LITTLE_DOG:
386.  	    case PM_DOG:
387.  	    case PM_LARGE_DOG:
388.  	    case PM_KITTEN:
389.  	    case PM_HOUSECAT:
390.  	    case PM_LARGE_CAT:
391.  		You("feel that eating the %s was a bad idea.", mons[pm].mname);
392.  		Aggravate_monster |= FROMOUTSIDE;
393.  		break;
394.  	    case PM_COCKATRICE:
395.  	    case PM_MEDUSA:
396.  #ifdef POLYSELF
397.  		if(!resists_ston(uasmon))
398.  		    if(!(poly_when_stoned(uasmon) && polymon(PM_STONE_GOLEM)))
399.  #endif
400.  			{
401.  			char *cruft;	/* killer is const char * */
402.  			killer_format = KILLED_BY;
403.  			killer = cruft = (char *)  /* sizeof "s" includes \0 */
404.  					alloc((unsigned) strlen(mons[pm].mname)
405.  						+ sizeof " meat");
406.  			Sprintf(cruft, "%s meat", mons[pm].mname);
407.  			You("turn to stone.");
408.  			done(STONING);
409.  			}
410.  			break;
411.  	    case PM_LIZARD:
412.  		/* Relief from cockatrices -dgk */
413.  		if (Stoned) {
414.  			Stoned = 0;
415.  			You("feel limber!");
416.  		}
417.  		break;
418.  	    case PM_DEATH:
419.  	    case PM_PESTILENCE:
420.  	    case PM_FAMINE:
421.  		{ char buf[BUFSZ];
422.  		    pline("Eating that is instantly fatal.");
423.  		    Sprintf(buf, "unwisely ate the body of %s",
424.  			    mons[pm].mname);
425.  		    killer = buf;
426.  		    killer_format = NO_KILLER_PREFIX;
427.  		    done(DIED);
428.  		    /* It so happens that since we know these monsters */
429.  		    /* cannot appear in tins, victual.piece will always */
430.  		    /* be what we want, which is not generally true. */
431.  		    revive_corpse(victual.piece, 0, FALSE);
432.  		    return;
433.  		}
434.  	    default:
435.  		if(acidic(&mons[pm]) && Stoned) {
436.  		    pline("What a pity - you just destroyed a future piece of art!");
437.  		    Stoned = 0;
438.  		}
439.  	}
440.  	return;
441.  }
442.  
443.  
444.  /*
445.   * If you add an intrinsic that can be gotten by eating a monster, add it
446.   * to intrinsic_possible() and givit().  (It must already be in prop.h to
447.   * be an intrinsic property.)
448.   * It would be very easy to make the intrinsics not try to give you one
449.   * that you already had by checking to see if you have it in
450.   * intrinsic_possible() instead of givit().
451.   */
452.  
453.  /* intrinsic_possible() returns TRUE iff a monster can give an intrinsic. */
454.  static int
455.  intrinsic_possible(type, ptr)
456.  int type;
457.  register struct permonst *ptr;
458.  {
459.  	switch (type) {
460.  	    case FIRE_RES:
461.  #ifdef DEBUG
462.  		if (ptr->mconveys & MR_FIRE) {
463.  			debugpline("can get fire resistance");
464.  			return(TRUE);
465.  		} else  return(FALSE);
466.  #else
467.  		return(ptr->mconveys & MR_FIRE);
468.  #endif
469.  	    case SLEEP_RES:
470.  #ifdef DEBUG
471.  		if (ptr->mconveys & MR_SLEEP) {
472.  			debugpline("can get sleep resistance");
473.  			return(TRUE);
474.  		} else  return(FALSE);
475.  #else
476.  		return(ptr->mconveys & MR_SLEEP);
477.  #endif
478.  	    case COLD_RES:
479.  #ifdef DEBUG
480.  		if (ptr->mconveys & MR_COLD) {
481.  			debugpline("can get cold resistance");
482.  			return(TRUE);
483.  		} else  return(FALSE);
484.  #else
485.  		return(ptr->mconveys & MR_COLD);
486.  #endif
487.  	    case DISINT_RES:
488.  #ifdef DEBUG
489.  		if (ptr->mconveys & MR_DISINT) {
490.  			debugpline("can get disintegration resistance");
491.  			return(TRUE);
492.  		} else  return(FALSE);
493.  #else
494.  		return(ptr->mconveys & MR_DISINT);
495.  #endif
496.  	    case SHOCK_RES:	/* shock (electricity) resistance */
497.  #ifdef DEBUG
498.  		if (ptr->mconveys & MR_ELEC) {
499.  			debugpline("can get shock resistance");
500.  			return(TRUE);
501.  		} else  return(FALSE);
502.  #else
503.  		return(ptr->mconveys & MR_ELEC);
504.  #endif
505.  	    case POISON_RES:
506.  #ifdef DEBUG
507.  		if (ptr->mconveys & MR_POISON) {
508.  			debugpline("can get poison resistance");
509.  			return(TRUE);
510.  		} else  return(FALSE);
511.  #else
512.  		return(ptr->mconveys & MR_POISON);
513.  #endif
514.  	    case TELEPORT:
515.  #ifdef DEBUG
516.  		if (can_teleport(ptr)) {
517.  			debugpline("can get teleport");
518.  			return(TRUE);
519.  		} else  return(FALSE);
520.  #else
521.  		return(can_teleport(ptr));
522.  #endif
523.  	    case TELEPORT_CONTROL:
524.  #ifdef DEBUG
525.  		if (control_teleport(ptr)) {
526.  			debugpline("can get teleport control");
527.  			return(TRUE);
528.  		} else  return(FALSE);
529.  #else
530.  		return(control_teleport(ptr));
531.  #endif
532.  	    case TELEPAT:
533.  #ifdef DEBUG
534.  		if (telepathic(ptr)) {
535.  			debugpline("can get telepathy");
536.  			return(TRUE);
537.  		} else  return(FALSE);
538.  #else
539.  		return(telepathic(ptr));
540.  #endif
541.  	    default:
542.  		return(FALSE);
543.  	}
544.  	/*NOTREACHED*/
545.  }
546.  
547.  /* givit() tries to give you an intrinsic based on the monster's level
548.   * and what type of intrinsic it is trying to give you.
549.   */
550.  static void
551.  givit(type, ptr)
552.  int type;
553.  register struct permonst *ptr;
554.  {
555.  	register int chance;
556.  
557.  #ifdef DEBUG
558.  	debugpline("Attempting to give intrinsic %d", type);
559.  #endif
560.  	/* some intrinsics are easier to get than others */
561.  	switch (type) {
562.  		case POISON_RES:
563.  			if ((ptr == &mons[PM_KILLER_BEE] ||
564.  					ptr == &mons[PM_SCORPION]) && !rn2(4))
565.  				chance = 1;
566.  			else
567.  				chance = 15;
568.  			break;
569.  		case TELEPORT:
570.  			chance = 10;
571.  			break;
572.  		case TELEPORT_CONTROL:
573.  			chance = 12;
574.  			break;
575.  		case TELEPAT:
576.  			chance = 1;
577.  			break;
578.  		default:
579.  			chance = 15;
580.  			break;
581.  	}
582.  
583.  	if (ptr->mlevel <= rn2(chance))
584.  		return;		/* failed die roll */
585.  
586.  	switch (type) {
587.  	    case FIRE_RES:
588.  #ifdef DEBUG
589.  		debugpline("Trying to give fire resistance");
590.  #endif
591.  		if(!(HFire_resistance & FROMOUTSIDE)) {
592.  			You("feel a momentary chill.");
593.  			HFire_resistance |= FROMOUTSIDE;
594.  		}
595.  		break;
596.  	    case SLEEP_RES:
597.  #ifdef DEBUG
598.  		debugpline("Trying to give sleep resistance");
599.  #endif
600.  		if(!(HSleep_resistance & FROMOUTSIDE)) {
601.  			You("feel wide awake.");
602.  			HSleep_resistance |= FROMOUTSIDE;
603.  		}
604.  		break;
605.  	    case COLD_RES:
606.  #ifdef DEBUG
607.  		debugpline("Trying to give cold resistance");
608.  #endif
609.  		if(!(HCold_resistance & FROMOUTSIDE)) {
610.  			You("feel full of hot air.");
611.  			HCold_resistance |= FROMOUTSIDE;
612.  		}
613.  		break;
614.  	    case DISINT_RES:
615.  #ifdef DEBUG
616.  		debugpline("Trying to give disintegration resistance");
617.  #endif
618.  		if(!(HDisint_resistance & FROMOUTSIDE)) {
619.  			You("feel very firm.");
620.  			HDisint_resistance |= FROMOUTSIDE;
621.  		}
622.  		break;
623.  	    case SHOCK_RES:	/* shock (electricity) resistance */
624.  #ifdef DEBUG
625.  		debugpline("Trying to give shock resistance");
626.  #endif
627.  		if(!(HShock_resistance & FROMOUTSIDE)) {
628.  			Your("health currently feels amplified!");
629.  			HShock_resistance |= FROMOUTSIDE;
630.  		}
631.  		break;
632.  	    case POISON_RES:
633.  #ifdef DEBUG
634.  		debugpline("Trying to give poison resistance");
635.  #endif
636.  		if(!(HPoison_resistance & FROMOUTSIDE)) {
637.  			You("feel healthy.");
638.  			HPoison_resistance |= FROMOUTSIDE;
639.  		}
640.  		break;
641.  	    case TELEPORT:
642.  #ifdef DEBUG
643.  		debugpline("Trying to give teleport");
644.  #endif
645.  		if(!(HTeleportation & FROMOUTSIDE)) {
646.  			You("feel very jumpy.");
647.  			HTeleportation |= FROMOUTSIDE;
648.  		}
649.  		break;
650.  	    case TELEPORT_CONTROL:
651.  #ifdef DEBUG
652.  		debugpline("Trying to give teleport control");
653.  #endif
654.  		if(!(HTeleport_control & FROMOUTSIDE)) {
655.  			You("feel in control of yourself.");
656.  			HTeleport_control |= FROMOUTSIDE;
657.  		}
658.  		break;
659.  	    case TELEPAT:
660.  #ifdef DEBUG
661.  		debugpline("Trying to give telepathy");
662.  #endif
663.  		if(!(HTelepat & FROMOUTSIDE)) {
664.  			You("feel a %s mental acuity.",
665.  				Hallucination ? "normal" : "strange");
666.  			HTelepat |= FROMOUTSIDE;
667.  			/* If blind, make sure monsters show up. */
668.  			if (Blind) see_monsters();
669.  		}
670.  		break;
671.  	    default:
672.  #ifdef DEBUG
673.  		debugpline("Tried to give an impossible intrinsic");
674.  #endif
675.  		break;
676.  	}
677.  }
678.  
679.  static void
680.  cpostfx(pm)		/* called after completely consuming a corpse */
681.  register int pm;
682.  {
683.  	register int tmp = 0;
684.  
685.  	switch(pm) {
686.  	    case PM_WRAITH:
687.  		pluslvl();
688.  		break;
689.  #ifdef POLYSELF
690.  	    case PM_HUMAN_WERERAT:
691.  		u.ulycn = PM_WERERAT;
692.  		break;
693.  	    case PM_HUMAN_WEREJACKAL:
694.  		u.ulycn = PM_WEREJACKAL;
695.  		break;
696.  	    case PM_HUMAN_WEREWOLF:
697.  		u.ulycn = PM_WEREWOLF;
698.  		break;
699.  #endif
700.  	    case PM_NURSE:
701.  		u.uhp = u.uhpmax;
702.  		flags.botl = 1;
703.  		break;
704.  	    case PM_STALKER:
705.  		if(!Invis) {
706.  			HInvis = rn1(100, 50);
707.  			if(!See_invisible)
708.  				newsym(u.ux, u.uy);
709.  		} else {
710.  			register long oldprop = See_invisible;
711.  			if (!(HInvis & INTRINSIC)) You("feel hidden!");
712.  			HInvis |= FROMOUTSIDE;
713.  			HSee_invisible |= FROMOUTSIDE;
714.  			if (!oldprop)
715.  				newsym(u.ux, u.uy);
716.  		}
717.  		/* fall into next case */
718.  	    case PM_YELLOW_LIGHT:
719.  		/* fall into next case */
720.  	    case PM_GIANT_BAT:
721.  		make_stunned(HStun + 30,FALSE);
722.  		/* fall into next case */
723.  	    case PM_BAT:
724.  		make_stunned(HStun + 30,FALSE);
725.  		break;
726.  	    case PM_GIANT_MIMIC:
727.  		tmp += 10;
728.  		/* fall into next case */
729.  	    case PM_LARGE_MIMIC:
730.  		tmp += 20;
731.  		/* fall into next case */
732.  	    case PM_SMALL_MIMIC:
733.  		tmp += 20;
734.  		if(u.usym == S_HUMAN) {
735.  		    You("cannot resist the temptation to mimic a pile of gold.");
736.  		    nomul(-tmp);
737.  		    afternmv = eatmdone;
738.  		    if (pl_character[0]=='E')
739.  			nomovemsg = "You now again prefer mimicking an elf.";
740.  		    else
741.  			nomovemsg = "You now again prefer mimicking a human.";
742.  		    u.usym = 0; /* hack! no monster sym 0; use for gold */
743.  		    newsym(u.ux,u.uy);
744.  		}
745.  		break;
746.  	    case PM_QUANTUM_MECHANIC:
747.  		Your("velocity suddenly seems very uncertain!");
748.  		if (Fast & INTRINSIC) {
749.  			Fast &= ~INTRINSIC;
750.  			You("seem slower.");
751.  		} else {
752.  			Fast |= FROMOUTSIDE;
753.  			You("seem faster.");
754.  		}
755.  		break;
756.  	    case PM_LIZARD:
757.  		if (HStun > 2)  make_stunned(2L,FALSE);
758.  		if (HConfusion > 2)  make_confused(2L,FALSE);
759.  		break;
760.  	    case PM_CHAMELEON:
761.  		You("feel a change coming over you.");
762.  #ifdef POLYSELF
763.  		polyself();
764.  #else
765.  		newman();
766.  #endif
767.  		break;
768.  	    case PM_MIND_FLAYER:
769.  		if (ABASE(A_INT) < ATTRMAX(A_INT)) {
770.  			if (!rn2(2)) {
771.  				pline("Yum! That was real brain food!");
772.  				(void) adjattrib(A_INT, 1, FALSE);
773.  				break;	/* don't give them telepathy, too */
774.  			}
775.  		}
776.  		else {
777.  			pline("For some reason, that tasted bland.");
778.  		}
779.  		/* fall through to default case */
780.  	    default: {
781.  		register struct permonst *ptr = &mons[pm];
782.  		int i, count;
783.  
784.  		if(dmgtype(ptr, AD_STUN) || pm==PM_VIOLET_FUNGUS) {
785.  			pline ("Oh wow!  Great stuff!");
786.  			make_hallucinated(HHallucination + 200,FALSE,0L);
787.  		}
788.  		/* prevent polymorph abuse by killing/eating your offspring */
789.  		if(pm >= PM_BABY_GRAY_DRAGON && pm <= PM_BABY_YELLOW_DRAGON)
790.  			return;
791.  		if(is_giant(ptr)) gainstr((struct obj *)0, 0);
792.  
793.  		/* Check the monster for all of the intrinsics.  If this
794.  		 * monster can give more than one, pick one to try to give
795.  		 * from among all it can give.
796.  		 *
797.  		 * If a monster can give 4 intrinsics then you have
798.  		 * a 1/1 * 1/2 * 2/3 * 3/4 = 1/4 chance of getting the first,
799.  		 * a 1/2 * 2/3 * 3/4 = 1/4 chance of getting the second,
800.  		 * a 1/3 * 3/4 = 1/4 chance of getting the third,
801.  		 * and a 1/4 chance of getting the fourth.
802.  		 *
803.  		 * And now a proof by induction:
804.  		 * it works for 1 intrinsic (1 in 1 of getting it)
805.  		 * for 2 you have a 1 in 2 chance of getting the second,
806.  		 *	otherwise you keep the first
807.  		 * for 3 you have a 1 in 3 chance of getting the third,
808.  		 *	otherwise you keep the first or the second
809.  		 * for n+1 you have a 1 in n+1 chance of getting the (n+1)st,
810.  		 *	otherwise you keep the previous one.
811.  		 * Elliott Kleinrock, October 5, 1990
812.  		 */
813.  
814.  		 count = 0;	/* number of possible intrinsics */
815.  		 tmp = 0;	/* which one we will try to give */
816.  		 for (i = 1; i <= LAST_PROP; i++) {
817.  			if (intrinsic_possible(i, ptr)) {
818.  				count++;
819.  				/* a 1 in count chance of replacing the old
820.  				 * one with this one, and a count-1 in count
821.  				 * chance of keeping the old one.  (note
822.  				 * that 1 in 1 and 0 in 1 are what we want
823.  				 * for the first one
824.  				 */
825.  				if (!rn2(count)) {
826.  #ifdef DEBUG
827.  					debugpline("Intrinsic %d replacing %d",
828.  								i, tmp);
829.  #endif
830.  					tmp = i;
831.  				}
832.  			}
833.  		 }
834.  
835.  		 /* if any found try to give them one */
836.  		 if (count) givit(tmp, ptr);
837.  	    }
838.  	    break;
839.  	}
840.  	return;
841.  }
842.  
843.  STATIC_PTR
844.  int
845.  opentin()		/* called during each move whilst opening a tin */
846.  {
847.  	register int r;
848.  
849.  	if(!carried(tin.tin) && !obj_here(tin.tin, u.ux, u.uy))
850.  					/* perhaps it was stolen? */
851.  		return(0);		/* %% probably we should use tinoid */
852.  	if(tin.usedtime++ >= 50) {
853.  		You("give up your attempt to open the tin.");
854.  		return(0);
855.  	}
856.  	if(tin.usedtime < tin.reqtime)
857.  		return(1);		/* still busy */
858.  	if(tin.tin->cursed && tin.tin->spe != -1 && !rn2(8)) {
859.  		b_trapped("tin");
860.  		goto use_me;
861.  	}
862.  	You("succeed in opening the tin.");
863.  	if(tin.tin->spe != 1) {
864.  	    if(tin.tin->corpsenm == -1) {
865.  		pline("It turns out to be empty.");
866.  		tin.tin->dknown = tin.tin->known = TRUE;
867.  		goto use_me;
868.  	    }
869.  	    r = tin.tin->cursed ? 4 :		/* Always rotten if cursed */
870.  		    (tin.tin->spe == -1) ? 5 :	/* "homemade" if player made */
871.  			rn2(TTSZ-1);		/* else take your pick */
872.  	    pline("It smells like %s.", makeplural(
873.  		  Hallucination ? rndmonnam() : mons[tin.tin->corpsenm].mname));
874.  	    if (yn("Eat it?") == 'n') {
875.  		if (!Hallucination) tin.tin->dknown = tin.tin->known = TRUE;
876.  		if (flags.verbose) You("discard the open tin.");
877.  		goto use_me;
878.  	    }
879.  	    You("consume %s %s.", tintxts[r].txt,
880.  			mons[tin.tin->corpsenm].mname);
881.  	    tin.tin->dknown = tin.tin->known = TRUE;
882.  	    cprefx(tin.tin->corpsenm); cpostfx(tin.tin->corpsenm);
883.  
884.  	    /* check for vomiting added by GAN 01/16/87 */
885.  	    if(tintxts[r].nut < 0) make_vomiting((long)rn1(15,10), FALSE);
886.  	    else lesshungry(tintxts[r].nut);
887.  
888.  	    if(r == 0) {			/* Deep Fried */
889.  		Glib = rnd(15);
890.  		pline("Eating deep fried food made your %s very slippery.",
891.  			makeplural(body_part(FINGER)));
892.  	    }
893.  	} else {
894.  	    if (tin.tin->cursed)
895.  		pline("It contains some decaying %s substance.",
896.  			Hallucination ? hcolor() : green);
897.  	    else
898.  		pline("It contains spinach.");
899.  
900.  	    if (yn("Eat it?") == 'n') {
901.  		if (!Hallucination && !tin.tin->cursed)
902.  		    tin.tin->dknown = tin.tin->known = TRUE;
903.  		if (flags.verbose)
904.  		    You("discard the open tin.");
905.  		goto use_me;
906.  	    }
907.  	    if (!tin.tin->cursed)
908.  		pline("This makes you feel like %s!",
909.  		      Hallucination ? "Swee'pea" : "Popeye");
910.  	    lesshungry(600);
911.  	    gainstr(tin.tin, 0);
912.  	}
913.  	tin.tin->dknown = tin.tin->known = TRUE;
914.  use_me:
915.  	if (carried(tin.tin)) useup(tin.tin);
916.  	else useupf(tin.tin);
917.  	tin.tin = (struct obj *) 0;
918.  	return(0);
919.  }
920.  
921.  static void
922.  start_tin(otmp)		/* called when starting to open a tin */
923.  	register struct obj *otmp;
924.  {
925.  	register int tmp;
926.  
927.  #ifdef POLYSELF
928.  	if (metallivorous(uasmon)) {
929.  		You("bite right into the metal tin....");
930.  		tmp = 1;
931.  	} else
932.  #endif
933.  	if (otmp->blessed) {
934.  		pline("The tin opens like magic!");
935.  		tmp = 1;
936.  	} else if(uwep) {
937.  		switch(uwep->otyp) {
938.  		case TIN_OPENER:
939.  			tmp = 1;
940.  			break;
941.  		case DAGGER:
942.  		case ELVEN_DAGGER:
943.  		case ORCISH_DAGGER:
944.  		case ATHAME:
945.  		case CRYSKNIFE:
946.  			tmp = 3;
947.  			break;
948.  		case PICK_AXE:
949.  		case AXE:
950.  			tmp = 6;
951.  			break;
952.  		default:
953.  			goto no_opener;
954.  		}
955.  		pline("Using your %s you try to open the tin.",
956.  			aobjnam(uwep, NULL));
957.  	} else {
958.  no_opener:
959.  		pline("It is not so easy to open this tin.");
960.  		if(Glib) {
961.  			pline("The tin slips out of your hands.");
962.  			if(otmp->quan > 1L) {
963.  				register struct obj *obj;
964.  				obj = splitobj(otmp, 1L);
965.  				if(otmp == uwep) setuwep(obj);
966.  			}
967.  			if (carried(otmp)) dropx(otmp);
968.  			else stackobj(otmp);
969.  			return;
970.  		}
971.  		tmp = rn1(1 + 500/((int)(ACURR(A_DEX) + ACURRSTR)), 10);
972.  	}
973.  	tin.reqtime = tmp;
974.  	tin.usedtime = 0;
975.  	tin.tin = otmp;
976.  	set_occupation(opentin, "opening the tin", 0);
977.  	return;
978.  }
979.  
980.  int
981.  Hear_again() {		/* called when waking up after fainting */
982.  	flags.soundok = 1;
983.  	return 0;
984.  }
985.  
986.  static int
987.  #ifdef POLYSELF
988.  rottenfood(obj)
989.  struct obj *obj;
990.  #else
991.  rottenfood()
992.  #endif
993.  {		/* called on the "first bite" of rotten food */
994.  #ifdef POLYSELF
995.  	pline("Blecch!  Rotten %s!", foodword(obj));
996.  #else
997.  	pline("Blecch!  Rotten food!");
998.  #endif
999.  	if(!rn2(4)) {
1000. 		if (Hallucination) You("feel rather trippy.");
1001. 		else You("feel rather %s.", body_part(LIGHT_HEADED));
1002. 		make_confused(HConfusion + d(2,4),FALSE);
1003. 	} else if(!rn2(4) && !Blind) {
1004. 		pline("Everything suddenly goes dark.");
1005. 		make_blinded((long)d(2,10),FALSE);
1006. 	} else if(!rn2(3)) {
1007. 		if(Blind)
1008. 		  pline("The world spins and you slap against the floor.");
1009. 		else
1010. 		  pline("The world spins and goes dark.");
1011. 		flags.soundok = 0;
1012. 		nomul(-rnd(10));
1013. 		nomovemsg = "You are conscious again.";
1014. 		afternmv = Hear_again;
1015. 		return(1);
1016. 	}
1017. 	return(0);
1018. }
1019. 
1020. static int
1021. eatcorpse(otmp)		/* called when a corpse is selected as food */
1022. 	register struct obj *otmp;
1023. {
1024. 	register const char *cname = mons[otmp->corpsenm].mname;
1025. 	register int tp, rotted = 0;
1026. 
1027. 	tp = 0;
1028. 
1029. 	if(otmp->corpsenm != PM_LIZARD) {
1030. #ifndef LINT	/* problem if more than 320K moves before try to eat */
1031. 		rotted = (monstermoves - otmp->age)/((long)(10 + rn2(20)));
1032. #endif
1033. 
1034. 		if(otmp->cursed) rotted += 2;
1035. 		else if (otmp->blessed) rotted -= 2;
1036. 	}
1037. 
1038. 	if(otmp->corpsenm != PM_ACID_BLOB && (rotted > 5)) {
1039. 		pline("Ulch - that %s was tainted!",
1040. 		      mons[otmp->corpsenm].mlet == S_FUNGUS ? "fungoid vegetation" :
1041. 		      is_meaty(&mons[otmp->corpsenm]) ? "meat" : "protoplasm");
1042. #ifdef POLYSELF
1043. 		if (u.usym == S_FUNGUS)
1044. 			pline("It doesn't seem at all sickening, though...");
1045. 		else {
1046. #endif
1047. 			make_sick((long) rn1(10, 10),FALSE);
1048. 			Sprintf(corpsename, "rotted %s corpse", cname);
1049. 			u.usick_cause = (const char *)corpsename;
1050. 			flags.botl = 1;
1051. #ifdef POLYSELF
1052. 		}
1053. #endif
1054. 		if (carried(otmp)) useup(otmp);
1055. 		else useupf(otmp);
1056. 		return(1);
1057. 	} else if(acidic(&mons[otmp->corpsenm])
1058. #ifdef POLYSELF
1059. 		  && !resists_acid(uasmon)
1060. #endif
1061. 		 ) {
1062. 		tp++;
1063. 		You("have a very bad case of stomach acid.");
1064. 		losehp(rnd(15), "acidic corpse", KILLED_BY_AN);
1065. 	} else if(poisonous(&mons[otmp->corpsenm]) && rn2(5)) {
1066. 		tp++;
1067. 		pline("Ecch - that must have been poisonous!");
1068. 		if(!Poison_resistance) {
1069. 			losestr(rnd(4));
1070. 			losehp(rnd(15), "poisonous corpse", KILLED_BY_AN);
1071. 		} else	You("seem unaffected by the poison.");
1072. 	/* now any corpse left too long will make you mildly ill */
1073. 	} else if(((rotted > 5) || ((rotted > 3) && rn2(5)))
1074. #ifdef POLYSELF
1075. 		&& u.usym != S_FUNGUS
1076. #endif
1077. 							){
1078. 		tp++;
1079. 		You("feel%s sick.", (Sick) ? " very" : "");
1080. 		losehp(rnd(8), "cadaver", KILLED_BY_AN);
1081. 	}
1082. 	if(!tp && otmp->corpsenm != PM_LIZARD && (otmp->orotten || !rn2(7))) {
1083. #ifdef POLYSELF
1084. 	    if(rottenfood(otmp)) {
1085. #else
1086. 	    if(rottenfood()) {
1087. #endif
1088. 		otmp->orotten = TRUE;
1089. 		(void)touchfood(otmp);
1090. 		return(1);
1091. 	    }
1092. 	    otmp->oeaten >>= 2;
1093. 	} else {
1094. #ifdef POLYSELF
1095. 	    pline("This %s corpse %s!", cname,
1096. 		(carnivorous(uasmon) && !herbivorous(uasmon))
1097. 		? "is delicious" : "tastes terrible");
1098. #else
1099. 	    pline("This %s corpse tastes terrible!", cname);
1100. #endif
1101. 	}
1102. 
1103. 	/* delay is weight dependent */
1104. 	victual.reqtime = 3 + (mons[otmp->corpsenm].cwt >> 6);
1105. 	return(0);
1106. }
1107. 
1108. static void
1109. start_eating(otmp)		/* called as you start to eat */
1110. 	register struct obj *otmp;
1111. {
1112. #ifdef DEBUG
1113. 	debugpline("start_eating: %lx (victual = %lx)", otmp, victual.piece);
1114. 	debugpline("reqtime = %d", victual.reqtime);
1115. 	debugpline("(original reqtime = %d)", objects[otmp->otyp].oc_delay);
1116. 	debugpline("nmod = %d", victual.nmod);
1117. 	debugpline("oeaten = %d", otmp->oeaten);
1118. #endif
1119. 	victual.fullwarn = victual.doreset = FALSE;
1120. 	victual.eating = TRUE;
1121. 
1122. 	if (otmp->otyp == CORPSE) {
1123. 	    cprefx(victual.piece->corpsenm);
1124. 	    if (!victual.piece && victual.eating) do_reset_eat();
1125. 	    if (victual.eating == FALSE) return; /* died and lifesaved */
1126. 	}
1127. 
1128. 	if (bite()) return;
1129. 
1130. 	if(++victual.usedtime >= victual.reqtime) {
1131. 	    /* print "finish eating" message if they just resumed -dlc */
1132. 	    done_eating(victual.reqtime > 1 ? TRUE : FALSE);
1133. 	    return;
1134. 	}
1135. 
1136. 	Sprintf(msgbuf, "eating %s", the(singular(otmp, xname)));
1137. 	set_occupation(eatfood, msgbuf, 0);
1138. }
1139. 
1140. 
1141. static void
1142. fprefx(otmp)		/* called on "first bite" of (non-corpse) food */
1143. 
1144. 	register struct obj *otmp;
1145. {
1146. 	switch(otmp->otyp) {
1147. 
1148. 	    case FOOD_RATION:
1149. 		if(u.uhunger <= 200)
1150. 		    if (Hallucination) pline("Oh wow, like, superior, man!");
1151. 		    else	       pline("That food really hit the spot!");
1152. 		else if(u.uhunger <= 700) pline("That satiated your stomach!");
1153. 		break;
1154. 	    case TRIPE_RATION:
1155. #ifdef POLYSELF
1156. 		if (carnivorous(uasmon) && !humanoid(uasmon))
1157. 		    pline("That tripe ration was surprisingly good!");
1158. 		else {
1159. #endif
1160. 		    pline("Yak - dog food!");
1161. 		    more_experienced(1,0);
1162. 		    flags.botl = 1;
1163. #ifdef POLYSELF
1164. 		}
1165. #endif
1166. 		if(rn2(2)
1167. #ifdef POLYSELF
1168. 			&& (!carnivorous(uasmon) || humanoid(uasmon))
1169. #endif
1170. 						) {
1171. 			make_vomiting((long)rn1(victual.reqtime, 14), FALSE);
1172. 		}
1173. 		break;
1174. #ifdef POLYSELF
1175. 	    case CLOVE_OF_GARLIC:
1176. 		if (is_undead(uasmon)) {
1177. 			make_vomiting((long)rn1(victual.reqtime, 5), FALSE);
1178. 			break;
1179. 		}
1180. 		/* Fall through otherwise */
1181. #endif
1182. 	    default:
1183. #ifdef TUTTI_FRUTTI
1184. 		if (otmp->otyp==SLIME_MOLD && !otmp->cursed
1185. 			&& otmp->spe == current_fruit)
1186. 		    pline("My, that was a yummy %s!", singular(otmp, xname));
1187. 		else
1188. #endif
1189. #ifdef UNIX
1190. 		if (otmp->otyp == APPLE || otmp->otyp == PEAR) {
1191. 		    if (!Hallucination) pline("Core dumped.");
1192. 		    else {
1193. /* This is based on an old Usenet joke, a fake a.out manual page */
1194. 			int x = rnd(100);
1195. 			if (x <= 75)
1196. 			    pline("Segmentation fault -- core dumped.");
1197. 			else if (x <= 99)
1198. 			    pline("Bus error -- core dumped.");
1199. 			else pline("Yo' mama -- core dumped.");
1200. 		    }
1201. 		} else
1202. #endif
1203. 		    pline("This %s is %s!", singular(otmp, xname),
1204. 		      otmp->cursed ? (Hallucination ? "grody" : "terrible"):
1205. 		      Hallucination ? "gnarly" :
1206. 			(otmp->otyp==CRAM_RATION ? "bland" : "delicious"));
1207. 		break;
1208. 	}
1209. }
1210. 
1211. #ifdef POLYSELF
1212. static void
1213. eatring(otmp)
1214. struct obj *otmp;
1215. {
1216. 	int typ = otmp->otyp;
1217. 	int oldprop;
1218. 
1219. 	/* Note: rings are not so common that this is unbalancing.  (How */
1220. 	/* often do you even _find_ 3 rings of polymorph in a game? */
1221. 	oldprop = !!(u.uprops[objects[typ].oc_oprop].p_flgs);
1222. 	otmp->known = otmp->dknown = 1; /* by taste */
1223. 	if (!rn2(3)) switch (otmp->otyp) {
1224. 	    case RIN_AGGRAVATE_MONSTER:
1225. 	    case RIN_WARNING:
1226. 	    case RIN_POISON_RESISTANCE:
1227. 	    case RIN_FIRE_RESISTANCE:
1228. 	    case RIN_COLD_RESISTANCE:
1229. 	    case RIN_SHOCK_RESISTANCE:
1230. 	    case RIN_TELEPORTATION:
1231. 	    case RIN_TELEPORT_CONTROL:
1232. 	    case RIN_SEE_INVISIBLE:
1233. 	    case RIN_PROTECTION_FROM_SHAPE_CHAN:
1234. 	    case RIN_SEARCHING:
1235. 	    case RIN_STEALTH:
1236. 	    case RIN_INVISIBILITY:
1237. 	    case RIN_CONFLICT:
1238. 	    case RIN_POLYMORPH:
1239. 	    case RIN_POLYMORPH_CONTROL:
1240. 	    case RIN_REGENERATION: /* Probably stupid. */
1241. 	    case RIN_HUNGER: /* Stupid. */
1242. 	    case RIN_LEVITATION: /* Stupid. */
1243. 		if (!(u.uprops[objects[typ].oc_oprop].p_flgs & FROMOUTSIDE))
1244. 		    pline("Magic spreads through your body as you digest the ring.");
1245. 		u.uprops[objects[typ].oc_oprop].p_flgs |= FROMOUTSIDE;
1246. 		if (typ == RIN_SEE_INVISIBLE) {
1247. 		    set_mimic_blocking();
1248. 		    see_monsters();
1249. 		    if (Invis && !oldprop
1250. #ifdef POLYSELF
1251. 				&& !perceives(uasmon)
1252. #endif
1253. 							&& !Blind) {
1254. 			newsym(u.ux,u.uy);
1255. 			pline("Suddenly you can see yourself.");
1256. 			makeknown(typ);
1257. 		    }
1258. 		} else if (typ == RIN_INVISIBILITY) {
1259. 		    if (!oldprop && !See_invisible && !Blind) {
1260. 			newsym(u.ux,u.uy);
1261. 			Your("body takes on a %s transparency...",
1262. 				Hallucination ? "normal" : "strange");
1263. 			makeknown(typ);
1264. 		    }
1265. 		} else if (typ == RIN_PROTECTION_FROM_SHAPE_CHAN)
1266. 		    rescham();
1267. 		else if (typ == RIN_LEVITATION) {
1268. 		    if (!Levitation) {
1269. 			float_up();
1270. 			makeknown(typ);
1271. 		    }
1272. 		}
1273. 		break;
1274. 	    case RIN_ADORNMENT:
1275. 		if (adjattrib(A_CHA, otmp->spe, -1))
1276. 		    makeknown(typ);
1277. 		break;
1278. 	    case RIN_GAIN_STRENGTH:
1279. 	    case RIN_INCREASE_DAMAGE: /* Any better ideas? */
1280. 		if (adjattrib(A_STR, otmp->spe, -1))
1281. 		    makeknown(typ);
1282. 		break;
1283. 	    case RIN_PROTECTION:
1284. 		Protection |= FROMOUTSIDE;
1285. 		u.ublessed += otmp->spe;
1286. 		flags.botl = 1;
1287. 		break;
1288. 	}
1289. }
1290. 
1291. static void
1292. eatspecial() /* called after eating non-food */
1293. {
1294. 	register struct obj *otmp = victual.piece;
1295. 
1296. 	lesshungry(victual.nmod);
1297. 	victual.piece = (struct obj *)0;
1298. 	victual.eating = 0;
1299. 	if (otmp->oclass == GOLD_CLASS) {
1300. 		dealloc_obj(otmp);
1301. 		return;
1302. 	}
1303. 	if (otmp->oclass == POTION_CLASS) {
1304. 		otmp->quan++; /* dopotion() does a useup() */
1305. 		(void)dopotion(otmp);
1306. 	}
1307. 	if (otmp->oclass == RING_CLASS)
1308. 		eatring(otmp);
1309. 	if (otmp == uball) unpunish();
1310. 	if (otmp == uchain) unpunish(); /* but no useup() */
1311. 	else if (carried(otmp)) useup(otmp);
1312. 	else useupf(otmp);
1313. }
1314. 
1315. /* NOTE: the order of these words exactly corresponds to the
1316.    order of oc_material values #define'd in objclass.h. */
1317. static const char *foodwords[] = {
1318. 	"meal", "liquid", "wax", "food", "meat",
1319. 	"paper", "cloth", "leather", "wood", "bone", "scale",
1320. 	"metal", "metal", "metal", "silver", "gold", "platinum", "mithril",
1321. 	"plastic", "glass", "rich food", "stone"
1322. };
1323. 
1324. static const char *
1325. foodword(otmp)
1326. register struct obj *otmp;
1327. {
1328. 	if (otmp->oclass == FOOD_CLASS) return "food";
1329. 	if (otmp->oclass == GEM_CLASS &&
1330. 	    objects[otmp->otyp].oc_material == GLASS &&
1331. 	    otmp->dknown)
1332. 		makeknown(otmp->otyp);
1333. 	return foodwords[objects[otmp->otyp].oc_material];
1334. }
1335. #endif
1336. 
1337. static void
1338. fpostfx(otmp)		/* called after consuming (non-corpse) food */
1339. 
1340. 	register struct obj *otmp;
1341. {
1342. 	switch(otmp->otyp) {
1343. #ifdef POLYSELF
1344. 	    case SPRIG_OF_WOLFSBANE:
1345. 		if (u.ulycn != -1) {
1346. 		    u.ulycn = -1;
1347. 		    You("feel purified.");
1348. 		    if(uasmon == &mons[u.ulycn] && !Polymorph_control)
1349. 			rehumanize();
1350. 		}
1351. 		break;
1352. #endif
1353. 	    case CARROT:
1354. 		make_blinded(0L,TRUE);
1355. 		break;
1356. 	    case FORTUNE_COOKIE:
1357. 		outrumor(bcsign(otmp), TRUE);
1358. 		break;
1359. 	    case LUMP_OF_ROYAL_JELLY:
1360. 		/* This stuff seems to be VERY healthy! */
1361. 		gainstr(otmp, 1);
1362. 		u.uhp += (otmp->cursed) ? -rnd(20) : rnd(20);
1363. 		if(u.uhp > u.uhpmax) {
1364. 			if(!rn2(17)) u.uhpmax++;
1365. 			u.uhp = u.uhpmax;
1366. 		} else if(u.uhp <= 0) {
1367. 			killer_format = KILLED_BY_AN;
1368. 			killer = "rotten lump of royal jelly";
1369. 			done(POISONING);
1370. 		}
1371. 		if(!otmp->cursed) heal_legs();
1372. 		break;
1373. 	    case EGG:
1374. 		if(otmp->corpsenm == PM_COCKATRICE) {
1375. #ifdef POLYSELF
1376. 		    if(!resists_ston(uasmon))
1377. 			if(!poly_when_stoned(uasmon) ||
1378. 			   !polymon(PM_STONE_GOLEM))
1379. 		    {
1380. #endif
1381. 			if (!Stoned) Stoned = 5;
1382. 			killer_format = KILLED_BY_AN;
1383. 			killer = "cockatrice egg";
1384. #ifdef POLYSELF
1385. 		    }
1386. #endif
1387. 		}
1388. 		break;
1389. 	}
1390. 	return;
1391. }
1392. 
1393. int
1394. doeat()		/* generic "eat" command funtion (see cmd.c) */
1395. {
1396. 	register struct obj *otmp;
1397. 	int basenutrit;			/* nutrition of full item */
1398. 
1399. 	if (Strangled) {
1400. 		pline("If you can't breathe air, how can you consume solids?");
1401. 		return 0;
1402. 	}
1403. 	if (!(otmp = floorfood("eat", 0))) return 0;
1404. 	if (check_capacity(NULL)) return 0;
1405. #ifdef POLYSELF
1406. 	/* We have to make non-foods take no time to eat, unless we want to
1407. 	 * do ridiculous amounts of coding to deal with partly eaten plate
1408. 	 * mails, players who polymorph back to human in the middle of their
1409. 	 * metallic meal, etc....
1410. 	 */
1411. 	if (!is_edible(otmp)) {
1412. 	    You("cannot eat that!");
1413. 	    return 0;
1414. 	}
1415. 	if (otmp->oclass != FOOD_CLASS) {
1416. 	    victual.reqtime = 1;
1417. 	    victual.piece = otmp;
1418. 		/* Don't split it, we don't need to if it's 1 move */
1419. 	    victual.usedtime = 0;
1420. 	    victual.canchoke = (u.uhs == SATIATED);
1421. 		/* Note: gold weighs 1 pt. for each 1000 pieces (see */
1422. 		/* pickup.c) so gold and non-gold is consistent. */
1423. 	    if (otmp->oclass == GOLD_CLASS)
1424. 		basenutrit = ((otmp->quan > 200000L) ? 2000
1425. 			: (int)(otmp->quan/100L));
1426. 	    else basenutrit = objects[otmp->otyp].oc_nutrition;
1427. 	    victual.nmod = basenutrit;
1428. 	    victual.eating = TRUE; /* needed for lesshungry() */
1429. 
1430. 	    if (otmp->cursed)
1431. 		(void) rottenfood(otmp);
1432. 
1433. 	    if (otmp->oclass == WEAPON_CLASS && otmp->opoisoned) {
1434. 		pline("Ecch - that must have been poisonous!");
1435. 		if(!Poison_resistance) {
1436. 		    losestr(rnd(4));
1437. 		    losehp(rnd(15), xname(otmp), KILLED_BY_AN);
1438. 		} else
1439. 		    You("seem unaffected by the poison.");
1440. 	    } else if (!otmp->cursed)
1441. 		pline("This %s is delicious!",
1442. 		      otmp->oclass == GOLD_CLASS ? foodword(otmp) :
1443. 		      singular(otmp, xname));
1444. 	    eatspecial();
1445. 	    return 1;
1446. 	}
1447. #endif
1448. 
1449. 	if(otmp == victual.piece) {
1450. 	/* If they weren't able to choke, they don't suddenly become able to
1451. 	 * choke just because they were interrupted.  On the other hand, if
1452. 	 * they were able to choke before, if they lost food it's possible
1453. 	 * they shouldn't be able to choke now.
1454. 	 */
1455. 	    if (u.uhs != SATIATED) victual.canchoke = FALSE;
1456. 	    if(!carried(victual.piece)) {
1457. 		if(victual.piece->quan > 1L)
1458. 			(void) splitobj(victual.piece, 1L);
1459. 	    }
1460. 	    You("resume your meal.");
1461. 	    start_eating(victual.piece);
1462. 	    return(1);
1463. 	}
1464. 
1465. 	/* nothing in progress - so try to find something. */
1466. 	/* tins are a special case */
1467. 	if(otmp->otyp == TIN) {
1468. 	    start_tin(otmp);
1469. 	    return(1);
1470. 	}
1471. 
1472. 	victual.piece = otmp = touchfood(otmp);
1473. 	victual.usedtime = 0;
1474. 
1475. 	/* Now we need to calculate delay and nutritional info.
1476. 	 * The base nutrition calculated here and in eatcorpse() accounts
1477. 	 * for normal vs. rotten food.  The reqtime and nutrit values are
1478. 	 * then adjusted in accordance with the amount of food left.
1479. 	 */
1480. 	if(otmp->otyp == CORPSE) {
1481. 	    if(eatcorpse(otmp)) return(1);
1482. 	    /* else eatcorpse sets up reqtime and oeaten */
1483. 	} else {
1484. 	    victual.reqtime = objects[otmp->otyp].oc_delay;
1485. 	    if (otmp->otyp != FORTUNE_COOKIE &&
1486. 		(otmp->cursed ||
1487. 		 (((monstermoves - otmp->age) > (int) otmp->blessed ? 50:30) &&
1488. 		(otmp->orotten || !rn2(7))))) {
1489. 
1490. #ifdef POLYSELF
1491. 		if(rottenfood(otmp)) {
1492. #else
1493. 		if(rottenfood()) {
1494. #endif
1495. 		    otmp->orotten = TRUE;
1496. 		    return(1);
1497. 		}
1498. 		otmp->oeaten >>= 1;
1499. 	    } else fprefx(otmp);
1500. 	}
1501. 
1502. 	/* re-calc the nutrition */
1503. 	if (otmp->otyp == CORPSE) basenutrit = mons[otmp->corpsenm].cnutrit;
1504. 	else basenutrit = objects[otmp->otyp].oc_nutrition;
1505. 
1506. #ifdef DEBUG
1507. 	debugpline("before rounddiv: victual.reqtime == %d", victual.reqtime);
1508. 	debugpline("oeaten == %d, basenutrit == %d", otmp->oeaten, basenutrit);
1509. #endif
1510. 	victual.reqtime = (basenutrit == 0 ? 0 :
1511. 		rounddiv(victual.reqtime * (long)otmp->oeaten, basenutrit));
1512. #ifdef DEBUG
1513. 	debugpline("after rounddiv: victual.reqtime == %d", victual.reqtime);
1514. #endif
1515. 	/* calculate the modulo value (nutrit. units per round eating)
1516. 	 * note: this isn't exact - you actually lose a little nutrition
1517. 	 *	 due to this method.
1518. 	 * TODO: add in a "remainder" value to be given at the end of the
1519. 	 *	 meal.
1520. 	 */
1521. 	if(victual.reqtime == 0)
1522. 	    /* possible if most has been eaten before */
1523. 	    victual.nmod = 0;
1524. 	else if (otmp->oeaten > victual.reqtime)
1525. 	    victual.nmod = -(otmp->oeaten / victual.reqtime);
1526. 	else
1527. 	    victual.nmod = victual.reqtime % otmp->oeaten;
1528. 	victual.canchoke = (u.uhs == SATIATED);
1529. 
1530. 	start_eating(otmp);
1531. 	return(1);
1532. }
1533. 
1534. /* Take a single bite from a piece of food, checking for choking and
1535.  * modifying usedtime.  Returns 1 if they choked and survived, 0 otherwise.
1536.  */
1537. static int
1538. bite()
1539. {
1540. 	if(victual.canchoke && u.uhunger >= 2000) {
1541. 		choke(victual.piece);
1542. 		return 1;
1543. 	}
1544. 	if (victual.doreset) {
1545. 		do_reset_eat();
1546. 		return 0;
1547. 	}
1548. 	if(victual.nmod < 0) {
1549. 		lesshungry(-victual.nmod);
1550. 		victual.piece->oeaten -= -victual.nmod;
1551. 	} else if(victual.nmod > 0 && (victual.usedtime % victual.nmod)) {
1552. 		lesshungry(1);
1553. 		victual.piece->oeaten--;
1554. 	}
1555. 	recalc_wt();
1556. 	return 0;
1557. }
1558. 
1559. #endif /* OVLB */
1560. #ifdef OVL0
1561. 
1562. void
1563. gethungry()	/* as time goes by - called by moveloop() and domove() */
1564. {
1565. 	if (u.uinvulnerable) return;	/* you don't feel hungrier */
1566. 
1567. 	if ((!u.usleep || !rn2(10))	/* slow metabolic rate while asleep */
1568. 		&& (carnivorous(uasmon) || herbivorous(uasmon)))
1569. 	    u.uhunger--;		/* ordinary food consumption */
1570. 
1571. 	if (moves % 2) {	/* odd turns */
1572. 	    /* Regeneration uses up food, unless due to an artifact */
1573. 	    if ((HRegeneration & (~W_ART)) &&
1574. 		(HRegeneration != W_WEP || !uwep->oartifact)) u.uhunger--;
1575. 	    if (near_capacity() > SLT_ENCUMBER) u.uhunger--;
1576. 	} else {		/* even turns */
1577. 	    if (Hunger) u.uhunger--;
1578. 	    /* Conflict uses up food too */
1579. 	    if ((Conflict & (~W_ARTI))) u.uhunger--;
1580. 	    /* +0 charged rings don't do anything, so don't affect hunger */
1581. 	    switch (moves % 20) {	/* note: use even cases only */
1582. 	     case  4: if (uleft &&
1583. 			  (uleft->spe || !objects[uleft->otyp].oc_charged))
1584. 			    u.uhunger--;
1585. 		    break;
1586. 	     case  8: if (uamul) u.uhunger--;
1587. 		    break;
1588. 	     case 12: if (uright &&
1589. 			  (uright->spe || !objects[uright->otyp].oc_charged))
1590. 			    u.uhunger--;
1591. 		    break;
1592. 	     case 16: if (u.uhave.amulet) u.uhunger--;
1593. 		    break;
1594. 	     default: break;
1595. 	    }
1596. 	}
1597. 	newuhs(TRUE);
1598. }
1599. 
1600. #endif /* OVL0 */
1601. #ifdef OVLB
1602. 
1603. void
1604. morehungry(num)	/* called after vomiting and after performing feats of magic */
1605. register int num;
1606. {
1607. 	u.uhunger -= num;
1608. 	newuhs(TRUE);
1609. }
1610. 
1611. 
1612. void
1613. lesshungry(num)	/* called after eating (and after drinking fruit juice) */
1614. register int num;
1615. {
1616. #ifdef DEBUG
1617. 	debugpline("lesshungry(%d)", num);
1618. #endif
1619. 	u.uhunger += num;
1620. 	if(u.uhunger >= 2000) {
1621. 	    if (!victual.eating || victual.canchoke)
1622. 		if (victual.eating) {
1623. 			choke(victual.piece);
1624. 			reset_eat();
1625. 		} else
1626. 		if (tin.tin)
1627. 			choke(tin.tin);
1628. 		else
1629. 			choke((struct obj *) 0);
1630. 		/* no reset_eat(); it was a non-food such as juice */
1631. 	} else {
1632. 	    /* Have lesshungry() report when you're nearly full so all eating
1633. 	     * warns when you're about to choke.
1634. 	     */
1635. 	    if (u.uhunger >= 1500) {
1636. 	      if(!victual.eating || (victual.eating && !victual.fullwarn)) {
1637. 		pline("You're having a hard time getting all of it down.");
1638. 		nomovemsg = "You're finally finished.";
1639. 		if(!victual.eating)
1640. 		    multi = -2;
1641. 		else {
1642. 		    victual.fullwarn = TRUE;
1643. 		    if (victual.canchoke &&
1644. 			/* a one-gulp food will not survive a stop */
1645. 				objects[victual.piece->otyp].oc_delay > 1) {
1646. 			if(yn("Stop eating?") == 'y')
1647. 			{
1648. 				reset_eat();
1649. 				nomovemsg = NULL;
1650. 			}
1651. 		    }
1652. 		}
1653. 	      }
1654. 	    }
1655. 	}
1656. 	newuhs(FALSE);
1657. }
1658. 
1659. STATIC_PTR
1660. int
1661. unfaint() {
1662. 	(void) Hear_again();
1663. 	if(u.uhs > FAINTING)
1664. 		u.uhs = FAINTING;
1665. 	stop_occupation();
1666. 	flags.botl = 1;
1667. 	return 0;
1668. }
1669. 
1670. #endif /* OVLB */
1671. #ifdef OVL0
1672. 
1673. boolean
1674. is_fainted() {
1675. 	return(u.uhs == FAINTED);
1676. }
1677. 
1678. void
1679. reset_faint() {	/* call when a faint must be prematurely terminated */
1680. 	if(is_fainted()) nomul(0);
1681. }
1682. 
1683. #if 0
1684. void
1685. sync_hunger() {
1686. 
1687. 	if(is_fainted()) {
1688. 
1689. 		flags.soundok = 0;
1690. 		nomul(-10+(u.uhunger/10));
1691. 		nomovemsg = "You regain consciousness.";
1692. 		afternmv = unfaint;
1693. 	}
1694. }
1695. #endif
1696. 
1697. void
1698. newuhs(incr)		/* compute and comment on your (new?) hunger status */
1699. 	boolean incr;
1700. {
1701. 	register int newhs, h = u.uhunger;
1702. 
1703. 	newhs = (h > 1000) ? SATIATED :
1704. 		(h > 150) ? NOT_HUNGRY :
1705. 		(h > 50) ? HUNGRY :
1706. 		(h > 0) ? WEAK : FAINTING;
1707. 
1708. 	if(newhs == FAINTING) {
1709. 		if(is_fainted()) newhs = FAINTED;
1710. 		if(u.uhs <= WEAK || rn2(20-u.uhunger/10) >= 19) {
1711. 			if(!is_fainted() && multi >= 0 /* %% */) {
1712. 				/* stop what you're doing, then faint */
1713. 				stop_occupation();
1714. 				You("faint from lack of food.");
1715. 				flags.soundok = 0;
1716. 				nomul(-10+(u.uhunger/10));
1717. 				nomovemsg = "You regain consciousness.";
1718. 				afternmv = unfaint;
1719. 				newhs = FAINTED;
1720. 			}
1721. 		} else
1722. 		if(u.uhunger < -(int)(200 + 20*ACURR(A_CON))) {
1723. 			u.uhs = STARVED;
1724. 			flags.botl = 1;
1725. 			bot();
1726. 			You("die from starvation.");
1727. 			killer_format = KILLED_BY;
1728. 			killer = "starvation";
1729. 			done(STARVING);
1730. 			/* if we return, we lifesaved, and that calls newuhs */
1731. 			return;
1732. 		}
1733. 	}
1734. 
1735. 	if(newhs != u.uhs) {
1736. 		if(newhs >= WEAK && u.uhs < WEAK)
1737. 			losestr(1);	/* this may kill you -- see below */
1738. 		else if(newhs < WEAK && u.uhs >= WEAK)
1739. 			losestr(-1);
1740. 		switch(newhs){
1741. 		case HUNGRY:
1742. 			if (Hallucination) {
1743. 			    pline((!incr) ?
1744. 				"You now have a lesser case of the munchies." :
1745. 				"You are getting the munchies.");
1746. 			} else
1747. 			    You((!incr) ? "only feel hungry now." :
1748. 				  (u.uhunger < 145) ? "feel hungry." :
1749. 				   "are beginning to feel hungry.");
1750. 			if (incr && occupation &&
1751. 			    (occupation != eatfood && occupation != opentin))
1752. 			    stop_occupation();
1753. 			break;
1754. 		case WEAK:
1755. 			if (Hallucination)
1756. 			    pline((!incr) ?
1757. 				  "You still have the munchies." :
1758.       "The munchies are interfering with your motor capabilities.");
1759. 			else
1760. 			    You((!incr) ? "feel weak now." :
1761. 				  (u.uhunger < 45) ? "feel weak." :
1762. 				   "are beginning to feel weak.");
1763. 			if (incr && occupation &&
1764. 			    (occupation != eatfood && occupation != opentin))
1765. 			    stop_occupation();
1766. 			break;
1767. 		}
1768. 		u.uhs = newhs;
1769. 		flags.botl = 1;
1770. 		if(u.uhp < 1) {
1771. 			You("die from hunger and exhaustion.");
1772. 			killer_format = KILLED_BY;
1773. 			killer = "exhaustion";
1774. 			done(STARVING);
1775. 			return;
1776. 		}
1777. 	}
1778. }
1779. 
1780. #endif /* OVL0 */
1781. #ifdef OVLB
1782. 
1783. /* Returns an object representing food.  Object may be either on floor or
1784.  * in inventory.
1785.  */
1786. struct obj *
1787. floorfood(verb,corpseonly)	/* get food from floor or pack */
1788. 	const char *verb;
1789. 	boolean corpseonly;
1790. {
1791. 	register struct obj *otmp;
1792. 	char qbuf[QBUFSZ];
1793. 	char c;
1794. #ifdef POLYSELF
1795. 	struct obj *gold = g_at(u.ux, u.uy);
1796. 	boolean feeding = (!strcmp(verb, "eat"));
1797. 
1798. 	if (feeding && gold && metallivorous(uasmon)) {
1799. 	    if (gold->quan == 1L)
1800. 		Sprintf(qbuf, "There is 1 gold piece here; eat it?");
1801. 	    else Sprintf(qbuf, "There are %ld gold pieces here; eat them?",
1802. 								gold->quan);
1803. 	    if (yn(qbuf) == 'y') {
1804. 		/* tricky, because gold isn't a real object -dlc */
1805. 		freeobj(gold);
1806. 		return gold;
1807. 	    }
1808. 	}
1809. #endif
1810. 	/* Is there some food (probably a heavy corpse) here on the ground? */
1811. 	if (!(Levitation && !Is_airlevel(&u.uz)  && !Is_waterlevel(&u.uz))
1812. 	    && !u.uswallow) {
1813. 	    for(otmp = level.objects[u.ux][u.uy]; otmp; otmp = otmp->nexthere) {
1814. 		if(corpseonly ? otmp->otyp==CORPSE :
1815. #ifdef POLYSELF
1816. 		    feeding ? (otmp->oclass != GOLD_CLASS && is_edible(otmp)) :
1817. #endif
1818. 						otmp->oclass==FOOD_CLASS) {
1819. 			Sprintf(qbuf, "There %s %s here; %s %s?",
1820. 				(otmp->quan == 1L) ? "is" : "are",
1821. 				doname(otmp), verb,
1822. 				(otmp->quan == 1L) ? "it" : "one");
1823. 			if((c = yn_function(qbuf,ynqchars,'n')) == 'y')
1824. 				return(otmp);
1825. 			else if(c == 'q')
1826. 				return((struct obj *) 0);
1827. 		}
1828. 	    }
1829. 	}
1830. #ifdef POLYSELF
1831. 	/* We cannot use ALL_CLASSES since that causes getobj() to skip its
1832. 	 * "ugly checks" and we need to check for inedible items.
1833. 	 */
1834. 	return getobj(feeding ? (const char *)allobj :
1835. 				(const char *)comestibles, verb);
1836. #else
1837. 	return getobj(comestibles, verb);
1838. #endif
1839. }
1840. 
1841. /* Side effects of vomiting */
1842. /* added nomul (MRS) - it makes sense, you're too busy being sick! */
1843. /* TO DO: regurgitate swallowed monsters when poly'd */
1844. void
1845. vomit() {		/* A good idea from David Neves */
1846. 	make_sick(0L,TRUE);
1847. 	nomul(-2);
1848. }
1849. 
1850. int
1851. eaten_stat(base, obj)
1852. register int base;
1853. register struct obj *obj;
1854. {
1855. 	long uneaten_amt, full_amount;
1856. 
1857. 	uneaten_amt = (long)obj->oeaten;
1858. 	full_amount = (obj->otyp == CORPSE) ? (long)mons[obj->corpsenm].cnutrit
1859. 					: (long)objects[obj->otyp].oc_nutrition;
1860. 
1861. 	base = (int)(full_amount ? (long)base * uneaten_amt / full_amount : 0L);
1862. 	return (base < 1) ? 1 : base;
1863. }
1864. 
1865. #endif /* OVLB */
1866. 
1867. /*eat.c*/