summaryrefslogtreecommitdiff
path: root/games/hack/hack.shk.c
diff options
context:
space:
mode:
authorTheo de Raadt <deraadt@cvs.openbsd.org>1995-10-18 08:53:40 +0000
committerTheo de Raadt <deraadt@cvs.openbsd.org>1995-10-18 08:53:40 +0000
commitd6583bb2a13f329cf0332ef2570eb8bb8fc0e39c (patch)
treeece253b876159b39c620e62b6c9b1174642e070e /games/hack/hack.shk.c
initial import of NetBSD tree
Diffstat (limited to 'games/hack/hack.shk.c')
-rw-r--r--games/hack/hack.shk.c992
1 files changed, 992 insertions, 0 deletions
diff --git a/games/hack/hack.shk.c b/games/hack/hack.shk.c
new file mode 100644
index 00000000000..6e216b7adca
--- /dev/null
+++ b/games/hack/hack.shk.c
@@ -0,0 +1,992 @@
+/*
+ * 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);
+ 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)
+ || 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; 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 || index("1TVWZi&, ", mtmp->data->mlet)
+#ifndef QUEST
+ || (mtmp->isshk && ESHK(mtmp)->following)
+#endif QUEST
+ );
+}