/* * Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ #ifndef lint static char rcsid[] = "$NetBSD: hack.shk.c,v 1.3 1995/03/23 08:31:31 cgd Exp $"; #endif /* not lint */ #include "hack.h" #ifdef QUEST int shlevel = 0; struct monst *shopkeeper = 0; struct obj *billobjs = 0; obfree(obj,merge) register struct obj *obj, *merge; { free((char *) obj); } inshop(){ return(0); } shopdig(){} addtobill(){} subfrombill(){} splitbill(){} dopay(){ return(0); } paybill(){} doinvbill(){ return(0); } shkdead(){} shkcatch(){ return(0); } shk_move(){ return(0); } replshk(mtmp,mtmp2) struct monst *mtmp, *mtmp2; {} char *shkname(){ return(""); } #else QUEST #include "hack.mfndpos.h" #include "def.mkroom.h" #include "def.eshk.h" #define ESHK(mon) ((struct eshk *)(&(mon->mextra[0]))) #define NOTANGRY(mon) mon->mpeaceful #define ANGRY(mon) !NOTANGRY(mon) extern char plname[], *xname(); extern struct obj *o_on(), *bp_to_obj(); /* Descriptor of current shopkeeper. Note that the bill need not be per-shopkeeper, since it is valid only when in a shop. */ static struct monst *shopkeeper = 0; static struct bill_x *bill; static int shlevel = 0; /* level of this shopkeeper */ struct obj *billobjs; /* objects on bill with bp->useup */ /* only accessed here and by save & restore */ static long int total; /* filled by addupbill() */ static long int followmsg; /* last time of follow message */ /* invariants: obj->unpaid iff onbill(obj) [unless bp->useup] obj->quan <= bp->bquan */ char shtypes[] = { /* 8 shoptypes: 7 specialized, 1 mixed */ RING_SYM, WAND_SYM, WEAPON_SYM, FOOD_SYM, SCROLL_SYM, POTION_SYM, ARMOR_SYM, 0 }; static char *shopnam[] = { "engagement ring", "walking cane", "antique weapon", "delicatessen", "second hand book", "liquor", "used armor", "assorted antiques" }; char * shkname(mtmp) /* called in do_name.c */ register struct monst *mtmp; { return(ESHK(mtmp)->shknam); } static void setpaid(); shkdead(mtmp) /* called in mon.c */ register struct monst *mtmp; { register struct eshk *eshk = ESHK(mtmp); if(eshk->shoplevel == dlevel) rooms[eshk->shoproom].rtype = 0; if(mtmp == shopkeeper) { setpaid(); shopkeeper = 0; bill = (struct bill_x *) -1000; /* dump core when referenced */ } } replshk(mtmp,mtmp2) register struct monst *mtmp, *mtmp2; { if(mtmp == shopkeeper) { shopkeeper = mtmp2; bill = &(ESHK(shopkeeper)->bill[0]); } } static void setpaid(){ /* caller has checked that shopkeeper exists */ /* either we paid or left the shop or he just died */ register struct obj *obj; register 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((char *) obj); } ESHK(shopkeeper)->billct = 0; } static addupbill(){ /* delivers result in total */ /* caller has checked that shopkeeper exists */ register ct = ESHK(shopkeeper)->billct; register struct bill_x *bp = bill; total = 0; while(ct--){ total += bp->price * bp->bquan; bp++; } } inshop(){ register roomno = inroom(u.ux,u.uy); static void findshk(); /* Did we just leave a shop? */ if(u.uinshop && (u.uinshop != roomno + 1 || shlevel != dlevel || !shopkeeper)) { if(shopkeeper) { if(ESHK(shopkeeper)->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)->robbed += total; setpaid(); if((rooms[ESHK(shopkeeper)->shoproom].rtype == GENERAL) == (rn2(3) == 0)) ESHK(shopkeeper)->following = 1; } shopkeeper = 0; shlevel = 0; } u.uinshop = 0; } /* Did we just enter a zoo of some kind? */ if(roomno >= 0) { register int rt = rooms[roomno].rtype; register struct monst *mtmp; if(rt == ZOO) { pline("Welcome to David's treasure zoo!"); } else if(rt == SWAMP) { pline("It looks rather muddy down here."); } else if(rt == MORGUE) { 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 != ZOO || !rn2(3)) mtmp->msleep = 0; } } /* Did we just enter a shop? */ if(roomno >= 0 && rooms[roomno].rtype >= 8) { if(shlevel != dlevel || !shopkeeper || ESHK(shopkeeper)->shoproom != roomno) findshk(roomno); if(!shopkeeper) { rooms[roomno].rtype = 0; u.uinshop = 0; } else if(!u.uinshop){ if(!ESHK(shopkeeper)->visitct || strncmp(ESHK(shopkeeper)->customer, plname, PL_NSIZ)){ /* He seems to be new here */ ESHK(shopkeeper)->visitct = 0; ESHK(shopkeeper)->following = 0; (void) strncpy(ESHK(shopkeeper)->customer,plname,PL_NSIZ-1); ESHK(shopkeeper)->customer[PL_NSIZ-1] = '\0'; NOTANGRY(shopkeeper) = 1; } if(!ESHK(shopkeeper)->following) { boolean box, pick; pline("Hello %s! Welcome%s to %s's %s shop!", plname, ESHK(shopkeeper)->visitct++ ? " again" : "", shkname(shopkeeper), shopnam[rooms[ESHK(shopkeeper)->shoproom].rtype - 8] ); box = carrying(ICE_BOX); pick = carrying(PICK_AXE); 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); } static void findshk(roomno) register roomno; { register struct monst *mtmp; for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) if(mtmp->isshk && ESHK(mtmp)->shoproom == roomno && ESHK(mtmp)->shoplevel == dlevel) { shopkeeper = mtmp; bill = &(ESHK(shopkeeper)->bill[0]); shlevel = dlevel; if(ANGRY(shopkeeper) && strncmp(ESHK(shopkeeper)->customer,plname,PL_NSIZ)) NOTANGRY(shopkeeper) = 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 */ } static struct bill_x * onbill(obj) register struct obj *obj; { register struct bill_x *bp; if(!shopkeeper) return(0); for(bp = bill; bp < &bill[ESHK(shopkeeper)->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(0); } /* called with two args on merge */ obfree(obj,merge) register struct obj *obj, *merge; { register struct bill_x *bp = onbill(obj); register 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)->billct--; *bp = bill[ESHK(shopkeeper)->billct]; } } free((char *) obj); } static pay(tmp,shkp) long tmp; register struct monst *shkp; { long robbed = ESHK(shkp)->robbed; u.ugold -= tmp; shkp->mgold += tmp; flags.botl = 1; if(robbed) { robbed -= tmp; if(robbed < 0) robbed = 0; ESHK(shkp)->robbed = robbed; } } dopay(){ long ltmp; register struct bill_x *bp; register struct monst *shkp; int pass, tmp; static int dopayobj(); 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)->shoproom) shkp = shopkeeper; if(!shkp) { pline("There is nobody here to receive your payment."); return(0); } ltmp = ESHK(shkp)->robbed; if(shkp != shopkeeper && NOTANGRY(shkp)) { 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)->robbed = 0; ESHK(shkp)->following = 0; if(ESHK(shkp)->shoplevel != dlevel) { /* For convenience's sake, let him disappear */ shkp->minvent = 0; /* %% */ shkp->mgold = 0; mondead(shkp); } } } return(1); } if(!ESHK(shkp)->billct){ pline("You do not owe %s anything.", monnam(shkp)); if(!u.ugold){ pline("Moreover, you have no money."); return(1); } if(ESHK(shkp)->robbed){ #define min(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)->robbed) ? "partially " : "", monnam(shkp)); pay(min(u.ugold, ESHK(shkp)->robbed), shkp); ESHK(shkp)->robbed = 0; return(1); } if(ANGRY(shkp)){ 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)->customer, plname, PL_NSIZ) || rn2(3)){ pline("%s calms down.", Monnam(shkp)); NOTANGRY(shkp) = 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)->billct) { bp = &bill[tmp]; if(!pass && !bp->useup) { tmp++; continue; } if(!dopayobj(bp)) return(1); bill[tmp] = bill[--ESHK(shopkeeper)->billct]; } } pline("Thank you for shopping in %s's %s store!", shkname(shopkeeper), shopnam[rooms[ESHK(shopkeeper)->shoproom].rtype - 8]); NOTANGRY(shopkeeper) = 1; return(1); } /* return 1 if paid successfully */ /* 0 if not enough money */ /* -1 if object could not be found (but was paid) */ static dopayobj(bp) register struct bill_x *bp; { register 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)) 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)); if(bp->useup) { register 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((char *) obj); } return(1); } /* routine called after dying (or quitting) with nonempty bill */ paybill(){ if(shlevel == dlevel && shopkeeper && ESHK(shopkeeper)->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 */ } } /* find obj on one of the lists */ struct obj * bp_to_obj(bp) register struct bill_x *bp; { register struct obj *obj; register struct monst *mtmp; register 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); } static int getprice(); /* called in hack.c when we pickup an object */ addtobill(obj) register struct obj *obj; { register struct bill_x *bp; if(!inshop() || (u.ux == ESHK(shopkeeper)->shk.x && u.uy == ESHK(shopkeeper)->shk.y) || (u.ux == ESHK(shopkeeper)->shd.x && u.uy == ESHK(shopkeeper)->shd.y) || onbill(obj) /* perhaps we threw it away earlier */ ) return; if(ESHK(shopkeeper)->billct == BILLSZ){ pline("You got that for free!"); return; } bp = &bill[ESHK(shopkeeper)->billct]; bp->bo_id = obj->o_id; bp->bquan = obj->quan; bp->useup = 0; bp->price = getprice(obj); ESHK(shopkeeper)->billct++; obj->unpaid = 1; } splitbill(obj,otmp) register struct obj *obj, *otmp; { /* otmp has been split off from obj */ register struct bill_x *bp; register int 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)->billct == BILLSZ) otmp->unpaid = 0; else { tmp = bp->price; bp = &bill[ESHK(shopkeeper)->billct]; bp->bo_id = otmp->o_id; bp->bquan = otmp->quan; bp->useup = 0; bp->price = tmp; ESHK(shopkeeper)->billct++; } } subfrombill(obj) register struct obj *obj; { long ltmp; register int tmp; register struct obj *otmp; register struct bill_x *bp; if(!inshop() || (u.ux == ESHK(shopkeeper)->shk.x && u.uy == ESHK(shopkeeper)->shk.y) || (u.ux == ESHK(shopkeeper)->shd.x && u.uy == ESHK(shopkeeper)->shd.y)) return; if((bp = onbill(obj)) != 0){ obj->unpaid = 0; if(bp->bquan > obj->quan){ otmp = newobj(0); *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)->billct--; *bp = bill[ESHK(shopkeeper)->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)->shoproom) return; if(ESHK(shopkeeper)->billct == BILLSZ || ((tmp = shtypes[rooms[ESHK(shopkeeper)->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)) { ltmp /= 3; NOTANGRY(shopkeeper) = 1; } else ltmp /= 2; if(ESHK(shopkeeper)->robbed){ if((ESHK(shopkeeper)->robbed -= ltmp) < 0) ESHK(shopkeeper)->robbed = 0; pline("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)); } doinvbill(mode) int mode; /* 0: deliver count 1: paged */ { register struct bill_x *bp; register struct obj *obj; long totused, thisused; char buf[BUFSZ]; if(mode == 0) { register int cnt = 0; if(shopkeeper) for(bp = bill; bp - bill < ESHK(shopkeeper)->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)->billct; bp++) { obj = bp_to_obj(bp); if(!obj) { impossible("Bad shopkeeper administration."); goto quit; } if(bp->useup || bp->bquan > obj->quan) { register 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) sprintf(buf, "x - %s", doname(obj)); obj->quan = oquan; /* restore value */ for(cnt = 0; buf[cnt]; cnt++); while(cnt < 50) buf[cnt++] = ' '; (void) sprintf(&buf[cnt], " %5ld zorkmids", thisused); if(page_line(buf)) goto quit; } } (void) sprintf(buf, "Total:%50ld zorkmids", totused); if(page_line("") || page_line(buf)) goto quit; set_pager(1); return(0); quit: set_pager(2); return(0); } static getprice(obj) register struct obj *obj; { register int tmp, ac; static int realhunger(); switch(obj->olet){ case AMULET_SYM: tmp = 10*rnd(500); break; case TOOL_SYM: tmp = 10*rnd((obj->otyp == EXPENSIVE_CAMERA) ? 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); #ifdef MAIL if(obj->otyp == SCR_MAIL) tmp = rnd(5); #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); if(ac <= -10) /* probably impossible */ ac = -9; tmp = 100 + ac*ac*rnd(10+ac); break; case WEAPON_SYM: if(obj->otyp < BOOMERANG) tmp = 5*rnd(10); else if(obj->otyp == LONG_SWORD || obj->otyp == TWO_HANDED_SWORD) tmp = 10*rnd(150); else tmp = 10*rnd(75); break; case CHAIN_SYM: pline("Strange ..., carrying a chain?"); case BALL_SYM: tmp = 10; break; default: tmp = 10000; } return(tmp); } static realhunger(){ /* not completely foolproof */ register tmp = u.uhunger; register struct obj *otmp = invent; while(otmp){ if(otmp->olet == FOOD_SYM && !otmp->unpaid) tmp += objects[otmp->otyp].nutrition; otmp = otmp->nobj; } return((tmp <= 0) ? 1 : tmp); } shkcatch(obj) register struct obj *obj; { register 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)->shk.x && shkp->my == ESHK(shkp)->shk.y && u.ux == ESHK(shkp)->shd.x && u.uy == ESHK(shkp)->shd.y) { pline("%s nimbly catches the %s.", Monnam(shkp), xname(obj)); obj->nobj = shkp->minvent; shkp->minvent = obj; return(1); } return(0); } /* * shk_move: return 1: he moved 0: he didnt -1: let m_move do it */ shk_move(shkp) register struct monst *shkp; { register struct monst *mtmp; register struct permonst *mdat = shkp->data; register xchar gx,gy,omx,omy,nx,ny,nix,niy; register schar appr,i; register int udist; int z; schar shkroom,chi,chcnt,cnt; boolean uondoor, satdoor, avoid, badinv; coord poss[9]; int info[9]; struct obj *ib = 0; omx = shkp->mx; omy = shkp->my; if((udist = dist(omx,omy)) < 3) { if(ANGRY(shkp)) { (void) hitu(shkp, d(mdat->damn, mdat->damd)+1); return(0); } if(ESHK(shkp)->following) { if(strncmp(ESHK(shkp)->customer, plname, PL_NSIZ)){ pline("Hello %s! I was looking for %s.", plname, ESHK(shkp)->customer); ESHK(shkp)->following = 0; return(0); } if(!ESHK(shkp)->robbed) { /* impossible? */ ESHK(shkp)->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)->shk.x; gy = ESHK(shkp)->shk.y; satdoor = (gx == omx && gy == omy); if(ESHK(shkp)->following || ((z = holetime()) >= 0 && z*z <= udist)){ gx = u.ux; gy = u.uy; if(shkroom < 0 || shkroom != inroom(u.ux,u.uy)) if(udist > 4) return(-1); /* leave it to m_move */ } else if(ANGRY(shkp)) { long saveBlind = Blind; Blind = 0; if(shkp->mcansee && !Invis && cansee(omx,omy)) { gx = u.ux; gy = u.uy; } Blind = saveBlind; avoid = FALSE; } else { #define GDIST(x,y) ((x-gx)*(x-gx)+(y-gy)*(y-gy)) if(Invis) avoid = FALSE; else { uondoor = (u.ux == ESHK(shkp)->shd.x && u.uy == ESHK(shkp)->shd.y); if(uondoor) { if(ESHK(shkp)->billct) pline("Hello %s! Will you please pay before leaving?", plname); badinv = (carrying(PICK_AXE) || carrying(ICE_BOX)); if(satdoor && badinv) return(0); avoid = !badinv; } else { avoid = (u.uinshop && dist(gx,gy) > 8); badinv = FALSE; } if(((!ESHK(shkp)->robbed && !ESHK(shkp)->billct) || avoid) && GDIST(omx,omy) < 3){ if(!badinv && !online(omx,omy)) return(0); if(satdoor) appr = gx = gy = 0; } } } if(omx == gx && omy == gy) return(0); if(shkp->mconf) { avoid = FALSE; appr = 0; } nix = omx; niy = omy; cnt = mfndpos(shkp,poss,info,ALLOW_SSM); if(avoid && uondoor) { /* perhaps we cannot avoid him */ for(i=0; i<cnt; i++) if(!(info[i] & NOTONL)) goto notonl_ok; avoid = FALSE; notonl_ok: ; } chi = -1; chcnt = 0; for(i=0; i<cnt; i++){ nx = poss[i].x; ny = poss[i].y; if(levl[nx][ny].typ == ROOM || shkroom != ESHK(shkp)->shoproom || ESHK(shkp)->following) { #ifdef STUPID /* cater for stupid compilers */ register int zz; #endif STUPID if(uondoor && (ib = sobj_at(ICE_BOX, nx, ny))) { nix = nx; niy = ny; chi = i; break; } if(avoid && (info[i] & NOTONL)) continue; if((!appr && !rn2(++chcnt)) || #ifdef STUPID (appr && (zz = GDIST(nix,niy)) && zz > GDIST(nx,ny)) #else (appr && GDIST(nx,ny) < GDIST(nix,niy)) #endif STUPID ) { nix = nx; niy = ny; chi = i; } } } if(nix != omx || niy != omy){ if(info[chi] & ALLOW_M){ mtmp = m_at(nix,niy); if(hitmm(shkp,mtmp) == 1 && rn2(3) && hitmm(mtmp,shkp) == 2) return(2); return(0); } else if(info[chi] & ALLOW_U){ (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); } /* He is digging in the shop. */ shopdig(fall) register int fall; { if(!fall) { if(u.utraptype == TT_PIT) 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) { register 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); } } } #endif QUEST online(x,y) { return(x==u.ux || y==u.uy || (x-u.ux)*(x-u.ux) == (y-u.uy)*(y-u.uy)); } /* Does this monster follow me downstairs? */ follower(mtmp) register struct monst *mtmp; { return( mtmp->mtame || strchr("1TVWZi&, ", mtmp->data->mlet) #ifndef QUEST || (mtmp->isshk && ESHK(mtmp)->following) #endif QUEST ); }