/usr/src/games/hack/hack.shk.c

Bug Summary

File:	src/games/hack/hack.shk.c
Warning:	line 1035, column 5 Branch condition evaluates to a garbage value
Annotated Source Code

Press '?' to see keyboard shortcuts
Show analyzer invocation
clang -cc1 -cc1 -triple amd64-unknown-openbsd7.0 -analyze -disable-free -disable-llvm-verifier -discard-value-names -main-file-name hack.shk.c -analyzer-store=region -analyzer-opt-analyze-nested-blocks -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 1 -pic-is-pie -mframe-pointer=all -relaxed-aliasing -fno-rounding-math -mconstructor-aliases -munwind-tables -target-cpu x86-64 -target-feature +retpoline-indirect-calls -target-feature +retpoline-indirect-branches -tune-cpu generic -debugger-tuning=gdb -fcoverage-compilation-dir=/usr/src/games/hack/obj -resource-dir /usr/local/lib/clang/13.0.0 -I . -internal-isystem /usr/local/lib/clang/13.0.0/include -internal-externc-isystem /usr/include -O2 -fdebug-compilation-dir=/usr/src/games/hack/obj -ferror-limit 19 -fwrapv -D_RET_PROTECTOR -ret-protector -fgnuc-version=4.2.1 -vectorize-loops -vectorize-slp -fno-builtin-malloc -fno-builtin-calloc -fno-builtin-realloc -fno-builtin-valloc -fno-builtin-free -fno-builtin-strdup -fno-builtin-strndup -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /home/ben/Projects/vmm/scan-build/2022-01-12-194120-40624-1 -x c /usr/src/games/hack/hack.shk.c
1/*	$OpenBSD: hack.shk.c,v 1.13 2016/01/09 18:33:15 mestre Exp $	*/

3/*
* Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
* Amsterdam
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions are
* met:
*
* - Redistributions of source code must retain the above copyright notice,
* this list of conditions and the following disclaimer.
*
* - Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* - Neither the name of the Stichting Centrum voor Wiskunde en
* Informatica, nor the names of its contributors may be used to endorse or
* promote products derived from this software without specific prior
* written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
* IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
* PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
* OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
* PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
* LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/

37/*
* Copyright (c) 1982 Jay Fenlason <hack@gnu.org>
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
*    notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
*    notice, this list of conditions and the following disclaimer in the
*    documentation and/or other materials provided with the distribution.
* 3. The name of the author may not be used to endorse or promote products
*    derived from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
* INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
* AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
* THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/

64#include <stdio.h>
65#include <stdlib.h>

67#include "hack.h"

69#ifdef QUEST
70int shlevel = 0;
71struct monst *shopkeeper = 0;
72struct obj *billobjs = 0;

74void
75obfree(struct obj *obj, struct obj *merge)
76{
free(obj);
78}

80int
81inshop(void)
82{
return(0);
84}

86void
87shopdig(int a)
88{}

90void
91addtobill(struct obj *ign)
92{}

94void
95subfrombill(struct obj *ign)
96{}

98void
99splitbill(struct obj *ign, struct obj *ign2)
100{}

102int
103dopay(void)
104{
return(0);
106}

108void
109paybill(void)
110{}

112int
113doinvbill(int a)
114{
return(0);
116}

118void
119shkdead(struct monst *ign)
120{}

122int
123shkcatch(struct obj *ign)
124{
return(0);
126}

128int
129shk_move(struct monst *ign)
130{
return(0);
132}

134void
135replshk(struct monst *mtmp, struct monst *mtmp2)
136{}

138char *
139shkname(struct monst *ign)
140{
return("");
142}

144#else /* QUEST */
145#include "hack.mfndpos.h"
146#include "def.eshk.h"

148#define	ESHK(mon)((struct eshk *)(&(mon->mextra[0])))	((struct eshk *)(&(mon->mextra[0])))
149#define	NOTANGRY(mon)mon->mpeaceful	mon->mpeaceful
150#define	ANGRY(mon)!mon->mpeaceful	!NOTANGRY(mon)mon->mpeaceful

152extern char plname[];

154/* Descriptor of current shopkeeper. Note that the bill need not be
* per-shopkeeper, since it is valid only when in a shop.
*/
157static struct monst *shopkeeper = 0;
158static struct bill_x *bill;
159static int shlevel = 0;	/* level of this shopkeeper */
160struct obj *billobjs;	/* objects on bill with bp->useup */
		/* only accessed here and by save & restore */
