Function check_shop_obj

src/dothrow.c:1180–1214

}

staticfn void
check_shop_obj(struct obj *obj, coordxy x, coordxy y, boolean broken)
{
    boolean costly_xy;
    struct monst *shkp = shop_keeper(*u.ushops);

    if (!shkp)
        return;

    costly_xy = costly_spot(x, y);
    if (broken || !costly_xy || *in_rooms(x, y, SHOPBASE) != *u.ushops) {
        /* thrown out of a shop or into a different shop */
        if (is_unpaid(obj))
            (void) stolen_value(obj, u.ux, u.uy, (boolean) shkp->mpeaceful,
                                FALSE);
        if (broken)
            obj->no_charge = 1;
    } else if (costly_xy) {
        char *oshops = in_rooms(x, y, SHOPBASE);

        /* ushops0: in case we threw while levitating and recoiled
           out of shop (most likely to the shk's spot in front of door) */
        if (*oshops == *u.ushops || *oshops == *u.ushops0) {
            if (is_unpaid(obj)) {
                long gtg = Has_contents(obj) ? contained_gold(obj, TRUE) : 0L;

                subfrombill(obj, shkp);
                if (gtg > 0L)
                    donate_gold(gtg, shkp, TRUE);
            } else if (x != shkp->mx || y != shkp->my) {
                sellobj(obj, x, y);
            }
        }
    }
}

/* Will 'obj' cause damage if it falls on hero's head when thrown upward?
   Not used to handle things which break when they hit.