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