162static long int total;		/* filled by addupbill() */
163static long int followmsg;	/* last time of follow message */

165/*
*	invariants: obj->unpaid iff onbill(obj) [unless bp->useup]
*		obj->quan <= bp->bquan
*/


171char shtypes[] = {	/* 8 shoptypes: 7 specialized, 1 mixed */
RING_SYM'=', WAND_SYM'/', WEAPON_SYM')', FOOD_SYM'%', SCROLL_SYM'?',
POTION_SYM'!', ARMOR_SYM'[', 0
174};

176static char *shopnam[] = {
"engagement ring", "walking cane", "antique weapon",
"delicatessen", "second hand book", "liquor",
"used armor", "assorted antiques"
180};

182static void setpaid(void);
183static void addupbill(void);
184static void findshk(int);
185static struct bill_x *onbill(struct obj *);
186static void pay(long, struct monst *);
187static int  dopayobj(struct bill_x *);
188static struct obj *bp_to_obj(struct bill_x *);
189static int getprice(struct obj *);
190static int realhunger(void);

192/* called in do_name.c */
193char *
194shkname(struct monst *mtmp)
195{
return(ESHK(mtmp)((struct eshk *)(&(mtmp->mextra[0])))->shknam);
197}

199void
200shkdead(struct monst *mtmp)				/* called in mon.c */
201{
struct eshk *eshk = ESHK(mtmp)((struct eshk *)(&(mtmp->mextra[0])));

if(eshk->shoplevel == dlevel)
rooms[eshk->shoproom].rtype = 0;
if(mtmp == shopkeeper) {
setpaid();
shopkeeper = 0;
bill = (struct bill_x *) -1000;	/* dump core when referenced */
}
211}

213void
214replshk(struct monst *mtmp, struct monst *mtmp2)
215{
if(mtmp == shopkeeper) {
shopkeeper = mtmp2;
bill = &(ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->bill[0]);
}
220}

222/* caller has checked that shopkeeper exists */
223/* either we paid or left the shop or he just died */
224static void
225setpaid(void)
226{
struct obj *obj;
struct monst *mtmp;

for(obj = invent; obj; obj = obj->nobj)
obj->unpaid = 0;
for(obj = fobj; obj; obj = obj->nobj)
obj->unpaid = 0;
for(obj = fcobj; obj; obj = obj->nobj)
obj->unpaid = 0;
for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
for(obj = mtmp->minvent; obj; obj = obj->nobj)
	obj->unpaid = 0;
for(mtmp = fallen_down; mtmp; mtmp = mtmp->nmon)
for(obj = mtmp->minvent; obj; obj = obj->nobj)
	obj->unpaid = 0;
while ((obj = billobjs)) {
billobjs = obj->nobj;
free(obj);
}
ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct = 0;
247}

249/* delivers result in total */
250/* caller has checked that shopkeeper exists */
251static void
252addupbill(void)
253{
int ct = ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct;
struct bill_x *bp = bill;

total = 0;
while(ct--){
total += bp->price * bp->bquan;
bp++;
}
262}

