static int
dogfood(struct obj *obj)
{
switch(obj->olet) {
case FOOD_SYM:
return(
(obj->otyp == TRIPE_RATION) ? DOGFOOD :
(obj->otyp < CARROT) ? ACCFOOD :
(obj->otyp < CORPSE) ? MANFOOD :
(poisonous(obj) || obj->age + 50 <= moves ||
obj->otyp == DEAD_COCKATRICE)
? POISON : CADAVER
);
default:
if(!obj->cursed) return(APPORT);
/* fall into next case */
case BALL_SYM:
case CHAIN_SYM:
case ROCK_SYM:
return(UNDEF);
}
}
/* fungi will eat even tainted food */
int
dogfood(const struct monst *mon, struct obj *obj)
{
boolean carni = carnivorous(mon->data);
boolean herbi = herbivorous(mon->data);
const struct permonst *fptr = &mons[obj->corpsenm];
boolean starving;
if (is_quest_artifact(obj) || obj_resists(obj, 0, 95))
return obj->cursed ? TABU : APPORT;
switch (obj->oclass) {
case FOOD_CLASS:
if (obj->otyp == CORPSE &&
((touch_petrifies(&mons[obj->corpsenm]) && !resists_ston(mon))
|| is_rider(fptr)))
return TABU;
/* Ghouls only eat old corpses... yum! */
if (mon->data == &mons[PM_GHOUL])
return (obj->otyp == CORPSE &&
peek_at_iced_corpse_age(obj) + 50L <=
moves) ? DOGFOOD : TABU;
if (!carni && !herbi)
return obj->cursed ? UNDEF : APPORT;
/* a starving pet will eat almost anything */
starving = (mon->mtame && !mon->isminion &&
CONST_EDOG(mon)->mhpmax_penalty);
switch (obj->otyp) {
case TRIPE_RATION:
case MEATBALL:
case MEAT_RING:
case MEAT_STICK:
case HUGE_CHUNK_OF_MEAT:
return carni ? DOGFOOD : MANFOOD;
case EGG:
if (touch_petrifies(&mons[obj->corpsenm]) && !resists_ston(mon))
return POISON;
return carni ? CADAVER : MANFOOD;
case CORPSE:
if ((peek_at_iced_corpse_age(obj) + 50L <= moves &&
obj->corpsenm != PM_LIZARD && obj->corpsenm != PM_LICHEN &&
mon->data->mlet != S_FUNGUS) ||
(acidic(&mons[obj->corpsenm]) && !resists_acid(mon)) ||
(poisonous(&mons[obj->corpsenm]) && !resists_poison(mon)))
return POISON;
else if (vegan(fptr))
return herbi ? CADAVER : MANFOOD;
else
return carni ? CADAVER : MANFOOD;
case CLOVE_OF_GARLIC:
return (is_undead(mon->data) ? TABU
: ((herbi || starving) ? ACCFOOD : MANFOOD));
case TIN:
return metallivorous(mon->data) ? ACCFOOD : MANFOOD;
case APPLE:
case CARROT:
return herbi ? DOGFOOD : starving ? ACCFOOD : MANFOOD;
case BANANA:
return ((mon->data->mlet ==
S_YETI) ? DOGFOOD : ((herbi ||
starving) ? ACCFOOD : MANFOOD));
case K_RATION:
case C_RATION:
case CRAM_RATION:
case LEMBAS_WAFER:
case FOOD_RATION:
if (is_human(mon->data) || is_elf(mon->data) || is_dwarf(mon->data)
|| is_gnome(mon->data) || is_orc(mon->data))
return ACCFOOD;
default:
if (starving)
return ACCFOOD;
return (obj->otyp >
SLIME_MOLD ? (carni ? ACCFOOD : MANFOOD) :
(herbi ? ACCFOOD : MANFOOD));
}
default:
if (obj->otyp == AMULET_OF_STRANGULATION ||
obj->otyp == RIN_SLOW_DIGESTION)
return TABU;
if (hates_silver(mon->data) && objects[obj->otyp].oc_material == SILVER)
return TABU;
if (mon->data == &mons[PM_GELATINOUS_CUBE] && is_organic(obj))
return ACCFOOD;
if (metallivorous(mon->data) && is_metallic(obj) &&
(is_rustprone(obj) || mon->data != &mons[PM_RUST_MONSTER])) {
/* Non-rustproofed ferrous based metals are preferred. */
return (is_rustprone(obj) && !obj->oerodeproof) ? DOGFOOD : ACCFOOD;
}
if (!obj->cursed && obj->oclass != BALL_CLASS &&
obj->oclass != CHAIN_CLASS)
return APPORT;
/* fall into next case */
case ROCK_CLASS:
return UNDEF;
}
}
