home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume7 / nethack3 / patch8g / patch8.06
Text File  |  1990-06-08  |  51KB  |  2,119 lines
  1. *** src/Old/pager.c    Sun Jun  3 14:01:35 1990
  2. --- src/pager.c    Thu May 31 22:11:29 1990
  3. ***************
  4. *** 26,40 ****
  5.   #define SEEK_SET 0
  6.   #endif
  7.   
  8.   #ifndef OVLB
  9. ! OSTATIC char hc;
  10.   #else /* OVLB */
  11. ! XSTATIC char hc = 0;
  12. ! #endif /* OVLB */
  13.   
  14.   static void FDECL(page_more, (FILE *,int));
  15. ! OSTATIC boolean FDECL(clear_help, (CHAR_P));
  16. ! OSTATIC boolean FDECL(valid_help, (CHAR_P));
  17.   static boolean FDECL(pmatch,(const char *,const char *));
  18.   static boolean FDECL(outspec,(const char *,int));
  19.   static const char *FDECL(lookat,(int,int,UCHAR_P));
  20. --- 26,41 ----
  21.   #define SEEK_SET 0
  22.   #endif
  23.   
  24. + STATIC_DCL boolean FDECL(clear_help, (CHAR_P));
  25. + STATIC_DCL boolean FDECL(valid_help, (CHAR_P));
  26. + 
  27.   #ifndef OVLB
  28. ! STATIC_DCL char hc;
  29.   #else /* OVLB */
  30. ! STATIC_OVL char NEARDATA hc = 0;
  31.   
  32.   static void FDECL(page_more, (FILE *,int));
  33. ! static boolean FDECL(is_swallow_sym, (UCHAR_P));
  34.   static boolean FDECL(pmatch,(const char *,const char *));
  35.   static boolean FDECL(outspec,(const char *,int));
  36.   static const char *FDECL(lookat,(int,int,UCHAR_P));
  37. ***************
  38. *** 43,50 ****
  39.   #endif
  40.   static void NDECL(help_menu);
  41.   
  42. - #ifdef OVLB
  43. - 
  44.   /*
  45.    * simple pattern matcher: '*' matches 0 or more characters
  46.    * returns TRUE if strng matches patrn
  47. --- 44,49 ----
  48. ***************
  49. *** 74,79 ****
  50. --- 73,89 ----
  51.   }
  52.   
  53.   /*
  54. +  * returns "true" for characters that could represent a monster's stomach
  55. +  */
  56. + 
  57. + static boolean
  58. + is_swallow_sym(c)
  59. + uchar c;
  60. + {
  61. +     return (index(" /-\\|", (char)c) != 0);
  62. + }
  63. + 
  64. + /*
  65.    * print out another possibility for dowhatis. "new" is the possible new
  66.    * string; "out_flag" indicates whether we really want output, and if
  67.    * so what kind of output: 0 == no output, 1 == "(or %s)" output. 
  68. ***************
  69. *** 85,91 ****
  70.   const char *new;
  71.   int out_flag;
  72.   {
  73. !     static char old[50];
  74.   
  75.       if (!strcmp(old, new))
  76.           return FALSE;        /* don't print the same thing twice */
  77. --- 95,101 ----
  78.   const char *new;
  79.   int out_flag;
  80.   {
  81. !     static char NEARDATA old[50];
  82.   
  83.       if (!strcmp(old, new))
  84.           return FALSE;        /* don't print the same thing twice */
  85. ***************
  86. *** 110,116 ****
  87.       register struct monst *mtmp;
  88.       register struct obj *otmp;
  89.       struct trap *trap;
  90. !     static char answer[50];
  91.       register char *s, *t;
  92.       uchar typ;
  93.   
  94. --- 120,126 ----
  95.       register struct monst *mtmp;
  96.       register struct obj *otmp;
  97.       struct trap *trap;
  98. !     static char NEARDATA answer[50];
  99.       register char *s, *t;
  100.       uchar typ;
  101.   
  102. ***************
  103. *** 133,138 ****
  104. --- 143,150 ----
  105.               u.mtimedone ? mons[u.umonnum].mname :
  106.   #endif
  107.               pl_character, plname);
  108. +     } else if (u.uswallow && is_swallow_sym(ch)) {
  109. +         Sprintf(answer, "interior of %s", defmonnam(u.ustuck));
  110.       } else if (mtmp && !mtmp->mimic)
  111.           Sprintf(answer, "%s%s",
  112.              mtmp->mtame ? "tame " :
  113. ***************
  114. *** 152,158 ****
  115.               if (mtmp->mappearance == STRANGE_OBJECT)
  116.                   Strcpy(answer, "strange object");
  117.               else {
  118. !                 otmp = mksobj((int) mtmp->mappearance,FALSE );
  119.                   Strcpy(answer, distant_name(otmp, xname));
  120.                   free((genericptr_t) otmp);
  121.               }
  122. --- 164,175 ----
  123.               if (mtmp->mappearance == STRANGE_OBJECT)
  124.                   Strcpy(answer, "strange object");
  125.               else {
  126. !                 int oindx = mtmp->mappearance;
  127. !                 otmp = mksobj(oindx,FALSE );
  128. !                 if(oindx == STATUE || oindx == FIGURINE)
  129. !                     otmp->corpsenm = PM_KOBOLD;
  130. !                 else if (oindx == DRAGON_SCALE_MAIL)
  131. !                     otmp->corpsenm = PM_RED_DRAGON;
  132.                   Strcpy(answer, distant_name(otmp, xname));
  133.                   free((genericptr_t) otmp);
  134.               }
  135. ***************
  136. *** 263,268 ****
  137. --- 280,286 ----
  138.       boolean oldverb = flags.verbose;
  139.       boolean found_in_file = FALSE, need_to_print = FALSE;
  140.       int    found = 0;
  141. +     static const char *mon_interior = "the interior of a monster";
  142.   
  143.   #ifdef OS2_CODEVIEW
  144.       char tmp[PATHLEN];
  145. ***************
  146. *** 321,329 ****
  147.                   return 0;
  148.           }
  149.           flags.verbose = FALSE;
  150. !         q = levl[cc.x][cc.y].scrsym;
  151. !         if (!q || (!levl[cc.x][cc.y].seen && !MON_AT(cc.x,cc.y)))
  152. !             q = ' ';
  153.       }
  154.   
  155.       if (!q)
  156. --- 339,365 ----
  157.                   return 0;
  158.           }
  159.           flags.verbose = FALSE;
  160. !         if (!u.uswallow) {
  161. !             q = levl[cc.x][cc.y].scrsym;
  162. !             if (!q || (!levl[cc.x][cc.y].seen && !MON_AT(cc.x,cc.y)))
  163. !                 q = ' ';
  164. !         }
  165. !         else if (cc.x == u.ux && cc.y == u.uy)
  166. !             q = u.usym;
  167. !         else {
  168. !             i = (u.uy - cc.y)+1;
  169. !             if (i < 0 || i > 2)
  170. !                 q = ' ';
  171. !             else {
  172. !                 firstmatch = (i == 0) ? "/-\\" :
  173. !                     (i == 1) ? "| |" : "\\-/";
  174. !                 i = (u.ux - cc.x)+1;
  175. !                 if (i < 0 || i > 2)
  176. !                     q = ' ';
  177. !                 else
  178. !                     q = firstmatch[i];
  179. !             }
  180. !         }
  181.       }
  182.   
  183.       if (!q)
  184. ***************
  185. *** 337,343 ****
  186.   /*
  187.    * if the user just typed one letter, or we're identifying from the
  188.    * screen, then we have to check all the possibilities and print them
  189. !  * out for him/her
  190.    */
  191.   
  192.   /* Check for monsters */
  193. --- 373,379 ----
  194.   /*
  195.    * if the user just typed one letter, or we're identifying from the
  196.    * screen, then we have to check all the possibilities and print them
  197. !  * out for him/her.
  198.    */
  199.   
  200.   /* Check for monsters */
  201. ***************
  202. *** 351,356 ****
  203. --- 387,406 ----
  204.           }
  205.       }
  206.   
  207. + /* Special case: if identifying from the screen, and
  208. +  * we're swallowed, and looking at something other than our own symbol,
  209. +  * then just say "the interior of a monster".
  210. +  */
  211. +     if (u.uswallow && is_swallow_sym(q)) {
  212. +         if (!found) {
  213. +             pline("%c       %s", q, mon_interior);
  214. +             (void)outspec(firstmatch=mon_interior, 0);
  215. +         }
  216. +         else
  217. +             (void)outspec(mon_interior, 1);
  218. +         found++; need_to_print = TRUE;
  219. +     }
  220. + 
  221.   /* Now check for objects */
  222.       for (i = 0; objsyms[i]; i++) {
  223.           if (q == objsyms[i]) {
  224. ***************
  225. *** 402,407 ****
  226. --- 452,459 ----
  227.   
  228.   checkfile:
  229.   
  230. +     if (!strncmp(inp, "interior of ", 12))
  231. +         inp += 12;
  232.       if (!strncmp(inp, "a ", 2))
  233.           inp += 2;
  234.       else if (!strncmp(inp, "an ", 3))
  235. ***************
  236. *** 415,434 ****
  237.       if (!strncmp(inp, "invisible ", 10))
  238.           inp += 10;
  239.   
  240. !     if ((!q || found) && *inp) {
  241.   /* adjust the input to remove "named " and convert to lower case */
  242.            for (ep = inp; *ep; ) {
  243.               if ((!strncmp(ep, " named ", 7) && (alt = ep + 7)) ||
  244.                   !strncmp(ep, " called ", 8))
  245.                   *ep = 0;
  246. !             else
  247. !                 (*ep = tolower(*ep)), ep++;
  248.           }
  249.   
  250.   /*
  251.    * If the object is named, then the name is the alternate search string;
  252.    * otherwise, the result of makesingular() applied to the name is. This
  253. !  * isn't strictly optimal, but named objects of interest to the user should
  254.    * will usually be found under their name, rather than under their
  255.    * object type, so looking for a singular form is pointless.
  256.    */
  257. --- 467,495 ----
  258.       if (!strncmp(inp, "invisible ", 10))
  259.           inp += 10;
  260.   
  261. ! /*
  262. !  * look in the file for more info if:
  263. !  * the user typed in the whole name (!q)
  264. !  * OR we've found a possible match with the character q (found) and
  265. !  *    flags.help is TRUE
  266. !  * and, of course, the name to look for must be non-empty.
  267. !  */
  268. !     if ((!q || (found && flags.help)) && *inp) {
  269.   /* adjust the input to remove "named " and convert to lower case */
  270.            for (ep = inp; *ep; ) {
  271.               if ((!strncmp(ep, " named ", 7) && (alt = ep + 7)) ||
  272.                   !strncmp(ep, " called ", 8))
  273.                   *ep = 0;
  274. !             else {
  275. !                 if(isupper(*ep)) *ep = tolower(*ep);
  276. !                 ep++;
  277. !             }
  278.           }
  279.   
  280.   /*
  281.    * If the object is named, then the name is the alternate search string;
  282.    * otherwise, the result of makesingular() applied to the name is. This
  283. !  * isn't strictly optimal, but named objects of interest to the user
  284.    * will usually be found under their name, rather than under their
  285.    * object type, so looking for a singular form is pointless.
  286.    */
  287. ***************
  288. *** 436,442 ****
  289.           if (!alt)
  290.               alt = makesingular(inp);
  291.           else
  292. !             for (ep = alt; *ep; ep++) *ep = tolower(*ep);
  293.   
  294.           while(fgets(buf,BUFSZ,fp)) {
  295.               if(*buf != '\t') {
  296. --- 497,504 ----
  297.           if (!alt)
  298.               alt = makesingular(inp);
  299.           else
  300. !             for (ep = alt; *ep; ep++) 
  301. !                 if(isupper(*ep)) *ep = tolower(*ep);
  302.   
  303.           while(fgets(buf,BUFSZ,fp)) {
  304.               if(*buf != '\t') {
  305. ***************
  306. *** 555,561 ****
  307.   }
  308.   
  309.   /* make the paging of a file interruptible */
  310. ! static int got_intrup;
  311.   
  312.   #if !defined(MSDOS) && !defined(TOS) && !defined(MACOS)
  313.   static int
  314. --- 617,623 ----
  315.   }
  316.   
  317.   /* make the paging of a file interruptible */
  318. ! static volatile int NEARDATA got_intrup;
  319.   
  320.   #if !defined(MSDOS) && !defined(TOS) && !defined(MACOS)
  321.   static int
  322. ***************
  323. *** 572,584 ****
  324.   FILE *fp;
  325.   int strip;    /* nr of chars to be stripped from each line (0 or 1) */
  326.   {
  327. -     register char *bufr;
  328. - #if !defined(MSDOS) && !defined(MINIMAL_TERM)
  329. -     register char *ep;
  330. - #endif
  331. - #if !defined(MSDOS) && !defined(TOS) && !defined(MACOS)
  332. -     int (*prevsig)() = (int (*)())signal(SIGINT, (SIG_RET_TYPE) intruph);
  333. - #endif
  334.   #ifdef MACOS
  335.       short tmpflags;
  336.       
  337. --- 634,639 ----
  338. ***************
  339. *** 590,595 ****
  340. --- 645,657 ----
  341.       }
  342.       macflags |= (tmpflags & fDoUpdate);
  343.   #else
  344. +     register char *bufr;
  345. + #if !defined(MSDOS) && !defined(MINIMAL_TERM)
  346. +     register char *ep;
  347. + #endif
  348. + #if !defined(MSDOS) && !defined(TOS)
  349. +     int (*prevsig)() = (int (*)())signal(SIGINT, (SIG_RET_TYPE) intruph);
  350. + #endif
  351.   #if defined(MSDOS) || defined(MINIMAL_TERM)
  352.       /* There seems to be a bug in ANSI.SYS  The first tab character
  353.        * after a clear screen sequence is not expanded correctly.  Thus
  354. ***************
  355. *** 603,608 ****
  356. --- 665,672 ----
  357.       while (fgets(buf, BUFSIZ, fp) && (!strip || *buf == '\t')){
  358.           bufp = buf;
  359.           bufrp = bufr;
  360. +         if (strip && *bufp && *bufp != '\n')
  361. +             *bufrp++ = *bufp++;
  362.           while (*bufp && *bufp != '\n') {
  363.               if (*bufp == '\t') {
  364.                   spaces = tabstop - (bufrp - bufr) % tabstop;
  365. ***************
  366. *** 631,641 ****
  367.   ret:
  368.       free((genericptr_t) bufr);
  369.       (void) fclose(fp);
  370. ! #if !defined(MSDOS) && !defined(TOS) && !defined(MACOS)
  371.       (void) signal(SIGINT, (SIG_RET_TYPE) prevsig);
  372.       got_intrup = 0;
  373.   #endif
  374. ! #endif
  375.   }
  376.   
  377.   #endif /* OVLB */
  378. --- 695,705 ----
  379.   ret:
  380.       free((genericptr_t) bufr);
  381.       (void) fclose(fp);
  382. ! #if !defined(MSDOS) && !defined(TOS)
  383.       (void) signal(SIGINT, (SIG_RET_TYPE) prevsig);
  384.       got_intrup = 0;
  385.   #endif
  386. ! #endif /* MACOS */
  387.   }
  388.   
  389.   #endif /* OVLB */
  390. ***************
  391. *** 644,654 ****
  392.   
  393.   #ifndef OVLB
  394.   
  395. ! OSTATIC boolean whole_screen;
  396.   
  397.   #else /* OVLB */
  398.   
  399. ! XSTATIC boolean whole_screen = TRUE;
  400.   
  401.   void
  402.   set_whole_screen() {    /* called in termcap as soon as LI is known */
  403. --- 708,718 ----
  404.   
  405.   #ifndef OVLB
  406.   
  407. ! STATIC_DCL boolean whole_screen;
  408.   
  409.   #else /* OVLB */
  410.   
  411. ! STATIC_OVL boolean NEARDATA whole_screen = TRUE;
  412.   
  413.   void
  414.   set_whole_screen() {    /* called in termcap as soon as LI is known */
  415. ***************
  416. *** 674,680 ****
  417.   #ifdef LINT    /* lint may handle static decl poorly -- static boolean so; */
  418.       boolean so;
  419.   #else
  420. !     static boolean so;
  421.   #endif
  422.       if(mode == 0) {
  423.           if(!whole_screen) {
  424. --- 738,744 ----
  425.   #ifdef LINT    /* lint may handle static decl poorly -- static boolean so; */
  426.       boolean so;
  427.   #else
  428. !     static boolean NEARDATA so;
  429.   #endif
  430.       if(mode == 0) {
  431.           if(!whole_screen) {
  432. ***************
  433. *** 688,700 ****
  434.           so = flags.standout;
  435.           flags.standout = 1;
  436.       } else {
  437. - #ifdef MACOS
  438. -         macflags |= fFullScrKluge;
  439. - #endif
  440.           if(mode == 1) {
  441. - #ifdef MACOS
  442. -             macflags |= fCornScrKluge;
  443. - #endif
  444.               curs(1, LI);
  445.               more();
  446.           }
  447. --- 752,758 ----
  448. ***************
  449. *** 705,713 ****
  450.               curs(1, ROWNO+4);
  451.               cl_eos();
  452.           }
  453. - #ifdef MACOS
  454. -         macflags &= ~fScreenKluges;
  455. - #endif
  456.       }
  457.   }
  458.   
  459. --- 763,768 ----
  460. ***************
  461. *** 718,723 ****
  462. --- 773,782 ----
  463.   page_line(s)        /* returns 1 if we should quit */
  464.   register const char *s;
  465.   {
  466. + #ifdef CLIPPING
  467. + /* we assume here that no data files have more than 80 chars/line */
  468. +     static char tmp[81], *t;
  469. + #endif
  470.       if(cury == LI-1) {
  471.           if(!*s)
  472.               return(0);    /* suppress blank lines at top */
  473. ***************
  474. *** 735,740 ****
  475. --- 794,821 ----
  476.               cl_eos();
  477.           }
  478.       }
  479. + #ifdef CLIPPING
  480. + /* if lines are too long for the screen, first try stripping leading blanks */
  481. +     if (strlen(s) >= CO) {
  482. +         while (*s == ' ' || *s == '\t') s++;
  483. +     }
  484. + 
  485. + /* if it's still too long, try compressing blanks */
  486. +     if (strlen(s) >= CO) {
  487. +         t = tmp;
  488. +         while ( (*t = *s) != 0) {
  489. +             if (*t == ' ') {
  490. +                 while (*s == ' ')
  491. +                     s++;
  492. +             }
  493. +             else
  494. +                 s++;
  495. +             t++;
  496. +         }
  497. +         s = tmp;
  498. +     }
  499. + #endif /* CLIPPING */
  500. + 
  501.   #ifdef TERMINFO
  502.       xputs(s); xputc('\n');
  503.   #else
  504. ***************
  505. *** 767,775 ****
  506.       static struct line {
  507.           struct line *next_line;
  508.           char *line_text;
  509. !     } *texthead, *texttail;
  510. !     static int maxlen;
  511. !     static int linect;
  512.       register struct line *tl;
  513.       register boolean hmenu = FALSE;
  514.   
  515. --- 848,856 ----
  516.       static struct line {
  517.           struct line *next_line;
  518.           char *line_text;
  519. !     } NEARDATA *texthead, NEARDATA *texttail;
  520. !     static int NEARDATA maxlen;
  521. !     static int NEARDATA linect;
  522.       register struct line *tl;
  523.       register boolean hmenu = FALSE;
  524.   
  525. ***************
  526. *** 817,833 ****
  527.       else
  528.       if(mode == 2) {
  529.           register int curline, lth;
  530. - #ifdef MACOS
  531. -         short tmpflags;
  532. -         extern struct line *mactexthead;
  533. -         extern int macmaxlen, maclinect;
  534. -         
  535. -         tmpflags = macflags;
  536. -         macflags |= fDoUpdate | fDisplayKluge;
  537. -         mactexthead = texthead;
  538. -         macmaxlen = maxlen;
  539. -         maclinect = linect;
  540. - #endif
  541.   
  542.           if(flags.toplin == 1) more();    /* ab@unido */
  543.           remember_topl();
  544. --- 898,903 ----
  545. ***************
  546. *** 862,870 ****
  547.   #endif
  548.           cl_end ();
  549.           if (!hmenu) {
  550. - #ifdef MACOS
  551. -             macflags |= fCornScrKluge;
  552. - #endif
  553.               cmore (text);
  554.           }
  555.           if (!hmenu || clear_help(hc)) {
  556. --- 932,937 ----
  557. ***************
  558. *** 872,886 ****
  559.               cl_end ();
  560.               docorner (lth, curline-1);
  561.           }
  562.   #ifdef MACOS
  563. !             mactexthead = NULL;
  564. !             macflags |= (tmpflags & (fDoUpdate | fDisplayKluge));
  565.   #endif
  566. -         } else {                    /* feed to pager */
  567.           set_pager(0);
  568.           for (tl = texthead; tl; tl = tl->next_line) {
  569.               if (page_line (tl->line_text)) {
  570.               set_pager(2);
  571.               while(tl = texthead) {
  572.                   texthead = tl->next_line;
  573.                   free((genericptr_t) tl);
  574. --- 939,958 ----
  575.               cl_end ();
  576.               docorner (lth, curline-1);
  577.           }
  578. +         } else {                    /* feed to pager */
  579.   #ifdef MACOS
  580. !         short    tmpflags;
  581. !         
  582. !         tmpflags = macflags;
  583. !         macflags &= ~fDoNonKeyEvt;
  584.   #endif
  585.           set_pager(0);
  586.           for (tl = texthead; tl; tl = tl->next_line) {
  587.               if (page_line (tl->line_text)) {
  588.               set_pager(2);
  589. + #ifdef MACOS
  590. +             macflags = tmpflags;
  591. + #endif
  592.               while(tl = texthead) {
  593.                   texthead = tl->next_line;
  594.                   free((genericptr_t) tl);
  595. ***************
  596. *** 893,898 ****
  597. --- 965,973 ----
  598.               set_pager(2);
  599.           } else
  600.               set_pager(1);
  601. + #ifdef MACOS
  602. +         macflags = tmpflags;
  603. + #endif
  604.           }
  605.       }
  606.   
  607. ***************
  608. *** 966,972 ****
  609.       cornline(-1,"");
  610.   }
  611.   
  612. ! XSTATIC boolean
  613.   clear_help(c)
  614.   char c;
  615.   {
  616. --- 1041,1047 ----
  617.       cornline(-1,"");
  618.   }
  619.   
  620. ! STATIC_OVL boolean
  621.   clear_help(c)
  622.   char c;
  623.   {
  624. ***************
  625. *** 1004,1010 ****
  626.           );
  627.   }
  628.   
  629. ! XSTATIC boolean
  630.   valid_help(c)
  631.   char c;
  632.   {
  633. --- 1079,1085 ----
  634.           );
  635.   }
  636.   
  637. ! STATIC_OVL boolean
  638.   valid_help(c)
  639.   char c;
  640.   {
  641. *** src/Old/pickup.c    Sun Jun  3 14:02:35 1990
  642. --- src/pickup.c    Sun May 27 17:58:15 1990
  643. ***************
  644. *** 7,26 ****
  645.    */
  646.   
  647.   #include    "hack.h"
  648. ! #ifndef OVERLAY
  649. ! static int FDECL(in_container,(struct obj *));
  650. ! static int FDECL(ck_container,(struct obj *));
  651. ! static int FDECL(ck_bag,(struct obj *));
  652. ! static int FDECL(out_container,(struct obj *));
  653. ! #else
  654. ! int FDECL(in_container,(struct obj *));
  655. ! int FDECL(ck_container,(struct obj *));
  656. ! int FDECL(ck_bag,(struct obj *));
  657. ! int FDECL(out_container,(struct obj *));
  658. ! #endif
  659.   void FDECL(explode_bag,(struct obj *));
  660.   
  661. ! #ifdef OVLB
  662.   
  663.   static const char nearloadmsg[] = "have a little trouble lifting";
  664.   
  665. --- 7,21 ----
  666.    */
  667.   
  668.   #include    "hack.h"
  669. ! STATIC_PTR int FDECL(in_container,(struct obj *));
  670. ! STATIC_PTR int FDECL(ck_container,(struct obj *));
  671. ! STATIC_PTR int FDECL(ck_bag,(struct obj *));
  672. ! STATIC_PTR int FDECL(out_container,(struct obj *));
  673.   void FDECL(explode_bag,(struct obj *));
  674.   
  675. ! #define DELTA_CWT(cont) ((cont)->cursed?(obj->owt*2):(obj->owt/((cont)->blessed?4:2)) + 1)
  676. ! 
  677. ! #ifdef OVL0
  678.   
  679.   static const char nearloadmsg[] = "have a little trouble lifting";
  680.   
  681. ***************
  682. *** 257,265 ****
  683.           if(wt > 0) {
  684.               if(obj->quan > 1) {
  685.                   /* see how many we can lift */
  686. !                 int savequan = obj->quan;
  687.                   int iw = inv_weight();
  688. !                 int qq;
  689.                   for(qq = 1; qq < savequan; qq++){
  690.                       obj->quan = qq;
  691.                       if(iw + weight(obj) > 0)
  692. --- 252,260 ----
  693.           if(wt > 0) {
  694.               if(obj->quan > 1) {
  695.                   /* see how many we can lift */
  696. !                 unsigned savequan = obj->quan;
  697.                   int iw = inv_weight();
  698. !                 unsigned qq;
  699.                   for(qq = 1; qq < savequan; qq++){
  700.                       obj->quan = qq;
  701.                       if(iw + weight(obj) > 0)
  702. ***************
  703. *** 274,280 ****
  704.                   You("can only carry %s of the %s lying here.",
  705.                           (qq == 1) ? "one" : "some",
  706.                           doname(obj));
  707. !                     obj3 = splitobj(obj, qq);
  708.                       if(obj3->otyp == SCR_SCARE_MONSTER)
  709.                           if(obj3->spe) obj->spe = 0;
  710.                       goto lift_some;
  711. --- 269,275 ----
  712.                   You("can only carry %s of the %s lying here.",
  713.                           (qq == 1) ? "one" : "some",
  714.                           doname(obj));
  715. !                     obj3 = splitobj(obj, (int)qq);
  716.                       if(obj3->otyp == SCR_SCARE_MONSTER)
  717.                           if(obj3->spe) obj->spe = 0;
  718.                       goto lift_some;
  719. ***************
  720. *** 296,303 ****
  721.                   if(obj->spe) obj->spe = 0;
  722.               break;
  723.           }
  724. !         { int pickquan = obj->quan;
  725. !           int mergquan;
  726.   
  727.             obj = pick_obj(obj);
  728.             if(wt > -5) You(nearloadmsg);
  729. --- 291,298 ----
  730.                   if(obj->spe) obj->spe = 0;
  731.               break;
  732.           }
  733. !         { unsigned pickquan = obj->quan;
  734. !           unsigned mergquan;
  735.   
  736.             obj = pick_obj(obj);
  737.             if(wt > -5) You(nearloadmsg);
  738. ***************
  739. *** 324,329 ****
  740. --- 319,327 ----
  741.       return(addinv(otmp));    /* might merge it with other objects */
  742.   }
  743.   
  744. + #endif /* OVL1 */
  745. + #ifdef OVLB
  746. + 
  747.   int
  748.   doloot() {    /* loot a container on the floor. */
  749.   
  750. ***************
  751. *** 367,379 ****
  752.   }
  753.   
  754.   static
  755. ! struct obj *current_container;    /* a local variable of use_container, to be
  756.                   used by its local procedures in/ck_container */
  757.   #define Icebox (current_container->otyp == ICE_BOX)
  758.   int baggone;    /* used in askchain so bag isn't used after explosion */
  759.   
  760.   #endif /* OVLB */
  761. ! #ifdef OVL0
  762.   
  763.   void
  764.   inc_cwt(cobj, obj)
  765. --- 365,377 ----
  766.   }
  767.   
  768.   static
  769. ! struct obj NEARDATA *current_container;    /* a local variable of use_container, to be
  770.                   used by its local procedures in/ck_container */
  771.   #define Icebox (current_container->otyp == ICE_BOX)
  772.   int baggone;    /* used in askchain so bag isn't used after explosion */
  773.   
  774.   #endif /* OVLB */
  775. ! #ifdef OVL1
  776.   
  777.   void
  778.   inc_cwt(cobj, obj)
  779. ***************
  780. *** 380,396 ****
  781.   register struct obj *cobj, *obj;
  782.   {
  783.       if (cobj->otyp == BAG_OF_HOLDING)
  784. !         cobj->owt += (cobj->cursed?(obj->owt*2):(obj->owt/(cobj->blessed?4:2)) + 1);
  785.       else    cobj->owt += obj->owt;
  786.   }
  787.   
  788. ! #endif /* OVL0 */
  789.   #ifdef OVLB
  790.   
  791. ! #ifndef OVERLAY
  792. ! static 
  793. ! #endif
  794. ! int
  795.   in_container(obj)
  796.   register struct obj *obj;
  797.   {
  798. --- 378,391 ----
  799.   register struct obj *cobj, *obj;
  800.   {
  801.       if (cobj->otyp == BAG_OF_HOLDING)
  802. !         cobj->owt += DELTA_CWT(cobj);
  803.       else    cobj->owt += obj->owt;
  804.   }
  805.   
  806. ! #endif /* OVL1 */
  807.   #ifdef OVLB
  808.   
  809. ! STATIC_PTR int
  810.   in_container(obj)
  811.   register struct obj *obj;
  812.   {
  813. ***************
  814. *** 466,475 ****
  815.       return(1);
  816.   }
  817.   
  818. ! #ifndef OVERLAY
  819. ! static 
  820. ! #endif
  821. ! int
  822.   ck_container(obj)
  823.   register struct obj *obj;
  824.   {
  825. --- 461,467 ----
  826.       return(1);
  827.   }
  828.   
  829. ! STATIC_PTR int
  830.   ck_container(obj)
  831.   register struct obj *obj;
  832.   {
  833. ***************
  834. *** 479,488 ****
  835.   /* ck_bag() needs a formal argument to make the overlay/prototype mechanism
  836.    * work right */
  837.   /*ARGSUSED*/
  838. ! #ifndef OVERLAY
  839. ! static 
  840. ! #endif
  841. ! int
  842.   ck_bag(obj)
  843.   struct obj *obj;
  844.   {
  845. --- 471,477 ----
  846.   /* ck_bag() needs a formal argument to make the overlay/prototype mechanism
  847.    * work right */
  848.   /*ARGSUSED*/
  849. ! STATIC_PTR int
  850.   ck_bag(obj)
  851.   struct obj *obj;
  852.   {
  853. ***************
  854. *** 489,502 ****
  855.       return(!baggone);
  856.   }
  857.   
  858. ! #ifndef OVERLAY
  859. ! static 
  860. ! #endif
  861. ! int
  862.   out_container(obj)
  863.   register struct obj *obj;
  864.   {
  865. !     register struct obj *otmp;
  866.       register boolean near_capacity = (inv_weight() > -5);
  867.   
  868.       if(inv_cnt() >= 52) {
  869. --- 478,488 ----
  870.       return(!baggone);
  871.   }
  872.   
  873. ! STATIC_PTR int
  874.   out_container(obj)
  875.   register struct obj *obj;
  876.   {
  877. !     register struct obj *otmp, *ootmp;
  878.       register boolean near_capacity = (inv_weight() > -5);
  879.   
  880.       if(inv_cnt() >= 52) {
  881. ***************
  882. *** 503,509 ****
  883.           pline("You have no room to hold anything else.");
  884.           return(0);
  885.       }
  886. !     if(obj->otyp != LOADSTONE && inv_weight() + (int)obj->owt > 0) {
  887.           char buf[BUFSZ];
  888.   
  889.           Strcpy(buf, doname(obj));
  890. --- 489,498 ----
  891.           pline("You have no room to hold anything else.");
  892.           return(0);
  893.       }
  894. !     if(obj->otyp != LOADSTONE && inv_weight() + (int)obj->owt -
  895. !        (carried(current_container) ?
  896. !         (current_container->otyp == BAG_OF_HOLDING ?
  897. !             (int)DELTA_CWT(current_container) : (int)obj->owt) : 0) > 0) {
  898.           char buf[BUFSZ];
  899.   
  900.           Strcpy(buf, doname(obj));
  901. ***************
  902. *** 528,558 ****
  903.       if (Icebox) obj->age = monstermoves - obj->age;
  904.       /* simulated point of time */
  905.   
  906. !     (void) addinv(obj);
  907.       if (near_capacity) You("have a little trouble removing");
  908. !     prinv(obj);
  909.       return 0;
  910.   }
  911.   
  912. - void
  913. - get_all_from_box() {
  914. -     register struct obj *otmp, *cobj, *ootmp, *nxobj;
  915. - 
  916. -     for(otmp = invent; otmp; otmp = otmp->nobj) {
  917. -         cobj = otmp;
  918. -         if(Is_container(otmp)) {
  919. -         current_container = otmp;
  920. -         for(ootmp=fcobj,nxobj=(fcobj ? fcobj->nobj : 0); ootmp;
  921. -                 ootmp=nxobj,nxobj=(ootmp ? ootmp->nobj : 0) )
  922. -             if(ootmp->cobj == cobj)
  923. -             (void)out_container(ootmp);
  924. -         }
  925. -     }
  926. -     return;
  927. - }
  928. - 
  929.   /* for getobj: 0: allow cnt; #: allow all types; %: expect food */
  930. ! static const char frozen_food[] = { '0', '#', FOOD_SYM, 0 };
  931.   
  932.   void
  933.   use_container(obj, held)
  934. --- 517,530 ----
  935.       if (Icebox) obj->age = monstermoves - obj->age;
  936.       /* simulated point of time */
  937.   
  938. !     ootmp = addinv(obj);
  939.       if (near_capacity) You("have a little trouble removing");
  940. !     prinv(ootmp);
  941.       return 0;
  942.   }
  943.   
  944.   /* for getobj: 0: allow cnt; #: allow all types; %: expect food */
  945. ! static const char NEARDATA frozen_food[] = { '0', '#', FOOD_SYM, 0 };
  946.   
  947.   void
  948.   use_container(obj, held)
  949. ***************
  950. *** 662,669 ****
  951.   dec_cwt(cobj, obj)
  952.   register struct obj *cobj, *obj;
  953.   {
  954. !     if (Is_mbag(cobj))
  955. !         cobj->owt -= (cobj->cursed?(obj->owt*2):(obj->owt/(cobj->blessed?4:2)) + 1);
  956.       else    cobj->owt -= obj->owt;
  957.   
  958.       if(cobj->owt < objects[cobj->otyp].oc_weight)
  959. --- 634,641 ----
  960.   dec_cwt(cobj, obj)
  961.   register struct obj *cobj, *obj;
  962.   {
  963. !     if (cobj->otyp == BAG_OF_HOLDING)
  964. !         cobj->owt -= DELTA_CWT(cobj);
  965.       else    cobj->owt -= obj->owt;
  966.   
  967.       if(cobj->owt < objects[cobj->otyp].oc_weight)
  968. *** src/Old/polyself.c    Sun Jun  3 14:03:05 1990
  969. --- src/polyself.c    Thu May 31 22:11:33 1990
  970. ***************
  971. *** 5,15 ****
  972.   #include "hack.h"
  973.   
  974.   #ifdef POLYSELF
  975.   static void NDECL(break_armor);
  976.   static void FDECL(drop_weapon,(int));
  977.   static void NDECL(skinback);
  978.   static void NDECL(uunstick);
  979. - #ifdef OVLB
  980.   static boolean sticky;
  981.   #endif /* OVLB */
  982.   #endif
  983. --- 5,15 ----
  984.   #include "hack.h"
  985.   
  986.   #ifdef POLYSELF
  987. + #ifdef OVLB
  988.   static void NDECL(break_armor);
  989.   static void FDECL(drop_weapon,(int));
  990.   static void NDECL(skinback);
  991.   static void NDECL(uunstick);
  992.   static boolean sticky;
  993.   #endif /* OVLB */
  994.   #endif
  995. ***************
  996. *** 629,635 ****
  997.   #ifdef MACOS
  998.               char mac_tbuf[80];
  999.               if(!flags.silent) SysBeep(1);
  1000. !             sprintf(mac_tbuf, "Really confuse %s?", mon_nam(mtmp));
  1001.               if(UseMacAlertText(128, mac_tbuf) != 1) continue;
  1002.   #else
  1003.               pline("Really confuse %s? ", mon_nam(mtmp));
  1004. --- 629,635 ----
  1005.   #ifdef MACOS
  1006.               char mac_tbuf[80];
  1007.               if(!flags.silent) SysBeep(1);
  1008. !             Sprintf(mac_tbuf, "Really confuse %s?", mon_nam(mtmp));
  1009.               if(UseMacAlertText(128, mac_tbuf) != 1) continue;
  1010.   #else
  1011.               pline("Really confuse %s? ", mon_nam(mtmp));
  1012. ***************
  1013. *** 705,710 ****
  1014. --- 705,712 ----
  1015.   }
  1016.   #endif
  1017.   
  1018. + #endif /* OVLB */
  1019. + #ifdef OVL1
  1020.   const char *
  1021.   body_part(part)
  1022.   int part;
  1023. ***************
  1024. *** 713,745 ****
  1025.        * plus the trailing null, after pluralizing (since sometimes a
  1026.        * buffer is made a fixed size and must be able to hold it)
  1027.        */
  1028. !     static const char *humanoid_parts[] = { "arm", "eye", "face", "finger",
  1029.           "fingertip", "foot", "hand", "handed", "head", "leg",
  1030.                   "light headed", "neck", "spine", "toe" };
  1031.   #ifdef POLYSELF
  1032. !     static const char *jelly_parts[] = { "pseudopod", "dark spot", "front",
  1033.           "pseudopod extension", "pseudopod extremity",
  1034.           "pseudopod root", "grasp", "grasped", "cerebral area",
  1035.           "lower pseudopod", "viscous", "middle", "surface",
  1036.           "pseudopod extremity" },
  1037. !     *animal_parts[] = { "forelimb", "eye", "face", "foreclaw", "claw tip",
  1038.           "rear claw", "foreclaw", "clawed", "head", "rear limb",
  1039.           "light headed", "neck", "spine", "rear claw tip" },
  1040. !     *horse_parts[] = { "forelimb", "eye", "face", "forehoof", "hoof tip",
  1041.           "rear hoof", "foreclaw", "hooved", "head", "rear limb",
  1042.           "light headed", "neck", "backbone", "rear hoof tip" },
  1043. !     *sphere_parts[] = { "appendage", "optic nerve", "body", "tentacle",
  1044.           "tentacle tip", "lower appendage", "tentacle", "tentacled",
  1045.           "body", "lower tentacle", "rotational", "equator", "body",
  1046.           "lower tentacle tip" },
  1047. !     *fungus_parts[] = { "mycelium", "visual area", "front", "hypha",
  1048.           "hypha", "root", "strand", "stranded", "cap area",
  1049.           "rhizome", "sporulated", "stalk", "root", "rhizome tip" },
  1050. !     *vortex_parts[] = { "region", "eye", "front", "minor current",
  1051.           "minor current", "lower current", "swirl", "swirled",
  1052.           "central core", "lower current", "addled", "center",
  1053.           "currents", "edge" },
  1054. !     *snake_parts[] = { "vestigial limb", "eye", "face", "large scale",
  1055.           "large scale tip", "rear region", "scale gap", "scale gapped",
  1056.           "head", "rear region", "light headed", "neck", "length",
  1057.           "rear scale" };
  1058. --- 715,747 ----
  1059.        * plus the trailing null, after pluralizing (since sometimes a
  1060.        * buffer is made a fixed size and must be able to hold it)
  1061.        */
  1062. !     static const char NEARDATA *humanoid_parts[] = { "arm", "eye", "face", "finger",
  1063.           "fingertip", "foot", "hand", "handed", "head", "leg",
  1064.                   "light headed", "neck", "spine", "toe" };
  1065.   #ifdef POLYSELF
  1066. !     static const char NEARDATA *jelly_parts[] = { "pseudopod", "dark spot", "front",
  1067.           "pseudopod extension", "pseudopod extremity",
  1068.           "pseudopod root", "grasp", "grasped", "cerebral area",
  1069.           "lower pseudopod", "viscous", "middle", "surface",
  1070.           "pseudopod extremity" },
  1071. !     NEARDATA *animal_parts[] = { "forelimb", "eye", "face", "foreclaw", "claw tip",
  1072.           "rear claw", "foreclaw", "clawed", "head", "rear limb",
  1073.           "light headed", "neck", "spine", "rear claw tip" },
  1074. !     NEARDATA *horse_parts[] = { "forelimb", "eye", "face", "forehoof", "hoof tip",
  1075.           "rear hoof", "foreclaw", "hooved", "head", "rear limb",
  1076.           "light headed", "neck", "backbone", "rear hoof tip" },
  1077. !     NEARDATA *sphere_parts[] = { "appendage", "optic nerve", "body", "tentacle",
  1078.           "tentacle tip", "lower appendage", "tentacle", "tentacled",
  1079.           "body", "lower tentacle", "rotational", "equator", "body",
  1080.           "lower tentacle tip" },
  1081. !     NEARDATA *fungus_parts[] = { "mycelium", "visual area", "front", "hypha",
  1082.           "hypha", "root", "strand", "stranded", "cap area",
  1083.           "rhizome", "sporulated", "stalk", "root", "rhizome tip" },
  1084. !     NEARDATA *vortex_parts[] = { "region", "eye", "front", "minor current",
  1085.           "minor current", "lower current", "swirl", "swirled",
  1086.           "central core", "lower current", "addled", "center",
  1087.           "currents", "edge" },
  1088. !     NEARDATA *snake_parts[] = { "vestigial limb", "eye", "face", "large scale",
  1089.           "large scale tip", "rear region", "scale gap", "scale gapped",
  1090.           "head", "rear region", "light headed", "neck", "length",
  1091.           "rear scale" };
  1092. ***************
  1093. *** 761,767 ****
  1094.   #endif
  1095.   }
  1096.   
  1097. ! #endif /* OVLB */
  1098.   #ifdef OVL0
  1099.   
  1100.   int
  1101. --- 763,769 ----
  1102.   #endif
  1103.   }
  1104.   
  1105. ! #endif /* OVL1 */
  1106.   #ifdef OVL0
  1107.   
  1108.   int
  1109. *** src/Old/potion.c    Sun Jun  3 14:03:42 1990
  1110. --- src/potion.c    Sat Jun  2 19:45:47 1990
  1111. ***************
  1112. *** 5,11 ****
  1113.   #include "hack.h"
  1114.   
  1115.   #ifdef OVLB
  1116. ! static int nothing, unkn;
  1117.   #endif /* OVLB */
  1118.   
  1119.   #ifdef WORM
  1120. --- 5,14 ----
  1121.   #include "hack.h"
  1122.   
  1123.   #ifdef OVLB
  1124. ! static void NDECL(ghost_from_bottle);
  1125. ! static boolean FDECL(neutralizes, (struct obj *,struct obj *));
  1126. ! 
  1127. ! static int NEARDATA nothing, NEARDATA unkn;
  1128.   #endif /* OVLB */
  1129.   
  1130.   #ifdef WORM
  1131. ***************
  1132. *** 22,28 ****
  1133.   
  1134.   #ifdef OVLB
  1135.   
  1136. ! static const char beverages[] = { POTION_SYM, 0 };
  1137.   
  1138.   void
  1139.   make_confused(xtime,talk)
  1140. --- 25,31 ----
  1141.   
  1142.   #ifdef OVLB
  1143.   
  1144. ! static const char NEARDATA beverages[] = { POTION_SYM, 0 };
  1145.   
  1146.   void
  1147.   make_confused(xtime,talk)
  1148. ***************
  1149. *** 157,167 ****
  1150.   static void
  1151.   ghost_from_bottle()
  1152.   {
  1153. !     if(!makemon(&mons[PM_GHOST], u.ux, u.uy)){
  1154.           pline("This bottle turns out to be empty.");
  1155.           return;
  1156.       }
  1157. !     pline("As you open the bottle, an enormous ghost emerges!");
  1158.       if(flags.verbose)
  1159.           You("are frightened to death, and unable to move.");
  1160.       nomul(-3);
  1161. --- 160,177 ----
  1162.   static void
  1163.   ghost_from_bottle()
  1164.   {
  1165. !     struct monst *mtmp = makemon(&mons[PM_GHOST], u.ux, u.uy);
  1166. ! 
  1167. !     if (!mtmp) {
  1168.           pline("This bottle turns out to be empty.");
  1169.           return;
  1170.       }
  1171. !     if (Blind) {
  1172. !         pline("As you open the bottle, something emerges.");
  1173. !         return;
  1174. !     }
  1175. !     pline("As you open the bottle, an enormous %s emerges!",
  1176. !         Hallucination ? rndmonnam() : "ghost");
  1177.       if(flags.verbose)
  1178.           You("are frightened to death, and unable to move.");
  1179.       nomul(-3);
  1180. ***************
  1181. *** 268,273 ****
  1182. --- 278,285 ----
  1183.               }
  1184.               if(++i >= A_MAX) i = 0;
  1185.               }
  1186. +             if((ABASE(A_STR) == AMAX(A_STR)) && (u.uhs >= 3))
  1187. +             losestr(1);        /* kludge - mrs */
  1188.           }
  1189.           break;
  1190.       case POT_HALLUCINATION:
  1191. ***************
  1192. *** 342,352 ****
  1193.               unkn++;
  1194.               You("have an uneasy feeling...");
  1195.           } else {
  1196. -             You("feel self-knowledgeable...");
  1197.               if (otmp->blessed) {
  1198.                   adjattrib(A_INT, 1, FALSE);
  1199.                   adjattrib(A_WIS, 1, FALSE);
  1200.               }
  1201.               more();
  1202.               enlightenment();
  1203.               pline("The feeling subsides.");
  1204. --- 354,364 ----
  1205.               unkn++;
  1206.               You("have an uneasy feeling...");
  1207.           } else {
  1208.               if (otmp->blessed) {
  1209.                   adjattrib(A_INT, 1, FALSE);
  1210.                   adjattrib(A_WIS, 1, FALSE);
  1211.               }
  1212. +             You("feel self-knowledgeable...");
  1213.               more();
  1214.               enlightenment();
  1215.               pline("The feeling subsides.");
  1216. ***************
  1217. *** 360,377 ****
  1218.           else {
  1219.                newsym(u.ux,u.uy);
  1220.                if(!Blind)
  1221. !                pline("Gee!  All of a sudden, you can't see yourself.");
  1222.                else
  1223.                  You("feel rather airy."), unkn++;
  1224.           }
  1225.           if (otmp->blessed && !(HInvis & INTRINSIC)) {
  1226.   #ifndef MACOS
  1227.               pline("Do you want the invisibility to be permanent? ");
  1228. -             nothing = 0;
  1229.               if (yn()=='n') HInvis += rn1(15,31);
  1230.               else HInvis |= INTRINSIC;
  1231.   #else
  1232. -             nothing = 0;
  1233.               if (UseMacAlertText(128,
  1234.                   "Do you want the invisibility to be permanent ?")
  1235.                   == 2) HInvis += rn1(15,31);
  1236. --- 372,390 ----
  1237.           else {
  1238.                newsym(u.ux,u.uy);
  1239.                if(!Blind)
  1240. !                pline(Hallucination ?
  1241. !              "Far out, man!  You can see right through yourself!" :
  1242. !              "Gee!  All of a sudden, you can't see yourself.");
  1243.                else
  1244.                  You("feel rather airy."), unkn++;
  1245.           }
  1246.           if (otmp->blessed && !(HInvis & INTRINSIC)) {
  1247. +             nothing = 0;
  1248.   #ifndef MACOS
  1249.               pline("Do you want the invisibility to be permanent? ");
  1250.               if (yn()=='n') HInvis += rn1(15,31);
  1251.               else HInvis |= INTRINSIC;
  1252.   #else
  1253.               if (UseMacAlertText(128,
  1254.                   "Do you want the invisibility to be permanent ?")
  1255.                   == 2) HInvis += rn1(15,31);
  1256. ***************
  1257. *** 520,529 ****
  1258.           if (otmp->cursed) {
  1259.               unkn++;
  1260.               /* they went up a level */
  1261. !             if(dlevel > 1 && dlevel <= MAXLEVEL) { 
  1262.                   You("rise up, through the ceiling!");
  1263.                   goto_level(dlevel-1, FALSE, FALSE);
  1264.               } else You("have an uneasy feeling.");
  1265.               break;
  1266.           }
  1267.           pluslvl();
  1268. --- 533,554 ----
  1269.           if (otmp->cursed) {
  1270.               unkn++;
  1271.               /* they went up a level */
  1272. ! #ifdef ENDGAME
  1273. !             if((dlevel > 1  || u.uhave_amulet) &&
  1274. !                             dlevel <= MAXLEVEL) { 
  1275.                   You("rise up, through the ceiling!");
  1276. +                 goto_level((dlevel==1) ? ENDLEVEL
  1277. +                     : dlevel-1, FALSE, FALSE);
  1278. +             } else You("have an uneasy feeling.");
  1279. + #else
  1280. +             if(dlevel > 1 && dlevel <= MAXLEVEL) {
  1281. +                 You("rise up, through the ceiling!");
  1282. + #ifdef MACOS
  1283. +                 segments |= SEG_POTION;
  1284. + #endif
  1285.                   goto_level(dlevel-1, FALSE, FALSE);
  1286.               } else You("have an uneasy feeling.");
  1287. + #endif
  1288.               break;
  1289.           }
  1290.           pluslvl();
  1291. ***************
  1292. *** 740,745 ****
  1293. --- 765,772 ----
  1294.                   if(!Blind)
  1295.                   pline("%s looks healthier.", Monnam(mon));
  1296.                   mon->mhp += d(2,6);
  1297. +                 if (mon->mhp > mon->mhpmax)
  1298. +                     mon->mhp = mon->mhpmax;
  1299.               }
  1300.           }
  1301.           /* TO DO: Gremlins multiply when doused with water */
  1302. ***************
  1303. *** 1023,1032 ****
  1304.                   return(1);
  1305.           }
  1306.   
  1307. !         obj->spe--; /* diluted */
  1308. !         if (obj->otyp == POT_WATER)
  1309. !             pline("The mixture bubbles violently, then clears.");
  1310. !         else {
  1311.               if (!Blind) {
  1312.                   pline("The mixture looks %s.", objects[obj->otyp].oc_descr);
  1313.                   obj->dknown = 1;
  1314. --- 1050,1061 ----
  1315.                   return(1);
  1316.           }
  1317.   
  1318. !         if (obj->otyp == POT_WATER) {
  1319. !             obj->spe = 0; /* in case it was diluted before */
  1320. !             pline("The mixture bubbles violently%s.",
  1321. !                 Blind ? "" : ", then clears");
  1322. !         } else {
  1323. !             obj->spe--; /* diluted */
  1324.               if (!Blind) {
  1325.                   pline("The mixture looks %s.", objects[obj->otyp].oc_descr);
  1326.                   obj->dknown = 1;
  1327. ***************
  1328. *** 1059,1064 ****
  1329. --- 1088,1094 ----
  1330.           potion->otyp = POT_WATER;
  1331.           potion->blessed = 0;
  1332.           potion->cursed = 0;
  1333. +         potion->spe = 0;
  1334.           return(1);
  1335.       }
  1336.   
  1337. ***************
  1338. *** 1159,1181 ****
  1339.   {
  1340.       register struct obj    *objs;
  1341.       register struct monst    *mtmp;
  1342. !     boolean mfound=FALSE;
  1343.   
  1344.       if(!fobj) {
  1345.           for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
  1346. !             if (mtmp->minvent) {
  1347. !                 /* OK, it's used for 2 different things */
  1348. !                 mfound = TRUE;
  1349.                   break;
  1350.               }
  1351.           }
  1352. !         if (!mfound) {
  1353.               if (otmp)
  1354.                   strange_feeling(otmp, "You feel a pull downward.");
  1355.               return(1);
  1356.           }
  1357.       }
  1358. !     mfound = FALSE;
  1359.       for(objs = fobj; objs; objs = objs->nobj)
  1360.           if(objs->ox != u.ux || objs->oy != u.uy)
  1361.               goto outobjmap;
  1362. --- 1189,1213 ----
  1363.   {
  1364.       register struct obj    *objs;
  1365.       register struct monst    *mtmp;
  1366. !     boolean mfound=FALSE, mofound=FALSE;
  1367.   
  1368.       if(!fobj) {
  1369.           for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
  1370. !             /* mofound can be 1 of 2 completely different things,
  1371. !              * either of which stops the "strange feeling"...
  1372. !              */
  1373. !             if (mtmp->minvent || (mtmp->mimic && otmp->cursed)) {
  1374. !                 mofound = TRUE;
  1375.                   break;
  1376.               }
  1377.           }
  1378. !         if (!mofound) {
  1379.               if (otmp)
  1380.                   strange_feeling(otmp, "You feel a pull downward.");
  1381.               return(1);
  1382.           }
  1383.       }
  1384. !     if (mofound) goto outobjmap;
  1385.       for(objs = fobj; objs; objs = objs->nobj)
  1386.           if(objs->ox != u.ux || objs->oy != u.uy)
  1387.               goto outobjmap;
  1388. *** src/Old/pray.c    Sun Jun  3 14:04:30 1990
  1389. --- src/pray.c    Sat May 12 16:07:09 1990
  1390. ***************
  1391. *** 650,658 ****
  1392.           case 6:    pline ("An object appears at your %s!",
  1393.                   makeplural(body_part(FOOT)));
  1394.   #ifdef SPELLS
  1395. !             bless(mkobj_at(SPBOOK_SYM, u.ux, u.uy));
  1396.   #else
  1397. !             bless(mkobj_at(SCROLL_SYM, u.ux, u.uy));
  1398.   #endif
  1399.               break;
  1400.   
  1401. --- 650,658 ----
  1402.           case 6:    pline ("An object appears at your %s!",
  1403.                   makeplural(body_part(FOOT)));
  1404.   #ifdef SPELLS
  1405. !             bless(mkobj_at(SPBOOK_SYM, u.ux, u.uy, TRUE));
  1406.   #else
  1407. !             bless(mkobj_at(SCROLL_SYM, u.ux, u.uy, TRUE));
  1408.   #endif
  1409.               break;
  1410.   
  1411. ***************
  1412. *** 692,698 ****
  1413.   }
  1414.   
  1415.   #ifdef ENDGAME
  1416. ! static const char sacrifice_types[] = { FOOD_SYM, AMULET_SYM, 0 };
  1417.   #endif
  1418.   
  1419.   static void
  1420. --- 692,698 ----
  1421.   }
  1422.   
  1423.   #ifdef ENDGAME
  1424. ! static const char NEARDATA sacrifice_types[] = { FOOD_SYM, AMULET_SYM, 0 };
  1425.   #endif
  1426.   
  1427.   static void
  1428. ***************
  1429. *** 772,789 ****
  1430.           } else {
  1431.               register struct monst *dmon;
  1432.       /* Human sacrifice on a chaotic altar is equivalent to demon summoning */
  1433. ! #ifdef THEOLOGY
  1434.               if (altaralign == U_CHAOTIC)
  1435.                   pline("The blood covers the altar!");
  1436.               else {
  1437. ! #endif
  1438.       pline("The blood floods over the altar, which vanishes in %s cloud!",
  1439.                     an(Hallucination ? hcolor() : black));
  1440.                   levl[u.ux][u.uy].typ = ROOM;
  1441.                   levl[u.ux][u.uy].altarmask = 0;
  1442. ! #ifdef THEOLOGY
  1443.               }
  1444. ! #endif
  1445.               change_luck(2);
  1446.               if(Invisible) newsym(u.ux, u.uy);
  1447.               if(dmon = makemon(&mons[dlord()], u.ux, u.uy)) {
  1448. --- 772,789 ----
  1449.           } else {
  1450.               register struct monst *dmon;
  1451.       /* Human sacrifice on a chaotic altar is equivalent to demon summoning */
  1452. ! # ifdef THEOLOGY
  1453.               if (altaralign == U_CHAOTIC)
  1454.                   pline("The blood covers the altar!");
  1455.               else {
  1456. ! # endif
  1457.       pline("The blood floods over the altar, which vanishes in %s cloud!",
  1458.                     an(Hallucination ? hcolor() : black));
  1459.                   levl[u.ux][u.uy].typ = ROOM;
  1460.                   levl[u.ux][u.uy].altarmask = 0;
  1461. ! # ifdef THEOLOGY
  1462.               }
  1463. ! # endif
  1464.               change_luck(2);
  1465.               if(Invisible) newsym(u.ux, u.uy);
  1466.               if(dmon = makemon(&mons[dlord()], u.ux, u.uy)) {
  1467. ***************
  1468. *** 817,822 ****
  1469. --- 817,823 ----
  1470.   #ifdef __GNULINT__
  1471.           else { impossible("Bad unicorn type??"); unicalign = 0; }
  1472.   #endif
  1473. + #ifdef ALTARS
  1474.           /* If same as altar, always a very bad action. */
  1475.           if (unicalign == altaralign) {
  1476.               pline("Such an action is an insult to %s!", (unicalign== -1)
  1477. ***************
  1478. *** 832,840 ****
  1479.               else You("feel you are thoroughly on the right path.");
  1480.               u.ualign = ALIGNLIM;
  1481.               value += 3;
  1482. !         } else if (unicalign == u.ualigntyp) {
  1483.           /* If sacrificing unicorn of your alignment to altar not of */
  1484.           /* your alignment, your god gets angry and it's a conversion */
  1485.               u.ualign = -1;
  1486.               value = 1;
  1487.           } else value += 3;
  1488. --- 833,843 ----
  1489.               else You("feel you are thoroughly on the right path.");
  1490.               u.ualign = ALIGNLIM;
  1491.               value += 3;
  1492. !         } else
  1493.           /* If sacrificing unicorn of your alignment to altar not of */
  1494.           /* your alignment, your god gets angry and it's a conversion */
  1495. + #endif
  1496. +         if (unicalign == u.ualigntyp) {
  1497.               u.ualign = -1;
  1498.               value = 1;
  1499.           } else value += 3;
  1500. ***************
  1501. *** 959,964 ****
  1502. --- 962,968 ----
  1503.               You("feel the power of %s increase.",
  1504.                       u_gname());
  1505.               change_luck(1);
  1506. +             /* Yes, this is supposed to be &=, not |= */
  1507.               levl[u.ux][u.uy].altarmask &= A_SHRINE;
  1508.               /* the following accommodates stupid compilers */
  1509.               levl[u.ux][u.uy].altarmask =
  1510. *** src/Old/pri.c    Sun Jun  3 14:05:14 1990
  1511. --- src/pri.c    Thu May 31 22:13:26 1990
  1512. ***************
  1513. *** 5,43 ****
  1514.   #define MONATTK_H    /* comment line for pre-compiled headers */
  1515.   /* block some unused #defines to avoid overloading some cpp's */
  1516.   #include "hack.h"
  1517. - #include <ctype.h>  /* for isalpha() */
  1518.   #if defined(ALTARS) && defined(THEOLOGY)
  1519.   #include "epri.h"
  1520.   #endif
  1521.   #include "termcap.h"
  1522.   
  1523. ! OSTATIC void FDECL(hilite, (int,int,UCHAR_P, UCHAR_P));
  1524. ! OSTATIC void FDECL(cornbot, (int));
  1525.   #ifdef TEXTCOLOR
  1526. ! OSTATIC uchar FDECL(mimic_color, (struct monst *));
  1527.   #endif
  1528.   
  1529. ! #ifndef ASCIIGRAPH
  1530.   # define g_putch  (void) putchar
  1531. ! #endif
  1532.   
  1533. ! #ifndef g_putch
  1534. ! #ifdef OVL0
  1535.   static boolean GFlag = FALSE; /* graphic flag */
  1536.   #endif /* OVL0 */
  1537. - #endif
  1538.   
  1539.   /* 100 suffices for bot(); must be larger than COLNO */
  1540.   #define MAXCO 100
  1541. ! VSTATIC char oldbot1[MAXCO], newbot1[MAXCO];
  1542. ! VSTATIC char oldbot2[MAXCO], newbot2[MAXCO];
  1543.   #ifdef OVL2
  1544. ! static const char *dispst = "*0#@#0#*0#@#0#*0#@#0#*0#@#0#*0#@#0#*";
  1545.   #endif /* OVL2 */
  1546.   #ifndef OVLB
  1547. ! OSTATIC int mrank_sz;
  1548.   #else /* OVLB */
  1549. ! XSTATIC int mrank_sz = 0;  /* loaded by max_rank_sz (called in u_init) */
  1550.   #endif /* OVLB */
  1551.   
  1552.   #ifdef CLIPPING
  1553. --- 5,49 ----
  1554.   #define MONATTK_H    /* comment line for pre-compiled headers */
  1555.   /* block some unused #defines to avoid overloading some cpp's */
  1556.   #include "hack.h"
  1557.   #if defined(ALTARS) && defined(THEOLOGY)
  1558.   #include "epri.h"
  1559.   #endif
  1560.   #include "termcap.h"
  1561.   
  1562. ! #ifdef OVL0
  1563. ! static void FDECL(fillbot, (int,char *,char *));
  1564. ! static void NDECL(bot1);
  1565. ! static void NDECL(bot2);
  1566. ! #endif /* OVL0 */
  1567. ! 
  1568. ! STATIC_DCL void FDECL(hilite, (int,int,UCHAR_P, UCHAR_P));
  1569. ! STATIC_DCL void FDECL(cornbot, (int));
  1570.   #ifdef TEXTCOLOR
  1571. ! STATIC_DCL uchar FDECL(mimic_color, (struct monst *));
  1572.   #endif
  1573.   
  1574. ! #ifdef OVL0
  1575. ! # ifndef ASCIIGRAPH
  1576.   # define g_putch  (void) putchar
  1577. ! # endif /* ASCIIGRAPH */
  1578.   
  1579. ! # ifndef g_putch
  1580. ! static void FDECL(g_putch, (UCHAR_P));
  1581.   static boolean GFlag = FALSE; /* graphic flag */
  1582. + # endif
  1583.   #endif /* OVL0 */
  1584.   
  1585.   /* 100 suffices for bot(); must be larger than COLNO */
  1586.   #define MAXCO 100
  1587. ! STATIC_VAR char NEARDATA oldbot1[MAXCO], NEARDATA newbot1[MAXCO];
  1588. ! STATIC_VAR char NEARDATA oldbot2[MAXCO], NEARDATA newbot2[MAXCO];
  1589.   #ifdef OVL2
  1590. ! static const char NEARDATA *dispst = "*0#@#0#*0#@#0#*0#@#0#*0#@#0#*0#@#0#*";
  1591.   #endif /* OVL2 */
  1592.   #ifndef OVLB
  1593. ! STATIC_DCL int mrank_sz;
  1594.   #else /* OVLB */
  1595. ! STATIC_OVL int NEARDATA mrank_sz = 0;  /* loaded by max_rank_sz (called in u_init) */
  1596.   #endif /* OVLB */
  1597.   
  1598.   #ifdef CLIPPING
  1599. ***************
  1600. *** 126,131 ****
  1601. --- 132,140 ----
  1602.   #endif
  1603.   }
  1604.   
  1605. + #endif /* OVLB */
  1606. + #ifdef OVL0
  1607. + 
  1608.   #ifdef CLIPPING
  1609.   void
  1610.   cliparound(x, y)
  1611. ***************
  1612. *** 160,168 ****
  1613.   }
  1614.   #endif /* CLIPPING */
  1615.   
  1616. - #endif /* OVLB */
  1617. - #ifdef OVL0
  1618. - 
  1619.   /*
  1620.    *  Allow for a different implementation than this...
  1621.    */
  1622. --- 169,174 ----
  1623. ***************
  1624. *** 173,179 ****
  1625.   g_putch(ch)
  1626.   uchar ch;
  1627.   {
  1628. !     if (IBMgraphics)    /* IBM-compatible displays don't need other stuff */
  1629.           (void) putchar(ch);
  1630.       else if (ch & 0x80) {
  1631.           if (!GFlag) {
  1632. --- 179,186 ----
  1633.   g_putch(ch)
  1634.   uchar ch;
  1635.   {
  1636. !     if (flags.IBMgraphics)
  1637. !         /* IBM-compatible displays don't need other stuff */
  1638.           (void) putchar(ch);
  1639.       else if (ch & 0x80) {
  1640.           if (!GFlag) {
  1641. ***************
  1642. *** 272,278 ****
  1643.       register const char *ch;
  1644.       register struct monst *mtmp = 0;
  1645.   
  1646. !     if((x != u.ux) || (y != u.uy)) {
  1647.           if(!(mtmp = m_at(x, y))) {
  1648.   
  1649.           impossible("shield effect at %d,%d", x, y);
  1650. --- 279,289 ----
  1651.       register const char *ch;
  1652.       register struct monst *mtmp = 0;
  1653.   
  1654. !     nscr();
  1655. ! 
  1656. !     if((x == u.ux) && (y == u.uy)) 
  1657. !         curs_on_u();
  1658. !     else {
  1659.           if(!(mtmp = m_at(x, y))) {
  1660.   
  1661.           impossible("shield effect at %d,%d", x, y);
  1662. ***************
  1663. *** 429,435 ****
  1664.   #endif /* OVL0 */
  1665.   #ifdef OVLB
  1666.   
  1667. ! XSTATIC void
  1668.   cornbot(lth)
  1669.   register int lth;
  1670.   {
  1671. --- 440,446 ----
  1672.   #endif /* OVL0 */
  1673.   #ifdef OVLB
  1674.   
  1675. ! STATIC_OVL void
  1676.   cornbot(lth)
  1677.   register int lth;
  1678.   {
  1679. ***************
  1680. *** 677,683 ****
  1681.   /* Make sure that there are 18 entries in the rank arrays. */
  1682.   /* 0 and even entries are male ranks, odd entries are female. */
  1683.   
  1684. ! static const char *mage_ranks[] = {
  1685.       "Evoker",
  1686.       "Evoker",
  1687.       "Conjurer",
  1688. --- 688,694 ----
  1689.   /* Make sure that there are 18 entries in the rank arrays. */
  1690.   /* 0 and even entries are male ranks, odd entries are female. */
  1691.   
  1692. ! static const char NEARDATA *mage_ranks[] = {
  1693.       "Evoker",
  1694.       "Evoker",
  1695.       "Conjurer",
  1696. ***************
  1697. *** 698,704 ****
  1698.       "Mage"
  1699.   };
  1700.   
  1701. ! static const char *priest_ranks[] = {
  1702.       "Aspirant",
  1703.       "Aspirant",
  1704.       "Acolyte",
  1705. --- 709,715 ----
  1706.       "Mage"
  1707.   };
  1708.   
  1709. ! static const char NEARDATA *priest_ranks[] = {
  1710.       "Aspirant",
  1711.       "Aspirant",
  1712.       "Acolyte",
  1713. ***************
  1714. *** 719,725 ****
  1715.       "High Priestess"
  1716.   };
  1717.   
  1718. ! static const char *thief_ranks[] = {
  1719.       "Footpad",
  1720.       "Footpad",
  1721.       "Cutpurse",
  1722. --- 730,736 ----
  1723.       "High Priestess"
  1724.   };
  1725.   
  1726. ! static const char NEARDATA *thief_ranks[] = {
  1727.       "Footpad",
  1728.       "Footpad",
  1729.       "Cutpurse",
  1730. ***************
  1731. *** 740,746 ****
  1732.       "Thief"
  1733.   };
  1734.   
  1735. ! static const char *fighter_ranks[] = {
  1736.       "Stripling",
  1737.       "Stripling",
  1738.       "Skirmisher",
  1739. --- 751,757 ----
  1740.       "Thief"
  1741.   };
  1742.   
  1743. ! static const char NEARDATA *fighter_ranks[] = {
  1744.       "Stripling",
  1745.       "Stripling",
  1746.       "Skirmisher",
  1747. ***************
  1748. *** 761,767 ****
  1749.       "Lady"
  1750.   };
  1751.   
  1752. ! static const char *tourist_ranks[] = {
  1753.       "Rambler",
  1754.       "Rambler",
  1755.       "Sightseer",
  1756. --- 772,778 ----
  1757.       "Lady"
  1758.   };
  1759.   
  1760. ! static const char NEARDATA *tourist_ranks[] = {
  1761.       "Rambler",
  1762.       "Rambler",
  1763.       "Sightseer",
  1764. ***************
  1765. *** 782,788 ****
  1766.       "Adventurer"
  1767.   };
  1768.   
  1769. ! static const char *nomad_ranks[] = {
  1770.       "Troglodyte",
  1771.       "Troglodyte",
  1772.       "Aborigine",
  1773. --- 793,799 ----
  1774.       "Adventurer"
  1775.   };
  1776.   
  1777. ! static const char NEARDATA *nomad_ranks[] = {
  1778.       "Troglodyte",
  1779.       "Troglodyte",
  1780.       "Aborigine",
  1781. ***************
  1782. *** 803,809 ****
  1783.       "Pioneer"
  1784.   };
  1785.   
  1786. ! static const char *knight_ranks[] = {
  1787.       "Gallant",
  1788.       "Gallant",
  1789.       "Esquire",
  1790. --- 814,820 ----
  1791.       "Pioneer"
  1792.   };
  1793.   
  1794. ! static const char NEARDATA *knight_ranks[] = {
  1795.       "Gallant",
  1796.       "Gallant",
  1797.       "Esquire",
  1798. ***************
  1799. *** 824,830 ****
  1800.       "Paladin"
  1801.   };
  1802.   
  1803. ! static const char *archeo_ranks[] = {
  1804.       "Digger",
  1805.       "Digger",
  1806.       "Field Worker",
  1807. --- 835,841 ----
  1808.       "Paladin"
  1809.   };
  1810.   
  1811. ! static const char NEARDATA *archeo_ranks[] = {
  1812.       "Digger",
  1813.       "Digger",
  1814.       "Field Worker",
  1815. ***************
  1816. *** 845,851 ****
  1817.       "Curator"
  1818.   };
  1819.   
  1820. ! static const char *healer_ranks[] = {
  1821.       "Pre-Med",
  1822.       "Pre-Med",
  1823.       "Med Student",
  1824. --- 856,862 ----
  1825.       "Curator"
  1826.   };
  1827.   
  1828. ! static const char NEARDATA *healer_ranks[] = {
  1829.       "Pre-Med",
  1830.       "Pre-Med",
  1831.       "Med Student",
  1832. ***************
  1833. *** 866,872 ****
  1834.       "Chief Surgeon"
  1835.   };
  1836.   
  1837. ! static const char *barbarian_ranks[] = {
  1838.       "Plunderer",
  1839.       "Plunderess",
  1840.       "Pillager",
  1841. --- 877,883 ----
  1842.       "Chief Surgeon"
  1843.   };
  1844.   
  1845. ! static const char NEARDATA *barbarian_ranks[] = {
  1846.       "Plunderer",
  1847.       "Plunderess",
  1848.       "Pillager",
  1849. ***************
  1850. *** 887,893 ****
  1851.       "Conqueress"
  1852.   };
  1853.   
  1854. ! static const char *ninja_ranks[] = {
  1855.       "Chigo",
  1856.       "Chigo",
  1857.       "Bushi",
  1858. --- 898,904 ----
  1859.       "Conqueress"
  1860.   };
  1861.   
  1862. ! static const char NEARDATA *ninja_ranks[] = {
  1863.       "Chigo",
  1864.       "Chigo",
  1865.       "Bushi",
  1866. ***************
  1867. *** 908,914 ****
  1868.       "Jonin",
  1869.   };
  1870.   
  1871. ! static const char *elf_ranks[] = {
  1872.       "Edhel",
  1873.       "Elleth",
  1874.       "Edhel",
  1875. --- 919,925 ----
  1876.       "Jonin",
  1877.   };
  1878.   
  1879. ! static const char NEARDATA *elf_ranks[] = {
  1880.       "Edhel",
  1881.       "Elleth",
  1882.       "Edhel",
  1883. ***************
  1884. *** 931,941 ****
  1885.   
  1886.   #endif /* OVL1 */
  1887.   
  1888. ! OSTATIC const char **NDECL(rank_array);
  1889.   
  1890.   #ifdef OVL1
  1891.   
  1892. ! XSTATIC const char **
  1893.   rank_array() {
  1894.       register const char **ranks;
  1895.   
  1896. --- 942,952 ----
  1897.   
  1898.   #endif /* OVL1 */
  1899.   
  1900. ! STATIC_DCL const char **NDECL(rank_array);
  1901.   
  1902.   #ifdef OVL1
  1903.   
  1904. ! STATIC_OVL const char **
  1905.   rank_array() {
  1906.       register const char **ranks;
  1907.   
  1908. ***************
  1909. *** 959,969 ****
  1910.   
  1911.   #endif /* OVL1 */
  1912.   
  1913. ! OSTATIC const char *rank();
  1914.   
  1915.   #ifdef OVL1
  1916.   
  1917. ! XSTATIC const char *
  1918.   rank() {
  1919.       register int place;
  1920.       register const char **ranks = rank_array();
  1921. --- 970,980 ----
  1922.   
  1923.   #endif /* OVL1 */
  1924.   
  1925. ! STATIC_DCL const char *NDECL(rank);
  1926.   
  1927.   #ifdef OVL1
  1928.   
  1929. ! STATIC_OVL const char *
  1930.   rank() {
  1931.       register int place;
  1932.       register const char **ranks = rank_array();
  1933. ***************
  1934. *** 1261,1267 ****
  1935.    * user programmable
  1936.    */
  1937.   
  1938. ! static const char rndobs[] = {
  1939.       WEAPON_SYM, ARMOR_SYM, POTION_SYM, SCROLL_SYM, WAND_SYM,
  1940.   #ifdef SPELLS
  1941.       SPBOOK_SYM,
  1942. --- 1272,1278 ----
  1943.    * user programmable
  1944.    */
  1945.   
  1946. ! static const char NEARDATA rndobs[] = {
  1947.       WEAPON_SYM, ARMOR_SYM, POTION_SYM, SCROLL_SYM, WAND_SYM,
  1948.   #ifdef SPELLS
  1949.       SPBOOK_SYM,
  1950. ***************
  1951. *** 1274,1280 ****
  1952.       return rndobs[rn2(SIZE(rndobs))];
  1953.   }
  1954.   
  1955. ! static const char *hcolors[] = {
  1956.               "ultraviolet", "infrared", "hot pink", "psychedelic",
  1957.               "bluish-orange", "reddish-green", "dark white",
  1958.               "light black", "loud", "salty", "sweet", "sour",
  1959. --- 1285,1291 ----
  1960.       return rndobs[rn2(SIZE(rndobs))];
  1961.   }
  1962.   
  1963. ! static const char NEARDATA *hcolors[] = {
  1964.               "ultraviolet", "infrared", "hot pink", "psychedelic",
  1965.               "bluish-orange", "reddish-green", "dark white",
  1966.               "light black", "loud", "salty", "sweet", "sour",
  1967. ***************
  1968. *** 1297,1303 ****
  1969.   #ifdef OVL0
  1970.   
  1971.   /*ARGSUSED*/
  1972. ! XSTATIC void
  1973.   hilite(x, y, let, typ)
  1974.   int x, y;
  1975.   uchar let, typ;
  1976. --- 1308,1314 ----
  1977.   #ifdef OVL0
  1978.   
  1979.   /*ARGSUSED*/
  1980. ! STATIC_OVL void
  1981.   hilite(x, y, let, typ)
  1982.   int x, y;
  1983.   uchar let, typ;
  1984. ***************
  1985. *** 1446,1452 ****
  1986.   #ifdef TEXTCOLOR
  1987.   /* pick an appropriate color for a mimic imitating an object */
  1988.   
  1989. ! XSTATIC uchar
  1990.   mimic_color(mtmp)
  1991.   struct monst *mtmp;
  1992.   {
  1993. --- 1457,1463 ----
  1994.   #ifdef TEXTCOLOR
  1995.   /* pick an appropriate color for a mimic imitating an object */
  1996.   
  1997. ! STATIC_OVL uchar
  1998.   mimic_color(mtmp)
  1999.   struct monst *mtmp;
  2000.   {
  2001. *** src/Old/priest.c    Sun Jun  3 14:06:04 1990
  2002. --- src/priest.c    Thu May 31 22:13:29 1990
  2003. ***************
  2004. *** 10,15 ****
  2005. --- 10,18 ----
  2006.   #include "eshk.h"
  2007.   #include "epri.h"
  2008.   
  2009. + #ifdef OVLB
  2010. + 
  2011. + #if defined(ALTARS) && defined(THEOLOGY)
  2012.   static boolean FDECL(histemple_at,(struct monst *,int,int));
  2013.   static int FDECL(t_alignment,(struct mkroom *));
  2014.   static boolean FDECL(is_shrined,(struct mkroom *));
  2015. ***************
  2016. *** 16,23 ****
  2017.   static boolean FDECL(t_coaligned,(struct mkroom *));
  2018.   struct monst *FDECL(findpriest,(struct mkroom *));
  2019.   static boolean FDECL(p_inhistemple,(struct mkroom *));
  2020. ! 
  2021. ! #ifdef OVLB
  2022.   
  2023.   /* used for the insides of shk_move and pri_move */
  2024.   int
  2025. --- 19,25 ----
  2026.   static boolean FDECL(t_coaligned,(struct mkroom *));
  2027.   struct monst *FDECL(findpriest,(struct mkroom *));
  2028.   static boolean FDECL(p_inhistemple,(struct mkroom *));
  2029. ! #endif
  2030.   
  2031.   /* used for the insides of shk_move and pri_move */
  2032.   int
  2033. ***************
  2034. *** 236,252 ****
  2035.               cnt--;
  2036.           }
  2037.   #endif
  2038. !         if(p_coaligned(priest)) {
  2039.               (void) mongets(priest, rn2(2) ? CLOAK_OF_PROTECTION
  2040.                             : CLOAK_OF_MAGIC_RESISTANCE);
  2041. ! #ifdef NAMED_ITEMS
  2042. !             otmp = mk_aligned_artifact((unsigned)EPRI(priest)->shralign + 1);
  2043. !             if(otmp) {
  2044. !             otmp->spe = rnd(4);
  2045. !             mpickobj(priest, otmp);
  2046. !             }
  2047. ! #endif
  2048. !         } else {
  2049.               if(!rn2(5)) 
  2050.               otmp = mksobj(CLOAK_OF_MAGIC_RESISTANCE, FALSE); 
  2051.               else otmp = mksobj(CLOAK_OF_PROTECTION, FALSE); 
  2052. --- 238,247 ----
  2053.               cnt--;
  2054.           }
  2055.   #endif
  2056. !         if(p_coaligned(priest))
  2057.               (void) mongets(priest, rn2(2) ? CLOAK_OF_PROTECTION
  2058.                             : CLOAK_OF_MAGIC_RESISTANCE);
  2059. !         else {
  2060.               if(!rn2(5)) 
  2061.               otmp = mksobj(CLOAK_OF_MAGIC_RESISTANCE, FALSE); 
  2062.               else otmp = mksobj(CLOAK_OF_PROTECTION, FALSE); 
  2063. ***************
  2064. *** 254,265 ****
  2065.               if(!rn2(2)) curse(otmp);
  2066.               mpickobj(priest, otmp);
  2067.               }
  2068. !             otmp = mksobj(MACE, FALSE);
  2069. !             if(otmp) {
  2070. !             otmp->spe = rnd(3);
  2071. !             if(!rn2(2)) curse(otmp);
  2072. !             mpickobj(priest, otmp);
  2073. !             }
  2074.           }
  2075.       }
  2076.   }
  2077. --- 249,261 ----
  2078.               if(!rn2(2)) curse(otmp);
  2079.               mpickobj(priest, otmp);
  2080.               }
  2081. !         }
  2082. ! 
  2083. !         otmp = mksobj(MACE, FALSE);
  2084. !         if(otmp) {
  2085. !             otmp->spe = rnd(3);
  2086. !             if(!rn2(2)) curse(otmp);
  2087. !             mpickobj(priest, otmp);
  2088.           }
  2089.       }
  2090.   }
  2091. ***************
  2092. *** 268,274 ****
  2093.   priestname(priest)
  2094.   register struct monst *priest;
  2095.   {
  2096. !     static char pname[PL_NSIZ];
  2097.   
  2098.       Strcpy(pname, "the ");
  2099.       if(priest->minvis) Strcat(pname, "invisible ");
  2100. --- 264,270 ----
  2101.   priestname(priest)
  2102.   register struct monst *priest;
  2103.   {
  2104. !     static char NEARDATA pname[PL_NSIZ];
  2105.   
  2106.       Strcpy(pname, "the ");
  2107.       if(priest->minvis) Strcat(pname, "invisible ");
  2108. ***************
  2109. *** 447,452 ****
  2110. --- 443,449 ----
  2111.               kludge("%s gives you two bits for an ale.", Monnam(priest));
  2112.               u.ugold = 2L;
  2113.           if (priest->mgold) priest->mgold -= 2L;
  2114. +         flags.botl = 1;
  2115.           } else
  2116.           kludge("%s is not interested.", Monnam(priest));
  2117.           return;
  2118.  
  2119.