From 9fa08b383f30ba13544fc24c5c2cb420bd4b65ac Mon Sep 17 00:00:00 2001 From: PatR Date: Fri, 9 Dec 2022 04:18:20 -0800 Subject: [PATCH] shopping objects, unpaid and no_charge, what else? Revise sanity_check to acknowledge that buried objects might be unpaid or no_charge. (For unpaid, drop shop-owned object in a gap in the shop wall or in the free spot; for no_charge, drop something the shk doesn't care about, or drop any hero-owned item and decline to sell. Dig a pit. Push or drop a boulder to fill the pit.) Change 'I' to look for unpaid objects on the floor and for buried ones when deciding when to include 'u' in the list of candidate object classes and pseudo-classes. Change 'Iu' to mention buried unpaid objects as well as floor ones. For both non-invent categories, show a combined count without cost info. Have sanity_check of monster inventory test for unpaid and no_charge. When a monster (including pet) picks up an item that's marked unpaid (so one dropped on shop boundary, not an ordinary for-sale one), take it off hero's shopping bill. If dropped--pet behavior or monster death--inside the shop, it will become for-sale rather than no_charge or back on bill. [Removal from bill is needed to prevent an unpaid object ending up outside the shop if a monster carries it out, and current sanity_check complains about an unpaid item in mon->minvent.] --- src/invent.c | 67 +++++++++++++++++++++++++++++++++------------------- src/mkobj.c | 31 +++++++++++++++--------- src/steal.c | 5 ++++ 3 files changed, 68 insertions(+), 35 deletions(-) diff --git a/src/invent.c b/src/invent.c index 8d00c1e50..a36762de0 100644 --- a/src/invent.c +++ b/src/invent.c @@ -30,7 +30,7 @@ static char display_pickinv(const char *, const char *, const char *, boolean, long *); static char display_used_invlets(char); static boolean this_type_only(struct obj *); -static void dounpaid(int); +static void dounpaid(int, int, int); static struct obj *find_unpaid(struct obj *, struct obj **); static void menu_identify(int); static boolean tool_being_used(struct obj *); @@ -3732,19 +3732,22 @@ count_contents( } static void -dounpaid(int floorcount) +dounpaid( + int count, /* unpaid items in inventory */ + int floorcount, /* unpaid items on floor (rare) */ + int buriedcount) /* unpaid items under the floor (extremely rare) */ { winid win; struct obj *otmp, *marker, *contnr; char ilet; char *invlet = flags.inv_order; - int classcount, count, num_so_far; + int classcount, num_so_far, xtracount; long cost, totcost; - count = count_unpaid(gi.invent); otmp = marker = contnr = (struct obj *) 0; + xtracount = floorcount + buriedcount; - if (count == 1 && !floorcount) { + if (count == 1 && !xtracount) { otmp = find_unpaid(gi.invent, &marker); contnr = unknwn_contnr_contents(otmp); } @@ -3831,18 +3834,31 @@ dounpaid(int floorcount) xprname((struct obj *) 0, "Total:", '*', FALSE, totcost, 0L)); } - if (floorcount > 0) { + /* an unpaid item can be on the floor if dropped on the shop boundary + (then possibly moved all the way into the shop during wall repair); + one can be buried if it started that way and a pit was dug at its + spot then filled by a boulder (or perhaps a theme room with a pool + and an unpaid item moved into that by wall repair, then freezing) */ + if (xtracount > 0) { /* floorcount + buriedcount > 0 */ char buf[BUFSZ]; - const char *floorverb = (floorcount > 1) ? "are" : "is"; + const char + *floorverb = (xtracount > 1) ? "are" : "is", + /* "under the floor" might actually be "under the floor + beneath a wall" when shop repair is involved but that seems + too nit-picky to bother trying to handle here (even more + extreme description-wise: "under the floor beneath the + door/doorway") */ + *where = (buriedcount == 0) ? "on the floor" + : (floorcount == 0) ? "under the floor" + : "on or under the floor"; if (!count) { - You( - "aren't carrying any unpaid items but there %s %d on the floor.", - floorverb, floorcount); + You("aren't carrying any unpaid items but there %s %d %s.", + floorverb, xtracount, where); } else { putstr(win, 0, ""); - Sprintf(buf, "(There %s %d more unpaid object%s on the floor.)", - floorverb, floorcount, plur(floorcount)); + Sprintf(buf, "(There %s %d more unpaid object%s %s.)", + floorverb, xtracount, plur(xtracount), where); putstr(win, 0, buf); } } @@ -3850,6 +3866,7 @@ dounpaid(int floorcount) if (count > 0) display_nhwindow(win, FALSE); destroy_nhwindow(win); + return; } @@ -3896,7 +3913,8 @@ dotypeinv(void) int n, i = 0; char *extra_types, types[BUFSZ], title[QBUFSZ]; const char *before = "", *after = ""; - int class_count, oclass, unpaid_count, itemcount; + int class_count, oclass, itemcount, + any_unpaid, u_carried, u_floor, u_buried; int bcnt, ccnt, ucnt, xcnt, ocnt, jcnt; boolean billx = *u.ushops && doinvbill(0); menu_item *pick_list; @@ -3909,7 +3927,10 @@ dotypeinv(void) goto doI_done; } title[0] = '\0'; - unpaid_count = count_unpaid(gi.invent); + u_carried = count_unpaid(gi.invent); + u_floor = count_unpaid(fobj); + u_buried = count_unpaid(gl.level.buriedobjlist); + any_unpaid = u_carried + u_floor + u_buried; tally_BUCX(gi.invent, FALSE, &bcnt, &ucnt, &ccnt, &xcnt, &ocnt, &jcnt); if (flags.menu_style != MENU_TRADITIONAL) { @@ -3943,9 +3964,9 @@ dotypeinv(void) class_count = collect_obj_classes(types, gi.invent, FALSE, (boolean (*)(OBJ_P)) 0, &itemcount); - if (unpaid_count || billx || (bcnt + ccnt + ucnt + xcnt) != 0 || jcnt) + if (any_unpaid || billx || (bcnt + ccnt + ucnt + xcnt) != 0 || jcnt) types[class_count++] = ' '; - if (unpaid_count) + if (any_unpaid) types[class_count++] = 'u'; if (billx) types[class_count++] = 'x'; @@ -3963,7 +3984,7 @@ dotypeinv(void) /* add everything not already included; user won't see these */ extra_types = eos(types); *extra_types++ = '\033'; - if (!unpaid_count) + if (!any_unpaid) *extra_types++ = 'u'; if (!billx) *extra_types++ = 'x'; @@ -3992,7 +4013,7 @@ dotypeinv(void) } } else { /* only one thing to itemize */ - if (unpaid_count) + if (any_unpaid) c = 'u'; else if (billx) c = 'x'; @@ -4005,14 +4026,12 @@ dotypeinv(void) (void) doinvbill(1); else pline("No used-up objects%s.", - unpaid_count ? " on your shopping bill" : ""); + any_unpaid ? " on your shopping bill" : ""); goto doI_done; } - if (c == 'u' || (c == 'U' && unpaid_count && !ucnt)) { - int floorcount = count_unpaid(fobj); - - if (unpaid_count || floorcount) - dounpaid(floorcount); + if (c == 'u' || (c == 'U' && any_unpaid && !ucnt)) { + if (any_unpaid) + dounpaid(u_carried, u_floor, u_buried); else You("are not carrying any unpaid objects."); goto doI_done; diff --git a/src/mkobj.c b/src/mkobj.c index 38b967525..03211c354 100644 --- a/src/mkobj.c +++ b/src/mkobj.c @@ -2131,10 +2131,7 @@ place_object(struct obj *otmp, coordxy x, coordxy y) here without display code needing to traverse pile chain to find one */ if (otmp2 && otmp2->otyp == BOULDER && otmp->otyp != BOULDER) { /* 3.6.3: put otmp under last consecutive boulder rather than under - just the first one; multiple boulders at same spot in new games - will be consecutive due to this, ones in old games saved before - this change might not be; can affect the map display if the top - boulder is moved/removed by some means other than pushing */ + just the first one */ while (otmp2->nexthere && otmp2->nexthere->otyp == BOULDER) otmp2 = otmp2->nexthere; otmp->nexthere = otmp2->nexthere; @@ -2145,11 +2142,16 @@ place_object(struct obj *otmp, coordxy x, coordxy y) gl.level.objects[x][y] = otmp; } - /* set the new object's location */ + /* set the object's new location */ otmp->ox = x; otmp->oy = y; otmp->where = OBJ_FLOOR; + /* if placed outside of shop, no_charge is no longer applicable */ + if (otmp->no_charge && !costly_spot(x, y) + && !costly_adjacent(find_objowner(otmp, x, y), x, y)) + otmp->no_charge = 0; + /* add to floor chain */ otmp->nobj = fobj; fobj = otmp; @@ -2819,10 +2821,11 @@ shop_obj_sanity(struct obj *obj, const char *mesg) billobjs list, and for floor items outside the shop proper but within the shop boundary (walls, door, "free spot") and for objects moved from such spots into the shop proper by - repair of shop walls */ + repair of shop walls or items buried while on boundary */ if (otop->where != OBJ_INVENT && obj->where != OBJ_ONBILL /* when on bill, obj==otop */ - && (otop->where != OBJ_FLOOR || (!costly && !costlytoo))) + && ((otop->where != OBJ_FLOOR && obj->where != OBJ_BURIED) + || !(costly || costlytoo))) why = "%s unpaid obj not carried! %s %s: %s"; else if (!costly && !costlytoo) why = "%s unpaid obj not inside tended shop! %s %s: %s"; @@ -2831,9 +2834,12 @@ shop_obj_sanity(struct obj *obj, const char *mesg) else if (!onshopbill(obj, shkp, TRUE)) why = "%s unpaid obj not on shop bill! %s %s: %s"; } else if (obj->no_charge) { - /* no_charge is only applicable for floor objects in shops - and for objects inside floor containers in shops */ - if (otop->where != OBJ_FLOOR) + /* no_charge is only applicable for floor objects in shops, for + objects inside floor containers in shops, and for objects buried + beneath the shop floor or carried by a monster (usually pet) */ + if (otop->where != OBJ_FLOOR + && otop->where != OBJ_BURIED + && otop->where != OBJ_MINVENT) why = "%s no_charge obj not on floor! %s %s: %s"; else if (!costly && !costlytoo) why = "%s no_charge obj not inside tended shop! %s %s: %s"; @@ -2843,7 +2849,8 @@ shop_obj_sanity(struct obj *obj, const char *mesg) why = "%s no_charge obj on shop bill! %s %s: %s"; } if (why) - insane_object(obj, why, mesg, (struct monst *) 0); + insane_object(obj, why, mesg, + mcarried(otop) ? otop->ocarry : (struct monst *) 0); return; } @@ -2872,6 +2879,8 @@ mon_obj_sanity(struct monst *monlist, const char *mesg) if (obj->globby) check_glob(obj, mesg); check_contained(obj, mesg); + if (obj->unpaid || obj->no_charge) + shop_obj_sanity(obj, mesg); if (obj->in_use || obj->bypass || obj->nomerge || (obj->otyp == BOULDER && obj->next_boulder)) insane_obj_bits(obj, mon); diff --git a/src/steal.c b/src/steal.c index f76399ec8..6ef248299 100644 --- a/src/steal.c +++ b/src/steal.c @@ -510,6 +510,11 @@ mpickobj(struct monst *mtmp, struct obj *otmp) gt.thrownobj = 0; else if (otmp == gk.kickedobj) gk.kickedobj = 0; + /* an unpaid item can be on the floor; if a monster picks it up, take + it off the shop bill */ + if (otmp->unpaid || (Has_contents(otmp) && count_unpaid(otmp->cobj))) { + subfrombill(otmp, find_objowner(otmp, otmp->ox, otmp->oy)); + } /* don't want hidden light source inside the monster; assumes that engulfers won't have external inventories; whirly monsters cause the light to be extinguished rather than letting it shine thru */