home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / games / volume16 / nethack31 / patch2k / patches02h
Text File  |  1993-06-16  |  55KB  |  2,033 lines
  1. *** /tmp/da11330    Tue Jun  1 16:15:37 1993
  2. --- src/rip.c    Tue Apr 27 17:00:24 1993
  3. ***************
  4. *** 1,4 ****
  5. ! /*    SCCS Id: @(#)rip.c    3.1    91/08/05
  6.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  7.   /* NetHack may be freely redistributed.  See license for details. */
  8.   
  9. --- 1,4 ----
  10. ! /*    SCCS Id: @(#)rip.c    3.1    93/04/26    */
  11.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  12.   /* NetHack may be freely redistributed.  See license for details. */
  13.   
  14. ***************
  15. *** 8,13 ****
  16. --- 8,15 ----
  17.   
  18.   extern const char *killed_by_prefix[];
  19.   
  20. + #if defined(TTY_GRAPHICS) || defined(X11_GRAPHICS) || defined(mac)
  21. + 
  22.   static const char *rip_txt[] = {
  23.   "                       ----------",
  24.   "                      /          \\",
  25. ***************
  26. *** 49,58 ****
  27.       while(*ip) *op++ = *ip++;
  28.   }
  29.   
  30.   void
  31. ! outrip(how, tmpwin)
  32. ! int how;
  33.   winid tmpwin;
  34.   {
  35.       register char **dp;
  36.       register char *dpx;
  37. --- 51,61 ----
  38.       while(*ip) *op++ = *ip++;
  39.   }
  40.   
  41. + 
  42.   void
  43. ! genl_outrip(tmpwin, how)
  44.   winid tmpwin;
  45. + int how;
  46.   {
  47.       register char **dp;
  48.       register char *dpx;
  49. ***************
  50. *** 126,130 ****
  51. --- 129,135 ----
  52.       putstr(tmpwin, 0, "");
  53.       putstr(tmpwin, 0, "");
  54.   }
  55. + 
  56. + #endif
  57.   
  58.   /*rip.c*/
  59. *** /tmp/da11354    Tue Jun  1 16:15:42 1993
  60. --- src/save.c    Fri May 28 11:32:09 1993
  61. ***************
  62. *** 1,4 ****
  63. ! /*    SCCS Id: @(#)save.c    3.1    93/02/09    */
  64.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  65.   /* NetHack may be freely redistributed.  See license for details. */
  66.   
  67. --- 1,4 ----
  68. ! /*    SCCS Id: @(#)save.c    3.1    93/05/26    */
  69.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  70.   /* NetHack may be freely redistributed.  See license for details. */
  71.   
  72. ***************
  73. *** 31,37 ****
  74.   #endif
  75.   
  76.   #ifdef ZEROCOMP
  77. ! static void FDECL(bputc, (UCHAR_P));
  78.   #endif
  79.   static void FDECL(savelevchn, (int, int));
  80.   static void FDECL(savedamage, (int,struct damage *, int));
  81. --- 31,37 ----
  82.   #endif
  83.   
  84.   #ifdef ZEROCOMP
  85. ! static void FDECL(bputc, (int));
  86.   #endif
  87.   static void FDECL(savelevchn, (int, int));
  88.   static void FDECL(savedamage, (int,struct damage *, int));
  89. ***************
  90. *** 138,149 ****
  91.       if(flags.window_inited)
  92.           clear_nhwindow(WIN_MESSAGE);
  93.   
  94. ! #ifdef MFLOPPY
  95.       if(!hu) {
  96.           dotcnt = 0;
  97.           curs(WIN_MAP, 1, 1);
  98.           putstr(WIN_MAP, 0, "Saving:");
  99.       }
  100.       /* make sure there is enough disk space */
  101.       savelev(fd, ledger_no(&u.uz), COUNT_SAVE);
  102.       savegamestate(fd, COUNT_SAVE);
  103. --- 138,151 ----
  104.       if(flags.window_inited)
  105.           clear_nhwindow(WIN_MESSAGE);
  106.   
  107. ! #ifdef MICRO
  108.       if(!hu) {
  109.           dotcnt = 0;
  110.           curs(WIN_MAP, 1, 1);
  111.           putstr(WIN_MAP, 0, "Saving:");
  112.       }
  113. + #endif
  114. + #ifdef MFLOPPY
  115.       /* make sure there is enough disk space */
  116.       savelev(fd, ledger_no(&u.uz), COUNT_SAVE);
  117.       savegamestate(fd, COUNT_SAVE);
  118. ***************
  119. *** 383,389 ****
  120.           struct rm *prm, *rgrm;
  121.           int x, y;
  122.           uchar match;
  123. !         
  124.           rgrm = &levl[0][0];        /* start matching at first rm */
  125.           match = 0;
  126.   
  127. --- 385,391 ----
  128.           struct rm *prm, *rgrm;
  129.           int x, y;
  130.           uchar match;
  131. ! 
  132.           rgrm = &levl[0][0];        /* start matching at first rm */
  133.           match = 0;
  134.   
  135. ***************
  136. *** 412,418 ****
  137.               bwrite(fd, (genericptr_t)rgrm, sizeof(struct rm));
  138.               /* start encoding again. we have at least 1 rm
  139.                * in the next run, viz. this one. */
  140. !             match = 1;    
  141.               rgrm = prm;
  142.               }
  143.           }
  144. --- 414,420 ----
  145.               bwrite(fd, (genericptr_t)rgrm, sizeof(struct rm));
  146.               /* start encoding again. we have at least 1 rm
  147.                * in the next run, viz. this one. */
  148. !             match = 1;
  149.               rgrm = prm;
  150.               }
  151.           }
  152. ***************
  153. *** 439,444 ****
  154. --- 441,447 ----
  155.       save_worm(fd, mode);    /* save worm information */
  156.       savetrapchn(fd, ftrap, mode);
  157.       saveobjchn(fd, fobj, mode);
  158. +     saveobjchn(fd, level.buriedobjlist, mode);
  159.       saveobjchn(fd, billobjs, mode);
  160.   
  161.       save_engravings(fd, mode);
  162. ***************
  163. *** 481,487 ****
  164.   
  165.   static void
  166.   bputc(c)
  167. ! unsigned char c;
  168.   {
  169.   #ifdef MFLOPPY
  170.       bytes_counted++;
  171. --- 484,490 ----
  172.   
  173.   static void
  174.   bputc(c)
  175. ! int c;
  176.   {
  177.   #ifdef MFLOPPY
  178.       bytes_counted++;
  179. ***************
  180. *** 492,498 ****
  181.       (void) write(bwritefd, outbuf, sizeof outbuf);
  182.       outbufp = 0;
  183.       }
  184. !     outbuf[outbufp++] = c;
  185.   }
  186.   
  187.   /*ARGSUSED*/
  188. --- 495,501 ----
  189.       (void) write(bwritefd, outbuf, sizeof outbuf);
  190.       outbufp = 0;
  191.       }
  192. !     outbuf[outbufp++] = (unsigned char)c;
  193.   }
  194.   
  195.   /*ARGSUSED*/
  196. ***************
  197. *** 499,504 ****
  198. --- 502,510 ----
  199.   void
  200.   bufon(fd)
  201.       int fd;
  202. + #if defined(applec)
  203. + # pragma unused(fd)
  204. + #endif
  205.   {
  206.       return;
  207.   }
  208. ***************
  209. *** 523,545 ****
  210.   
  211.   void
  212.   bwrite(fd, loc, num)
  213. ! register int fd;
  214.   genericptr_t loc;
  215.   register unsigned num;
  216.   {
  217. !       bwritefd = fd;
  218. !       for (; num; num--, (*(char **)&loc)++) {
  219. !           if (*((char *)loc) == RLESC) { /* One more char in run */
  220. !           if (++outrunlength == 0xFF) {
  221. !               flushoutrun(outrunlength);
  222. !           }
  223. !           } else { /* end of run */
  224. !           if (outrunlength >= 0) {    /* flush run */
  225. !               flushoutrun(outrunlength);
  226. !           }
  227. !           bputc(*((char *)loc));
  228. !           }
  229. !       }
  230.   }
  231.   
  232.   void
  233. --- 529,553 ----
  234.   
  235.   void
  236.   bwrite(fd, loc, num)
  237. ! int fd;
  238.   genericptr_t loc;
  239.   register unsigned num;
  240.   {
  241. !     register unsigned char *bp = (unsigned char *)loc;
  242. ! 
  243. !     bwritefd = fd;
  244. !     for (; num; num--, bp++) {
  245. !         if (*bp == RLESC) {    /* One more char in run */
  246. !         if (++outrunlength == 0xFF) {
  247. !             flushoutrun(outrunlength);
  248. !         }
  249. !         } else {        /* end of run */
  250. !         if (outrunlength >= 0) {    /* flush run */
  251. !             flushoutrun(outrunlength);
  252. !         }
  253. !         bputc(*bp);
  254. !         }
  255. !     }
  256.   }
  257.   
  258.   void
  259. ***************
  260. *** 686,692 ****
  261.           bwrite(fd, (genericptr_t) &xl, sizeof(int));
  262.           bwrite(fd, (genericptr_t) otmp, xl + sizeof(struct obj));
  263.   
  264. !         if (Is_container(otmp) || otmp->otyp == STATUE)
  265.           saveobjchn(fd,otmp->cobj,mode);
  266.           if (mode & FREE_SAVE) {
  267.           if(otmp->oclass == FOOD_CLASS) food_disappears(otmp);
  268. --- 694,700 ----
  269.           bwrite(fd, (genericptr_t) &xl, sizeof(int));
  270.           bwrite(fd, (genericptr_t) otmp, xl + sizeof(struct obj));
  271.   
  272. !         if (Has_contents(otmp))
  273.           saveobjchn(fd,otmp->cobj,mode);
  274.           if (mode & FREE_SAVE) {
  275.           if(otmp->oclass == FOOD_CLASS) food_disappears(otmp);
  276. ***************
  277. *** 711,719 ****
  278.   
  279.       while(mtmp) {
  280.           mtmp2 = mtmp->nmon;
  281. - #ifdef MUSE
  282. -         if (mtmp->mw && mtmp->mw != mtmp->minvent) sort_mwep(mtmp);
  283. - #endif
  284.           xl = mtmp->mxlth + mtmp->mnamelth;
  285.           bwrite(fd, (genericptr_t) &xl, sizeof(int));
  286.           bwrite(fd, (genericptr_t) mtmp, xl + sizeof(struct monst));
  287. --- 719,724 ----
  288. *** /tmp/da11362    Tue Jun  1 16:15:45 1993
  289. --- src/shk.c    Tue Jun  1 10:42:27 1993
  290. ***************
  291. *** 1,4 ****
  292. ! /*    SCCS Id: @(#)shk.c    3.1    93/02/09    */
  293.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  294.   /* NetHack may be freely redistributed.  See license for details. */
  295.   
  296. --- 1,4 ----
  297. ! /*    SCCS Id: @(#)shk.c    3.1    93/05/19    */
  298.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  299.   /* NetHack may be freely redistributed.  See license for details. */
  300.   
  301. ***************
  302. *** 59,64 ****
  303. --- 59,65 ----
  304.                         BOOLEAN_P));
  305.   static void FDECL(bill_box_content, (struct obj *, BOOLEAN_P, BOOLEAN_P,
  306.                        struct monst *));
  307. + static void FDECL(shk_names_obj, (struct obj *));
  308.   
  309.   /*
  310.       invariants: obj->unpaid iff onbill(obj) [unless bp->useup]
  311. ***************
  312. *** 128,134 ****
  313.   replshk(mtmp,mtmp2)
  314.   register struct monst *mtmp, *mtmp2;
  315.   {
  316. !     if(inhishop(mtmp) && *u.ushops == ESHK(mtmp)->shoproom) {
  317.           ESHK(mtmp2)->bill_p = &(ESHK(mtmp2)->bill[0]);
  318.       }
  319.   }
  320. --- 129,136 ----
  321.   replshk(mtmp,mtmp2)
  322.   register struct monst *mtmp, *mtmp2;
  323.   {
  324. !     rooms[ESHK(mtmp2)->shoproom - ROOMOFFSET].resident = mtmp2;
  325. !     if (inhishop(mtmp) && *u.ushops == ESHK(mtmp)->shoproom) {
  326.           ESHK(mtmp2)->bill_p = &(ESHK(mtmp2)->bill[0]);
  327.       }
  328.   }
  329. ***************
  330. *** 155,161 ****
  331.   register struct obj *list;
  332.   {
  333.       while (list) {
  334. !     if (Is_container(list)) clear_unpaid(list->cobj);
  335.       list->unpaid = 0;
  336.       list = list->nobj;
  337.       }
  338. --- 157,163 ----
  339.   register struct obj *list;
  340.   {
  341.       while (list) {
  342. !     if (Has_contents(list)) clear_unpaid(list->cobj);
  343.       list->unpaid = 0;
  344.       list = list->nobj;
  345.       }
  346. ***************
  347. *** 170,175 ****
  348. --- 172,178 ----
  349.   
  350.       clear_unpaid(invent);
  351.       clear_unpaid(fobj);
  352. +     clear_unpaid(level.buriedobjlist);
  353.       for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
  354.           clear_unpaid(mtmp->minvent);
  355.       for(mtmp = migrating_mons; mtmp; mtmp = mtmp->nmon)
  356. ***************
  357. *** 303,314 ****
  358.       if(!eshkp->billct && !eshkp->debit)    /* bill is settled */
  359.           return;
  360.   
  361. !     if(!*leavestring) {
  362.           /*
  363.            * Player just stepped onto shop-boundary (known from above logic).
  364.            * Try to intimidate him into paying his bill
  365.            */
  366. - 
  367.           verbalize(NOTANGRY(shkp) ?
  368.                 "%s!  Please pay before leaving." :
  369.                 "%s!  Don't you leave without paying!",
  370. --- 306,316 ----
  371.       if(!eshkp->billct && !eshkp->debit)    /* bill is settled */
  372.           return;
  373.   
  374. !     if (!*leavestring && shkp->mcanmove && !shkp->msleep) {
  375.           /*
  376.            * Player just stepped onto shop-boundary (known from above logic).
  377.            * Try to intimidate him into paying his bill
  378.            */
  379.           verbalize(NOTANGRY(shkp) ?
  380.                 "%s!  Please pay before leaving." :
  381.                 "%s!  Don't you leave without paying!",
  382. ***************
  383. *** 315,327 ****
  384.                 plname);
  385.           return;
  386.       }
  387. -         /* by this point, we know an actual robbery has taken place */
  388. -     You("escaped the shop without paying!");
  389.       total = (addupbill(shkp) + eshkp->debit);
  390. !     eshkp->robbed += total;
  391. !     eshkp->credit = 0L;
  392. !     eshkp->debit = 0L;
  393.       setpaid(shkp);
  394.       You("stole %ld zorkmid%s worth of merchandise.",
  395.           total, plur(total));
  396.       if (pl_character[0] != 'R') /* stealing is unlawful */
  397. --- 317,336 ----
  398.                 plname);
  399.           return;
  400.       }
  401.       total = (addupbill(shkp) + eshkp->debit);
  402. !     if (eshkp->credit >= total) {
  403. !         Your("credit of %ld zorkmid%s is used to cover your shopping bill.",
  404. !          eshkp->credit, plur(eshkp->credit));
  405. !         total = 0L;        /* credit gets cleared by setpaid() */
  406. !     } else {
  407. !         You("escaped the shop without paying!");
  408. !         total -= eshkp->credit;
  409. !     }
  410.       setpaid(shkp);
  411. +     if (!total) return;
  412. + 
  413. +     /* by this point, we know an actual robbery has taken place */
  414. +     eshkp->robbed += total;
  415.       You("stole %ld zorkmid%s worth of merchandise.",
  416.           total, plur(total));
  417.       if (pl_character[0] != 'R') /* stealing is unlawful */
  418. ***************
  419. *** 381,387 ****
  420.           pacify_shk(shkp);
  421.       }
  422.   
  423. !     if (eshkp->following)
  424.           return;
  425.   
  426.       if (Invis) {
  427. --- 390,396 ----
  428.           pacify_shk(shkp);
  429.       }
  430.   
  431. !     if (shkp->msleep || !shkp->mcanmove || eshkp->following) /* no dialog */
  432.           return;
  433.   
  434.       if (Invis) {
  435. ***************
  436. *** 398,405 ****
  437.                 s_suffix(shkname(shkp)),
  438.                 shtypes[rt - SHOPBASE].name);
  439.       } else if (eshkp->robbed) {
  440. !         verbalize("Beware, %s!  I am upset about missing stock!",
  441. !               plname);
  442.       } else {
  443.           verbalize("Hello, %s!  Welcome%s to %s %s!",
  444.                 plname,
  445. --- 407,413 ----
  446.                 s_suffix(shkname(shkp)),
  447.                 shtypes[rt - SHOPBASE].name);
  448.       } else if (eshkp->robbed) {
  449. !         pline("%s mutters imprecations against shoplifters.", shkname(shkp));
  450.       } else {
  451.           verbalize("Hello, %s!  Welcome%s to %s %s!",
  452.                 plname,
  453. ***************
  454. *** 418,423 ****
  455. --- 426,461 ----
  456.       return;
  457.   }
  458.   
  459. + /*
  460. +    Decide whether two unpaid items are mergable; caller is responsible for
  461. +    making sure they're unpaid and the same type of object; we check the price
  462. +    quoted by the shopkeeper and also that they both belong to the same shk.
  463. +  */
  464. + boolean same_price(obj1, obj2)
  465. + struct obj *obj1, *obj2;
  466. + {
  467. +     register struct monst *shkp1, *shkp2;
  468. +     register struct bill_x *bp1 = 0, *bp2 = 0;
  469. +     register boolean are_mergable = FALSE;
  470. + 
  471. +     /* look up the first object by finding shk whose bill it's on */
  472. +     for (shkp1 = next_shkp(fmon, TRUE); shkp1;
  473. +         shkp1 = next_shkp(shkp1, TRUE))
  474. +         if ((bp1 = onbill(obj1, shkp1, TRUE)) != 0) break;
  475. +     /* second object is probably owned by same shk; if not, look harder */
  476. +     if (shkp1 && (bp2 = onbill(obj2, shkp1, TRUE)) != 0) {
  477. +         shkp2 = shkp1;
  478. +     } else {
  479. +         for (shkp2 = next_shkp(fmon, TRUE); shkp2;
  480. +             shkp2 = next_shkp(shkp2, TRUE))
  481. +         if ((bp2 = onbill(obj2, shkp2, TRUE)) != 0) break;
  482. +     }
  483. + 
  484. +     if (!bp1 || !bp2) impossible("same_price: object wasn't on any bill!");
  485. +     else are_mergable = (shkp1 == shkp2 && bp1->price == bp2->price);
  486. +     return are_mergable;
  487. + }
  488. + 
  489.   #endif /* OVL1 */
  490.   #ifdef OVLB
  491.   
  492. ***************
  493. *** 830,835 ****
  494. --- 868,879 ----
  495.           return(0);
  496.       }
  497.   proceed:
  498. + 
  499. +     if (shkp->msleep || !shkp->mcanmove) {
  500. +         pline("%s %s.", Monnam(shkp),
  501. +               rn2(2) ? "seems to be napping" : "doesn't respond");
  502. +         return 0;
  503. +     }
  504.       eshkp = ESHK(shkp);
  505.   
  506.       ltmp = eshkp->robbed;
  507. ***************
  508. *** 1115,1120 ****
  509. --- 1159,1165 ----
  510.       }
  511.   
  512.       pay(ltmp, shkp);
  513. +     shk_names_obj(obj);    /* identify some non-magic objects */
  514.       You("bought %s for %ld gold piece%s.",
  515.           doname(obj), ltmp, plur(ltmp));
  516.       obj->quan = save_quan;        /* restore original count */
  517. ***************
  518. *** 1194,1200 ****
  519.       if(numsk > 1) {
  520.           if(cansee(shkp->mx, shkp->my) && croaked)
  521.           pline("%s %slooks at your corpse%s%s", Monnam(shkp),
  522. !              (shkp->msleep || shkp->mfrozen) ?
  523.                      "wakes up, " : "",
  524.                !rn2(2) ? (shkp->female ? ", shakes her head," :
  525.                    ", shakes his head,") : "",
  526. --- 1239,1245 ----
  527.       if(numsk > 1) {
  528.           if(cansee(shkp->mx, shkp->my) && croaked)
  529.           pline("%s %slooks at your corpse%s%s", Monnam(shkp),
  530. !              (shkp->msleep || !shkp->mcanmove) ?
  531.                      "wakes up, " : "",
  532.                !rn2(2) ? (shkp->female ? ", shakes her head," :
  533.                    ", shakes his head,") : "",
  534. ***************
  535. *** 1231,1237 ****
  536.           if((loss > u.ugold) || !loss) {
  537.               pline("%s %s%stakes all your possessions.",
  538.                   shkname(shkp),
  539. !                 (shkp->msleep || shkp->mfrozen) ?
  540.                      "wakes up and " : "",
  541.                   (distu(shkp->mx, shkp->my) > 2) ?
  542.                       "comes and " : "");
  543. --- 1276,1282 ----
  544.           if((loss > u.ugold) || !loss) {
  545.               pline("%s %s%stakes all your possessions.",
  546.                   shkname(shkp),
  547. !                 (shkp->msleep || !shkp->mcanmove) ?
  548.                      "wakes up and " : "",
  549.                   (distu(shkp->mx, shkp->my) > 2) ?
  550.                       "comes and " : "");
  551. ***************
  552. *** 1272,1278 ****
  553.               shkp->mgold += loss;
  554.               pline("%s %sand takes %ld zorkmid%s %sowed %s.",
  555.                     Monnam(shkp),
  556. !                   (shkp->msleep || shkp->mfrozen) ?
  557.                       "wakes up " : "comes ",
  558.                     loss, plur(loss),
  559.                     strncmp(eshkp->customer,
  560. --- 1317,1323 ----
  561.               shkp->mgold += loss;
  562.               pline("%s %sand takes %ld zorkmid%s %sowed %s.",
  563.                     Monnam(shkp),
  564. !                   (shkp->msleep || !shkp->mcanmove) ?
  565.                       "wakes up " : "comes ",
  566.                     loss, plur(loss),
  567.                     strncmp(eshkp->customer,
  568. ***************
  569. *** 1302,1307 ****
  570. --- 1347,1353 ----
  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, level.buriedobjlist)) &&
  575.           !(obj = o_on(id, migrating_objs))) {
  576.               for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
  577.               if ((obj = o_on(id, mtmp->minvent)) != 0)
  578. ***************
  579. *** 1385,1391 ****
  580.               price += get_cost(otmp, shkp);
  581.           }
  582.   
  583. !         if(Is_container(otmp))
  584.               price += contained_cost(otmp, shkp, price, usell);
  585.       }
  586.   
  587. --- 1431,1437 ----
  588.               price += get_cost(otmp, shkp);
  589.           }
  590.   
  591. !         if (Has_contents(otmp))
  592.               price += contained_cost(otmp, shkp, price, usell);
  593.       }
  594.   
  595. ***************
  596. *** 1403,1409 ****
  597.       for (otmp = obj->cobj; otmp; otmp = otmp->nobj)
  598.           if (otmp->oclass == GOLD_CLASS)
  599.           value += otmp->quan;
  600. !         else if (Is_container(otmp))
  601.           value += contained_gold(otmp);
  602.   
  603.       return(value);
  604. --- 1449,1455 ----
  605.       for (otmp = obj->cobj; otmp; otmp = otmp->nobj)
  606.           if (otmp->oclass == GOLD_CLASS)
  607.           value += otmp->quan;
  608. !         else if (Has_contents(otmp))
  609.           value += contained_gold(otmp);
  610.   
  611.       return(value);
  612. ***************
  613. *** 1429,1435 ****
  614.           if(!otmp->unpaid && !(sale && saleitem))
  615.           otmp->no_charge = 1;
  616.   
  617. !         if(Is_container(otmp))
  618.           dropped_container(otmp, shkp, sale);
  619.       }
  620.   }
  621. --- 1475,1481 ----
  622.           if(!otmp->unpaid && !(sale && saleitem))
  623.           otmp->no_charge = 1;
  624.   
  625. !         if (Has_contents(otmp))
  626.           dropped_container(otmp, shkp, sale);
  627.       }
  628.   }
  629. ***************
  630. *** 1448,1454 ****
  631.           if(otmp->no_charge)
  632.           otmp->no_charge = 0;
  633.   
  634. !         if(Is_container(otmp))
  635.           picked_container(otmp);
  636.       }
  637.   }
  638. --- 1494,1500 ----
  639.           if(otmp->no_charge)
  640.           otmp->no_charge = 0;
  641.   
  642. !         if (Has_contents(otmp))
  643.           picked_container(otmp);
  644.       }
  645.   }
  646. ***************
  647. *** 1563,1574 ****
  648.           /* the "top" box is added in addtobill() */
  649.           if(!otmp->no_charge)
  650.               add_one_tobill(otmp, dummy);
  651. !         if(Is_container(otmp))
  652.               bill_box_content(otmp, ininv, dummy, shkp);
  653.       }
  654.   
  655.   }
  656.   
  657.   void
  658.   addtobill(obj, ininv, dummy, silent)
  659.   register struct obj *obj;
  660. --- 1609,1635 ----
  661.           /* the "top" box is added in addtobill() */
  662.           if(!otmp->no_charge)
  663.               add_one_tobill(otmp, dummy);
  664. !         if (Has_contents(otmp))
  665.               bill_box_content(otmp, ininv, dummy, shkp);
  666.       }
  667.   
  668.   }
  669.   
  670. + static void
  671. + shk_names_obj(obj)
  672. + register struct obj *obj;
  673. + /* shopkeeper tells you what an object is */
  674. + {
  675. +     obj->dknown = TRUE;
  676. +     /* use real name for ordinary weapons/armor, and spell-less
  677. +      * scrolls/books (that is, blank and mail).
  678. +      */
  679. +     if (!objects[obj->otyp].oc_magic &&
  680. +         (obj->oclass == WEAPON_CLASS || obj->oclass == ARMOR_CLASS ||
  681. +          obj->oclass == SCROLL_CLASS || obj->oclass == SPBOOK_CLASS))
  682. +         makeknown(obj->otyp);
  683. + }
  684. + 
  685.   void
  686.   addtobill(obj, ininv, dummy, silent)
  687.   register struct obj *obj;
  688. ***************
  689. *** 1577,1583 ****
  690.       register struct monst *shkp;
  691.       register char roomno = *u.ushops;
  692.       long ltmp = 0L, cltmp = 0L, gltmp = 0L;
  693. !     register boolean container = Is_container(obj);
  694.   
  695.       if(!*u.ushops) return;
  696.   
  697. --- 1638,1644 ----
  698.       register struct monst *shkp;
  699.       register char roomno = *u.ushops;
  700.       long ltmp = 0L, cltmp = 0L, gltmp = 0L;
  701. !     register boolean container = Has_contents(obj);
  702.   
  703.       if(!*u.ushops) return;
  704.   
  705. ***************
  706. *** 1639,1645 ****
  707.       } else /* i.e., !container */
  708.           add_one_tobill(obj, dummy);
  709.   speak:
  710. !     if(!shkp->msleep && !shkp->mfrozen && !silent) {
  711.           char buf[BUFSZ];
  712.   
  713.           if(!ltmp) {
  714. --- 1700,1706 ----
  715.       } else /* i.e., !container */
  716.           add_one_tobill(obj, dummy);
  717.   speak:
  718. !     if (shkp->mcanmove && !shkp->msleep && !silent) {
  719.           char buf[BUFSZ];
  720.   
  721.           if(!ltmp) {
  722. ***************
  723. *** 1650,1667 ****
  724.           Strcpy(buf, "\"For you, ");
  725.           if (ANGRY(shkp)) Strcat(buf, "scum ");
  726.           else {
  727. !         switch(rnd(4) + u.uevent.udemigod) {
  728. !           case 1: Strcat(buf, "good");
  729. !               break;
  730. !           case 2: Strcat(buf, "honored");
  731. !               break;
  732. !           case 3: Strcat(buf, "most gracious");
  733. !               break;
  734. !           case 4: Strcat(buf, "esteemed");
  735. !               break;
  736. !           case 5: Strcat(buf, "most renowned and sacred");
  737. !               break;
  738. !         }
  739.   #ifdef POLYSELF
  740.           if(!is_human(uasmon)) Strcat(buf, " creature");
  741.           else
  742. --- 1711,1721 ----
  743.           Strcpy(buf, "\"For you, ");
  744.           if (ANGRY(shkp)) Strcat(buf, "scum ");
  745.           else {
  746. !         static const char *honored[5] = {
  747. !           "good", "honored", "most gracious", "esteemed",
  748. !           "most renowned and sacred"
  749. !         };
  750. !         Strcat(buf, honored[rn2(4) + u.uevent.udemigod]);
  751.   #ifdef POLYSELF
  752.           if(!is_human(uasmon)) Strcat(buf, " creature");
  753.           else
  754. ***************
  755. *** 1668,1676 ****
  756.   #endif
  757.               Strcat(buf, (flags.female) ? " lady" : " sir");
  758.           }
  759. -         /* after all, the shk is telling you what it is */
  760. -         obj->dknown = 1;
  761. -         exercise(A_WIS, TRUE);
  762.           if(ininv) {
  763.           long quan = obj->quan;
  764.           obj->quan = 1L; /* fool xname() into giving singular */
  765. --- 1722,1727 ----
  766. ***************
  767. *** 1777,1787 ****
  768.   
  769.       sub_one_frombill(obj, shkp);
  770.   
  771. !     if(Is_container(obj))
  772.           for(otmp = obj->cobj; otmp; otmp = otmp->nobj) {
  773.           if(otmp->oclass == GOLD_CLASS) continue;
  774.   
  775. !         if(Is_container(otmp))
  776.               subfrombill(otmp, shkp);
  777.           else
  778.               sub_one_frombill(otmp, shkp);
  779. --- 1828,1838 ----
  780.   
  781.       sub_one_frombill(obj, shkp);
  782.   
  783. !     if (Has_contents(obj))
  784.           for(otmp = obj->cobj; otmp; otmp = otmp->nobj) {
  785.           if(otmp->oclass == GOLD_CLASS) continue;
  786.   
  787. !         if (Has_contents(otmp))
  788.               subfrombill(otmp, shkp);
  789.           else
  790.               sub_one_frombill(otmp, shkp);
  791. ***************
  792. *** 1810,1816 ****
  793.   
  794.           if(otmp->oclass == GOLD_CLASS) continue;
  795.   
  796. !         if(!Is_container(otmp)) {
  797.           if(ininv) {
  798.               if(otmp->unpaid)
  799.               price += get_cost(otmp, shkp);
  800. --- 1861,1867 ----
  801.   
  802.           if(otmp->oclass == GOLD_CLASS) continue;
  803.   
  804. !         if (!Has_contents(otmp)) {
  805.           if(ininv) {
  806.               if(otmp->unpaid)
  807.               price += get_cost(otmp, shkp);
  808. ***************
  809. *** 1852,1858 ****
  810.   
  811.       if(obj->oclass == GOLD_CLASS) {
  812.           gvalue += obj->quan;
  813. !     } else if(Is_container(obj)) {
  814.           register boolean ininv = !!count_unpaid(obj->cobj);
  815.   
  816.           value += stolen_container(obj, shkp, value, ininv);
  817. --- 1903,1909 ----
  818.   
  819.       if(obj->oclass == GOLD_CLASS) {
  820.           gvalue += obj->quan;
  821. !     } else if (Has_contents(obj)) {
  822.           register boolean ininv = !!count_unpaid(obj->cobj);
  823.   
  824.           value += stolen_container(obj, shkp, value, ininv);
  825. ***************
  826. *** 1918,1924 ****
  827.       register struct monst *shkp;
  828.       register struct eshk *eshkp;
  829.       register long ltmp = 0L, cltmp = 0L, gltmp = 0L, offer;
  830. !     boolean saleitem, cgold = FALSE, container = Is_container(obj);
  831.       boolean isgold = (obj->oclass == GOLD_CLASS);
  832.   
  833.       if(!(shkp = shop_keeper(*in_rooms(x, y, SHOPBASE))) ||
  834. --- 1969,1975 ----
  835.       register struct monst *shkp;
  836.       register struct eshk *eshkp;
  837.       register long ltmp = 0L, cltmp = 0L, gltmp = 0L, offer;
  838. !     boolean saleitem, cgold = FALSE, container = Has_contents(obj);
  839.       boolean isgold = (obj->oclass == GOLD_CLASS);
  840.   
  841.       if(!(shkp = shop_keeper(*in_rooms(x, y, SHOPBASE))) ||
  842. ***************
  843. *** 1934,1951 ****
  844.           return;
  845.       }
  846.       if(container) {
  847. -         if(obj->cobj == (struct obj *)0) {
  848. -         if(obj->unpaid) {
  849. -             sub_one_frombill(obj, shkp);
  850. -             return;
  851. -         }
  852. -         } else {
  853.           /* find the price of content before subfrombill */
  854.           cltmp += contained_cost(obj, shkp, cltmp, TRUE);
  855.           /* find the value of contained gold */
  856.           gltmp += contained_gold(obj);
  857.           cgold = (gltmp > 0L);
  858. -         }
  859.       }
  860.   
  861.       if(!isgold && !obj->unpaid && saleitem)
  862. --- 1985,1995 ----
  863. ***************
  864. *** 1959,1971 ****
  865.                     (container && count_unpaid(obj->cobj)));
  866.   
  867.           if(container) {
  868. -             if(obj->cobj != (struct obj *)0) {
  869.               dropped_container(obj, shkp, FALSE);
  870.               if(!obj->unpaid && !saleitem)
  871.                   obj->no_charge = 1;
  872.               if(obj->unpaid || count_unpaid(obj->cobj))
  873.                   subfrombill(obj, shkp);
  874. -             } else obj->no_charge = 1;
  875.           } else obj->no_charge = 1;
  876.   
  877.           if(!unpaid)
  878. --- 2003,2013 ----
  879. ***************
  880. *** 1974,1986 ****
  881.       }
  882.   
  883.       /* you dropped something of your own - probably want to sell it */
  884. !     if(shkp->msleep || !shkp->mcanmove) {
  885. !         if(container && obj->cobj != (struct obj *)0) {
  886.               dropped_container(obj, shkp, TRUE);
  887. !         }
  888. !         if(!obj->unpaid && !saleitem && !isgold)
  889.               obj->no_charge = 1;
  890. !         if(!shkp->mcanmove) {
  891.               if(ANGRY(shkp) && !rn2(4))
  892.               pline("%s utters a curse.", Monnam(shkp));
  893.               else pline("%s is indisposed.", Monnam(shkp));
  894. --- 2016,2027 ----
  895.       }
  896.   
  897.       /* you dropped something of your own - probably want to sell it */
  898. !     if (shkp->msleep || !shkp->mcanmove) {
  899. !         if (container)
  900.               dropped_container(obj, shkp, TRUE);
  901. !         if (!obj->unpaid)
  902.               obj->no_charge = 1;
  903. !         if (!shkp->mcanmove) {
  904.               if(ANGRY(shkp) && !rn2(4))
  905.               pline("%s utters a curse.", Monnam(shkp));
  906.               else pline("%s is indisposed.", Monnam(shkp));
  907. ***************
  908. *** 2037,2048 ****
  909.           if(offer) goto move_on;
  910.           else {
  911.               if(!isgold) {
  912. !                 if(container && obj->cobj != (struct obj *)0) {
  913.                   dropped_container(obj, shkp, FALSE);
  914. !                 }
  915. !                 if(!obj->unpaid && !saleitem)
  916. !                 obj->no_charge = 1;
  917. !                 subfrombill(obj, shkp);
  918.               }
  919.               return;
  920.           }
  921. --- 2078,2087 ----
  922.           if(offer) goto move_on;
  923.           else {
  924.               if(!isgold) {
  925. !             if (container)
  926.                   dropped_container(obj, shkp, FALSE);
  927. !             if (!obj->unpaid && !saleitem) obj->no_charge = 1;
  928. !             subfrombill(obj, shkp);
  929.               }
  930.               return;
  931.           }
  932. ***************
  933. *** 2056,2087 ****
  934.          || (Is_candle(obj) &&
  935.              obj->age < 20L * (long)objects[obj->otyp].oc_cost)) {
  936.           pline("%s seems not interested%s.", Monnam(shkp),
  937. !                        cgold ? " in the rest" : "");
  938. !         if(container && obj->cobj != (struct obj *)0) {
  939.               dropped_container(obj, shkp, FALSE);
  940. -         }
  941.           obj->no_charge = 1;
  942.           return;
  943.       }
  944.   
  945.       if(!shkp->mgold) {
  946.           long tmpcr = (ltmp + cltmp) * 2L;
  947.   
  948. !         pline("%s cannot pay you at present.", Monnam(shkp));
  949. !         pline("Will you accept %ld zorkmids in credit for %s? ",
  950. !                      tmpcr, doname(obj));
  951. !         /* cannot use a yn function here */
  952. !         if (readchar() == 'y') {
  953.               You("have %ld zorkmids in %scredit.", tmpcr,
  954. !                 ESHK(shkp)->credit > 0L ? "additional " : "");
  955.               ESHK(shkp)->credit += tmpcr;
  956.               subfrombill(obj, shkp);
  957.           } else {
  958. !             if(container && obj->cobj != (struct obj *)0) {
  959. !                 dropped_container(obj, shkp, FALSE);
  960. !             }
  961. !             if(!obj->unpaid)
  962. !             obj->no_charge = 1;
  963.               subfrombill(obj, shkp);
  964.           }
  965.       } else {
  966. --- 2095,2131 ----
  967.          || (Is_candle(obj) &&
  968.              obj->age < 20L * (long)objects[obj->otyp].oc_cost)) {
  969.           pline("%s seems not interested%s.", Monnam(shkp),
  970. !             cgold ? " in the rest" : "");
  971. !         if (container)
  972.               dropped_container(obj, shkp, FALSE);
  973.           obj->no_charge = 1;
  974.           return;
  975.       }
  976.   
  977.       if(!shkp->mgold) {
  978. +         char c, qbuf[BUFSZ];
  979.           long tmpcr = (ltmp + cltmp) * 2L;
  980.   
  981. !         if (sell_response != 'n') {
  982. !             pline("%s cannot pay you at present.", Monnam(shkp));
  983. !             Sprintf(qbuf,
  984. !                 "Will you accept %ld zorkmids in credit for %s? ",
  985. !                 tmpcr, doname(obj));
  986. !             /* won't accept 'a' response here */
  987. !             c = ynq(qbuf);
  988. !         } else        /* previously specified "quit" */
  989. !             c = 'n';
  990. ! 
  991. !         if (c == 'y') {
  992.               You("have %ld zorkmids in %scredit.", tmpcr,
  993. !             ESHK(shkp)->credit > 0L ? "additional " : "");
  994.               ESHK(shkp)->credit += tmpcr;
  995.               subfrombill(obj, shkp);
  996.           } else {
  997. !             if (c == 'q') sell_response = 'n';
  998. !             if (container)
  999. !             dropped_container(obj, shkp, FALSE);
  1000. !             if (!obj->unpaid) obj->no_charge = 1;
  1001.               subfrombill(obj, shkp);
  1002.           }
  1003.       } else {
  1004. ***************
  1005. *** 2113,2130 ****
  1006.   
  1007.           switch (sell_response ? sell_response : ynaq(qbuf)) {
  1008.            case 'q':  sell_response = 'n';
  1009. !          case 'n':  if(container && obj->cobj != (struct obj *)0) {
  1010.                   dropped_container(obj, shkp, FALSE);
  1011. !                 }
  1012. !                     if(!obj->unpaid) obj->no_charge = 1;
  1013.                   subfrombill(obj, shkp);
  1014.                   break;
  1015.            case 'a':  sell_response = 'y';
  1016. !          case 'y':  if(container && obj->cobj != (struct obj *)0)
  1017. !                         dropped_container(obj, shkp, TRUE);
  1018. !                     if(!obj->unpaid && !saleitem)
  1019. !                     obj->no_charge = 1;
  1020. !                     subfrombill(obj, shkp);
  1021.                   pay(-offer, shkp);
  1022.                   You("sold %s for %ld gold piece%s.", doname(obj),
  1023.                   offer, plur(offer));
  1024. --- 2157,2172 ----
  1025.   
  1026.           switch (sell_response ? sell_response : ynaq(qbuf)) {
  1027.            case 'q':  sell_response = 'n';
  1028. !          case 'n':  if (container)
  1029.                   dropped_container(obj, shkp, FALSE);
  1030. !                 if (!obj->unpaid) obj->no_charge = 1;
  1031.                   subfrombill(obj, shkp);
  1032.                   break;
  1033.            case 'a':  sell_response = 'y';
  1034. !          case 'y':  if (container)
  1035. !                 dropped_container(obj, shkp, TRUE);
  1036. !                 if (!obj->unpaid && !saleitem) obj->no_charge = 1;
  1037. !                 subfrombill(obj, shkp);
  1038.                   pay(-offer, shkp);
  1039.                   You("sold %s for %ld gold piece%s.", doname(obj),
  1040.                   offer, plur(offer));
  1041. ***************
  1042. *** 2179,2194 ****
  1043.           goto quit;
  1044.           }
  1045.           if(bp->useup || bp->bquan > obj->quan) {
  1046. !         register long oquan, uquan;
  1047. !         long thisused;
  1048.   
  1049.           oquan = obj->quan;
  1050.           uquan = (bp->useup ? bp->bquan : bp->bquan - oquan);
  1051.           thisused = bp->price * uquan;
  1052.           totused += thisused;
  1053.           obj->quan = uquan;        /* cheat doname */
  1054.           buf_p = xprname(obj, ' ', FALSE, thisused);
  1055.           obj->quan = oquan;        /* restore value */
  1056.           putstr(datawin, 0, buf_p);
  1057.           }
  1058.       }
  1059. --- 2221,2244 ----
  1060.           goto quit;
  1061.           }
  1062.           if(bp->useup || bp->bquan > obj->quan) {
  1063. !         register long oquan, uquan, thisused;
  1064. !         unsigned save_unpaid;
  1065.   
  1066. +         save_unpaid = obj->unpaid;
  1067.           oquan = obj->quan;
  1068.           uquan = (bp->useup ? bp->bquan : bp->bquan - oquan);
  1069.           thisused = bp->price * uquan;
  1070.           totused += thisused;
  1071.           obj->quan = uquan;        /* cheat doname */
  1072. +         obj->unpaid = 0;        /* ditto */
  1073.           buf_p = xprname(obj, ' ', FALSE, thisused);
  1074.           obj->quan = oquan;        /* restore value */
  1075. + #ifdef __SASC
  1076. +                 /* SAS/C 6.2 can't cope for some reason */
  1077. +         sasc_bug(obj,save_unpaid);
  1078. + #else
  1079. +         obj->unpaid = save_unpaid;
  1080. + #endif
  1081.           putstr(datawin, 0, buf_p);
  1082.           }
  1083.       }
  1084. ***************
  1085. *** 2236,2241 ****
  1086. --- 2286,2292 ----
  1087.       return tmp;
  1088.   }
  1089.   
  1090. + /* shk catches thrown pick-axe */
  1091.   int
  1092.   shkcatch(obj, x, y)
  1093.   register struct obj *obj;
  1094. ***************
  1095. *** 2403,2409 ****
  1096.   
  1097.       if ((monstermoves - tmp_dam->when) < REPAIR_DELAY)
  1098.           return(0);
  1099. !     if (ESHK(shkp)->following)
  1100.           return(0);
  1101.       x = tmp_dam->place.x;
  1102.       y = tmp_dam->place.y;
  1103. --- 2454,2460 ----
  1104.   
  1105.       if ((monstermoves - tmp_dam->when) < REPAIR_DELAY)
  1106.           return(0);
  1107. !     if (shkp->msleep || !shkp->mcanmove || ESHK(shkp)->following)
  1108.           return(0);
  1109.       x = tmp_dam->place.x;
  1110.       y = tmp_dam->place.y;
  1111. ***************
  1112. *** 2448,2455 ****
  1113.                   y+vert(i)) == ESHK(shkp)->shoproom)
  1114.               litter[i] |= INSHOP;
  1115.           }
  1116. !         if (Punished && ((uchain->ox == x && uchain->oy == y) ||
  1117. !                     (uball->ox == x && uball->oy == y))) {
  1118.           /*
  1119.            * Either the ball or chain is in the repair location.
  1120.            *
  1121. --- 2499,2507 ----
  1122.                   y+vert(i)) == ESHK(shkp)->shoproom)
  1123.               litter[i] |= INSHOP;
  1124.           }
  1125. !         if (Punished && !u.uswallow &&
  1126. !                 ((uchain->ox == x && uchain->oy == y) ||
  1127. !                  (uball->ox == x && uball->oy == y))) {
  1128.           /*
  1129.            * Either the ball or chain is in the repair location.
  1130.            *
  1131. ***************
  1132. *** 2872,2878 ****
  1133.           break;
  1134.       /* note: otmp might have ->no_charge set, but that's ok */
  1135.       return (otmp && costly_spot(x, y) && NOTANGRY(shkp)
  1136. !         && !shkp->msleep && !shkp->mfrozen)
  1137.           ? otmp : (struct obj *)0;
  1138.   }
  1139.   
  1140. --- 2924,2930 ----
  1141.           break;
  1142.       /* note: otmp might have ->no_charge set, but that's ok */
  1143.       return (otmp && costly_spot(x, y) && NOTANGRY(shkp)
  1144. !         && shkp->mcanmove && !shkp->msleep)
  1145.           ? otmp : (struct obj *)0;
  1146.   }
  1147.   
  1148. ***************
  1149. *** 2950,2955 ****
  1150. --- 3002,3048 ----
  1151.       return ".";
  1152.   }
  1153.   
  1154. + #ifdef SOUNDS
  1155. + void
  1156. + shk_chat(shkp)
  1157. + register struct monst *shkp;
  1158. + {
  1159. +     register struct eshk *eshk = ESHK(shkp);
  1160. + 
  1161. +     if (ANGRY(shkp))
  1162. +         pline("%s mentions how much %s dislikes %s customers.",
  1163. +             shkname(shkp), he[shkp->female],
  1164. +             eshk->robbed ? "non-paying" : "rude");
  1165. +     else if (eshk->following)
  1166. +         if (strncmp(eshk->customer, plname, PL_NSIZ)) {
  1167. +             verbalize("Hello %s!  I was looking for %s.",
  1168. +                 plname, eshk->customer);
  1169. +             eshk->following = 0;
  1170. +         } else {
  1171. +             verbalize("Hello %s!  Didn't you forget to pay?", plname);
  1172. +         }
  1173. +     else if (eshk->billct) {
  1174. +         register long total = addupbill(shkp) + eshk->debit;
  1175. +         pline("%s says that your bill comes to %ld zorkmid%s.",
  1176. +               shkname(shkp), total, plur(total));
  1177. +     } else if (eshk->debit)
  1178. +         pline("%s reminds you that you owe %s %ld zorkmid%s.",
  1179. +               shkname(shkp), him[shkp->female],
  1180. +               eshk->debit, plur(eshk->debit));
  1181. +     else if (eshk->credit)
  1182. +         pline("%s encourages you to use your %ld zorkmid%s of credit.",
  1183. +               shkname(shkp), eshk->credit, plur(eshk->credit));
  1184. +     else if (eshk->robbed)
  1185. +         pline("%s complains about a recent robbery.", shkname(shkp));
  1186. +     else if (shkp->mgold < 50)
  1187. +         pline("%s complains that business is bad.", shkname(shkp));
  1188. +     else if (shkp->mgold > 4000)
  1189. +         pline("%s says that business is good.", shkname(shkp));
  1190. +     else
  1191. +         pline("%s talks about the problem of shoplifters.", shkname(shkp));
  1192. + }
  1193. + #endif  /* SOUNDS */
  1194. + 
  1195.   #ifdef KOPS
  1196.   static void
  1197.   kops_gone(silent)
  1198. ***************
  1199. *** 3008,3014 ****
  1200.       } else if (otmp->oclass == SPBOOK_CLASS) {
  1201.               tmp -= tmp / 5L;
  1202.       } else if (otmp->otyp == CAN_OF_GREASE)
  1203. !                 tmp /= 10L;
  1204.       return(tmp);
  1205.   }
  1206.   
  1207. --- 3101,3107 ----
  1208.       } else if (otmp->oclass == SPBOOK_CLASS) {
  1209.               tmp -= tmp / 5L;
  1210.       } else if (otmp->otyp == CAN_OF_GREASE)
  1211. !             tmp /= 10L;
  1212.       return(tmp);
  1213.   }
  1214.   
  1215. ***************
  1216. *** 3140,3144 ****
  1217. --- 3233,3243 ----
  1218.   }
  1219.   
  1220.   #endif /* OVLB */
  1221. + 
  1222. + #ifdef __SASC
  1223. + sasc_bug(struct obj *op, unsigned x){
  1224. +     op->unpaid=x;
  1225. + }
  1226. + #endif
  1227.   
  1228.   /*shk.c*/
  1229. *** /tmp/da11370    Tue Jun  1 16:15:50 1993
  1230. --- src/shknam.c    Mon May 17 14:05:04 1993
  1231. ***************
  1232. *** 1,4 ****
  1233. ! /*    SCCS Id: @(#)shknam.c    3.1    93/02/17    */
  1234.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1235.   /* NetHack may be freely redistributed.  See license for details. */
  1236.   
  1237. --- 1,4 ----
  1238. ! /*    SCCS Id: @(#)shknam.c    3.1    93/05/15    */
  1239.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1240.   /* NetHack may be freely redistributed.  See license for details. */
  1241.   
  1242. ***************
  1243. *** 10,16 ****
  1244.   #ifdef OVLB
  1245.   
  1246.   static void FDECL(mkshobj_at, (const struct shclass *,int,int));
  1247. ! static void FDECL(findname, (char *,const char **));
  1248.   static int  FDECL(shkinit, (const struct shclass *,struct mkroom *));
  1249.   
  1250.   static const char *shkliquors[] = {
  1251. --- 10,16 ----
  1252.   #ifdef OVLB
  1253.   
  1254.   static void FDECL(mkshobj_at, (const struct shclass *,int,int));
  1255. ! static void FDECL(nameshk, (struct monst *,const char **));
  1256.   static int  FDECL(shkinit, (const struct shclass *,struct mkroom *));
  1257.   
  1258.   static const char *shkliquors[] = {
  1259. ***************
  1260. *** 123,128 ****
  1261. --- 123,140 ----
  1262.       ""
  1263.   };
  1264.   
  1265. + static const char *shklight[] = {
  1266. +     /* Romania */
  1267. +     "Zarnesti", "Slanic", "Nehoiasu", "Ludus", "Sighisoara", "Nisipitu",
  1268. +     "Razboieni", "Bicaz", "Dorohoi", "Vaslui", "Fetesti", "Tirgu Neamt",
  1269. +     "Babadag", "Zimnicea", "Zlatna", "Jiu", "Eforie", "Mamaia",
  1270. +     /* Bulgaria */
  1271. +     "Silistra", "Tulovo", "Panagyuritshte", "Smolyan", "Kirklareli",
  1272. +     "Pernik", "Lom", "Haskovo", "Dobrinishte", "Varvara", "Oryahovo",
  1273. +     "Troyan", "Lovech", "Sliven",
  1274. +     ""
  1275. + };
  1276. + 
  1277.   static const char *shkgeneral[] = {
  1278.       /* Suriname */
  1279.       "Hebiwerie", "Possogroenoe", "Asidonhopo", "Manlobbi",
  1280. ***************
  1281. *** 191,197 ****
  1282.        */
  1283.       {"lighting store", TOOL_CLASS, 0, D_SHOP,
  1284.           {{32, -WAX_CANDLE}, {50, -TALLOW_CANDLE},
  1285. !          {5, -BRASS_LANTERN}, {10, -OIL_LAMP}, {3, -MAGIC_LAMP}},shktools},
  1286.       {NULL, 0, 0, 0, {{0, 0}, {0, 0}, {0, 0}}, 0}
  1287.   };
  1288.   
  1289. --- 203,209 ----
  1290.        */
  1291.       {"lighting store", TOOL_CLASS, 0, D_SHOP,
  1292.           {{32, -WAX_CANDLE}, {50, -TALLOW_CANDLE},
  1293. !          {5, -BRASS_LANTERN}, {10, -OIL_LAMP}, {3, -MAGIC_LAMP}}, shklight},
  1294.       {NULL, 0, 0, 0, {{0, 0}, {0, 0}, {0, 0}}, 0}
  1295.   };
  1296.   
  1297. ***************
  1298. *** 247,273 ****
  1299.       else (void) mkobj_at(atype, sx, sy, TRUE);
  1300.   }
  1301.   
  1302. - static void
  1303. - findname(nampt, nlp)
  1304.   /* extract a shopkeeper name for the given shop type */
  1305. !     char *nampt;
  1306. !     const char *nlp[];
  1307.   {
  1308. !     register int i;
  1309.   
  1310. !     for(i = 0; i < ledger_no(&u.uz); i++) /* Note: _not_ depth */
  1311. !     if (!*nlp[i]) {
  1312. !         /* Not enough names, try random/general name */
  1313. !         if((i = rn2(i)))
  1314. !         break;
  1315. !         else if (nlp != shkgeneral)
  1316. !         findname(nampt, shkgeneral);
  1317. !         else
  1318. !         Strcpy(nampt, "Dirk");
  1319. !         return;
  1320.       }
  1321. !     (void) strncpy(nampt, nlp[i-1], PL_NSIZ);
  1322. !     nampt[PL_NSIZ-1] = 0;
  1323.   }
  1324.   
  1325.   static int
  1326. --- 259,313 ----
  1327.       else (void) mkobj_at(atype, sx, sy, TRUE);
  1328.   }
  1329.   
  1330.   /* extract a shopkeeper name for the given shop type */
  1331. ! static void
  1332. ! nameshk(shk, nlp)
  1333. ! struct monst *shk;
  1334. ! const char *nlp[];
  1335.   {
  1336. !     int i, try, names_avail;
  1337. !     const char *shname = 0;
  1338. !     struct monst *mtmp;
  1339. !     int name_wanted = ledger_no(&u.uz);    /* Note: _not_ depth */
  1340.   
  1341. !     for (names_avail = 0; *nlp[names_avail]; names_avail++)
  1342. !         ;
  1343. ! 
  1344. !     for (try = 0; try < 50; try++) {
  1345. !         if (nlp == shktools) {
  1346. !             shname = shktools[rn2(names_avail)];
  1347. !             shk->female = (*shname == '_');
  1348. !             if (shk->female) shname++;
  1349. !         } else {
  1350. !             shk->female = name_wanted % 2;
  1351. ! 
  1352. !             if (name_wanted < names_avail) {
  1353. !             shname = nlp[name_wanted];
  1354. !             } else {
  1355. !             if ((i = rn2(names_avail)) != 0)
  1356. !                 shname = nlp[i-1];
  1357. !             else if (nlp != shkgeneral) {
  1358. !                 nlp = shkgeneral;    /* try general names */
  1359. !                 for (names_avail = 0; *nlp[names_avail];
  1360. !                                 names_avail++)
  1361. !                     ;
  1362. !                 continue;
  1363. !             } else
  1364. !                 shname = "Dirk";
  1365. !             }
  1366. !         }
  1367. ! 
  1368. !         /* is name already is use on this level? */
  1369. !         for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
  1370. !             if (mtmp == shk) continue;
  1371. !             if (!mtmp->isshk) continue;
  1372. !             if (strcmp(ESHK(mtmp)->shknam, shname)) continue;
  1373. !             break;
  1374. !         }
  1375. !         if (!mtmp) break;    /* new name */
  1376.       }
  1377. !     (void) strncpy(ESHK(shk)->shknam, shname, PL_NSIZ);
  1378. !     ESHK(shk)->shknam[PL_NSIZ-1] = 0;
  1379.   }
  1380.   
  1381.   static int
  1382. ***************
  1383. *** 328,336 ****
  1384.   
  1385.       /* now initialize the shopkeeper monster structure */
  1386.       if(!(shk = makemon(&mons[PM_SHOPKEEPER], sx, sy))) return(-1);
  1387. !     shk->isshk = shk->mpeaceful = 1;
  1388.       set_malign(shk);
  1389. !     shk->msleep = 0;
  1390.       shk->mtrapseen = ~0;    /* we know all the traps already */
  1391.       ESHK(shk)->shoproom = (sroom - rooms) + ROOMOFFSET;
  1392.       sroom->resident = shk;
  1393. --- 368,376 ----
  1394.   
  1395.       /* now initialize the shopkeeper monster structure */
  1396.       if(!(shk = makemon(&mons[PM_SHOPKEEPER], sx, sy))) return(-1);
  1397. !     shk->isshk = shk->mpeaceful = TRUE;
  1398.       set_malign(shk);
  1399. !     shk->msleep = FALSE;
  1400.       shk->mtrapseen = ~0;    /* we know all the traps already */
  1401.       ESHK(shk)->shoproom = (sroom - rooms) + ROOMOFFSET;
  1402.       sroom->resident = shk;
  1403. ***************
  1404. *** 347,362 ****
  1405.       ESHK(shk)->following = 0;
  1406.       ESHK(shk)->billct = 0;
  1407.       shk->mgold = 1000L + 30L*(long)rnd(100);    /* initial capital */
  1408. !     if (shp->shknms == shktools) {
  1409. !         int who = rn2(SIZE(shktools) - 1);
  1410. !         const char *shname = shp->shknms[who];
  1411. !         if (shk->female = (*shname == '_')) shname++;
  1412. !         (void) strncpy(ESHK(shk)->shknam, shname, PL_NSIZ);
  1413. !         ESHK(shk)->shknam[PL_NSIZ-1] = 0;
  1414. !     } else {
  1415. !         shk->female = ledger_no(&u.uz)%2;
  1416. !         findname(ESHK(shk)->shknam, shp->shknms);
  1417. !     }
  1418.   
  1419.       return(sh);
  1420.   }
  1421. --- 387,393 ----
  1422.       ESHK(shk)->following = 0;
  1423.       ESHK(shk)->billct = 0;
  1424.       shk->mgold = 1000L + 30L*(long)rnd(100);    /* initial capital */
  1425. !     nameshk(shk, shp->shknms);
  1426.   
  1427.       return(sh);
  1428.   }
  1429. ***************
  1430. *** 427,433 ****
  1431.        * monsters will sit on top of objects and not the other way around.
  1432.        */
  1433.   
  1434. !     level.flags.has_shop = 1;
  1435.   }
  1436.   
  1437.   #endif /* OVLB */
  1438. --- 458,464 ----
  1439.        * monsters will sit on top of objects and not the other way around.
  1440.        */
  1441.   
  1442. !     level.flags.has_shop = TRUE;
  1443.   }
  1444.   
  1445.   #endif /* OVLB */
  1446. *** /tmp/da11378    Tue Jun  1 16:15:53 1993
  1447. --- src/sit.c    Thu May 20 15:43:51 1993
  1448. ***************
  1449. *** 1,4 ****
  1450. ! /*    SCCS Id: @(#)sit.c    3.1    92/10/24    */
  1451.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1452.   /* NetHack may be freely redistributed.  See license for details. */
  1453.   
  1454. --- 1,4 ----
  1455. ! /*    SCCS Id: @(#)sit.c    3.1    93/05/19    */
  1456.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1457.   /* NetHack may be freely redistributed.  See license for details. */
  1458.   
  1459. ***************
  1460. *** 36,42 ****
  1461.           You("sit on %s.", the(xname(obj)));
  1462.           if(!Is_box(obj)) pline("It's not very comfortable...");
  1463.   
  1464. !     } else if(trap = t_at(u.ux, u.uy)) {
  1465.   
  1466.           if (u.utrap) {
  1467.           exercise(A_WIS, FALSE);    /* you're getting stuck longer */
  1468. --- 36,42 ----
  1469.           You("sit on %s.", the(xname(obj)));
  1470.           if(!Is_box(obj)) pline("It's not very comfortable...");
  1471.   
  1472. !     } else if ((trap = t_at(u.ux, u.uy)) != 0) {
  1473.   
  1474.           if (u.utrap) {
  1475.           exercise(A_WIS, FALSE);    /* you're getting stuck longer */
  1476. ***************
  1477. *** 211,219 ****
  1478.               You("are granted an insight!");
  1479.               if (invent) {
  1480.                   int ret, cval = rn2(5); /* agrees w/seffects() */
  1481.                   do {
  1482.                   ret = ggetobj("identify", identify, cval);
  1483. !                 } while (cval && (cval -= ret));
  1484.               }
  1485.               break;
  1486.               case 13:
  1487. --- 211,221 ----
  1488.               You("are granted an insight!");
  1489.               if (invent) {
  1490.                   int ret, cval = rn2(5); /* agrees w/seffects() */
  1491. +                 /* use up `cval' "charges"; 0 is special case */
  1492.                   do {
  1493.                   ret = ggetobj("identify", identify, cval);
  1494. !                 if (ret < 0) break;    /* quit */
  1495. !                 } while (ret == 0 || (cval -= ret) > 0);
  1496.               }
  1497.               break;
  1498.               case 13:
  1499. ***************
  1500. *** 261,267 ****
  1501.       } else if (u.uswallow)
  1502.           pline("There are no seats in here!");
  1503.       else
  1504. !         pline("Having fun sitting on the floor?");
  1505.       return(1);
  1506.   }
  1507.   
  1508. --- 263,269 ----
  1509.       } else if (u.uswallow)
  1510.           pline("There are no seats in here!");
  1511.       else
  1512. !         pline("Having fun sitting on the %s?", surface(u.ux,u.uy));
  1513.       return(1);
  1514.   }
  1515.   
  1516. ***************
  1517. *** 271,280 ****
  1518.       int    nobj = 0;
  1519.       int    cnt, onum;
  1520.       struct    obj    *otmp;
  1521.   
  1522.       if(Antimagic) {
  1523.           shieldeff(u.ux, u.uy);
  1524. !         You("feel a malignant aura surround you.");
  1525.       }
  1526.   
  1527.       for (otmp = invent; otmp; otmp = otmp->nobj)  nobj++;
  1528. --- 273,288 ----
  1529.       int    nobj = 0;
  1530.       int    cnt, onum;
  1531.       struct    obj    *otmp;
  1532. +     static const char *mal_aura = "feel a malignant aura surround %s.";
  1533.   
  1534. +     if (uwep && (uwep->oartifact == ART_MAGICBANE) && rn2(20)) {
  1535. +         You(mal_aura, "the magic-absorbing blade");
  1536. +         return;
  1537. +     }
  1538. + 
  1539.       if(Antimagic) {
  1540.           shieldeff(u.ux, u.uy);
  1541. !         You(mal_aura, "you");
  1542.       }
  1543.   
  1544.       for (otmp = invent; otmp; otmp = otmp->nobj)  nobj++;
  1545. *** /tmp/da11402    Tue Jun  1 16:16:01 1993
  1546. --- src/spell.c    Mon May 17 14:05:10 1993
  1547. ***************
  1548. *** 1,4 ****
  1549. ! /*    SCCS Id: @(#)spell.c    3.1    92/12/10
  1550.   /*    Copyright (c) M. Stephenson 1988              */
  1551.   /* NetHack may be freely redistributed.  See license for details. */
  1552.   
  1553. --- 1,4 ----
  1554. ! /*    SCCS Id: @(#)spell.c    3.1    93/05/15    */
  1555.   /*    Copyright (c) M. Stephenson 1988              */
  1556.   /* NetHack may be freely redistributed.  See license for details. */
  1557.   
  1558. ***************
  1559. *** 105,111 ****
  1560.       }
  1561.   
  1562.       if(!u.uhave.bell || !u.uhave.menorah) {
  1563. !         pline("A chill runs down your spine.");
  1564.           if(!u.uhave.bell) You("hear a faint chime...");
  1565.           if(!u.uhave.menorah) pline("Vlad's doppelganger is amused.");
  1566.           return;
  1567. --- 105,111 ----
  1568.       }
  1569.   
  1570.       if(!u.uhave.bell || !u.uhave.menorah) {
  1571. !         pline("A chill runs down your %s.", body_part(SPINE));
  1572.           if(!u.uhave.bell) You("hear a faint chime...");
  1573.           if(!u.uhave.menorah) pline("Vlad's doppelganger is amused.");
  1574.           return;
  1575. ***************
  1576. *** 149,155 ****
  1577.       mm.y = u.uy;
  1578.       mkundead(&mm);
  1579.       if(!rn2(4))
  1580. !         if(mtmp = makemon(&mons[PM_MASTER_LICH],u.ux,u.uy)) {
  1581.           mtmp->mpeaceful = 0;
  1582.           set_malign(mtmp);
  1583.           }
  1584. --- 149,155 ----
  1585.       mm.y = u.uy;
  1586.       mkundead(&mm);
  1587.       if(!rn2(4))
  1588. !         if ((mtmp = makemon(&mons[PM_MASTER_LICH],u.ux,u.uy)) != 0) {
  1589.           mtmp->mpeaceful = 0;
  1590.           set_malign(mtmp);
  1591.           }
  1592. ***************
  1593. *** 494,499 ****
  1594. --- 494,501 ----
  1595.       case SPE_FINGER_OF_DEATH:
  1596.       case SPE_LIGHT:
  1597.       case SPE_DETECT_UNSEEN:
  1598. +     case SPE_HEALING:
  1599. +     case SPE_EXTRA_HEALING:
  1600.           if (!(objects[pseudo->otyp].oc_dir == NODIR)) {
  1601.               if (atme) u.dx = u.dy = u.dz = 0;
  1602.               else (void) getdir(NULL);
  1603. ***************
  1604. *** 524,533 ****
  1605.       case SPE_INVISIBILITY:
  1606.           (void) peffects(pseudo);
  1607.           break;
  1608. -     case SPE_HEALING:
  1609. -         You("feel a bit better.");
  1610. -         healup(rnd(8), 0, FALSE, FALSE);
  1611. -         break;
  1612.       case SPE_CURE_BLINDNESS:
  1613.           healup(0, 0, FALSE, TRUE);
  1614.           break;
  1615. --- 526,531 ----
  1616. ***************
  1617. *** 534,543 ****
  1618.       case SPE_CURE_SICKNESS:
  1619.           if (Sick) You("are no longer ill.");
  1620.           healup(0, 0, TRUE, FALSE);
  1621. -         break;
  1622. -     case SPE_EXTRA_HEALING:
  1623. -         You("feel a fair bit better.");
  1624. -         healup(d(2,8)+2, 0, FALSE, FALSE);
  1625.           break;
  1626.       case SPE_CREATE_FAMILIAR:
  1627.           make_familiar((struct obj *)0, u.ux, u.uy);
  1628. --- 532,537 ----
  1629. *** /tmp/da11410    Tue Jun  1 16:16:03 1993
  1630. --- src/steal.c    Tue Jun  1 11:58:39 1993
  1631. ***************
  1632. *** 1,4 ****
  1633. ! /*    SCCS Id: @(#)steal.c    3.1    92/10/14    */
  1634.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1635.   /* NetHack may be freely redistributed.  See license for details. */
  1636.   
  1637. --- 1,4 ----
  1638. ! /*    SCCS Id: @(#)steal.c    3.1    93/05/30    */
  1639.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1640.   /* NetHack may be freely redistributed.  See license for details. */
  1641.   
  1642. ***************
  1643. *** 11,20 ****
  1644.   
  1645.   static const char *
  1646.   equipname(otmp)
  1647. ! 
  1648. !     register struct obj *otmp;
  1649.   {
  1650. - 
  1651.       return (
  1652.   #ifdef TOURIST
  1653.           (otmp == uarmu) ? "shirt" :
  1654. --- 11,18 ----
  1655.   
  1656.   static const char *
  1657.   equipname(otmp)
  1658. ! register struct obj *otmp;
  1659.   {
  1660.       return (
  1661.   #ifdef TOURIST
  1662.           (otmp == uarmu) ? "shirt" :
  1663. ***************
  1664. *** 27,33 ****
  1665.   }
  1666.   
  1667.   long        /* actually returns something that fits in an int */
  1668. ! somegold(){
  1669.   #ifdef LINT    /* long conv. ok */
  1670.       return(0L);
  1671.   #else
  1672. --- 25,32 ----
  1673.   }
  1674.   
  1675.   long        /* actually returns something that fits in an int */
  1676. ! somegold()
  1677. ! {
  1678.   #ifdef LINT    /* long conv. ok */
  1679.       return(0L);
  1680.   #else
  1681. ***************
  1682. *** 50,56 ****
  1683.           pline("%s quickly snatches some gold from between your %s!",
  1684.               Monnam(mtmp), makeplural(body_part(FOOT)));
  1685.           if(!u.ugold || !rn2(5)) {
  1686. !         rloc(mtmp);
  1687.           mtmp->mflee = 1;
  1688.           }
  1689.       } else if(u.ugold) {
  1690. --- 49,55 ----
  1691.           pline("%s quickly snatches some gold from between your %s!",
  1692.               Monnam(mtmp), makeplural(body_part(FOOT)));
  1693.           if(!u.ugold || !rn2(5)) {
  1694. !         if (!tele_restrict(mtmp)) rloc(mtmp);
  1695.           mtmp->mflee = 1;
  1696.           }
  1697.       } else if(u.ugold) {
  1698. ***************
  1699. *** 57,63 ****
  1700.           u.ugold -= (tmp = somegold());
  1701.           Your("purse feels lighter.");
  1702.           mtmp->mgold += tmp;
  1703. !         rloc(mtmp);
  1704.           mtmp->mflee = 1;
  1705.           flags.botl = 1;
  1706.       }
  1707. --- 56,62 ----
  1708.           u.ugold -= (tmp = somegold());
  1709.           Your("purse feels lighter.");
  1710.           mtmp->mgold += tmp;
  1711. !         if (!tele_restrict(mtmp)) rloc(mtmp);
  1712.           mtmp->mflee = 1;
  1713.           flags.botl = 1;
  1714.       }
  1715. ***************
  1716. *** 68,74 ****
  1717.   unsigned int stealmid;        /* monster doing the stealing */
  1718.   
  1719.   STATIC_OVL int
  1720. ! stealarm(){
  1721.       register struct monst *mtmp;
  1722.       register struct obj *otmp;
  1723.   
  1724. --- 67,74 ----
  1725.   unsigned int stealmid;        /* monster doing the stealing */
  1726.   
  1727.   STATIC_OVL int
  1728. ! stealarm()
  1729. ! {
  1730.       register struct monst *mtmp;
  1731.       register struct obj *otmp;
  1732.   
  1733. ***************
  1734. *** 82,88 ****
  1735.             pline("%s steals %s!", Monnam(mtmp), doname(otmp));
  1736.             mpickobj(mtmp,otmp);
  1737.             mtmp->mflee = 1;
  1738. !           rloc(mtmp);
  1739.           break;
  1740.             }
  1741.           break;
  1742. --- 82,88 ----
  1743.             pline("%s steals %s!", Monnam(mtmp), doname(otmp));
  1744.             mpickobj(mtmp,otmp);
  1745.             mtmp->mflee = 1;
  1746. !           if (!tele_restrict(mtmp)) rloc(mtmp);
  1747.           break;
  1748.             }
  1749.           break;
  1750. ***************
  1751. *** 263,270 ****
  1752. --- 263,275 ----
  1753.   register struct monst *mtmp;
  1754.   register struct obj *otmp;
  1755.   {
  1756. +     if (otmp->otyp == GOLD_PIECE) {    /* from floor etc. -- not inventory */
  1757. +     mtmp->mgold += otmp->quan;
  1758. +     obfree(otmp, (struct obj *)0);
  1759. +     } else {
  1760.       otmp->nobj = mtmp->minvent;
  1761.       mtmp->minvent = otmp;
  1762. +     }
  1763.   }
  1764.   
  1765.   #endif /* OVL1 */
  1766. ***************
  1767. *** 278,288 ****
  1768.       register int    real, fake;
  1769.   
  1770.       /* select the artifact to steal */
  1771. !         if(u.uhave.amulet) {
  1772.           real = AMULET_OF_YENDOR ;
  1773.           fake = FAKE_AMULET_OF_YENDOR ;
  1774.   #ifdef MULDGN
  1775.       } else if(u.uhave.questart) {
  1776.           for(otmp = invent; otmp; otmp = otmp->nobj)
  1777.               if(is_quest_artifact(otmp)) goto snatch_it;
  1778.   #endif
  1779. --- 283,294 ----
  1780.       register int    real, fake;
  1781.   
  1782.       /* select the artifact to steal */
  1783. !     if(u.uhave.amulet) {
  1784.           real = AMULET_OF_YENDOR ;
  1785.           fake = FAKE_AMULET_OF_YENDOR ;
  1786.   #ifdef MULDGN
  1787.       } else if(u.uhave.questart) {
  1788. +         real = fake = 0;        /* gcc -Wall lint */
  1789.           for(otmp = invent; otmp; otmp = otmp->nobj)
  1790.               if(is_quest_artifact(otmp)) goto snatch_it;
  1791.   #endif
  1792. ***************
  1793. *** 302,312 ****
  1794.           if(otmp->otyp == real || (otmp->otyp == fake && !mtmp->iswiz)) {
  1795.           /* might be an imitation one */
  1796.   snatch_it:
  1797.           setnotworn(otmp);
  1798.           freeinv(otmp);
  1799.           mpickobj(mtmp,otmp);
  1800.           pline("%s stole %s!", Monnam(mtmp), doname(otmp));
  1801. !         if (can_teleport(mtmp->data)) rloc(mtmp);
  1802.           return;
  1803.           }
  1804.       }
  1805. --- 308,322 ----
  1806.           if(otmp->otyp == real || (otmp->otyp == fake && !mtmp->iswiz)) {
  1807.           /* might be an imitation one */
  1808.   snatch_it:
  1809. + #ifdef MULDGN
  1810. +         if (otmp->oclass == ARMOR_CLASS) adj_abon(otmp, -(otmp->spe));
  1811. + #endif
  1812.           setnotworn(otmp);
  1813.           freeinv(otmp);
  1814.           mpickobj(mtmp,otmp);
  1815.           pline("%s stole %s!", Monnam(mtmp), doname(otmp));
  1816. !         if (can_teleport(mtmp->data) && !tele_restrict(mtmp))
  1817. !             rloc(mtmp);
  1818.           return;
  1819.           }
  1820.       }
  1821. ***************
  1822. *** 315,353 ****
  1823.   #endif /* OVLB */
  1824.   #ifdef OVL0
  1825.   
  1826. ! /* release the objects the killed animal was carrying */
  1827.   void
  1828.   relobj(mtmp,show,is_pet)
  1829.   register struct monst *mtmp;
  1830.   register int show;
  1831. ! boolean is_pet;        /* If true, pet should keep wielded weapon */
  1832.   {
  1833.       register struct obj *otmp, *otmp2;
  1834.       register int omx = mtmp->mx, omy = mtmp->my;
  1835. - 
  1836.   #ifdef MUSE
  1837. !     otmp2 = otmp = 0;
  1838. !     if (is_pet) {
  1839. !         sort_mwep(mtmp);
  1840. !         if ((otmp2 = MON_WEP(mtmp))) {
  1841. !             otmp = otmp2->nobj;
  1842. !             otmp2->nobj = 0;
  1843. !         }
  1844. !     }
  1845. !     if (!otmp2)
  1846.   #endif
  1847. -     {    otmp = mtmp->minvent;
  1848. -         mtmp->minvent = 0;
  1849. -     }
  1850.   
  1851.       for (; otmp; otmp = otmp2) {
  1852.   #ifdef MUSE
  1853. !         if (otmp->owornmask) {
  1854.               mtmp->misc_worn_check &= ~(otmp->owornmask);
  1855.               otmp->owornmask = 0L;
  1856.           }
  1857.   #endif
  1858. -         otmp2 = otmp->nobj;
  1859.           if (is_pet && cansee(omx, omy) && flags.verbose)
  1860.               pline("%s drops %s.", Monnam(mtmp),
  1861.                       distant_name(otmp, doname));
  1862. --- 325,364 ----
  1863.   #endif /* OVLB */
  1864.   #ifdef OVL0
  1865.   
  1866. ! /* release the objects the creature is carrying */
  1867.   void
  1868.   relobj(mtmp,show,is_pet)
  1869.   register struct monst *mtmp;
  1870.   register int show;
  1871. ! boolean is_pet;        /* If true, pet should keep wielded/worn items */
  1872.   {
  1873.       register struct obj *otmp, *otmp2;
  1874.       register int omx = mtmp->mx, omy = mtmp->my;
  1875.   #ifdef MUSE
  1876. !     struct obj *backobj = 0;
  1877. !     struct obj *wep = MON_WEP(mtmp);
  1878.   #endif
  1879.   
  1880. +     otmp = mtmp->minvent;
  1881. +     mtmp->minvent = 0;
  1882.       for (; otmp; otmp = otmp2) {
  1883. +         otmp2 = otmp->nobj;
  1884.   #ifdef MUSE
  1885. !         if (otmp->owornmask || otmp == wep) {
  1886. !             if (is_pet) { /* skip worn/wielded item */
  1887. !                 if (!backobj) {
  1888. !                     mtmp->minvent = backobj = otmp;
  1889. !                 } else {
  1890. !                     backobj->nobj = otmp;
  1891. !                     backobj = backobj->nobj;
  1892. !                 }
  1893. !                 continue;
  1894. !             }
  1895.               mtmp->misc_worn_check &= ~(otmp->owornmask);
  1896.               otmp->owornmask = 0L;
  1897.           }
  1898. +         if (backobj) backobj->nobj = otmp->nobj;
  1899.   #endif
  1900.           if (is_pet && cansee(omx, omy) && flags.verbose)
  1901.               pline("%s drops %s.", Monnam(mtmp),
  1902.                       distant_name(otmp, doname));
  1903. *** /tmp/da11418    Tue Jun  1 16:16:06 1993
  1904. --- src/timeout.c    Wed Mar 31 14:20:11 1993
  1905. ***************
  1906. *** 1,4 ****
  1907. ! /*    SCCS Id: @(#)timeout.c    3.1    92/11/01    */
  1908.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1909.   /* NetHack may be freely redistributed.  See license for details. */
  1910.   
  1911. --- 1,4 ----
  1912. ! /*    SCCS Id: @(#)timeout.c    3.1    93/03/30    */
  1913.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1914.   /* NetHack may be freely redistributed.  See license for details. */
  1915.   
  1916. ***************
  1917. *** 164,172 ****
  1918.               break;
  1919.           case INVIS:
  1920.               newsym(u.ux,u.uy);
  1921. !             if (!Invis && !See_invisible && !Blind)
  1922.                   You("are no longer invisible.");
  1923. !             stop_occupation();
  1924.               break;
  1925.           case SEE_INVIS:
  1926.               set_mimic_blocking(); /* do special mimic handling */
  1927. --- 164,173 ----
  1928.               break;
  1929.           case INVIS:
  1930.               newsym(u.ux,u.uy);
  1931. !             if (!Invis && !See_invisible && !Blind) {
  1932.                   You("are no longer invisible.");
  1933. !                 stop_occupation();
  1934. !             }
  1935.               break;
  1936.           case SEE_INVIS:
  1937.               set_mimic_blocking(); /* do special mimic handling */
  1938. ***************
  1939. *** 213,219 ****
  1940.                   switch (rn2(4)) {
  1941.                       case 1:
  1942.                       if (ACCESSIBLE(levl[u.ux][u.uy].typ)) { /* not POOL or STONE */
  1943. !                         if (Hallucination) pline("A rock bites your foot.");
  1944.                           else You("trip over a rock.");
  1945.                           break;
  1946.                       }
  1947. --- 214,220 ----
  1948.                   switch (rn2(4)) {
  1949.                       case 1:
  1950.                       if (ACCESSIBLE(levl[u.ux][u.uy].typ)) { /* not POOL or STONE */
  1951. !                         if (Hallucination) pline("A rock bites your %s.", body_part(FOOT));
  1952.                           else You("trip over a rock.");
  1953.                           break;
  1954.                       }
  1955. ***************
  1956. *** 271,277 ****
  1957.               locomotion(mtmp->data, "drop"));
  1958.           else
  1959.               You("see %s %s out of your pack!",
  1960. !             an(mtmp->data->mname),
  1961.               locomotion(mtmp->data, "drop"));
  1962.   
  1963.   #ifdef POLYSELF
  1964. --- 272,278 ----
  1965.               locomotion(mtmp->data, "drop"));
  1966.           else
  1967.               You("see %s %s out of your pack!",
  1968. !             a_monnam(mtmp),
  1969.               locomotion(mtmp->data, "drop"));
  1970.   
  1971.   #ifdef POLYSELF
  1972. ***************
  1973. *** 280,289 ****
  1974.   
  1975.               pline("Its cries sound like \"%s.\"",
  1976.               flags.female ? "mommy" : "daddy");
  1977. !             if (mtmp2 = tamedog(mtmp, (struct obj *)0))
  1978.               mtmp = mtmp2;
  1979.               mtmp->mtame = 20;
  1980. !             while(otmp = (mtmp->minvent)) {
  1981.               mtmp->minvent = otmp->nobj;
  1982.               dealloc_obj(otmp);
  1983.               }
  1984. --- 281,290 ----
  1985.   
  1986.               pline("Its cries sound like \"%s.\"",
  1987.               flags.female ? "mommy" : "daddy");
  1988. !             if ((mtmp2 = tamedog(mtmp, (struct obj *)0)) != 0)
  1989.               mtmp = mtmp2;
  1990.               mtmp->mtame = 20;
  1991. !             while ((otmp = (mtmp->minvent)) != 0) {
  1992.               mtmp->minvent = otmp->nobj;
  1993.               dealloc_obj(otmp);
  1994.               }
  1995. ***************
  1996. *** 294,302 ****
  1997.               struct monst *mtmp2;
  1998.   
  1999.               verbalize("Gleep!");        /* Mything eggs :-) */
  2000. !             if (mtmp2 = tamedog(mtmp, (struct obj *)0))
  2001.               mtmp = mtmp2;
  2002. !             while(otmp = (mtmp->minvent)) {
  2003.               mtmp->minvent = otmp->nobj;
  2004.               dealloc_obj(otmp);
  2005.               }
  2006. --- 295,303 ----
  2007.               struct monst *mtmp2;
  2008.   
  2009.               verbalize("Gleep!");        /* Mything eggs :-) */
  2010. !             if ((mtmp2 = tamedog(mtmp, (struct obj *)0)) != 0)
  2011.               mtmp = mtmp2;
  2012. !             while ((otmp = (mtmp->minvent)) != 0) {
  2013.               mtmp->minvent = otmp->nobj;
  2014.               dealloc_obj(otmp);
  2015.               }
  2016. ***************
  2017. *** 316,322 ****
  2018.       for(otmp = invent; otmp; otmp = otmp2) {
  2019.           otmp2 = otmp->nobj;        /* otmp may hatch */
  2020.           if(otmp->otyp == EGG && otmp->corpsenm >= 0) hatch_it(otmp);
  2021. !         /* else if (Is_container(otmp) && otmp->cobj) ...        */
  2022.           /*                                */
  2023.           /* Check for container here and hatch with the container.    */
  2024.           /* One of these days...                    */
  2025. --- 317,323 ----
  2026.       for(otmp = invent; otmp; otmp = otmp2) {
  2027.           otmp2 = otmp->nobj;        /* otmp may hatch */
  2028.           if(otmp->otyp == EGG && otmp->corpsenm >= 0) hatch_it(otmp);
  2029. !         /* else if (Has_contents(otmp)) ...                */
  2030.           /*                                */
  2031.           /* Check for container here and hatch with the container.    */
  2032.           /* One of these days...                    */
  2033.