264int
265inshop(void)
266{
int roomno = inroom(u.ux,u.uy);

/* Did we just leave a shop? */
if(u.uinshop &&
   (u.uinshop != roomno + 1 || shlevel != dlevel || !shopkeeper)) {
if(shopkeeper) {
    if(ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct) {
		if(inroom(shopkeeper->mx, shopkeeper->my) 
		    == u.uinshop - 1)	/* ab@unido */
		    pline("Somehow you escaped the shop without paying!");
	addupbill();
	pline("You stole for a total worth of %ld zorkmids.",
		total);
	ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->robbed += total;
	setpaid();
	if((rooms[ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shoproom].rtype == GENERAL15)
	    == (rn2(3) == 0))
	    ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->following = 1;
    }
    shopkeeper = 0;
    shlevel = 0;
}
	u.uinshop = 0;
}

/* Did we just enter a zoo of some kind? */
if(roomno >= 0) {
int rt = rooms[roomno].rtype;
struct monst *mtmp;
if(rt == ZOO7) {
	pline("Welcome to David's treasure zoo!");
} else
if(rt == SWAMP3) {
	pline("It looks rather muddy down here.");
} else
if(rt == MORGUE6) {
	if(midnight())
		pline("Go away! Go away!");
	else
		pline("You get an uncanny feeling ...");
} else
	rt = 0;
if(rt != 0) {
	rooms[roomno].rtype = 0;
	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
		if(rt != ZOO7 || !rn2(3))
			mtmp->msleep = 0;
}
}

/* Did we just enter a shop? */
if(roomno >= 0 && rooms[roomno].rtype >= 8) {
   if(shlevel != dlevel || !shopkeeper
		 || ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shoproom != roomno)
findshk(roomno);
   if(!shopkeeper) {
rooms[roomno].rtype = 0;
u.uinshop = 0;
   } else if(!u.uinshop){
if(!ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->visitct ||
    strncmp(ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->customer, plname, PL_NSIZ32)){

    /* He seems to be new here */
    ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->visitct = 0;
    ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->following = 0;
    (void) strlcpy(ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->customer,plname,PL_NSIZ32);
    NOTANGRY(shopkeeper)shopkeeper->mpeaceful = 1;
}
if(!ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->following) {
    boolean box, pick;

    pline("Hello %s! Welcome%s to %s's %s shop!",
	plname,
	ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->visitct++ ? " again" : "",
	shkname(shopkeeper),
	shopnam[rooms[ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shoproom].rtype - 8] );
    box = carrying(ICE_BOX92);
    pick = carrying(PICK_AXE93);
    if(box || pick) {
	if(dochug(shopkeeper)) {
		u.uinshop = 0;	/* he died moving */
		return(0);
	}
	pline("Will you please leave your %s outside?",
	    (box && pick) ? "box and pick-axe" :
	    box ? "box" : "pick-axe");
    }
}
u.uinshop = roomno + 1;
   }
}
return(u.uinshop);
359}

361static void
362findshk(int roomno)
363{
struct monst *mtmp;

for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
   if(mtmp->isshk && ESHK(mtmp)((struct eshk *)(&(mtmp->mextra[0])))->shoproom == roomno
	   && ESHK(mtmp)((struct eshk *)(&(mtmp->mextra[0])))->shoplevel == dlevel) {
shopkeeper = mtmp;
bill = &(ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->bill[0]);
shlevel = dlevel;
if(ANGRY(shopkeeper)!shopkeeper->mpeaceful &&
   strncmp(ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->customer,plname,PL_NSIZ32))
	NOTANGRY(shopkeeper)shopkeeper->mpeaceful = 1;
/* billobjs = 0; -- this is wrong if we save in a shop */
/* (and it is harmless to have too many things in billobjs) */
return;
}
shopkeeper = 0;
shlevel = 0;
bill = (struct bill_x *) -1000;	/* dump core when referenced */
382}

384static struct bill_x *
385onbill(struct obj *obj)
386{
struct bill_x *bp;

if(!shopkeeper) return(NULL((void *)0));
for(bp = bill; bp < &bill[ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct]; bp++)
if(bp->bo_id == obj->o_id) {
	if(!obj->unpaid) pline("onbill: paid obj on bill?");
	return(bp);
}
if(obj->unpaid) pline("onbill: unpaid obj not on bill?");
return(NULL((void *)0));
397}

399/* called with two args on merge */
400void
401obfree(struct obj *obj, struct obj *merge)
402{
struct bill_x *bp = onbill(obj);
struct bill_x *bpm;

if(bp) {
if(!merge){
	bp->useup = 1;
	obj->unpaid = 0;	/* only for doinvbill */
	obj->nobj = billobjs;
	billobjs = obj;
	return;
}
bpm = onbill(merge);
if(!bpm){
	/* this used to be a rename */
	impossible("obfree: not on bill??");
	return;
} else {
	/* this was a merger */
	bpm->bquan += bp->bquan;
	ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct--;
	*bp = bill[ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct];
}
}
free(obj);
427}

429static void
430pay(long tmp, struct monst *shkp)
431{
long robbed = ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->robbed;

u.ugold -= tmp;
shkp->mgold += tmp;
flags.botl = 1;
if(robbed) {
robbed -= tmp;
if(robbed < 0) robbed = 0;
ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->robbed = robbed;
}
442}

