struct monst *
christen_monst(struct monst *mtmp, const char *name)
{
int lth;
struct monst *mtmp2;
char buf[PL_PSIZ];
/* dogname & catname are PL_PSIZ arrays; object names have same limit */
lth = *name ? (int)(strlen(name) + 1) : 0;
if (lth > PL_PSIZ) {
lth = PL_PSIZ;
name = strncpy(buf, name, PL_PSIZ - 1);
buf[PL_PSIZ - 1] = '\0';
}
if (lth == mtmp->mnamelth) {
/* don't need to allocate a new monst struct */
if (lth)
strcpy(NAME_MUTABLE(mtmp), name);
return mtmp;
}
mtmp2 = newmonst(mtmp->mxtyp, lth);
*mtmp2 = *mtmp;
memcpy(mtmp2->mextra, mtmp->mextra, mtmp->mxlth);
mtmp2->mnamelth = lth;
if (lth)
strcpy(NAME_MUTABLE(mtmp2), name);
replmon(mtmp, mtmp2);
return mtmp2;
}
int
tamedog(struct monst *mtmp, struct obj *obj)
{
struct monst *mtmp2;
if(flags.moonphase == FULL_MOON && night() && rn2(6))
return(0);
/* If we cannot tame him, at least he's no longer afraid. */
mtmp->mflee = 0;
mtmp->mfleetim = 0;
if(mtmp->mtame || mtmp->mfroz ||
#ifndef NOWORM
mtmp->wormno ||
#endif /* NOWORM */
mtmp->isshk || mtmp->isgd || strchr(" &@12", mtmp->data->mlet))
return(0); /* no tame long worms? */
if(obj) {
if(dogfood(obj) >= MANFOOD) return(0);
if(cansee(mtmp->mx,mtmp->my)){
pline("%s devours the %s.", Monnam(mtmp),
objects[obj->otyp].oc_name);
}
obfree(obj, (struct obj *) 0);
}
mtmp2 = newmonst(sizeof(struct edog) + mtmp->mnamelth);
*mtmp2 = *mtmp;
mtmp2->mxlth = sizeof(struct edog);
if(mtmp->mnamelth)
(void) strlcpy(NAME(mtmp2), NAME(mtmp), mtmp2->mnamelth);
initedog(mtmp2);
replmon(mtmp,mtmp2);
return(1);
}
struct monst *
tamedog(struct monst *mtmp, struct obj *obj)
{
struct monst *mtmp2;
/* The Wiz, Medusa and the quest nemeses aren't even made peaceful. */
if (mtmp->iswiz || mtmp->data == &mons[PM_MEDUSA]
|| (mtmp->data->mflags3 & M3_WANTSARTI))
return NULL;
/* worst case, at least it'll be peaceful; this uses the main RNG because
realtime effects means that this won't really sync anyway; this also
calls set_malign (thus there's no need for the caller to call it after
calling tamedog()) */
msethostility(mtmp, FALSE, TRUE);
if (flags.moonphase == FULL_MOON && night() && rn2(6) && obj &&
mtmp->data->mlet == S_DOG)
return NULL;
/* If we cannot tame it, at least it's no longer afraid. */
mtmp->mflee = 0;
mtmp->mfleetim = 0;
/* make grabber let go now, whether it becomes tame or not */
if (mtmp == u.ustuck) {
if (Engulfed)
expels(mtmp, mtmp->data, TRUE);
else if (!(Upolyd && sticks(youmonst.data)))
unstuck(mtmp);
}
/* feeding it treats makes it tamer */
if (mtmp->mtame && obj) {
int tasty;
if (mtmp->mcanmove && !mtmp->mconf && !mtmp->meating &&
((tasty = dogfood(mtmp, obj)) == DOGFOOD ||
(tasty <= ACCFOOD && CONST_EDOG(mtmp)->hungrytime <= moves))) {
/* pet will "catch" and eat this thrown food */
if (canseemon(mtmp)) {
boolean big_corpse = (obj->otyp == CORPSE &&
obj->corpsenm >= LOW_PM &&
mons[obj->corpsenm].msize >
mtmp->data->msize);
pline("%s catches %s%s", Monnam(mtmp), the(xname(obj)),
!big_corpse ? "." : ", or vice versa!");
} else if (cansee(mtmp->mx, mtmp->my))
pline("%s.", Tobjnam(obj, "stop"));
/* dog_eat expects a floor object */
place_object(obj, level, mtmp->mx, mtmp->my);
dog_eat(mtmp, obj, mtmp->mx, mtmp->my, FALSE);
/* eating might have killed it, but that doesn't matter here; a
non-null result suppresses "miss" message for thrown food and
also implies that the object has been deleted */
return mtmp;
} else
return NULL;
}
if (mtmp->mtame || !mtmp->mcanmove ||
/* monsters with conflicting structures cannot be tamed */
mtmp->isshk || mtmp->isgd || mtmp->ispriest || mtmp->isminion ||
is_covetous(mtmp->data) || is_human(mtmp->data) ||
(is_demon(mtmp->data) && !is_demon(youmonst.data)) ||
(obj && dogfood(mtmp, obj) >= MANFOOD))
return NULL;
if (mtmp->m_id == u.quest_status.leader_m_id)
return NULL;
/* make a new monster which has the pet extension */
mtmp2 = newmonst(MX_EDOG, mtmp->mnamelth);
*mtmp2 = *mtmp;
mtmp2->mxtyp = MX_EDOG;
mtmp2->mxlth = sizeof (struct edog);
if (mtmp->mnamelth)
strcpy(NAME_MUTABLE(mtmp2), NAME(mtmp));
initedog(mtmp2);
replmon(mtmp, mtmp2);
/* `mtmp' is now obsolete */
if (obj) { /* thrown food */
/* defer eating until the edog extension has been set up */
place_object(obj, level, mtmp2->mx, mtmp2->my); /* put on floor */
/* devour the food (might grow into larger, genocided monster) */
if (dog_eat(mtmp2, obj, mtmp2->mx, mtmp2->my, TRUE) == 2)
return mtmp2; /* oops, it died... */
/* `obj' is now obsolete */
}
if (mtmp2->dlevel == level)
newsym(mtmp2->mx, mtmp2->my);
if (attacktype(mtmp2->data, AT_WEAP)) {
mtmp2->weapon_check = NEED_HTH_WEAPON;
mon_wield_item(mtmp2);
}
return mtmp2;
}
