467ad222a0a70d6a724c07661b850e39849d77bd
[dragonfly.git] / games / hack / hack.shk.c
1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2 /* hack.shk.c - version 1.0.3 */
3 /* $FreeBSD: src/games/hack/hack.shk.c,v 1.5 1999/11/16 10:26:37 marcel Exp $ */
4 /* $DragonFly: src/games/hack/hack.shk.c,v 1.2 2003/06/17 04:25:24 dillon Exp $ */
5
6 #include "hack.h"
7 #ifdef QUEST
8 int shlevel = 0;
9 struct monst *shopkeeper = 0;
10 struct obj *billobjs = 0;
11 obfree(obj,merge) struct obj *obj, *merge; {
12         free((char *) obj);
13 }
14 inshop(){ return(0); }
15 shopdig(){}
16 addtobill(){}
17 subfrombill(){}
18 splitbill(){}
19 dopay(){ return(0); }
20 paybill(){}
21 doinvbill(){ return(0); }
22 shkdead(){}
23 shkcatch(){ return(0); }
24 shk_move(){ return(0); }
25 replshk(mtmp,mtmp2) struct monst *mtmp, *mtmp2; {}
26 char *shkname(){ return(""); }
27
28 #else QUEST
29 #include        "hack.mfndpos.h"
30 #include        "def.mkroom.h"
31 #include        "def.eshk.h"
32
33 #define ESHK(mon)       ((struct eshk *)(&(mon->mextra[0])))
34 #define NOTANGRY(mon)   mon->mpeaceful
35 #define ANGRY(mon)      !NOTANGRY(mon)
36
37 extern char plname[], *xname();
38 extern struct obj *o_on(), *bp_to_obj();
39
40 /* Descriptor of current shopkeeper. Note that the bill need not be
41    per-shopkeeper, since it is valid only when in a shop. */
42 static struct monst *shopkeeper = 0;
43 static struct bill_x *bill;
44 static int shlevel = 0; /* level of this shopkeeper */
45        struct obj *billobjs;    /* objects on bill with bp->useup */
46                                 /* only accessed here and by save & restore */
47 static long int total;          /* filled by addupbill() */
48 static long int followmsg;      /* last time of follow message */
49
50 /*
51         invariants: obj->unpaid iff onbill(obj) [unless bp->useup]
52                 obj->quan <= bp->bquan
53  */
54
55
56 char shtypes[] = {      /* 8 shoptypes: 7 specialized, 1 mixed */
57         RING_SYM, WAND_SYM, WEAPON_SYM, FOOD_SYM, SCROLL_SYM,
58         POTION_SYM, ARMOR_SYM, 0
59 };
60
61 static char *shopnam[] = {
62         "engagement ring", "walking cane", "antique weapon",
63         "delicatessen", "second hand book", "liquor",
64         "used armor", "assorted antiques"
65 };
66
67 char *
68 shkname(mtmp)                           /* called in do_name.c */
69 struct monst *mtmp;
70 {
71         return(ESHK(mtmp)->shknam);
72 }
73
74 static void setpaid();
75
76 shkdead(mtmp)                           /* called in mon.c */
77 struct monst *mtmp;
78 {
79         struct eshk *eshk = ESHK(mtmp);
80
81         if(eshk->shoplevel == dlevel)
82                 rooms[eshk->shoproom].rtype = 0;
83         if(mtmp == shopkeeper) {
84                 setpaid();
85                 shopkeeper = 0;
86                 bill = (struct bill_x *) -1000; /* dump core when referenced */
87         }
88 }
89
90 replshk(mtmp,mtmp2)
91 struct monst *mtmp, *mtmp2;
92 {
93         if(mtmp == shopkeeper) {
94                 shopkeeper = mtmp2;
95                 bill = &(ESHK(shopkeeper)->bill[0]);
96         }
97 }
98
99 static void
100 setpaid(){      /* caller has checked that shopkeeper exists */
101                 /* either we paid or left the shop or he just died */
102 struct obj *obj;
103 struct monst *mtmp;
104         for(obj = invent; obj; obj = obj->nobj)
105                 obj->unpaid = 0;
106         for(obj = fobj; obj; obj = obj->nobj)
107                 obj->unpaid = 0;
108         for(obj = fcobj; obj; obj = obj->nobj)
109                 obj->unpaid = 0;
110         for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
111                 for(obj = mtmp->minvent; obj; obj = obj->nobj)
112                         obj->unpaid = 0;
113         for(mtmp = fallen_down; mtmp; mtmp = mtmp->nmon)
114                 for(obj = mtmp->minvent; obj; obj = obj->nobj)
115                         obj->unpaid = 0;
116         while(obj = billobjs){
117                 billobjs = obj->nobj;
118                 free((char *) obj);
119         }
120         ESHK(shopkeeper)->billct = 0;
121 }
122
123 static
124 addupbill(){    /* delivers result in total */
125                 /* caller has checked that shopkeeper exists */
126 int ct = ESHK(shopkeeper)->billct;
127 struct bill_x *bp = bill;
128         total = 0;
129         while(ct--){
130                 total += bp->price * bp->bquan;
131                 bp++;
132         }
133 }
134
135 inshop(){
136 int roomno = inroom(u.ux,u.uy);
137
138         static void findshk();
139
140         /* Did we just leave a shop? */
141         if(u.uinshop &&
142             (u.uinshop != roomno + 1 || shlevel != dlevel || !shopkeeper)) {
143                 if(shopkeeper) {
144                     if(ESHK(shopkeeper)->billct) {
145                         if(inroom(shopkeeper->mx, shopkeeper->my)
146                             == u.uinshop - 1)   /* ab@unido */
147                             pline("Somehow you escaped the shop without paying!");
148                         addupbill();
149                         pline("You stole for a total worth of %ld zorkmids.",
150                                 total);
151                         ESHK(shopkeeper)->robbed += total;
152                         setpaid();
153                         if((rooms[ESHK(shopkeeper)->shoproom].rtype == GENERAL)
154                             == (rn2(3) == 0))
155                             ESHK(shopkeeper)->following = 1;
156                     }
157                     shopkeeper = 0;
158                     shlevel = 0;
159                 }
160                 u.uinshop = 0;
161         }
162
163         /* Did we just enter a zoo of some kind? */
164         if(roomno >= 0) {
165                 int rt = rooms[roomno].rtype;
166                 struct monst *mtmp;
167                 if(rt == ZOO) {
168                         pline("Welcome to David's treasure zoo!");
169                 } else
170                 if(rt == SWAMP) {
171                         pline("It looks rather muddy down here.");
172                 } else
173                 if(rt == MORGUE) {
174                         if(midnight())
175                                 pline("Go away! Go away!");
176                         else
177                                 pline("You get an uncanny feeling ...");
178                 } else
179                         rt = 0;
180                 if(rt != 0) {
181                         rooms[roomno].rtype = 0;
182                         for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
183                                 if(rt != ZOO || !rn2(3))
184                                         mtmp->msleep = 0;
185                 }
186         }
187
188         /* Did we just enter a shop? */
189         if(roomno >= 0 && rooms[roomno].rtype >= 8) {
190             if(shlevel != dlevel || !shopkeeper
191                                  || ESHK(shopkeeper)->shoproom != roomno)
192                 findshk(roomno);
193             if(!shopkeeper) {
194                 rooms[roomno].rtype = 0;
195                 u.uinshop = 0;
196             } else if(!u.uinshop){
197                 if(!ESHK(shopkeeper)->visitct ||
198                     strncmp(ESHK(shopkeeper)->customer, plname, PL_NSIZ)){
199
200                     /* He seems to be new here */
201                     ESHK(shopkeeper)->visitct = 0;
202                     ESHK(shopkeeper)->following = 0;
203                     (void) strncpy(ESHK(shopkeeper)->customer,plname,PL_NSIZ);
204                     NOTANGRY(shopkeeper) = 1;
205                 }
206                 if(!ESHK(shopkeeper)->following) {
207                     boolean box, pick;
208
209                     pline("Hello %s! Welcome%s to %s's %s shop!",
210                         plname,
211                         ESHK(shopkeeper)->visitct++ ? " again" : "",
212                         shkname(shopkeeper),
213                         shopnam[rooms[ESHK(shopkeeper)->shoproom].rtype - 8] );
214                     box = carrying(ICE_BOX);
215                     pick = carrying(PICK_AXE);
216                     if(box || pick) {
217                         if(dochug(shopkeeper)) {
218                                 u.uinshop = 0;  /* he died moving */
219                                 return(0);
220                         }
221                         pline("Will you please leave your %s outside?",
222                             (box && pick) ? "box and pick-axe" :
223                             box ? "box" : "pick-axe");
224                     }
225                 }
226                 u.uinshop = roomno + 1;
227             }
228         }
229         return(u.uinshop);
230 }
231
232 static void
233 findshk(roomno)
234 int roomno;
235 {
236 struct monst *mtmp;
237         for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
238             if(mtmp->isshk && ESHK(mtmp)->shoproom == roomno
239                            && ESHK(mtmp)->shoplevel == dlevel) {
240                 shopkeeper = mtmp;
241                 bill = &(ESHK(shopkeeper)->bill[0]);
242                 shlevel = dlevel;
243                 if(ANGRY(shopkeeper) &&
244                    strncmp(ESHK(shopkeeper)->customer,plname,PL_NSIZ))
245                         NOTANGRY(shopkeeper) = 1;
246                 /* billobjs = 0; -- this is wrong if we save in a shop */
247                 /* (and it is harmless to have too many things in billobjs) */
248                 return;
249         }
250         shopkeeper = 0;
251         shlevel = 0;
252         bill = (struct bill_x *) -1000; /* dump core when referenced */
253 }
254
255 static struct bill_x *
256 onbill(obj) struct obj *obj; {
257 struct bill_x *bp;
258         if(!shopkeeper) return(0);
259         for(bp = bill; bp < &bill[ESHK(shopkeeper)->billct]; bp++)
260                 if(bp->bo_id == obj->o_id) {
261                         if(!obj->unpaid) pline("onbill: paid obj on bill?");
262                         return(bp);
263                 }
264         if(obj->unpaid) pline("onbill: unpaid obj not on bill?");
265         return(0);
266 }
267
268 /* called with two args on merge */
269 obfree(obj,merge) struct obj *obj, *merge; {
270 struct bill_x *bp = onbill(obj);
271 struct bill_x *bpm;
272         if(bp) {
273                 if(!merge){
274                         bp->useup = 1;
275                         obj->unpaid = 0;        /* only for doinvbill */
276                         obj->nobj = billobjs;
277                         billobjs = obj;
278                         return;
279                 }
280                 bpm = onbill(merge);
281                 if(!bpm){
282                         /* this used to be a rename */
283                         impossible("obfree: not on bill??");
284                         return;
285                 } else {
286                         /* this was a merger */
287                         bpm->bquan += bp->bquan;
288                         ESHK(shopkeeper)->billct--;
289                         *bp = bill[ESHK(shopkeeper)->billct];
290                 }
291         }
292         free((char *) obj);
293 }
294
295 static
296 pay(tmp,shkp)
297 long tmp;
298 struct monst *shkp;
299 {
300         long robbed = ESHK(shkp)->robbed;
301
302         u.ugold -= tmp;
303         shkp->mgold += tmp;
304         flags.botl = 1;
305         if(robbed) {
306                 robbed -= tmp;
307                 if(robbed < 0) robbed = 0;
308                 ESHK(shkp)->robbed = robbed;
309         }
310 }
311
312 dopay(){
313 long ltmp;
314 struct bill_x *bp;
315 struct monst *shkp;
316 int pass, tmp;
317
318         static int dopayobj();
319
320         multi = 0;
321         (void) inshop();
322         for(shkp = fmon; shkp; shkp = shkp->nmon)
323                 if(shkp->isshk && dist(shkp->mx,shkp->my) < 3)
324                         break;
325         if(!shkp && u.uinshop &&
326            inroom(shopkeeper->mx,shopkeeper->my) == ESHK(shopkeeper)->shoproom)
327                 shkp = shopkeeper;
328
329         if(!shkp) {
330                 pline("There is nobody here to receive your payment.");
331                 return(0);
332         }
333         ltmp = ESHK(shkp)->robbed;
334         if(shkp != shopkeeper && NOTANGRY(shkp)) {
335                 if(!ltmp) {
336                         pline("You do not owe %s anything.", monnam(shkp));
337                 } else
338                 if(!u.ugold) {
339                         pline("You have no money.");
340                 } else {
341                     long ugold = u.ugold;
342
343                     if(u.ugold > ltmp) {
344                         pline("You give %s the %ld gold pieces he asked for.",
345                                 monnam(shkp), ltmp);
346                         pay(ltmp, shkp);
347                     } else {
348                         pline("You give %s all your gold.", monnam(shkp));
349                         pay(u.ugold, shkp);
350                     }
351                     if(ugold < ltmp/2) {
352                         pline("Unfortunately, he doesn't look satisfied.");
353                     } else {
354                         ESHK(shkp)->robbed = 0;
355                         ESHK(shkp)->following = 0;
356                         if(ESHK(shkp)->shoplevel != dlevel) {
357                         /* For convenience's sake, let him disappear */
358                             shkp->minvent = 0;          /* %% */
359                             shkp->mgold = 0;
360                             mondead(shkp);
361                         }
362                     }
363                 }
364                 return(1);
365         }
366
367         if(!ESHK(shkp)->billct){
368                 pline("You do not owe %s anything.", monnam(shkp));
369                 if(!u.ugold){
370                         pline("Moreover, you have no money.");
371                         return(1);
372                 }
373                 if(ESHK(shkp)->robbed){
374 #define min(a,b)        ((a<b)?a:b)
375                     pline("But since his shop has been robbed recently,");
376                     pline("you %srepay %s's expenses.",
377                       (u.ugold < ESHK(shkp)->robbed) ? "partially " : "",
378                       monnam(shkp));
379                     pay(min(u.ugold, ESHK(shkp)->robbed), shkp);
380                     ESHK(shkp)->robbed = 0;
381                     return(1);
382                 }
383                 if(ANGRY(shkp)){
384                         pline("But in order to appease %s,",
385                                 amonnam(shkp, "angry"));
386                         if(u.ugold >= 1000){
387                                 ltmp = 1000;
388                                 pline(" you give him 1000 gold pieces.");
389                         } else {
390                                 ltmp = u.ugold;
391                                 pline(" you give him all your money.");
392                         }
393                         pay(ltmp, shkp);
394                         if(strncmp(ESHK(shkp)->customer, plname, PL_NSIZ)
395                            || rn2(3)){
396                                 pline("%s calms down.", Monnam(shkp));
397                                 NOTANGRY(shkp) = 1;
398                         } else  pline("%s is as angry as ever.",
399                                         Monnam(shkp));
400                 }
401                 return(1);
402         }
403         if(shkp != shopkeeper) {
404                 impossible("dopay: not to shopkeeper?");
405                 if(shopkeeper) setpaid();
406                 return(0);
407         }
408         for(pass = 0; pass <= 1; pass++) {
409                 tmp = 0;
410                 while(tmp < ESHK(shopkeeper)->billct) {
411                         bp = &bill[tmp];
412                         if(!pass && !bp->useup) {
413                                 tmp++;
414                                 continue;
415                         }
416                         if(!dopayobj(bp)) return(1);
417                         bill[tmp] = bill[--ESHK(shopkeeper)->billct];
418                 }
419         }
420         pline("Thank you for shopping in %s's %s store!",
421                 shkname(shopkeeper),
422                 shopnam[rooms[ESHK(shopkeeper)->shoproom].rtype - 8]);
423         NOTANGRY(shopkeeper) = 1;
424         return(1);
425 }
426
427 /* return 1 if paid successfully */
428 /*        0 if not enough money */
429 /*       -1 if object could not be found (but was paid) */
430 static
431 dopayobj(bp) struct bill_x *bp; {
432 struct obj *obj;
433 long ltmp;
434
435         /* find the object on one of the lists */
436         obj = bp_to_obj(bp);
437
438         if(!obj) {
439                 impossible("Shopkeeper administration out of order.");
440                 setpaid();      /* be nice to the player */
441                 return(0);
442         }
443
444         if(!obj->unpaid && !bp->useup){
445                 impossible("Paid object on bill??");
446                 return(1);
447         }
448         obj->unpaid = 0;
449         ltmp = bp->price * bp->bquan;
450         if(ANGRY(shopkeeper)) ltmp += ltmp/3;
451         if(u.ugold < ltmp){
452                 pline("You don't have gold enough to pay %s.",
453                         doname(obj));
454                 obj->unpaid = 1;
455                 return(0);
456         }
457         pay(ltmp, shopkeeper);
458         pline("You bought %s for %ld gold piece%s.",
459                 doname(obj), ltmp, plur(ltmp));
460         if(bp->useup) {
461                 struct obj *otmp = billobjs;
462                 if(obj == billobjs)
463                         billobjs = obj->nobj;
464                 else {
465                         while(otmp && otmp->nobj != obj) otmp = otmp->nobj;
466                         if(otmp) otmp->nobj = obj->nobj;
467                         else pline("Error in shopkeeper administration.");
468                 }
469                 free((char *) obj);
470         }
471         return(1);
472 }
473
474 /* routine called after dying (or quitting) with nonempty bill */
475 paybill(){
476         if(shlevel == dlevel && shopkeeper && ESHK(shopkeeper)->billct){
477                 addupbill();
478                 if(total > u.ugold){
479                         shopkeeper->mgold += u.ugold;
480                         u.ugold = 0;
481                 pline("%s comes and takes all your possessions.",
482                         Monnam(shopkeeper));
483                 } else {
484                         u.ugold -= total;
485                         shopkeeper->mgold += total;
486         pline("%s comes and takes the %ld zorkmids you owed him.",
487                 Monnam(shopkeeper), total);
488                 }
489                 setpaid();      /* in case we create bones */
490         }
491 }
492
493 /* find obj on one of the lists */
494 struct obj *
495 bp_to_obj(bp)
496 struct bill_x *bp;
497 {
498         struct obj *obj;
499         struct monst *mtmp;
500         unsigned id = bp->bo_id;
501
502         if(bp->useup)
503                 obj = o_on(id, billobjs);
504         else if(!(obj = o_on(id, invent)) &&
505                 !(obj = o_on(id, fobj)) &&
506                 !(obj = o_on(id, fcobj))) {
507                     for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
508                         if(obj = o_on(id, mtmp->minvent))
509                             break;
510                     for(mtmp = fallen_down; mtmp; mtmp = mtmp->nmon)
511                         if(obj = o_on(id, mtmp->minvent))
512                             break;
513                 }
514         return(obj);
515 }
516
517 static int getprice();
518
519 /* called in hack.c when we pickup an object */
520 addtobill(obj) struct obj *obj; {
521 struct bill_x *bp;
522         if(!inshop() ||
523         (u.ux == ESHK(shopkeeper)->shk.x && u.uy == ESHK(shopkeeper)->shk.y) ||
524         (u.ux == ESHK(shopkeeper)->shd.x && u.uy == ESHK(shopkeeper)->shd.y) ||
525                 onbill(obj) /* perhaps we threw it away earlier */
526           ) return;
527         if(ESHK(shopkeeper)->billct == BILLSZ){
528                 pline("You got that for free!");
529                 return;
530         }
531         bp = &bill[ESHK(shopkeeper)->billct];
532         bp->bo_id = obj->o_id;
533         bp->bquan = obj->quan;
534         bp->useup = 0;
535         bp->price = getprice(obj);
536         ESHK(shopkeeper)->billct++;
537         obj->unpaid = 1;
538 }
539
540 splitbill(obj,otmp) struct obj *obj, *otmp; {
541         /* otmp has been split off from obj */
542 struct bill_x *bp;
543 int tmp;
544         bp = onbill(obj);
545         if(!bp) {
546                 impossible("splitbill: not on bill?");
547                 return;
548         }
549         if(bp->bquan < otmp->quan) {
550                 impossible("Negative quantity on bill??");
551         }
552         if(bp->bquan == otmp->quan) {
553                 impossible("Zero quantity on bill??");
554         }
555         bp->bquan -= otmp->quan;
556
557         /* addtobill(otmp); */
558         if(ESHK(shopkeeper)->billct == BILLSZ) otmp->unpaid = 0;
559         else {
560                 tmp = bp->price;
561                 bp = &bill[ESHK(shopkeeper)->billct];
562                 bp->bo_id = otmp->o_id;
563                 bp->bquan = otmp->quan;
564                 bp->useup = 0;
565                 bp->price = tmp;
566                 ESHK(shopkeeper)->billct++;
567         }
568 }
569
570 subfrombill(obj) struct obj *obj; {
571 long ltmp;
572 int tmp;
573 struct obj *otmp;
574 struct bill_x *bp;
575         if(!inshop() || (u.ux == ESHK(shopkeeper)->shk.x && u.uy == ESHK(shopkeeper)->shk.y) ||
576                 (u.ux == ESHK(shopkeeper)->shd.x && u.uy == ESHK(shopkeeper)->shd.y))
577                 return;
578         if((bp = onbill(obj)) != 0){
579                 obj->unpaid = 0;
580                 if(bp->bquan > obj->quan){
581                         otmp = newobj(0);
582                         *otmp = *obj;
583                         bp->bo_id = otmp->o_id = flags.ident++;
584                         otmp->quan = (bp->bquan -= obj->quan);
585                         otmp->owt = 0;  /* superfluous */
586                         otmp->onamelth = 0;
587                         bp->useup = 1;
588                         otmp->nobj = billobjs;
589                         billobjs = otmp;
590                         return;
591                 }
592                 ESHK(shopkeeper)->billct--;
593                 *bp = bill[ESHK(shopkeeper)->billct];
594                 return;
595         }
596         if(obj->unpaid){
597                 pline("%s didn't notice.", Monnam(shopkeeper));
598                 obj->unpaid = 0;
599                 return;         /* %% */
600         }
601         /* he dropped something of his own - probably wants to sell it */
602         if(shopkeeper->msleep || shopkeeper->mfroz ||
603                 inroom(shopkeeper->mx,shopkeeper->my) != ESHK(shopkeeper)->shoproom)
604                 return;
605         if(ESHK(shopkeeper)->billct == BILLSZ ||
606           ((tmp = shtypes[rooms[ESHK(shopkeeper)->shoproom].rtype-8]) && tmp != obj->olet)
607           || index("_0", obj->olet)) {
608                 pline("%s seems not interested.", Monnam(shopkeeper));
609                 return;
610         }
611         ltmp = getprice(obj) * obj->quan;
612         if(ANGRY(shopkeeper)) {
613                 ltmp /= 3;
614                 NOTANGRY(shopkeeper) = 1;
615         } else  ltmp /= 2;
616         if(ESHK(shopkeeper)->robbed){
617                 if((ESHK(shopkeeper)->robbed -= ltmp) < 0)
618                         ESHK(shopkeeper)->robbed = 0;
619 pline("Thank you for your contribution to restock this recently plundered shop.");
620                 return;
621         }
622         if(ltmp > shopkeeper->mgold)
623                 ltmp = shopkeeper->mgold;
624         pay(-ltmp, shopkeeper);
625         if(!ltmp)
626         pline("%s gladly accepts %s but cannot pay you at present.",
627                 Monnam(shopkeeper), doname(obj));
628         else
629         pline("You sold %s and got %ld gold piece%s.", doname(obj), ltmp,
630                 plur(ltmp));
631 }
632
633 doinvbill(mode)
634 int mode;               /* 0: deliver count 1: paged */
635 {
636         struct bill_x *bp;
637         struct obj *obj;
638         long totused, thisused;
639         char buf[BUFSZ];
640
641         if(mode == 0) {
642             int cnt = 0;
643
644             if(shopkeeper)
645                 for(bp = bill; bp - bill < ESHK(shopkeeper)->billct; bp++)
646                     if(bp->useup ||
647                       ((obj = bp_to_obj(bp)) && obj->quan < bp->bquan))
648                         cnt++;
649             return(cnt);
650         }
651
652         if(!shopkeeper) {
653                 impossible("doinvbill: no shopkeeper?");
654                 return(0);
655         }
656
657         set_pager(0);
658         if(page_line("Unpaid articles already used up:") || page_line(""))
659             goto quit;
660
661         totused = 0;
662         for(bp = bill; bp - bill < ESHK(shopkeeper)->billct; bp++) {
663             obj = bp_to_obj(bp);
664             if(!obj) {
665                 impossible("Bad shopkeeper administration.");
666                 goto quit;
667             }
668             if(bp->useup || bp->bquan > obj->quan) {
669                 int cnt, oquan, uquan;
670
671                 oquan = obj->quan;
672                 uquan = (bp->useup ? bp->bquan : bp->bquan - oquan);
673                 thisused = bp->price * uquan;
674                 totused += thisused;
675                 obj->quan = uquan;              /* cheat doname */
676                 (void) sprintf(buf, "x -  %s", doname(obj));
677                 obj->quan = oquan;              /* restore value */
678                 for(cnt = 0; buf[cnt]; cnt++);
679                 while(cnt < 50)
680                         buf[cnt++] = ' ';
681                 (void) sprintf(&buf[cnt], " %5ld zorkmids", thisused);
682                 if(page_line(buf))
683                         goto quit;
684             }
685         }
686         (void) sprintf(buf, "Total:%50ld zorkmids", totused);
687         if(page_line("") || page_line(buf))
688                 goto quit;
689         set_pager(1);
690         return(0);
691 quit:
692         set_pager(2);
693         return(0);
694 }
695
696 static
697 getprice(obj) struct obj *obj; {
698 int tmp, ac;
699         static int realhunger();
700
701         switch(obj->olet){
702         case AMULET_SYM:
703                 tmp = 10*rnd(500);
704                 break;
705         case TOOL_SYM:
706                 tmp = 10*rnd((obj->otyp == EXPENSIVE_CAMERA) ? 150 : 30);
707                 break;
708         case RING_SYM:
709                 tmp = 10*rnd(100);
710                 break;
711         case WAND_SYM:
712                 tmp = 10*rnd(100);
713                 break;
714         case SCROLL_SYM:
715                 tmp = 10*rnd(50);
716 #ifdef MAIL
717                 if(obj->otyp == SCR_MAIL)
718                         tmp = rnd(5);
719 #endif MAIL
720                 break;
721         case POTION_SYM:
722                 tmp = 10*rnd(50);
723                 break;
724         case FOOD_SYM:
725                 tmp = 10*rnd(5 + (2000/realhunger()));
726                 break;
727         case GEM_SYM:
728                 tmp = 10*rnd(20);
729                 break;
730         case ARMOR_SYM:
731                 ac = ARM_BONUS(obj);
732                 if(ac <= -10)           /* probably impossible */
733                         ac = -9;
734                 tmp = 100 + ac*ac*rnd(10+ac);
735                 break;
736         case WEAPON_SYM:
737                 if(obj->otyp < BOOMERANG)
738                         tmp = 5*rnd(10);
739                 else if(obj->otyp == LONG_SWORD ||
740                         obj->otyp == TWO_HANDED_SWORD)
741                         tmp = 10*rnd(150);
742                 else    tmp = 10*rnd(75);
743                 break;
744         case CHAIN_SYM:
745                 pline("Strange ..., carrying a chain?");
746         case BALL_SYM:
747                 tmp = 10;
748                 break;
749         default:
750                 tmp = 10000;
751         }
752         return(tmp);
753 }
754
755 static
756 realhunger(){   /* not completely foolproof */
757 int tmp = u.uhunger;
758 struct obj *otmp = invent;
759         while(otmp){
760                 if(otmp->olet == FOOD_SYM && !otmp->unpaid)
761                         tmp += objects[otmp->otyp].nutrition;
762                 otmp = otmp->nobj;
763         }
764         return((tmp <= 0) ? 1 : tmp);
765 }
766
767 shkcatch(obj)
768 struct obj *obj;
769 {
770         struct monst *shkp = shopkeeper;
771
772         if(u.uinshop && shkp && !shkp->mfroz && !shkp->msleep &&
773             u.dx && u.dy &&
774             inroom(u.ux+u.dx, u.uy+u.dy) + 1 == u.uinshop &&
775             shkp->mx == ESHK(shkp)->shk.x && shkp->my == ESHK(shkp)->shk.y &&
776             u.ux == ESHK(shkp)->shd.x && u.uy == ESHK(shkp)->shd.y) {
777                 pline("%s nimbly catches the %s.", Monnam(shkp), xname(obj));
778                 obj->nobj = shkp->minvent;
779                 shkp->minvent = obj;
780                 return(1);
781         }
782         return(0);
783 }
784
785 /*
786  * shk_move: return 1: he moved  0: he didnt  -1: let m_move do it
787  */
788 shk_move(shkp)
789 struct monst *shkp;
790 {
791         struct monst *mtmp;
792         struct permonst *mdat = shkp->data;
793         xchar gx,gy,omx,omy,nx,ny,nix,niy;
794         schar appr,i;
795         int udist;
796         int z;
797         schar shkroom,chi,chcnt,cnt;
798         boolean uondoor, satdoor, avoid, badinv;
799         coord poss[9];
800         int info[9];
801         struct obj *ib = 0;
802
803         omx = shkp->mx;
804         omy = shkp->my;
805
806         if((udist = dist(omx,omy)) < 3) {
807                 if(ANGRY(shkp)) {
808                         (void) hitu(shkp, d(mdat->damn, mdat->damd)+1);
809                         return(0);
810                 }
811                 if(ESHK(shkp)->following) {
812                         if(strncmp(ESHK(shkp)->customer, plname, PL_NSIZ)){
813                                 pline("Hello %s! I was looking for %s.",
814                                         plname, ESHK(shkp)->customer);
815                                 ESHK(shkp)->following = 0;
816                                 return(0);
817                         }
818                         if(!ESHK(shkp)->robbed) {       /* impossible? */
819                                 ESHK(shkp)->following = 0;
820                                 return(0);
821                         }
822                         if(moves > followmsg+4) {
823                                 pline("Hello %s! Didn't you forget to pay?",
824                                         plname);
825                                 followmsg = moves;
826                         }
827                         if(udist < 2)
828                                 return(0);
829                 }
830         }
831
832         shkroom = inroom(omx,omy);
833         appr = 1;
834         gx = ESHK(shkp)->shk.x;
835         gy = ESHK(shkp)->shk.y;
836         satdoor = (gx == omx && gy == omy);
837         if(ESHK(shkp)->following || ((z = holetime()) >= 0 && z*z <= udist)){
838                 gx = u.ux;
839                 gy = u.uy;
840                 if(shkroom < 0 || shkroom != inroom(u.ux,u.uy))
841                     if(udist > 4)
842                         return(-1);     /* leave it to m_move */
843         } else if(ANGRY(shkp)) {
844                 long saveBlind = Blind;
845                 Blind = 0;
846                 if(shkp->mcansee && !Invis && cansee(omx,omy)) {
847                         gx = u.ux;
848                         gy = u.uy;
849                 }
850                 Blind = saveBlind;
851                 avoid = FALSE;
852         } else {
853 #define GDIST(x,y)      ((x-gx)*(x-gx)+(y-gy)*(y-gy))
854                 if(Invis)
855                   avoid = FALSE;
856                 else {
857                   uondoor = (u.ux == ESHK(shkp)->shd.x &&
858                                 u.uy == ESHK(shkp)->shd.y);
859                   if(uondoor) {
860                     if(ESHK(shkp)->billct)
861                         pline("Hello %s! Will you please pay before leaving?",
862                                 plname);
863                     badinv = (carrying(PICK_AXE) || carrying(ICE_BOX));
864                     if(satdoor && badinv)
865                         return(0);
866                     avoid = !badinv;
867                   } else {
868                     avoid = (u.uinshop && dist(gx,gy) > 8);
869                     badinv = FALSE;
870                   }
871
872                   if(((!ESHK(shkp)->robbed && !ESHK(shkp)->billct) || avoid)
873                         && GDIST(omx,omy) < 3){
874                         if(!badinv && !online(omx,omy))
875                                 return(0);
876                         if(satdoor)
877                                 appr = gx = gy = 0;
878                   }
879                 }
880         }
881         if(omx == gx && omy == gy)
882                 return(0);
883         if(shkp->mconf) {
884                 avoid = FALSE;
885                 appr = 0;
886         }
887         nix = omx;
888         niy = omy;
889         cnt = mfndpos(shkp,poss,info,ALLOW_SSM);
890         if(avoid && uondoor) {          /* perhaps we cannot avoid him */
891                 for(i=0; i<cnt; i++)
892                         if(!(info[i] & NOTONL)) goto notonl_ok;
893                 avoid = FALSE;
894         notonl_ok:
895                 ;
896         }
897         chi = -1;
898         chcnt = 0;
899         for(i=0; i<cnt; i++){
900                 nx = poss[i].x;
901                 ny = poss[i].y;
902                 if(levl[nx][ny].typ == ROOM
903                 || shkroom != ESHK(shkp)->shoproom
904                 || ESHK(shkp)->following) {
905 #ifdef STUPID
906                     /* cater for stupid compilers */
907                     int zz;
908 #endif STUPID
909                     if(uondoor && (ib = sobj_at(ICE_BOX, nx, ny))) {
910                         nix = nx; niy = ny; chi = i; break;
911                     }
912                     if(avoid && (info[i] & NOTONL))
913                         continue;
914                     if((!appr && !rn2(++chcnt)) ||
915 #ifdef STUPID
916                         (appr && (zz = GDIST(nix,niy)) && zz > GDIST(nx,ny))
917 #else
918                         (appr && GDIST(nx,ny) < GDIST(nix,niy))
919 #endif STUPID
920                         ) {
921                             nix = nx;
922                             niy = ny;
923                             chi = i;
924                     }
925                 }
926         }
927         if(nix != omx || niy != omy){
928                 if(info[chi] & ALLOW_M){
929                         mtmp = m_at(nix,niy);
930                         if(hitmm(shkp,mtmp) == 1 && rn2(3) &&
931                            hitmm(mtmp,shkp) == 2) return(2);
932                         return(0);
933                 } else if(info[chi] & ALLOW_U){
934                         (void) hitu(shkp, d(mdat->damn, mdat->damd)+1);
935                         return(0);
936                 }
937                 shkp->mx = nix;
938                 shkp->my = niy;
939                 pmon(shkp);
940                 if(ib) {
941                         freeobj(ib);
942                         mpickobj(shkp, ib);
943                 }
944                 return(1);
945         }
946         return(0);
947 }
948
949 /* He is digging in the shop. */
950 shopdig(fall)
951 int fall;
952 {
953     if(!fall) {
954         if(u.utraptype == TT_PIT)
955             pline("\"Be careful, sir, or you might fall through the floor.\"");
956         else
957             pline("\"Please, do not damage the floor here.\"");
958     } else if(dist(shopkeeper->mx, shopkeeper->my) < 3) {
959         struct obj *obj, *obj2;
960
961         pline("%s grabs your backpack!", shkname(shopkeeper));
962         for(obj = invent; obj; obj = obj2) {
963                 obj2 = obj->nobj;
964                 if(obj->owornmask) continue;
965                 freeinv(obj);
966                 obj->nobj = shopkeeper->minvent;
967                 shopkeeper->minvent = obj;
968                 if(obj->unpaid)
969                         subfrombill(obj);
970         }
971     }
972 }
973 #endif QUEST
974
975 online(x,y) {
976         return(x==u.ux || y==u.uy ||
977                 (x-u.ux)*(x-u.ux) == (y-u.uy)*(y-u.uy));
978 }
979
980 /* Does this monster follow me downstairs? */
981 follower(mtmp)
982 struct monst *mtmp;
983 {
984         return( mtmp->mtame || index("1TVWZi&, ", mtmp->data->mlet)
985 #ifndef QUEST
986                 || (mtmp->isshk && ESHK(mtmp)->following)
987 #endif QUEST
988                 );
989 }