444int
445dopay(void)
446{
long ltmp;
struct bill_x *bp;
struct monst *shkp;
int pass, tmp;

multi = 0;
(void) inshop();
for(shkp = fmon; shkp; shkp = shkp->nmon)
if(shkp->isshk && dist(shkp->mx,shkp->my) < 3)
	break;
if(!shkp && u.uinshop &&
  inroom(shopkeeper->mx,shopkeeper->my) == ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shoproom)
shkp = shopkeeper;

if(!shkp) {
pline("There is nobody here to receive your payment.");
return(0);
}
ltmp = ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->robbed;
if(shkp != shopkeeper && NOTANGRY(shkp)shkp->mpeaceful) {
if(!ltmp) {
	pline("You do not owe %s anything.", monnam(shkp));
} else
if(!u.ugold) {
	pline("You have no money.");
} else {
    long ugold = u.ugold;

    if(u.ugold > ltmp) {
	pline("You give %s the %ld gold pieces he asked for.",
		monnam(shkp), ltmp);
	pay(ltmp, shkp);
    } else {
	pline("You give %s all your gold.", monnam(shkp));
	pay(u.ugold, shkp);
    }
    if(ugold < ltmp/2) {
	pline("Unfortunately, he doesn't look satisfied.");
    } else {
	ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->robbed = 0;
	ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->following = 0;
	if(ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->shoplevel != dlevel) {
	/* For convenience's sake, let him disappear */
	    shkp->minvent = 0;		/* %% */
	    shkp->mgold = 0;
	    mondead(shkp);
	}
    }
}
return(1);
}

if(!ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->billct){
pline("You do not owe %s anything.", monnam(shkp));
if(!u.ugold){
	pline("Moreover, you have no money.");
	return(1);
}
if(ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->robbed){
506#define min(a,b)((a<b)?a:b)	((a<b)?a:b)
    pline("But since his shop has been robbed recently,");
    pline("you %srepay %s's expenses.",
      (u.ugold < ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->robbed) ? "partially " : "",
      monnam(shkp));
    pay(min(u.ugold, ESHK(shkp)->robbed)((u.ugold<((struct eshk *)(&(shkp->mextra[0])))->
robbed)?u.ugold:((struct eshk *)(&(shkp->mextra[0])))->
robbed), shkp);
    ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->robbed = 0;
    return(1);
}
if(ANGRY(shkp)!shkp->mpeaceful){
	pline("But in order to appease %s,",
		amonnam(shkp, "angry"));
	if(u.ugold >= 1000){
		ltmp = 1000;
		pline(" you give him 1000 gold pieces.");
	} else {
		ltmp = u.ugold;
		pline(" you give him all your money.");
	}
	pay(ltmp, shkp);
	if(strncmp(ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->customer, plname, PL_NSIZ32)
	   || rn2(3)){
		pline("%s calms down.", Monnam(shkp));
		NOTANGRY(shkp)shkp->mpeaceful = 1;
	} else	pline("%s is as angry as ever.",
			Monnam(shkp));
}
return(1);
}
if(shkp != shopkeeper) {
impossible("dopay: not to shopkeeper?");
if(shopkeeper) setpaid();
return(0);
}
for(pass = 0; pass <= 1; pass++) {
tmp = 0;
while(tmp < ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct) {
	bp = &bill[tmp];
	if(!pass && !bp->useup) {
		tmp++;
		continue;
	}
	if(!dopayobj(bp)) return(1);
	bill[tmp] = bill[--ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct];
}
}
pline("Thank you for shopping in %s's %s store!",
shkname(shopkeeper),
shopnam[rooms[ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shoproom].rtype - 8]);
NOTANGRY(shopkeeper)shopkeeper->mpeaceful = 1;
return(1);
557}

559/* return 1 if paid successfully */
560/*	  0 if not enough money */
561/*	 -1 if object could not be found (but was paid) */
562static int
563dopayobj(struct bill_x *bp)
564{
struct obj *obj;
long ltmp;

/* find the object on one of the lists */
obj = bp_to_obj(bp);

if(!obj) {
impossible("Shopkeeper administration out of order.");
setpaid();	/* be nice to the player */
return(0);
}

if(!obj->unpaid && !bp->useup){
impossible("Paid object on bill??");
return(1);
}
obj->unpaid = 0;
ltmp = bp->price * bp->bquan;
if(ANGRY(shopkeeper)!shopkeeper->mpeaceful) ltmp += ltmp/3;
if(u.ugold < ltmp){
pline("You don't have gold enough to pay %s.",
	doname(obj));
obj->unpaid = 1;
return(0);
}
pay(ltmp, shopkeeper);
pline("You bought %s for %ld gold piece%s.",
doname(obj), ltmp, plur(ltmp)(((ltmp) == 1) ? "" : "s"));
if(bp->useup) {
struct obj *otmp = billobjs;
if(obj == billobjs)
	billobjs = obj->nobj;
else {
	while(otmp && otmp->nobj != obj) otmp = otmp->nobj;
	if(otmp) otmp->nobj = obj->nobj;
	else pline("Error in shopkeeper administration.");
}
free(obj);
}
return(1);
605}

