CORPSE_I_TO_C
return(strchr(POISONOUS, CORPSE_I_TO_C(otmp->otyp)) != 0);
char let = CORPSE_I_TO_C(otmp->otyp);
mtmp = mkmon_at(CORPSE_I_TO_C(obj->otyp),obj->ox,obj->oy);