Function mon_givit

src/mon.c:1777–1824

Maybe give an intrinsic to monster from eating corpse that confers it. */

/* Maybe give an intrinsic to monster from eating corpse that confers it. */
void
mon_givit(struct monst *mtmp, struct permonst *ptr)
{
    int prop = corpse_intrinsic(ptr);
    boolean vis = canseemon(mtmp);

    if (DEADMONSTER(mtmp))
        return;

    if (ptr == &mons[PM_STALKER]) {
        /*
         * Invisible stalker isn't flagged as conferring invisibility
         * so prop is 0.  For hero, eating a stalker corpse confers
         * temporary invisibility if hero is visible.  When already
         * invisible, if confers permanent invisibility and also
         * permanent see invisible.  For monsters, only permanent
         * invisibility is possible; temporary invisibility and see
         * invisible aren't implemented for them.
         *
         * A monster being invisible gains no benefit against other
         * monsters, and an invisible pet when hero can't see invisible
         * is a nuisance at best, so this is probably detrimental.
         * Players will just have to live with it if they want to be
         * able to have pets gain intrinsics from eating corpses.
         */
        if (!mtmp->perminvis || mtmp->invis_blkd) {
            char mtmpbuf[BUFSZ];

            Strcpy(mtmpbuf, Monnam(mtmp));
            mon_set_minvis(mtmp, FALSE);
            if (vis)
                pline_mon(mtmp, "%s %s.", mtmpbuf,
                      !canspotmon(mtmp) ? "vanishes"
                      : mtmp->invis_blkd ? "seems to flicker"
                        : "becomes invisible");
        }
        mtmp->mstun = 1; /* no timeout but will eventually wear off */
        return;
    }

    if (prop == 0)
        return; /* no intrinsic from this corpse */

    if (!should_givit(prop, ptr))
        return; /* failed die roll */

    mon_give_prop(mtmp, prop);
}

void
mpickgold(struct monst *mtmp)