607/* routine called after dying (or quitting) with nonempty bill */
608void
609paybill(void)
610{
if(shlevel == dlevel && shopkeeper && ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct){
addupbill();
if(total > u.ugold){
	shopkeeper->mgold += u.ugold;
	u.ugold = 0;
pline("%s comes and takes all your possessions.",
	Monnam(shopkeeper));
} else {
	u.ugold -= total;
	shopkeeper->mgold += total;
pline("%s comes and takes the %ld zorkmids you owed him.",
Monnam(shopkeeper), total);
}
setpaid();	/* in case we create bones */
}
626}

628/* find obj on one of the lists */
629static struct obj *
630bp_to_obj(struct bill_x *bp)
631{
struct obj *obj;
struct monst *mtmp;
unsigned id = bp->bo_id;

if(bp->useup)
obj = o_on(id, billobjs);
else if(!(obj = o_on(id, invent)) &&
!(obj = o_on(id, fobj)) &&
!(obj = o_on(id, fcobj))) {
    for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
	if ((obj = o_on(id, mtmp->minvent)))
	    break;
    for(mtmp = fallen_down; mtmp; mtmp = mtmp->nmon)
	if ((obj = o_on(id, mtmp->minvent)))
	    break;
}
return(obj);
649}

651/* called in hack.c when we pickup an object */
652void
653addtobill(struct obj *obj)
654{
struct bill_x *bp;

if(!inshop() ||
(u.ux == ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shk.x && u.uy == ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shk.y) ||
(u.ux == ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shd.x && u.uy == ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shd.y) ||
onbill(obj) /* perhaps we threw it away earlier */
 ) return;
if(ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct == BILLSZ200){
pline("You got that for free!");
return;
}
bp = &bill[ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct];
bp->bo_id = obj->o_id;
bp->bquan = obj->quan;
bp->useup = 0;
bp->price = getprice(obj);
ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct++;
obj->unpaid = 1;
673}

675void
676splitbill(struct obj *obj, struct obj *otmp)
677{
/* otmp has been split off from obj */
679struct bill_x *bp;
680int tmp;
bp = onbill(obj);
if(!bp) {
impossible("splitbill: not on bill?");
return;
}
if(bp->bquan < otmp->quan) {
impossible("Negative quantity on bill??");
}
if(bp->bquan == otmp->quan) {
impossible("Zero quantity on bill??");
}
bp->bquan -= otmp->quan;

/* addtobill(otmp); */
if(ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct == BILLSZ200) otmp->unpaid = 0;
else {
tmp = bp->price;
bp = &bill[ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct];
bp->bo_id = otmp->o_id;
bp->bquan = otmp->quan;
bp->useup = 0;
bp->price = tmp;
ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct++;
}
705}

707void
708subfrombill(struct obj *obj)
709{
long ltmp;
int tmp;
struct obj *otmp;
struct bill_x *bp;

if(!inshop() || (u.ux == ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shk.x && u.uy == ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shk.y) ||
(u.ux == ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shd.x && u.uy == ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shd.y))
return;
if((bp = onbill(obj)) != 0){
obj->unpaid = 0;
if(bp->bquan > obj->quan){
	otmp = newobj(0)(struct obj *) alloc((unsigned)(0) + sizeof(struct obj));
	*otmp = *obj;
	bp->bo_id = otmp->o_id = flags.ident++;
	otmp->quan = (bp->bquan -= obj->quan);
	otmp->owt = 0;	/* superfluous */
	otmp->onamelth = 0;
	bp->useup = 1;
	otmp->nobj = billobjs;
	billobjs = otmp;
	return;
}
ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct--;
*bp = bill[ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct];
return;
}
if(obj->unpaid){
pline("%s didn't notice.", Monnam(shopkeeper));
obj->unpaid = 0;
return;		/* %% */
}
/* he dropped something of his own - probably wants to sell it */
if(shopkeeper->msleep || shopkeeper->mfroz ||
inroom(shopkeeper->mx,shopkeeper->my) != ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shoproom)
return;
if(ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct == BILLSZ200 ||
 ((tmp = shtypes[rooms[ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->shoproom].rtype-8]) && tmp != obj->olet)
 || strchr("_0", obj->olet)) {
pline("%s seems not interested.", Monnam(shopkeeper));
return;
}
ltmp = getprice(obj) * obj->quan;
if(ANGRY(shopkeeper)!shopkeeper->mpeaceful) {
ltmp /= 3;
NOTANGRY(shopkeeper)shopkeeper->mpeaceful = 1;
} else	ltmp /= 2;
if(ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->robbed){
if((ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->robbed -= ltmp) < 0)
	ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->robbed = 0;
759pline("Thank you for your contribution to restock this recently plundered shop.");
return;
}
if(ltmp > shopkeeper->mgold)
ltmp = shopkeeper->mgold;
pay(-ltmp, shopkeeper);
if(!ltmp)
pline("%s gladly accepts %s but cannot pay you at present.",
Monnam(shopkeeper), doname(obj));
else
pline("You sold %s and got %ld gold piece%s.", doname(obj), ltmp,
plur(ltmp)(((ltmp) == 1) ? "" : "s"));
771}

