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.3 2004/11/06 12:29:17 eirikn 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 }