Function mk_trap_statue

src/trap.c:389–414

create a "living" statue at x,y */

/* create a "living" statue at x,y */
staticfn void
mk_trap_statue(coordxy x, coordxy y)
{
    struct monst *mtmp;
    struct obj *otmp, *statue;
    struct permonst *mptr;
    int trycount = 10;

    do { /* avoid ultimately hostile co-aligned unicorn */
        mptr = &mons[rndmonnum_adj(3, 6)];
    } while (--trycount > 0 && is_unicorn(mptr)
             && sgn(u.ualign.type) == sgn(mptr->maligntyp));
    statue = mkcorpstat(STATUE, (struct monst *) 0, mptr, x, y,
                        CORPSTAT_NONE);
    mtmp = makemon(&mons[statue->corpsenm], 0, 0, MM_NOCOUNTBIRTH | MM_NOMSG);
    if (!mtmp)
        return; /* should never happen */
    while (mtmp->minvent) {
        otmp = mtmp->minvent;
        otmp->owornmask = 0;
        obj_extract_self(otmp);
        (void) add_to_container(statue, otmp);
    }
    statue->owt = weight(statue);
    mongone(mtmp);
}

/* find "bottom" level of specified dungeon, stopping at quest locate */
staticfn int