773/* int mode;		0: deliver count 1: paged */
774int
775doinvbill(int mode)
776{
struct bill_x *bp;
struct obj *obj;
long totused, thisused;
char buf[BUFSZ256];

if(mode == 0) {
   int cnt = 0;

   if(shopkeeper)
for(bp = bill; bp - bill < ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct; bp++)
    if(bp->useup ||
      ((obj = bp_to_obj(bp)) && obj->quan < bp->bquan))
	cnt++;
   return(cnt);
}

if(!shopkeeper) {
impossible("doinvbill: no shopkeeper?");
return(0);
}

set_pager(0);
if(page_line("Unpaid articles already used up:") || page_line(""))
   goto quit;

totused = 0;
for(bp = bill; bp - bill < ESHK(shopkeeper)((struct eshk *)(&(shopkeeper->mextra[0])))->billct; bp++) {
   obj = bp_to_obj(bp);
   if(!obj) {
impossible("Bad shopkeeper administration.");
goto quit;
   }
   if(bp->useup || bp->bquan > obj->quan) {
int cnt, oquan, uquan;

oquan = obj->quan;
uquan = (bp->useup ? bp->bquan : bp->bquan - oquan);
thisused = bp->price * uquan;
totused += thisused;
obj->quan = uquan;		/* cheat doname */
(void) snprintf(buf, sizeof buf, "x -  %s", doname(obj));
obj->quan = oquan;		/* restore value */
for(cnt = 0; buf[cnt]; cnt++);
while(cnt < 50)
	buf[cnt++] = ' ';
(void) snprintf(&buf[cnt], sizeof buf - cnt,
    " %5ld zorkmids", thisused);
if(page_line(buf))
	goto quit;
   }
}
(void) snprintf(buf, sizeof buf, "Total:%50ld zorkmids", totused);
if(page_line("") || page_line(buf))
goto quit;
set_pager(1);
return(0);
833quit:
set_pager(2);
return(0);
836}

838static int
839getprice(struct obj *obj)
840{
int tmp, ac;

switch(obj->olet){
case AMULET_SYM'"':
tmp = 10*rnd(500);
break;
case TOOL_SYM'(':
tmp = 10*rnd((obj->otyp == EXPENSIVE_CAMERA91) ? 150 : 30);
break;
case RING_SYM'=':
tmp = 10*rnd(100);
break;
case WAND_SYM'/':
tmp = 10*rnd(100);
break;
case SCROLL_SYM'?':
tmp = 10*rnd(50);
858#ifdef MAIL
if(obj->otyp == SCR_MAIL130)
	tmp = rnd(5);
861#endif /* MAIL */
break;
case POTION_SYM'!':
tmp = 10*rnd(50);
break;
case FOOD_SYM'%':
tmp = 10*rnd(5 + (2000/realhunger()));
break;
case GEM_SYM'*':
tmp = 10*rnd(20);
break;
case ARMOR_SYM'[':
ac = ARM_BONUS(obj)((10 - objects[obj->otyp].oc_oc1) + obj->spe);
if(ac <= -10)		/* probably impossible */
	ac = -9;
tmp = 100 + ac*ac*rnd(10+ac);
break;
case WEAPON_SYM')':
if(obj->otyp < BOOMERANG76)
	tmp = 5*rnd(10);
else if(obj->otyp == LONG_SWORD80 ||
	obj->otyp == TWO_HANDED_SWORD81)
	tmp = 10*rnd(150);
else	tmp = 10*rnd(75);
break;
case CHAIN_SYM'_':
pline("Strange ..., carrying a chain?");
case BALL_SYM'0':
tmp = 10;
break;
default:
tmp = 10000;
}
return(tmp);
895}

