Function stolen_value

src/shk.c:3753–3872

}

long
stolen_value(
    struct obj *obj,
    coordxy x,
    coordxy y,
    boolean peaceful,
    boolean silent)
{
    long value = 0L, gvalue = 0L, billamt = 0L;
    char roomno;
    struct bill_x *bp;
    struct monst *shkp;
    boolean was_unpaid;
    long c_count = 0L, u_count = 0L;

    if ((shkp = find_objowner(obj, x, y)) != (struct monst *) 0) {
        roomno = ESHK(shkp)->shoproom;
    } else {
        roomno = *in_rooms(x, y, SHOPBASE);
    }

    /* gather information for message(s) prior to manipulating bill */
    was_unpaid = obj->unpaid ? TRUE : FALSE;
    if (Has_contents(obj)) {
        c_count = count_contents(obj, TRUE, FALSE, TRUE, FALSE);
        u_count = count_contents(obj, TRUE, FALSE, FALSE, FALSE);
    }

    shkp = (struct monst *) 0;
    if (!billable(&shkp, obj, roomno, TRUE)) {
        /* things already on the bill yield a not-billable result, so
           we need to check bill before deciding that shk doesn't care */
        if ((bp = onbill(obj, shkp, FALSE)) != 0) {
            assert(shkp != NULL); /* onbill() found shkp so it's not Null */
            /* shk does care; take obj off bill to avoid double billing */
            billamt = bp->bquan * bp->price;
            sub_one_frombill(obj, shkp);
        }
        if (!bp && !u_count)
            return 0L;
    }

    if (obj->oclass == COIN_CLASS) {
        gvalue += obj->quan;
    } else {
        if (billamt)
            value += billamt;
        else if (!obj->no_charge)
            value += get_pricing_units(obj) * get_cost(obj, shkp);

        if (Has_contents(obj)) {
            boolean ininv =
                (obj->where == OBJ_INVENT || obj->where == OBJ_FREE);

            value += stolen_container(obj, shkp, 0L, ininv);
            if (!ininv)
                gvalue += contained_gold(obj, TRUE);
        }