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