From 77e3814f0c0e3dea4d0032e25666f77e6f83bfff Mon Sep 17 00:00:00 2001 From: cgd Date: Sun, 21 Mar 1993 09:45:37 +0000 Subject: initial import of 386bsd-0.1 sources --- hack/hack.shk.c | 987 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 987 insertions(+) create mode 100644 hack/hack.shk.c (limited to 'hack/hack.shk.c') diff --git a/hack/hack.shk.c b/hack/hack.shk.c new file mode 100644 index 00000000..1478b1d8 --- /dev/null +++ b/hack/hack.shk.c @@ -0,0 +1,987 @@ +/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ +/* hack.shk.c - version 1.0.3 */ + +#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); + 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) ((arobbed) ? "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) + || 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 */ +{ + 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; ishoproom + || 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 || index("1TVWZi&, ", mtmp->data->mlet) +#ifndef QUEST + || (mtmp->isshk && ESHK(mtmp)->following) +#endif QUEST + ); +} -- cgit v1.2.3-56-ge451