Function rot_corpse

src/dig.c:2145–2189

* Called when a corpse has rotted completely away. */

 * Called when a corpse has rotted completely away.
 */
void
rot_corpse(anything *arg, long timeout)
{
    coordxy x = 0, y = 0;
    struct obj *obj = arg->a_obj;
    boolean on_floor = obj->where == OBJ_FLOOR,
            in_invent = obj->where == OBJ_INVENT;

    if (on_floor) {
        x = obj->ox;
        y = obj->oy;
    } else if (in_invent) {
        if (flags.verbose) {
            char *cname = corpse_xname(obj, (const char *) 0, CXN_NO_PFX);

            Your("%s%s %s away%c", obj == uwep ? "wielded " : "", cname,
                 otense(obj, "rot"), obj == uwep ? '!' : '.');
        }
        if (obj->owornmask) {
            remove_worn_item(obj, TRUE);
            stop_occupation();
        }
    } else if (obj->where == OBJ_MINVENT) {
        if (obj->owornmask && obj == MON_WEP(obj->ocarry))
            setmnotwielded(obj->ocarry, obj); /* clears owornmask */
    } else if (obj->where == OBJ_MIGRATING) {
        /* clear destination flag so that obfree()'s check for
           freeing a worn object doesn't get a false hit */
        obj->owornmask = 0L;
    }
    rot_organic(arg, timeout);
    if (on_floor) {
        struct monst *mtmp = m_at(x, y);

        /* a hiding monster may be exposed */
        if (mtmp && !OBJ_AT(x, y) && mtmp->mundetected
            && hides_under(mtmp->data)) {
            mtmp->mundetected = 0;
        } else if (u_at(x, y)
                   && u.uundetected && hides_under(gy.youmonst.data))
            (void) hideunder(&gy.youmonst);
        newsym(x, y);
    } else if (in_invent)
        update_inventory();
}

#if 0
void