897/* not completely foolproof */
898static int
899realhunger(void)
900{
int tmp = u.uhunger;
struct obj *otmp = invent;

while(otmp){
if(otmp->olet == FOOD_SYM'%' && !otmp->unpaid)
	tmp += objects[otmp->otyp].nutritionoc_oi;
otmp = otmp->nobj;
}
return((tmp <= 0) ? 1 : tmp);
910}

912int
913shkcatch(struct obj *obj)
914{
struct monst *shkp = shopkeeper;

if(u.uinshop && shkp && !shkp->mfroz && !shkp->msleep &&
   u.dx && u.dy &&
   inroom(u.ux+u.dx, u.uy+u.dy) + 1 == u.uinshop &&
   shkp->mx == ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->shk.x && shkp->my == ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->shk.y &&
   u.ux == ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->shd.x && u.uy == ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->shd.y) {
pline("%s nimbly catches the %s.", Monnam(shkp), xname(obj));
obj->nobj = shkp->minvent;
shkp->minvent = obj;
return(1);
}
return(0);
928}

930/*
* shk_move: return 1: he moved  0: he didnt  -1: let m_move do it
*/
933int
934shk_move(struct monst *shkp)
935{
struct monst *mtmp;
struct permonst *mdat = shkp->data;
xchar gx,gy,omx,omy,nx,ny,nix,niy;
schar appr,i;
int udist;
int z;
schar shkroom,chi,chcnt,cnt;
boolean uondoor, satdoor, avoid, badinv;
1
'avoid' declared without an initial value→
coord poss[9];
int info[9];
struct obj *ib = 0;

omx = shkp->mx;
omy = shkp->my;

if((udist = dist(omx,omy)) < 3) {
2
←
Assuming the condition is false→
3
←
Taking false branch→
if(ANGRY(shkp)!shkp->mpeaceful) {
	(void) hitu(shkp, d(mdat->damn, mdat->damd)+1);
	return(0);
}
if(ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->following) {
	if(strncmp(ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->customer, plname, PL_NSIZ32)){
		pline("Hello %s! I was looking for %s.",
			plname, ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->customer);
		ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->following = 0;
		return(0);
	}
	if(!ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->robbed) {	/* impossible? */
		ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->following = 0;
		return(0);
	}
	if(moves > followmsg+4) {
		pline("Hello %s! Didn't you forget to pay?",
			plname);
		followmsg = moves;
	}
	if(udist < 2)
		return(0);
}
}

shkroom = inroom(omx,omy);
appr = 1;
gx = ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->shk.x;
gy = ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->shk.y;
satdoor = (gx == omx && gy == omy);
4
←
Assuming 'gx' is not equal to 'omx'→
if(ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->following || ((z = holetime()) >= 0 && z*z <= udist)){
5
←
Assuming field 'following' is not equal to 0→
gx = u.ux;
gy = u.uy;
if(shkroom < 0 || shkroom != inroom(u.ux,u.uy))
6
←
Assuming 'shkroom' is < 0→
    if(udist > 4)
7
←
Assuming 'udist' is <= 4→
8
←
Taking false branch→
	return(-1);	/* leave it to m_move */
} else if(ANGRY(shkp)!shkp->mpeaceful) {
long saveBlind = Blindu.uprops[(19 +7)].p_flgs;
Blindu.uprops[(19 +7)].p_flgs = 0;
if(shkp->mcansee && !Invisu.uprops[(19 +3)].p_flgs && cansee(omx,omy)) {
	gx = u.ux;
	gy = u.uy;
}
Blindu.uprops[(19 +7)].p_flgs = saveBlind;
avoid = FALSE0;
} else {
998#define	GDIST(x,y)((x-gx)*(x-gx)+(y-gy)*(y-gy))	((x-gx)*(x-gx)+(y-gy)*(y-gy))
if(Invisu.uprops[(19 +3)].p_flgs)
  avoid = FALSE0;
else {
  uondoor = (u.ux == ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->shd.x &&
		u.uy == ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->shd.y);
  if(uondoor) {
    if(ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->billct)
	pline("Hello %s! Will you please pay before leaving?",
		plname);
    badinv = (carrying(PICK_AXE93) || carrying(ICE_BOX92));
    if(satdoor && badinv)
	return(0);
    avoid = !badinv;
  } else {
    avoid = (u.uinshop && dist(gx,gy) > 8);
    badinv = FALSE0;
  }

  if(((!ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->robbed && !ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->billct) || avoid)
  	&& GDIST(omx,omy)((omx-gx)*(omx-gx)+(omy-gy)*(omy-gy)) < 3){
  	if(!badinv && !online(omx,omy))
		return(0);
  	if(satdoor)
  		appr = gx = gy = 0;
  }
}
}
if(omx == gx && omy == gy)
9
←
Assuming 'omx' is not equal to 'gx'→
return(0);
if(shkp->mconf) {
10
←
Assuming field 'mconf' is 0→
11
←
Taking false branch→
avoid = FALSE0;
appr = 0;
}
nix = omx;
niy = omy;
cnt = mfndpos(shkp,poss,info,ALLOW_SSM010000);
if(avoid && uondoor) {		/* perhaps we cannot avoid him */
12
←
Branch condition evaluates to a garbage value
for(i=0; i<cnt; i++)
	if(!(info[(int)i] & NOTONL040000)) goto notonl_ok;
avoid = FALSE0;
notonl_ok:
;
}
chi = -1;
chcnt = 0;
for(i=0; i<cnt; i++){
nx = poss[(int)i].x;
ny = poss[(int)i].y;
  	if(levl[(int)nx][(int)ny].typ == ROOM9
|| shkroom != ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->shoproom
|| ESHK(shkp)((struct eshk *)(&(shkp->mextra[0])))->following) {
1050#ifdef STUPID
    /* cater for stupid compilers */
    int zz;
1053#endif /* STUPID */
    if(uondoor && (ib = sobj_at(ICE_BOX92, nx, ny))) {
	nix = nx; niy = ny; chi = i; break;
    }
    if(avoid && (info[(int)i] & NOTONL040000))
	continue;
    if((!appr && !rn2(++chcnt)) ||
1060#ifdef STUPID
	(appr && (zz = GDIST(nix,niy)((nix-gx)*(nix-gx)+(niy-gy)*(niy-gy))) && zz > GDIST(nx,ny)((nx-gx)*(nx-gx)+(ny-gy)*(ny-gy)))
1062#else
	(appr && GDIST(nx,ny)((nx-gx)*(nx-gx)+(ny-gy)*(ny-gy)) < GDIST(nix,niy)((nix-gx)*(nix-gx)+(niy-gy)*(niy-gy)))
1064#endif /* STUPID */
	) {
	    nix = nx;
	    niy = ny;
	    chi = i;
    }
}
}
if(nix != omx || niy != omy){
if(info[(int)chi] & ALLOW_M02000){
	mtmp = m_at(nix,niy);
	if(hitmm(shkp,mtmp) == 1 && rn2(3) &&
	   hitmm(mtmp,shkp) == 2) return(2);
	return(0);
} else if(info[(int)chi] & ALLOW_U01000){
	(void) hitu(shkp, d(mdat->damn, mdat->damd)+1);
	return(0);
}
shkp->mx = nix;
shkp->my = niy;
pmon(shkp);
if(ib) {
	freeobj(ib);
	mpickobj(shkp, ib);
}
return(1);
}
return(0);
1092}

