Function revive_corpse

src/do.c:2110–2246

* Return TRUE if we created a monster for the corpse. If successful, the * corpse is gone. */

 * corpse is gone.
 */
boolean
revive_corpse(struct obj *corpse)
{
    struct monst *mtmp, *mcarry;
    boolean is_uwep, chewed;
    xint16 where;
    char cname[BUFSZ];
    struct obj *container = (struct obj *) 0;
    int container_where = 0;
    int montype;
    boolean is_zomb;
    coordxy corpsex, corpsey;

    where = corpse->where;
    montype = corpse->corpsenm;
    /* treat buried auto-reviver (troll, Rider?) like a zombie
       so that it can dig itself out of the ground if it revives */
    is_zomb = (mons[montype].mlet == S_ZOMBIE
               || (where == OBJ_BURIED && is_reviver(&mons[montype])));
    is_uwep = (corpse == uwep);
    chewed = (corpse->oeaten != 0);
    Strcpy(cname, corpse_xname(corpse,
                               chewed ? "bite-covered" : (const char *) 0,
                               CXN_SINGULAR));
    mcarry = (where == OBJ_MINVENT) ? corpse->ocarry : 0;
    /* mcarry is NULL for (where == OBJ_BURIED and OBJ_CONTAINED) now */

    (void) get_obj_location(corpse, &corpsex, &corpsey,
                            CONTAINED_TOO | BURIED_TOO);

    if (where == OBJ_CONTAINED) {
        struct monst *mtmp2;

        container = corpse->ocontainer;
        mtmp2 = get_container_location(container, &container_where,
                                       (int *) 0);
        /* container_where is outermost container's location even if nested */
        if (container_where == OBJ_MINVENT && mtmp2)
            mcarry = mtmp2;
    }
    mtmp = revive(corpse, FALSE); /* corpse is gone if successful */

    if (mtmp) {
        switch (where) {
        case OBJ_INVENT:
            if (is_uwep)
                pline_The("%s writhes out of your grasp!", cname);
            else
                You_feel("squirming in your backpack!");
            break;

        case OBJ_FLOOR:
            if (cansee(corpsex, corpsey) || canseemon(mtmp)) {
                const char *effect = "";

                if (mtmp->data == &mons[PM_DEATH])
                    effect = " in a whirl of spectral skulls";
                else if (mtmp->data == &mons[PM_PESTILENCE])