Function do_osshock

src/zap.c:1636–1674

Assumes obj is on the floor. */

/* Assumes obj is on the floor. */
void
do_osshock(struct obj *obj)
{
    long i;

#ifdef MAIL_STRUCTURES
    if (obj->otyp == SCR_MAIL)
        return;
#endif
    go.obj_zapped = TRUE;

    if (gp.poly_zapped < 0) {
        /* some may metamorphose */
        for (i = obj->quan; i; i--)
            if (!rn2(Luck + 45)) {
                gp.poly_zapped = objects[obj->otyp].oc_material;
                break;
            }
    }

    /* if quan > 1 then some will survive intact */
    if (obj->quan > 1L) {
        if (obj->quan > LARGEST_INT)
            obj = splitobj(obj, (long) rnd(30000));
        else
            obj = splitobj(obj, (long) rnd((int) obj->quan - 1));
    }

    /* appropriately add damage to bill */
    if (costly_spot(obj->ox, obj->oy)) {
        if (*u.ushops)
            addtobill(obj, FALSE, FALSE, FALSE);
        else
            (void) stolen_value(obj, obj->ox, obj->oy, FALSE, FALSE);
    }

    /* zap the object */
    delobj(obj);
}

/* Returns TRUE if obj resists polymorphing */
boolean