nethack-gwaa-kiwi/nethack
1
0
Fork 0
Code Pull Requests Activity

fix #H4105 - credit cloning

Browse Source 
Putting gold into a hero-owned container on a shop's floot gave credit
for the amount of the gold but also set the gold object no_charge, so
it could be taken out without taking away the credit.  Then put back
in and taken out as many times as the player liked, doubling the gold
each time until the shopkeeper was out of cash.

I think the proper fix would be to avoid giving credit instead of not
marking the gold no_charge, but that would require multiple additional
changes so I took the easy way out.

Most of the changes to pickup.c are reformatting that it escaped prior
to release.  The changes to shk.c are cosmetic and not part of the fix.
This commit is contained in:
PatR
2015-12-20 01:44:19 -08:00
parent 0d2a4afd81
commit 40ad82ed77
3 changed files with 103 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files
doc/fixes36.1
+1
View File
@@ -47,6 +47,7 @@ make corpse visible if stethoscope told you about it being there
sceptre of might database entry word change sceptre of might database entry word change
avoid "spellbook of novel" on discoveries list after object ID of novel avoid "spellbook of novel" on discoveries list after object ID of novel
add novel to discoveries list after reading one add novel to discoveries list after reading one
putting gold into hero-owned container on shop floor gave free credit
Platform- and/or Interface-Specific Fixes Platform- and/or Interface-Specific Fixes
src/pickup.c
+85 -76
View File
@@ -1,9 +1,9 @@
/* NetHack 3.6 pickup.c $NHDT-Date: 1445556881 2015/10/22 23:34:41 $ $NHDT-Branch: master $:$NHDT-Revision: 1.162 $ */ /* NetHack 3.6 pickup.c $NHDT-Date: 1450604648 2015/12/20 09:44:08 $ $NHDT-Branch: NetHack-3.6.0 $:$NHDT-Revision: 1.167 $ */
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* NetHack may be freely redistributed. See license for details. */ /* NetHack may be freely redistributed. See license for details. */
/* /*
* Contains code for picking objects up, and container use. * Contains code for picking objects up, and container use.
*/ */
#include "hack.h" #include "hack.h"
@@ -25,8 +25,8 @@ STATIC_DCL int FDECL(autopick, (struct obj *, int, menu_item **));
STATIC_DCL int FDECL(count_categories, (struct obj *, int)); STATIC_DCL int FDECL(count_categories, (struct obj *, int));
STATIC_DCL long FDECL(carry_count, (struct obj *, struct obj *, long, STATIC_DCL long FDECL(carry_count, (struct obj *, struct obj *, long,
BOOLEAN_P, int *, int *)); BOOLEAN_P, int *, int *));
STATIC_DCL int FDECL(lift_object, STATIC_DCL int FDECL(lift_object, (struct obj *, struct obj *, long *,
(struct obj *, struct obj *, long *, BOOLEAN_P)); BOOLEAN_P));
STATIC_DCL boolean FDECL(mbag_explodes, (struct obj *, int)); STATIC_DCL boolean FDECL(mbag_explodes, (struct obj *, int));
STATIC_PTR int FDECL(in_container, (struct obj *)); STATIC_PTR int FDECL(in_container, (struct obj *));
STATIC_PTR int FDECL(out_container, (struct obj *)); STATIC_PTR int FDECL(out_container, (struct obj *));
@@ -63,13 +63,14 @@ STATIC_DCL void FDECL(tipcontainer, (struct obj *));
/* A variable set in use_container(), to be used by the callback routines */ /* A variable set in use_container(), to be used by the callback routines */
/* in_container() and out_container() from askchain() and use_container(). */ /* in_container() and out_container() from askchain() and use_container(). */
/* Also used by menu_loot() and container_gone(). */ /* Also used by menu_loot() and container_gone(). */
static NEARDATA struct obj *current_container; static NEARDATA struct obj *current_container;
#define Icebox (current_container->otyp == ICE_BOX) #define Icebox (current_container->otyp == ICE_BOX)
static const char moderateloadmsg[] = "You have a little trouble lifting"; static const char
static const char nearloadmsg[] = "You have much trouble lifting"; moderateloadmsg[] = "You have a little trouble lifting",
static const char overloadmsg[] = "You have extreme difficulty lifting"; nearloadmsg[] = "You have much trouble lifting",
overloadmsg[] = "You have extreme difficulty lifting";
/* BUG: this lets you look at cockatrice corpses while blind without /* BUG: this lets you look at cockatrice corpses while blind without
touching them */ touching them */
@@ -89,6 +90,7 @@ boolean here; /* flag for type of obj list linkage */
pline1(doname(otmp)); pline1(doname(otmp));
} else { } else {
winid tmpwin = create_nhwindow(NHW_MENU); winid tmpwin = create_nhwindow(NHW_MENU);
putstr(tmpwin, 0, ""); putstr(tmpwin, 0, "");
do { do {
putstr(tmpwin, 0, doname(otmp)); putstr(tmpwin, 0, doname(otmp));
@@ -125,15 +127,15 @@ int *itemcount;
/* /*
* Suppose some '?' and '!' objects are present, but '/' objects aren't: * Suppose some '?' and '!' objects are present, but '/' objects aren't:
* "a" picks all items without further prompting; * "a" picks all items without further prompting;
* "A" steps through all items, asking one by one; * "A" steps through all items, asking one by one;
* "?" steps through '?' items, asking, and ignores '!' ones; * "?" steps through '?' items, asking, and ignores '!' ones;
* "/" becomes 'A', since no '/' present; * "/" becomes 'A', since no '/' present;
* "?a" or "a?" picks all '?' without further prompting; * "?a" or "a?" picks all '?' without further prompting;
* "/a" or "a/" becomes 'A' since there aren't any '/' * "/a" or "a/" becomes 'A' since there aren't any '/'
* (bug fix: 3.1.0 thru 3.1.3 treated it as "a"); * (bug fix: 3.1.0 thru 3.1.3 treated it as "a");
* "?/a" or "a?/" or "/a?",&c picks all '?' even though no '/' * "?/a" or "a?/" or "/a?",&c picks all '?' even though no '/'
* (ie, treated as if it had just been "?a"). * (ie, treated as if it had just been "?a").
*/ */
STATIC_OVL boolean STATIC_OVL boolean
query_classes(oclasses, one_at_a_time, everything, action, objs, here, query_classes(oclasses, one_at_a_time, everything, action, objs, here,
@@ -168,7 +170,8 @@ int *menu_on_demand;
} }
} else { /* more than one choice available */ } else { /* more than one choice available */
const char *where = 0; const char *where = 0;
register char sym, oc_of_sym, *p; char sym, oc_of_sym, *p;
/* additional choices */ /* additional choices */
ilets[iletct++] = ' '; ilets[iletct++] = ' ';
ilets[iletct++] = 'a'; ilets[iletct++] = 'a';
@@ -189,8 +192,7 @@ int *menu_on_demand;
if (*inbuf == '\033') if (*inbuf == '\033')
return FALSE; return FALSE;
for (p = inbuf; (sym = *p++);) { for (p = inbuf; (sym = *p++) != 0; ) {
/* new A function (selective all) added by GAN 01/09/87 */
if (sym == ' ') if (sym == ' ')
continue; continue;
else if (sym == 'A') else if (sym == 'A')
@@ -407,8 +409,8 @@ struct obj *obj;
/* check for particular bless/curse state */ /* check for particular bless/curse state */
if (bucx_filter) { if (bucx_filter) {
/* first categorize this object's bless/curse state */ /* first categorize this object's bless/curse state */
char bucx = char bucx = !obj->bknown ? 'X'
!obj->bknown ? 'X' : obj->blessed ? 'B' : obj->cursed ? 'C' : 'U'; : obj->blessed ? 'B' : obj->cursed ? 'C' : 'U';
/* if its category is not in the list, reject */ /* if its category is not in the list, reject */
if (!index(valid_menu_classes, bucx)) if (!index(valid_menu_classes, bucx))
@@ -425,11 +427,10 @@ allow_cat_no_uchain(obj)
struct obj *obj; struct obj *obj;
{ {
if (obj != uchain if (obj != uchain
&& ((index(valid_menu_classes,'u') && obj->unpaid) && ((index(valid_menu_classes,'u') && obj->unpaid)
|| index(valid_menu_classes, obj->oclass))) || index(valid_menu_classes, obj->oclass)))
return TRUE; return TRUE;
else return FALSE;
return FALSE;
} }
#endif #endif
@@ -447,9 +448,9 @@ register struct obj *otmp;
* or a monster's inventory if swallowed. * or a monster's inventory if swallowed.
* *
* Arg what: * Arg what:
* >0 autopickup * >0 autopickup
* =0 interactive * =0 interactive
* <0 pickup count of something * <0 pickup count of something
* *
* Returns 1 if tried to pick something up, whether * Returns 1 if tried to pick something up, whether
* or not it succeeded. * or not it succeeded.
@@ -538,11 +539,12 @@ int what; /* should be a long */
if (flags.menu_style != MENU_TRADITIONAL || iflags.menu_requested) { if (flags.menu_style != MENU_TRADITIONAL || iflags.menu_requested) {
/* use menus exclusively */ /* use menus exclusively */
if (count) { /* looking for N of something */ if (count) { /* looking for N of something */
char buf[QBUFSZ]; char qbuf[QBUFSZ];
Sprintf(buf, "Pick %d of what?", count);
Sprintf(qbuf, "Pick %d of what?", count);
val_for_n_or_more = count; /* set up callback selector */ val_for_n_or_more = count; /* set up callback selector */
n = query_objlist(buf, objchain, traverse_how | AUTOSELECT_SINGLE n = query_objlist(qbuf, objchain, traverse_how | AUTOSELECT_SINGLE
| INVORDER_SORT, | INVORDER_SORT,
&pick_list, PICK_ONE, n_or_more); &pick_list, PICK_ONE, n_or_more);
/* correct counts, if any given */ /* correct counts, if any given */
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
@@ -600,11 +602,12 @@ int what; /* should be a long */
traverse_how == BY_NEXTHERE, &via_menu)) { traverse_how == BY_NEXTHERE, &via_menu)) {
if (!via_menu) if (!via_menu)
return 0; return 0;
n = query_objlist( n = query_objlist("Pick up what?", objchain,
"Pick up what?", objchain, traverse_how
traverse_how | (selective ? 0 : INVORDER_SORT), | (selective ? 0 : INVORDER_SORT),
&pick_list, PICK_ANY, &pick_list, PICK_ANY,
via_menu == -2 ? allow_all : allow_category); (via_menu == -2) ? allow_all
: allow_category);
goto menu_pickup; goto menu_pickup;
} }
} }
@@ -657,7 +660,7 @@ int what; /* should be a long */
n_picked += res; n_picked += res;
} }
end_query: end_query:
; /* semicolon needed by brain-damaged compilers */ ; /* statement required after label */
} }
if (!u.uswallow) { if (!u.uswallow) {
@@ -684,9 +687,10 @@ boolean grab; /* forced pickup, rather than forced leave behind? */
* Does the text description of this match an exception? * Does the text description of this match an exception?
*/ */
char *objdesc = makesingular(doname(obj)); char *objdesc = makesingular(doname(obj));
struct autopickup_exception *ape = struct autopickup_exception
(grab) ? iflags.autopickup_exceptions[AP_GRAB] *ape = (grab) ? iflags.autopickup_exceptions[AP_GRAB]
: iflags.autopickup_exceptions[AP_LEAVE]; : iflags.autopickup_exceptions[AP_LEAVE];
while (ape) { while (ape) {
if (regex_match(objdesc, ape->regex)) if (regex_match(objdesc, ape->regex))
return TRUE; return TRUE;
@@ -732,7 +736,7 @@ menu_item **pick_list; /* list of objects and counts to pick up */
} }
if (n) { if (n) {
*pick_list = pi = (menu_item *) alloc(sizeof(menu_item) * n); *pick_list = pi = (menu_item *) alloc(sizeof (menu_item) * n);
for (n = 0, curr = olist; curr; curr = FOLLOW(curr, follow)) { for (n = 0, curr = olist; curr; curr = FOLLOW(curr, follow)) {
pickit = (!*otypes || index(otypes, curr->oclass)); pickit = (!*otypes || index(otypes, curr->oclass));
if (!pickit) if (!pickit)
@@ -759,15 +763,15 @@ menu_item **pick_list; /* list of objects and counts to pick up */
* returned counts are guaranteed to be in bounds and non-zero. * returned counts are guaranteed to be in bounds and non-zero.
* *
* Query flags: * Query flags:
* BY_NEXTHERE - Follow object list via nexthere instead of nobj. * BY_NEXTHERE - Follow object list via nexthere instead of nobj.
* AUTOSELECT_SINGLE - Don't ask if only 1 object qualifies - just * AUTOSELECT_SINGLE - Don't ask if only 1 object qualifies - just
* use it. * use it.
* USE_INVLET - Use object's invlet. * USE_INVLET - Use object's invlet.
* INVORDER_SORT - Use hero's pack order. * INVORDER_SORT - Use hero's pack order.
* INCLUDE_HERO - Showing engulfer's invent; show hero too. * INCLUDE_HERO - Showing engulfer's invent; show hero too.
* SIGNAL_NOMENU - Return -1 rather than 0 if nothing passes "allow". * SIGNAL_NOMENU - Return -1 rather than 0 if nothing passes "allow".
* SIGNAL_ESCAPE - Return -1 rather than 0 if player uses ESC to * SIGNAL_ESCAPE - Return -1 rather than 0 if player uses ESC to
* pick nothing. * pick nothing.
*/ */
int int
query_objlist(qstr, olist, qflags, pick_list, how, allow) query_objlist(qstr, olist, qflags, pick_list, how, allow)
@@ -1202,7 +1206,7 @@ int *wt_before, *wt_after;
* object and calling weight. * object and calling weight.
* *
* This works for containers only because containers * This works for containers only because containers
* don't merge. -dean * don't merge. -dean
*/ */
for (qq = 1L; qq <= count; qq++) { for (qq = 1L; qq <= count; qq++) {
obj->quan = qq; obj->quan = qq;
@@ -1295,8 +1299,8 @@ boolean telekinesis;
return -1; return -1;
} }
*cnt_p = *cnt_p = carry_count(obj, container, *cnt_p, telekinesis,
carry_count(obj, container, *cnt_p, telekinesis, &old_wt, &new_wt); &old_wt, &new_wt);
if (*cnt_p < 1L) { if (*cnt_p < 1L) {
result = -1; /* nothing lifted */ result = -1; /* nothing lifted */
} else if (obj->oclass != COIN_CLASS } else if (obj->oclass != COIN_CLASS
@@ -1557,6 +1561,7 @@ mon_beside(x, y)
int x, y; int x, y;
{ {
int i, j, nx, ny; int i, j, nx, ny;
for (i = -1; i <= 1; i++) for (i = -1; i <= 1; i++)
for (j = -1; j <= 1; j++) { for (j = -1; j <= 1; j++) {
nx = x + i; nx = x + i;
@@ -1572,6 +1577,7 @@ do_loot_cont(cobjp)
struct obj **cobjp; struct obj **cobjp;
{ {
struct obj *cobj = *cobjp; struct obj *cobj = *cobjp;
if (!cobj) if (!cobj)
return 0; return 0;
if (cobj->olocked) { if (cobj->olocked) {
@@ -1584,6 +1590,7 @@ struct obj **cobjp;
if (cobj->otyp == BAG_OF_TRICKS) { if (cobj->otyp == BAG_OF_TRICKS) {
int tmp; int tmp;
You("carefully open the bag..."); You("carefully open the bag...");
pline("It develops a huge set of teeth and bites you!"); pline("It develops a huge set of teeth and bites you!");
tmp = rnd(10); tmp = rnd(10);
@@ -1645,7 +1652,7 @@ lootcont:
int n, i; int n, i;
winid win; winid win;
anything any; anything any;
menu_item *pick_list = NULL; menu_item *pick_list = (menu_item *) 0;
any.a_void = 0; any.a_void = 0;
win = create_nhwindow(NHW_MENU); win = create_nhwindow(NHW_MENU);
@@ -1846,9 +1853,9 @@ boolean *prev_loot;
struct obj *otmp; struct obj *otmp;
char qbuf[QBUFSZ]; char qbuf[QBUFSZ];
/* 3.3.1 introduced the ability to remove saddle from a steed */ /* 3.3.1 introduced the ability to remove saddle from a steed.
/* *passed_info is set to TRUE if a loot query was given. */ * *passed_info is set to TRUE if a loot query was given.
/* *prev_loot is set to TRUE if something was actually acquired in here. * *prev_loot is set to TRUE if something was actually acquired in here.
*/ */
if (mtmp && mtmp != u.usteed && (otmp = which_armor(mtmp, W_SADDLE))) { if (mtmp && mtmp != u.usteed && (otmp = which_armor(mtmp, W_SADDLE))) {
long unwornmask; long unwornmask;
@@ -1884,10 +1891,11 @@ boolean *prev_loot;
return 0; return 0;
} }
} }
/* 3.4.0 introduced the ability to pick things up from within swallower's /* 3.4.0 introduced the ability to pick things up from within
* stomach */ swallower's stomach */
if (u.uswallow) { if (u.uswallow) {
int count = passed_info ? *passed_info : 0; int count = passed_info ? *passed_info : 0;
timepassed = pickup(count); timepassed = pickup(count);
} }
return timepassed; return timepassed;
@@ -1966,16 +1974,16 @@ register struct obj *obj;
return 0; return 0;
} }
setuwep((struct obj *) 0); setuwep((struct obj *) 0);
/* This uwep check is obsolete. It dates to 3.0 and earlier when
* unwielding Firebrand would be fatal in hell if hero had no other
* fire resistance. Life-saving would force it to be re-wielded.
*/
if (uwep) if (uwep)
return 0; /* unwielded, died, rewielded */ return 0; /* unwielded, died, rewielded */
} else if (obj == uswapwep) { } else if (obj == uswapwep) {
setuswapwep((struct obj *) 0); setuswapwep((struct obj *) 0);
if (uswapwep)
return 0; /* unwielded, died, rewielded */
} else if (obj == uquiver) { } else if (obj == uquiver) {
setuqwep((struct obj *) 0); setuqwep((struct obj *) 0);
if (uquiver)
return 0; /* unwielded, died, rewielded */
} }
if (fatal_corpse_mistake(obj, FALSE)) if (fatal_corpse_mistake(obj, FALSE))
@@ -2001,12 +2009,13 @@ register struct obj *obj;
(void) snuff_lit(obj); (void) snuff_lit(obj);
if (floor_container && costly_spot(u.ux, u.uy)) { if (floor_container && costly_spot(u.ux, u.uy)) {
if (current_container->no_charge && !obj->unpaid) { if (obj->oclass == COIN_CLASS) {
; /* defer gold until after put-in message */
} else if (current_container->no_charge && !obj->unpaid) {
/* don't sell when putting the item into your own container */ /* don't sell when putting the item into your own container */
obj->no_charge = 1; obj->no_charge = 1;
} else if (obj->oclass != COIN_CLASS) { } else {
/* sellobj() will take an unpaid item off the shop bill /* sellobj() will take an unpaid item off the shop bill */
* note: coins are handled later */
was_unpaid = obj->unpaid ? TRUE : FALSE; was_unpaid = obj->unpaid ? TRUE : FALSE;
sellobj_state(SELL_DELIBERATE); sellobj_state(SELL_DELIBERATE);
sellobj(obj, u.ux, u.uy); sellobj(obj, u.ux, u.uy);
@@ -2018,6 +2027,7 @@ register struct obj *obj;
/* stop any corpse timeouts when frozen */ /* stop any corpse timeouts when frozen */
if (obj->otyp == CORPSE && obj->timed) { if (obj->otyp == CORPSE && obj->timed) {
long rot_alarm = stop_timer(ROT_CORPSE, obj_to_any(obj)); long rot_alarm = stop_timer(ROT_CORPSE, obj_to_any(obj));
(void) stop_timer(REVIVE_MON, obj_to_any(obj)); (void) stop_timer(REVIVE_MON, obj_to_any(obj));
/* mark a non-reviving corpse as such */ /* mark a non-reviving corpse as such */
if (rot_alarm) if (rot_alarm)
@@ -2058,7 +2068,6 @@ register struct obj *obj;
* update status immediately. * update status immediately.
*/ */
bot(); bot();
return (current_container ? 1 : -1); return (current_container ? 1 : -1);
} }
@@ -2121,10 +2130,10 @@ register struct obj *obj;
otmp = addinv(obj); otmp = addinv(obj);
loadlev = near_capacity(); loadlev = near_capacity();
prinv(loadlev prinv(loadlev ? ((loadlev < MOD_ENCUMBER)
? (loadlev < MOD_ENCUMBER ? "You have a little trouble removing" ? "You have a little trouble removing"
: "You have much trouble removing") : "You have much trouble removing")
: (char *) 0, : (char *) 0,
otmp, count); otmp, count);
if (is_gold) { if (is_gold) {
@@ -2698,7 +2707,7 @@ dotip()
int n, i; int n, i;
winid win; winid win;
anything any; anything any;
menu_item *pick_list = NULL; menu_item *pick_list = (menu_item *) 0;
struct obj dummyobj, *otmp; struct obj dummyobj, *otmp;
any = zeroany; any = zeroany;
@@ -2838,7 +2847,7 @@ struct obj *box; /* or bag */
treated the same as in the carried case. We do so one treated the same as in the carried case. We do so one
item at a time instead of doing whole container at once item at a time instead of doing whole container at once
to reduce the chance of exhausting shk's billing capacity. */ to reduce the chance of exhausting shk's billing capacity. */
maybeshopgoods = !carried(box) && costly_spot(ox, oy); maybeshopgoods = !carried(box) && costly_spot(ox, oy);
/* caveat: this assumes that cknown, lknown, olocked, and otrapped /* caveat: this assumes that cknown, lknown, olocked, and otrapped
fields haven't been overloaded to mean something special for the fields haven't been overloaded to mean something special for the
src/shk.c
+17 -18
View File
@@ -1,4 +1,4 @@
/* NetHack 3.6 shk.c $NHDT-Date: 1446854234 2015/11/06 23:57:14 $ $NHDT-Branch: master $:$NHDT-Revision: 1.116 $ */ /* NetHack 3.6 shk.c $NHDT-Date: 1450604649 2015/12/20 09:44:09 $ $NHDT-Branch: NetHack-3.6.0 $:$NHDT-Revision: 1.117 $ */
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* NetHack may be freely redistributed. See license for details. */ /* NetHack may be freely redistributed. See license for details. */
@@ -383,9 +383,8 @@ register xchar x, y;
rno = levl[x][y].roomno; rno = levl[x][y].roomno;
if ((rno < ROOMOFFSET) || levl[x][y].edge || !IS_SHOP(rno - ROOMOFFSET)) if ((rno < ROOMOFFSET) || levl[x][y].edge || !IS_SHOP(rno - ROOMOFFSET))
return NO_ROOM; rno = NO_ROOM;
else return rno;
return rno;
} }
void void
@@ -773,21 +772,18 @@ register char rmno;
boolean boolean
tended_shop(sroom) tended_shop(sroom)
register struct mkroom *sroom; struct mkroom *sroom;
{ {
register struct monst *mtmp = sroom->resident; struct monst *mtmp = sroom->resident;
if (!mtmp) return !mtmp ? FALSE : (boolean) inhishop(mtmp);
return FALSE;
else
return (boolean) inhishop(mtmp);
} }
STATIC_OVL struct bill_x * STATIC_OVL struct bill_x *
onbill(obj, shkp, silent) onbill(obj, shkp, silent)
register struct obj *obj; struct obj *obj;
register struct monst *shkp; struct monst *shkp;
register boolean silent; boolean silent;
{ {
if (shkp) { if (shkp) {
register struct bill_x *bp = ESHK(shkp)->bill_p; register struct bill_x *bp = ESHK(shkp)->bill_p;
@@ -1131,12 +1127,13 @@ register xchar ox, oy;
hot_pursuit(shkp); hot_pursuit(shkp);
} }
STATIC_VAR const char no_money[] = "Moreover, you%s have no money."; STATIC_VAR const char
STATIC_VAR const char not_enough_money[] = no_money[] = "Moreover, you%s have no money.",
"Besides, you don't have enough to interest %s."; not_enough_money[] = "Besides, you don't have enough to interest %s.";
/* delivers the cheapest item on the list */
STATIC_OVL long STATIC_OVL long
cheapest_item(shkp) /* delivers the cheapest item on the list */ cheapest_item(shkp)
register struct monst *shkp; register struct monst *shkp;
{ {
register int ct = ESHK(shkp)->billct; register int ct = ESHK(shkp)->billct;
@@ -1348,6 +1345,7 @@ proceed:
long dtmp = eshkp->debit; long dtmp = eshkp->debit;
long loan = eshkp->loan; long loan = eshkp->loan;
char sbuf[BUFSZ]; char sbuf[BUFSZ];
umoney = money_cnt(invent); umoney = money_cnt(invent);
Sprintf(sbuf, "You owe %s %ld %s ", shkname(shkp), dtmp, Sprintf(sbuf, "You owe %s %ld %s ", shkname(shkp), dtmp,
currency(dtmp)); currency(dtmp));
@@ -1394,6 +1392,7 @@ proceed:
if (eshkp->billct) { if (eshkp->billct) {
register boolean itemize; register boolean itemize;
int iprompt; int iprompt;
umoney = money_cnt(invent); umoney = money_cnt(invent);
if (!umoney && !eshkp->credit) { if (!umoney && !eshkp->credit) {
You("%shave no money or credit%s.", You("%shave no money or credit%s.",
@@ -2122,7 +2121,7 @@ boolean quietly;
(7 - obj->spe), (obj->spe > 0) ? " more" : "", (7 - obj->spe), (obj->spe > 0) ? " more" : "",
plur(7 - obj->spe)); plur(7 - obj->spe));
/* [what if hero is already carrying enough candles? /* [what if hero is already carrying enough candles?
should Izchak explain how to attach them instead] */ should Izchak explain how to attach them instead?] */
} else { } else {
verbalize("I won't stock that. Take it out of here!"); verbalize("I won't stock that. Take it out of here!");
} }