1094/* He is digging in the shop. */
1095void
1096shopdig(int fall)
1097{
  if(!fall) {
if(u.utraptype == TT_PIT1)
   pline("\"Be careful, sir, or you might fall through the floor.\"");
else
   pline("\"Please, do not damage the floor here.\"");
  } else if(dist(shopkeeper->mx, shopkeeper->my) < 3) {
struct obj *obj, *obj2;

pline("%s grabs your backpack!", shkname(shopkeeper));
for(obj = invent; obj; obj = obj2) {
obj2 = obj->nobj;
if(obj->owornmask) continue;
freeinv(obj);
obj->nobj = shopkeeper->minvent;
shopkeeper->minvent = obj;
if(obj->unpaid)
	subfrombill(obj);
}
  }
1117}
1118#endif /* QUEST */

1120int
1121online(int x, int y)
1122{
return(x==u.ux || y==u.uy ||
(x-u.ux)*(x-u.ux) == (y-u.uy)*(y-u.uy));
1125}

1127/* Does this monster follow me downstairs? */
1128int
1129follower(struct monst *mtmp)
1130{
return( mtmp->mtame || strchr("1TVWZi&, ", mtmp->data->mlet)
1132#ifndef QUEST
|| (mtmp->isshk && ESHK(mtmp)((struct eshk *)(&(mtmp->mextra[0])))->following)
1134#endif /* QUEST */
);
1136}