freebsd-dev/games/hack/hack.shk.c
2002-05-23 00:38:07 +00:00

989 lines
23 KiB
C

/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* hack.shk.c - version 1.0.3 */
/* $FreeBSD$ */
#include "hack.h"
#ifdef QUEST
int shlevel = 0;
struct monst *shopkeeper = 0;
struct obj *billobjs = 0;
obfree(obj,merge) 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 */
struct monst *mtmp;
{
return(ESHK(mtmp)->shknam);
}
static void setpaid();
shkdead(mtmp) /* called in mon.c */
struct monst *mtmp;
{
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)
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 */
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((char *) obj);
}
ESHK(shopkeeper)->billct = 0;
}
static
addupbill(){ /* delivers result in total */
/* caller has checked that shopkeeper exists */
int ct = ESHK(shopkeeper)->billct;
struct bill_x *bp = bill;
total = 0;
while(ct--){
total += bp->price * bp->bquan;
bp++;
}
}
inshop(){
int 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) {
int rt = rooms[roomno].rtype;
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);
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)
int roomno;
{
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) struct obj *obj; {
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) struct obj *obj, *merge; {
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)->billct--;
*bp = bill[ESHK(shopkeeper)->billct];
}
}
free((char *) obj);
}
static
pay(tmp,shkp)
long tmp;
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;
struct bill_x *bp;
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) struct bill_x *bp; {
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) {
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)
struct bill_x *bp;
{
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);
}
static int getprice();
/* called in hack.c when we pickup an object */
addtobill(obj) struct obj *obj; {
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) struct obj *obj, *otmp; {
/* otmp has been split off from obj */
struct bill_x *bp;
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) struct obj *obj; {
long ltmp;
int tmp;
struct obj *otmp;
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)
|| index("_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 */
{
struct bill_x *bp;
struct obj *obj;
long totused, thisused;
char buf[BUFSZ];
if(mode == 0) {
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) {
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) struct obj *obj; {
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 */
int tmp = u.uhunger;
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)
struct obj *obj;
{
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)
struct monst *shkp;
{
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;
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 */
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)
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) {
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)
struct monst *mtmp;
{
return( mtmp->mtame || index("1TVWZi&, ", mtmp->data->mlet)
#ifndef QUEST
|| (mtmp->isshk && ESHK(mtmp)->following)
#endif /* QUEST */
);
}