home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / games / volume16 / nethack31 / patch1n / patches01g
Text File  |  1993-03-05  |  53KB  |  1,899 lines
  1. *** /tmp/da08437    Thu Feb 25 10:24:27 1993
  2. --- src/objnam.c    Tue Feb 23 17:03:14 1993
  3. ***************
  4. *** 1,4 ****
  5. ! /*    SCCS Id: @(#)objnam.c    3.1    92/12/13    */
  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: @(#)objnam.c    3.1    93/02/12    */
  11.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  12.   /* NetHack may be freely redistributed.  See license for details. */
  13.   
  14. ***************
  15. *** 167,182 ****
  16.   register struct obj *obj;
  17.   {
  18.   #ifdef LINT    /* lint may handle static decl poorly -- static char bufr[]; */
  19. ! char bufr[BUFSZ];
  20.   #else
  21. ! static char bufr[BUFSZ];
  22.   #endif
  23. ! register char *buf = &(bufr[PREFIX]);    /* leave room for "17 -3 " */
  24. ! register int typ = obj->otyp;
  25. ! register int nn = objects[typ].oc_name_known;
  26. ! register const char *actualn = OBJ_NAME(objects[typ]);
  27. ! register const char *dn = OBJ_DESCR(objects[typ]);
  28. ! register const char *un = objects[typ].oc_uname;
  29.   
  30.       if (pl_character[0] == 'S' && Japanese_item_name(typ))
  31.           actualn = Japanese_item_name(typ);
  32. --- 167,182 ----
  33.   register struct obj *obj;
  34.   {
  35.   #ifdef LINT    /* lint may handle static decl poorly -- static char bufr[]; */
  36. !     char bufr[BUFSZ];
  37.   #else
  38. !     static char bufr[BUFSZ];
  39.   #endif
  40. !     register char *buf = &(bufr[PREFIX]);    /* leave room for "17 -3 " */
  41. !     register int typ = obj->otyp;
  42. !     register int nn = objects[typ].oc_name_known;
  43. !     register const char *actualn = OBJ_NAME(objects[typ]);
  44. !     register const char *dn = OBJ_DESCR(objects[typ]);
  45. !     register const char *un = objects[typ].oc_uname;
  46.   
  47.       if (pl_character[0] == 'S' && Japanese_item_name(typ))
  48.           actualn = Japanese_item_name(typ);
  49. ***************
  50. *** 385,398 ****
  51.       default:
  52.           Sprintf(buf,"glorkum %d %d %d", obj->oclass, typ, obj->spe);
  53.       }
  54. !     if(obj->quan != 1L) Strcpy(buf, makeplural(buf));
  55.   
  56. !     if(obj->onamelth &&
  57. !        (!obj->oartifact || !objects[obj->otyp].oc_unique)) {
  58.           Strcat(buf, " named ");
  59.           nameit:
  60.           Strcat(buf, ONAME(obj));
  61.       }
  62.       return(buf);
  63.   }
  64.   
  65. --- 385,400 ----
  66.       default:
  67.           Sprintf(buf,"glorkum %d %d %d", obj->oclass, typ, obj->spe);
  68.       }
  69. !     if (obj->quan != 1L) Strcpy(buf, makeplural(buf));
  70.   
  71. !     if (obj->onamelth &&
  72. !         (!obj->oartifact || !objects[obj->otyp].oc_unique)) {
  73.           Strcat(buf, " named ");
  74.           nameit:
  75.           Strcat(buf, ONAME(obj));
  76.       }
  77. + 
  78. +     if (!strncmpi(buf, "the ", 4)) buf += 4;
  79.       return(buf);
  80.   }
  81.   
  82. ***************
  83. *** 487,493 ****
  84.               Strcat(prefix,
  85.                      is_rustprone(obj) ? "rusty " :
  86.                      is_corrodeable(obj) ? "corroded " :
  87. !                    is_flammable(obj) ? "burnt " : "");
  88.           } else if (obj->rknown && obj->oerodeproof)
  89.               Strcat(prefix,
  90.                      is_rustprone(obj) ? "rustproof " :
  91. --- 489,495 ----
  92.               Strcat(prefix,
  93.                      is_rustprone(obj) ? "rusty " :
  94.                      is_corrodeable(obj) ? "corroded " :
  95. !                    is_flammable(obj) ? "burnt " : "eroded ");
  96.           } else if (obj->rknown && obj->oerodeproof)
  97.               Strcat(prefix,
  98.                      is_rustprone(obj) ? "rustproof " :
  99. ***************
  100. *** 904,910 ****
  101.   
  102.       /* same singular and plural */
  103.       /* note: also swine, trout, grouse */
  104. !     if ((len >= 7 && !strcmp(spot-6, "samurai")) ||
  105.   #ifdef TUTTI_FRUTTI
  106.           (len >= 5 &&
  107.            (!strcmp(spot-4, "manes") || !strcmp(spot-4, "sheep"))) ||
  108. --- 906,912 ----
  109.   
  110.       /* same singular and plural */
  111.       /* note: also swine, trout, grouse */
  112. !     if ((len >= 2 && !strcmp(spot-1, "ai")) || /* samurai, Uruk-hai */
  113.   #ifdef TUTTI_FRUTTI
  114.           (len >= 5 &&
  115.            (!strcmp(spot-4, "manes") || !strcmp(spot-4, "sheep"))) ||
  116. ***************
  117. *** 971,977 ****
  118.       }
  119.   
  120.       /* Japanese words: plurals are the same as singlar */
  121. !     if (len == 2 && !strcmp(str, "ya"))
  122.           goto bottom;
  123.   
  124.       /* Default: append an 's' */
  125. --- 973,980 ----
  126.       }
  127.   
  128.       /* Japanese words: plurals are the same as singlar */
  129. !     if ((len == 2 && !strcmp(str, "ya")) ||
  130. !         (len > 2 && !strcmp(spot-2, " ya")))
  131.           goto bottom;
  132.   
  133.       /* Default: append an 's' */
  134. ***************
  135. *** 1535,1540 ****
  136. --- 1538,1544 ----
  137.           p = eos(bp);
  138.           if(!BSTRCMP(bp, p-8, "fountain")) {
  139.               levl[u.ux][u.uy].typ = FOUNTAIN;
  140. +             level.flags.nfountains++;
  141.               if(!strncmpi(bp, "magic ", 6))
  142.                   levl[u.ux][u.uy].blessedftn = 1;
  143.               pline("A %sfountain.",
  144. ***************
  145. *** 1542,1547 ****
  146. --- 1546,1560 ----
  147.               newsym(u.ux, u.uy);
  148.               return(&zeroobj);
  149.           }
  150. + # ifdef SINKS
  151. +         if(!BSTRCMP(bp, p-4, "sink")) {
  152. +             levl[u.ux][u.uy].typ = SINK;
  153. +             level.flags.nsinks++;
  154. +             pline("A sink.");
  155. +             newsym(u.ux, u.uy);
  156. +             return &zeroobj;
  157. +         }
  158. + # endif
  159.           if(!BSTRCMP(bp, p-5, "altar")) {
  160.               aligntyp al;
  161.   
  162. ***************
  163. *** 1670,1685 ****
  164.               typ = SPE_BLANK_PAPER;
  165.               break;
  166.           }
  167. ! 
  168. !     /* venom isn't really an object and can't be wished for; but allow
  169. !      * wizards to wish for it since it's faster than polymorphing and
  170. !      * spitting.
  171. !      */
  172. !     if(let == VENOM_CLASS)
  173.   #ifdef WIZARD
  174. !         if (!wizard)
  175.   #endif
  176. !             return((struct obj *)0);
  177.   
  178.       if(typ) {
  179.           otmp = mksobj(typ, TRUE, FALSE);
  180. --- 1683,1695 ----
  181.               typ = SPE_BLANK_PAPER;
  182.               break;
  183.           }
  184. !     /* catch any other non-wishable objects */
  185. !     if (objects[typ].oc_nowish
  186.   #ifdef WIZARD
  187. !         && !wizard
  188.   #endif
  189. !         )
  190. !         return((struct obj *)0);
  191.   
  192.       if(typ) {
  193.           otmp = mksobj(typ, TRUE, FALSE);
  194. ***************
  195. *** 1696,1701 ****
  196. --- 1706,1712 ----
  197.   #ifdef WIZARD
  198.           wizard ||
  199.   #endif
  200. +          (cnt <= 7 && Is_candle(otmp)) ||
  201.            (cnt <= 20 &&
  202.             ((let == WEAPON_CLASS && typ <= SHURIKEN) || (typ == ROCK)))))
  203.               otmp->quan = (long) cnt;
  204. ***************
  205. *** 1858,1863 ****
  206. --- 1869,1889 ----
  207.           otmp = oname(otmp, name, 0);
  208.           if (otmp->oartifact) otmp->quan = 1L;
  209.       }
  210. + 
  211. +     /* more wishing abuse: don't allow wishing for certain artifacts */
  212. +     /* and make them pay; charge them for the wish anyway! */
  213. +     if ((is_quest_artifact(otmp) || 
  214. +          (otmp->oartifact && rn2(nartifact_exist()) > 1))
  215. + # ifdef WIZARD
  216. +         && !wizard
  217. + # endif
  218. +         ) {
  219. +         artifact_unexist(otmp);
  220. +         obfree(otmp, (struct obj *) 0);
  221. +         otmp = &zeroobj;
  222. +         pline("For a moment, you feel something in your %s, but it disappears!", makeplural(body_part(HAND)));
  223. +     }
  224. +     
  225.       otmp->owt = weight(otmp);
  226.       if (very && otmp->otyp == HEAVY_IRON_BALL) otmp->owt += 160;
  227.       if (halfeaten && otmp->oclass == FOOD_CLASS) {
  228. *** /tmp/da08445    Thu Feb 25 10:24:31 1993
  229. --- src/options.c    Mon Feb 22 11:02:49 1993
  230. ***************
  231. *** 1,4 ****
  232. ! /*    SCCS Id: @(#)options.c    3.1    92/11/14    */
  233.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  234.   /* NetHack may be freely redistributed.  See license for details. */
  235.   
  236. --- 1,4 ----
  237. ! /*    SCCS Id: @(#)options.c    3.1    93/02/19    */
  238.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  239.   /* NetHack may be freely redistributed.  See license for details. */
  240.   
  241. ***************
  242. *** 9,15 ****
  243.   /*
  244.    *  NOTE:  If you add (or delete) an option, please update the short
  245.    *  options help (option_help()), the long options help (dat/opthelp),
  246. !  *  and the current options setting display function (doset()).
  247.    */
  248.   
  249.   #if defined(TOS) && defined(TEXTCOLOR)
  250. --- 9,16 ----
  251.   /*
  252.    *  NOTE:  If you add (or delete) an option, please update the short
  253.    *  options help (option_help()), the long options help (dat/opthelp),
  254. !  *  and the current options setting display function (doset()),
  255. !  *  and also the Guidebooks.
  256.    */
  257.   
  258.   #if defined(TOS) && defined(TEXTCOLOR)
  259. ***************
  260. *** 20,33 ****
  261.   extern char inv_order[];    /* from invent.c */
  262.   
  263.   static boolean initial, from_file;
  264. - static boolean NEARDATA set_order;
  265.   
  266.   static void FDECL(nmcpy, (char *, const char *, int));
  267.   static void FDECL(escapes, (const char *, char *));
  268.   static void FDECL(rejectoption, (const char *));
  269.   static void FDECL(badoption, (const char *));
  270.   static char *FDECL(string_for_env_opt, (const char *, char *));
  271. ! static int FDECL(change_inv_order, (char *, int));
  272.   static void FDECL(oc_to_str, (char *, char *));
  273.   
  274.   static struct Bool_Opt
  275. --- 21,34 ----
  276.   extern char inv_order[];    /* from invent.c */
  277.   
  278.   static boolean initial, from_file;
  279.   
  280.   static void FDECL(nmcpy, (char *, const char *, int));
  281.   static void FDECL(escapes, (const char *, char *));
  282.   static void FDECL(rejectoption, (const char *));
  283.   static void FDECL(badoption, (const char *));
  284. + static char *FDECL(string_for_opt, (char *));
  285.   static char *FDECL(string_for_env_opt, (const char *, char *));
  286. ! static int FDECL(change_inv_order, (char *));
  287.   static void FDECL(oc_to_str, (char *, char *));
  288.   
  289.   static struct Bool_Opt
  290. ***************
  291. *** 72,78 ****
  292.       {"legacy",&flags.legacy, TRUE},
  293.       {"lit_corridor", &flags.lit_corridor, FALSE},
  294.   #ifdef MAC_GRAPHICS_ENV
  295. !     {"MACgraphics", &flags.MACgraphics, TRUE},
  296.   #endif
  297.   #ifdef NEWS
  298.       {"news", &flags.news, TRUE},
  299. --- 73,79 ----
  300.       {"legacy",&flags.legacy, TRUE},
  301.       {"lit_corridor", &flags.lit_corridor, FALSE},
  302.   #ifdef MAC_GRAPHICS_ENV
  303. !     {"Macgraphics", &flags.MACgraphics, TRUE},
  304.   #endif
  305.   #ifdef NEWS
  306.       {"news", &flags.news, TRUE},
  307. ***************
  308. *** 79,84 ****
  309. --- 80,88 ----
  310.   #endif
  311.       {"null", &flags.null, TRUE},
  312.       {"number_pad", &flags.num_pad, FALSE},
  313. + #ifdef MAC
  314. +     {"page_wait", &flags.page_wait, TRUE},
  315. + #endif
  316.       {"pickup", &flags.pickup, TRUE},
  317.   #ifdef MAC
  318.       {"popup_dialog", &flags.popup_dialog, FALSE},
  319. ***************
  320. *** 87,93 ****
  321.       {"rawio", &flags.rawio, FALSE},
  322.   #endif
  323.       {"rest_on_space", &flags.rest_on_space, FALSE},
  324. !     {"safepet", &flags.safe_dog, TRUE},
  325.   #ifdef EXP_ON_BOTL
  326.       {"showexp", &flags.showexp, FALSE},
  327.   #endif
  328. --- 91,97 ----
  329.       {"rawio", &flags.rawio, FALSE},
  330.   #endif
  331.       {"rest_on_space", &flags.rest_on_space, FALSE},
  332. !     {"safe_pet", &flags.safe_dog, TRUE},
  333.   #ifdef EXP_ON_BOTL
  334.       {"showexp", &flags.showexp, FALSE},
  335.   #endif
  336. ***************
  337. *** 129,135 ****
  338.               monsyms[i] = (uchar) def_monsyms[i];
  339.   
  340.       switch_graphics(ASCII_GRAPHICS);    /* set default characters */
  341. ! #ifdef UNIX
  342.       /*
  343.        * Set defaults for some options depending on what we can
  344.        * detect about the environment's capabilities.
  345. --- 133,139 ----
  346.               monsyms[i] = (uchar) def_monsyms[i];
  347.   
  348.       switch_graphics(ASCII_GRAPHICS);    /* set default characters */
  349. ! #if defined(UNIX) && defined(TTY_GRAPHICS)
  350.       /*
  351.        * Set defaults for some options depending on what we can
  352.        * detect about the environment's capabilities.
  353. ***************
  354. *** 144,156 ****
  355.           flags.use_color = TRUE;
  356.   # endif
  357.       }
  358. ! #endif /* UNIX */
  359.   #if defined(UNIX) || defined(VMS)
  360.       /* detect whether a "vt" terminal can handle alternate charsets */
  361.       if (!strncmpi(getenv("TERM"), "vt", 2) && (AS && AE) &&
  362.           !strcmp(AS, "\016") && !strcmp(AE, "\017")) {
  363.           switch_graphics(DEC_GRAPHICS);
  364.       }
  365.   #endif /* UNIX || VMS */
  366.   
  367.   #ifdef MAC_GRAPHICS_ENV
  368. --- 148,162 ----
  369.           flags.use_color = TRUE;
  370.   # endif
  371.       }
  372. ! #endif /* UNIX && TTY_GRAPHICS */
  373.   #if defined(UNIX) || defined(VMS)
  374. + # ifdef TTY_GRAPHICS
  375.       /* detect whether a "vt" terminal can handle alternate charsets */
  376.       if (!strncmpi(getenv("TERM"), "vt", 2) && (AS && AE) &&
  377.           !strcmp(AS, "\016") && !strcmp(AE, "\017")) {
  378.           switch_graphics(DEC_GRAPHICS);
  379.       }
  380. + # endif
  381.   #endif /* UNIX || VMS */
  382.   
  383.   #ifdef MAC_GRAPHICS_ENV
  384. ***************
  385. *** 186,192 ****
  386.       /* result in the player's preferred fruit [better than "\033"].    */
  387.       obj_descr[SLIME_MOLD].oc_name = "fruit";
  388.   #endif
  389. !     if(flags.female)  {    /* should have been set in NETHACKOPTIONS */
  390.           roles[2] = "Cavewoman";
  391.           roles[6] = "Priestess";
  392.       }
  393. --- 192,198 ----
  394.       /* result in the player's preferred fruit [better than "\033"].    */
  395.       obj_descr[SLIME_MOLD].oc_name = "fruit";
  396.   #endif
  397. !     if (flags.female)  {    /* should have been set in NETHACKOPTIONS */
  398.           roles[2] = "Cavewoman";
  399.           roles[6] = "Priestess";
  400.       }
  401. ***************
  402. *** 292,302 ****
  403.   badoption(opts)
  404.   const char *opts;
  405.   {
  406. !     if(!initial) {
  407. !         if(!strncmp(opts, "h", 1) || !strncmp(opts, "?", 1))
  408.           option_help();
  409.           else
  410. !         pline("Unknown option: %s.  Enter \"?g\" for help.", opts);
  411.           return;
  412.       }
  413.   # ifdef AMIGA
  414. --- 298,308 ----
  415.   badoption(opts)
  416.   const char *opts;
  417.   {
  418. !     if (!initial) {
  419. !         if (!strncmp(opts, "h", 1) || !strncmp(opts, "?", 1))
  420.           option_help();
  421.           else
  422. !         pline("Bad syntax: %s.  Enter \"?g\" for help.", opts);
  423.           return;
  424.       }
  425.   # ifdef AMIGA
  426. ***************
  427. *** 313,329 ****
  428.   }
  429.   
  430.   static char *
  431. ! string_for_env_opt(optname, opts)
  432. ! const char *optname;
  433.   char *opts;
  434.   {
  435.       register char *colon;
  436.   
  437. !     if(!initial) {
  438. !         rejectoption(optname);
  439. !         return NULL;
  440. !     }
  441. !     colon = index(opts,':');
  442.       if(!colon) {
  443.           badoption(opts);
  444.           return NULL;
  445. --- 319,330 ----
  446.   }
  447.   
  448.   static char *
  449. ! string_for_opt(opts)
  450.   char *opts;
  451.   {
  452.       register char *colon;
  453.   
  454. !     colon = index(opts, ':');
  455.       if(!colon) {
  456.           badoption(opts);
  457.           return NULL;
  458. ***************
  459. *** 331,351 ****
  460.       return ++colon;
  461.   }
  462.   
  463.   /*
  464.    * Change the inventory order, using the given string as the new order.
  465.    * Missing characters in the new order are filled in at the end from
  466.    * the current inv_order.
  467.    *
  468. !  * This routine always returns 1 unless the parameter 'fail' is true
  469. !  * and there is a duplicate or bad char in the string.
  470.    */
  471.   static int
  472. ! change_inv_order(op, fail)
  473. !     char *op;
  474. !     int  fail;    /* If TRUE, return 0 if any duplicates or bad chars. */
  475.   {
  476.       int oc_sym, num;
  477. !     char *sp, *tmp, buf[BUFSZ];
  478.   
  479.       for (sp = op; *sp; sp++) {
  480.       oc_sym = def_char_to_objclass(*sp);
  481. --- 332,363 ----
  482.       return ++colon;
  483.   }
  484.   
  485. + static char *
  486. + string_for_env_opt(optname, opts)
  487. + const char *optname;
  488. + char *opts;
  489. + {
  490. +     if(!initial) {
  491. +         rejectoption(optname);
  492. +         return NULL;
  493. +     }
  494. +     return string_for_opt(opts);
  495. + }
  496. + 
  497.   /*
  498.    * Change the inventory order, using the given string as the new order.
  499.    * Missing characters in the new order are filled in at the end from
  500.    * the current inv_order.
  501.    *
  502. !  * This routine returns 1 unless there is a duplicate or bad char in
  503. !  * the string.
  504.    */
  505.   static int
  506. ! change_inv_order(op)
  507. ! char *op;
  508.   {
  509.       int oc_sym, num;
  510. !     char *sp, buf[BUFSZ];
  511.   
  512.       for (sp = op; *sp; sp++) {
  513.       oc_sym = def_char_to_objclass(*sp);
  514. ***************
  515. *** 352,365 ****
  516.   
  517.       /* Remove bad or duplicate entries. */
  518.       if (oc_sym == MAXOCLASSES ||
  519. !         (!index(inv_order, oc_sym)) || (index(sp+1, *sp))) {
  520.   
  521. !         if (fail) return 0;
  522. !         for(tmp = sp; *tmp; tmp++)
  523. !         tmp[0] = tmp[1];
  524. !         sp--;
  525. !     } else
  526. !         *sp = (char) oc_sym;
  527.       } 
  528.       Strcpy(buf, op);
  529.       for (sp = inv_order, num = strlen(buf); *sp; sp++)
  530. --- 364,374 ----
  531.   
  532.       /* Remove bad or duplicate entries. */
  533.       if (oc_sym == MAXOCLASSES ||
  534. !         (!index(inv_order, oc_sym)) || (index(sp+1, *sp)))
  535.   
  536. !         return 0;
  537. ! 
  538. !     *sp = (char) oc_sym;
  539.       } 
  540.       Strcpy(buf, op);
  541.       for (sp = inv_order, num = strlen(buf); *sp; sp++)
  542. ***************
  543. *** 393,489 ****
  544.       op = eos(opts);
  545.       while (--op >= opts && isspace(*op)) *op = '\0';
  546.   
  547. !     if(!*opts) return;
  548.       negated = FALSE;
  549. !     while((*opts == '!') || !strncmpi(opts, "no", 2)) {
  550. !         if(*opts == '!') opts++; else opts += 2;
  551.           negated = !negated;
  552.       }
  553.       
  554. ! #if defined(MICRO) && !defined(AMIGA)
  555. !     /* included for compatibility with old NetHack.cnf files */
  556. !     if (!strncmp(opts, "IBM_", 4)) {
  557. !         flags.BIOS = !negated;
  558. !         return;
  559. !     }
  560.   
  561. !     /* put here cause it has to come from the config file */
  562. !     if (!strncmpi(opts, "raw", 3)) {
  563. !         if (initial)
  564. !             flags.rawio = !negated;
  565. !         else
  566. !             rejectoption("rawio");
  567. !         return;
  568. !     }
  569. ! #endif /* MICRO */
  570. ! 
  571. ! #if defined(TOS) && defined(TEXTCOLOR)
  572. !     if (!strncmpi(opts, "col", 3)) {
  573. !         flags.use_color = !negated;
  574. !         if (flags.BIOS && !initial) {
  575. !             if (colors_changed)
  576. !                 restore_colors();
  577. !             else
  578. !                 set_colors();
  579. !         }
  580. !     }
  581. ! #endif
  582. !     /* other special-case boolean options */
  583. ! #ifdef TERMLIB
  584. !     if (!strncmpi(opts, "DEC", 3)) {
  585. ! #ifdef REINCARNATION
  586. !         if (!initial && Is_rogue_level(&u.uz))
  587. !             assign_rogue_graphics(FALSE);
  588. ! #endif
  589. !         flags.DECgraphics = !negated;
  590. !         need_redraw = TRUE;
  591. !         switch_graphics(flags.DECgraphics ?
  592. !                 DEC_GRAPHICS : ASCII_GRAPHICS);
  593. ! #ifdef REINCARNATION
  594. !         if (!initial && Is_rogue_level(&u.uz))
  595. !             assign_rogue_graphics(TRUE);
  596. ! #endif
  597. !         return;
  598. !     }
  599. ! #endif /* TERMLIB */
  600. ! #ifdef ASCIIGRAPH
  601. !     if (!strncmpi(opts, "IBMg", 4)) {
  602. ! #ifdef REINCARNATION
  603. !         if (!initial && Is_rogue_level(&u.uz))
  604. !             assign_rogue_graphics(FALSE);
  605. ! #endif
  606. !         flags.IBMgraphics = !negated;
  607. !         need_redraw = TRUE;
  608. !         switch_graphics(flags.IBMgraphics ?
  609. !                 IBM_GRAPHICS : ASCII_GRAPHICS);
  610. ! #ifdef REINCARNATION
  611. !         if (!initial && Is_rogue_level(&u.uz))
  612. !             assign_rogue_graphics(TRUE);
  613. ! #endif
  614. !         return;
  615. !     }
  616. ! #endif /* ASCIIGRAPH */
  617. ! #ifdef MAC_GRAPHICS_ENV
  618. !     if (!strncmpi(opts, "MACg", 4)) {
  619. ! #ifdef REINCARNATION
  620. !         if (!initial && Is_rogue_level(&u.uz))
  621. !             assign_rogue_graphics(FALSE);
  622. ! #endif
  623. !         flags.MACgraphics = !negated;
  624. !         need_redraw = TRUE;
  625. !         switch_graphics(flags.MACgraphics ?
  626. !                 MAC_GRAPHICS : ASCII_GRAPHICS);
  627. ! #ifdef REINCARNATION
  628. !         if (!initial && Is_rogue_level(&u.uz))
  629. !             assign_rogue_graphics(TRUE);
  630. ! #endif
  631. !         return;
  632. !     }
  633. ! #endif /* MAC_GRAPHICS_ENV */
  634. ! 
  635. !     /* common boolean options */
  636. ! 
  637. !     if (!strncmpi(opts, "fem", 3)) {
  638.           if(!initial && flags.female == negated)
  639.               pline("That is not anatomically possible.");
  640.           else
  641. --- 402,417 ----
  642.       op = eos(opts);
  643.       while (--op >= opts && isspace(*op)) *op = '\0';
  644.   
  645. !     if (!*opts) return;
  646.       negated = FALSE;
  647. !     while ((*opts == '!') || !strncmpi(opts, "no", 2)) {
  648. !         if (*opts == '!') opts++; else opts += 2;
  649.           negated = !negated;
  650.       }
  651.       
  652. !     /* special boolean options */
  653.   
  654. !     if (!strncmpi(opts, "female", 3)) {
  655.           if(!initial && flags.female == negated)
  656.               pline("That is not anatomically possible.");
  657.           else
  658. ***************
  659. *** 491,502 ****
  660.           return;
  661.       }
  662.   
  663. -     if (!strncmpi(opts, "fix", 3)) {
  664. -         flags.invlet_constant = !negated;
  665. -         if (!initial && flags.invlet_constant) reassign();
  666. -         return;
  667. -     }
  668. - 
  669.       if (!strncmpi(opts, "male", 4)) {
  670.           if(!initial && flags.female != negated)
  671.               pline("That is not anatomically possible.");
  672. --- 419,424 ----
  673. ***************
  674. *** 505,544 ****
  675.           return;
  676.       }
  677.   
  678. !     if (!strncmpi(opts, "num", 3)) {
  679. !         flags.num_pad = !negated;
  680. !         if (!initial) number_pad(flags.num_pad ? 1 : 0);
  681.           return;
  682.       }
  683. ! #ifdef EXP_ON_BOTL
  684. !     if (!strncmpi(opts, "showexp", 7)) {
  685. !         flags.showexp = !negated;
  686. !         flags.botl = 1;
  687. !         return;
  688. !     }
  689. ! #endif
  690. ! #ifdef SCORE_ON_BOTL
  691. !     if (!strncmpi(opts, "showscore", 9)) {
  692. !         flags.showscore = !negated;
  693. !         flags.botl = 1;
  694. !         return;
  695. !     }
  696. ! #endif
  697. !     if (!strncmpi(opts, "time", 4)) {
  698. !         flags.time = !negated;
  699. !         flags.botl = 1;
  700. !         return;
  701. !     }
  702.   
  703. -     if (!strncmpi(opts, "legacy", 6)) {
  704. -             if(!initial) rejectoption("legacy");
  705. -         else flags.legacy = !negated;
  706. -         return;
  707. -     }
  708. - 
  709.       /* compound options */
  710.   
  711. !     if (!strncmpi(opts, "pet", 3)) {
  712.           if ((op = string_for_env_opt("pettype", opts)) != 0)
  713.               switch (*op) {
  714.               case 'd':    /* dog */
  715. --- 427,443 ----
  716.           return;
  717.       }
  718.   
  719. ! #if defined(MICRO) && !defined(AMIGA)
  720. !     /* included for compatibility with old NetHack.cnf files */
  721. !     if (!strncmp(opts, "IBM_", 4)) {
  722. !         flags.BIOS = !negated;
  723.           return;
  724.       }
  725. ! #endif /* MICRO */
  726.   
  727.       /* compound options */
  728.   
  729. !     if (!strncmpi(opts, "pettype", 3)) {
  730.           if ((op = string_for_env_opt("pettype", opts)) != 0)
  731.               switch (*op) {
  732.               case 'd':    /* dog */
  733. ***************
  734. *** 552,576 ****
  735.                   preferred_pet = 'c';
  736.                   break;
  737.               default:
  738. !                 pline("Unrecognized pettype '%s'", op);
  739.                   break;
  740.               }
  741.           return;
  742.       }
  743.   
  744. !     if (!strncmpi(opts, "cat", 3)) {
  745.           if ((op = string_for_env_opt("catname", opts)) != 0)
  746.               nmcpy(catname, op, 62);
  747.           return;
  748.       }
  749.   
  750. !     if (!strncmpi(opts, "dog", 3)) {
  751.           if ((op = string_for_env_opt("dogname", opts)) != 0)
  752.               nmcpy(dogname, op, 62);
  753.           return;
  754.       }
  755.   
  756. !     if (!strncmpi(opts, "msg", 3)) {
  757.           if ((op = string_for_env_opt("msghistory", opts)) != 0) {
  758.               flags.msg_history = atoi(op);
  759.           }
  760. --- 451,475 ----
  761.                   preferred_pet = 'c';
  762.                   break;
  763.               default:
  764. !                 pline("Unrecognized pet type '%s'", op);
  765.                   break;
  766.               }
  767.           return;
  768.       }
  769.   
  770. !     if (!strncmpi(opts, "catname", 3)) {
  771.           if ((op = string_for_env_opt("catname", opts)) != 0)
  772.               nmcpy(catname, op, 62);
  773.           return;
  774.       }
  775.   
  776. !     if (!strncmpi(opts, "dogname", 3)) {
  777.           if ((op = string_for_env_opt("dogname", opts)) != 0)
  778.               nmcpy(dogname, op, 62);
  779.           return;
  780.       }
  781.   
  782. !     if (!strncmpi(opts, "msghistory", 3)) {
  783.           if ((op = string_for_env_opt("msghistory", opts)) != 0) {
  784.               flags.msg_history = atoi(op);
  785.           }
  786. ***************
  787. *** 577,598 ****
  788.           return;
  789.       }
  790.   #ifdef TUTTI_FRUTTI
  791. !     if (!strncmpi(opts, "fr", 2)) {
  792. !         op = index(opts, ':');
  793. !         if (!op) {
  794. !             badoption(opts);
  795. !             return;
  796. !         }
  797. !         op++;
  798.           if (!initial) {
  799.               struct fruit *f;
  800. -             int numfruits = 0;
  801.   
  802.               for(f=ffruit; f; f=f->nextf) {
  803.               if (!strcmp(op, f->fname)) goto goodfruit;
  804. !             numfruits++;
  805.               }
  806. !             if (numfruits >= 100) {
  807.               pline("Doing that so many times isn't very fruitful.");
  808.               return;
  809.               }
  810. --- 476,492 ----
  811.           return;
  812.       }
  813.   #ifdef TUTTI_FRUTTI
  814. !     if (!strncmpi(opts, "fruit", 2)) {
  815. !         if (!(op = string_for_opt(opts))) return;
  816.           if (!initial) {
  817.               struct fruit *f;
  818.   
  819. +             num = 0;
  820.               for(f=ffruit; f; f=f->nextf) {
  821.               if (!strcmp(op, f->fname)) goto goodfruit;
  822. !             num++;
  823.               }
  824. !             if (num >= 100) {
  825.               pline("Doing that so many times isn't very fruitful.");
  826.               return;
  827.               }
  828. ***************
  829. *** 612,637 ****
  830.       }
  831.   #endif
  832.       /* graphics:string */
  833. !     if (!strncmpi(opts, "gr", 2)) {
  834.           uchar translate[MAXPCHARS+1];
  835. !         int lth;
  836.   
  837.           if (!(opts = string_for_env_opt("graphics", opts)))
  838.               return;
  839.           escapes(opts, opts);
  840.   
  841. !         lth = strlen(opts);
  842. !         if (lth > MAXPCHARS) lth = MAXPCHARS;
  843.           /* match the form obtained from PC configuration files */
  844. !         for (i = 0; i < lth; i++)
  845.               translate[i] = (uchar) opts[i];
  846. !         assign_graphics(translate, lth);
  847.           return;
  848.       }
  849.   
  850.       /* objects:string */
  851.       if (!strncmpi(opts, "objects", 7)) {
  852. !         int k, length;
  853.   
  854.           if (!(opts = string_for_env_opt("objects", opts)))
  855.               return;
  856. --- 506,531 ----
  857.       }
  858.   #endif
  859.       /* graphics:string */
  860. !     if (!strncmpi(opts, "graphics", 2)) {
  861.           uchar translate[MAXPCHARS+1];
  862. !         int length;
  863.   
  864.           if (!(opts = string_for_env_opt("graphics", opts)))
  865.               return;
  866.           escapes(opts, opts);
  867.   
  868. !         length = strlen(opts);
  869. !         if (length > MAXPCHARS) length = MAXPCHARS;
  870.           /* match the form obtained from PC configuration files */
  871. !         for (i = 0; i < length; i++)
  872.               translate[i] = (uchar) opts[i];
  873. !         assign_graphics(translate, length);
  874.           return;
  875.       }
  876.   
  877.       /* objects:string */
  878.       if (!strncmpi(opts, "objects", 7)) {
  879. !         int length;
  880.   
  881.           if (!(opts = string_for_env_opt("objects", opts)))
  882.               return;
  883. ***************
  884. *** 650,663 ****
  885.           if (length >= MAXOCLASSES)
  886.               length = MAXOCLASSES-1;    /* don't count RANDOM_OBJECT */
  887.   
  888. !         for (k = 0; k < length; k++)
  889. !             oc_syms[k+1] = (uchar) opts[k];
  890.           return;
  891.       }
  892.   
  893.       /* monsters:string */
  894.       if (!strncmpi(opts, "monsters", 8)) {
  895. !         int k, length;
  896.   
  897.           if (!(opts = string_for_env_opt("monsters", opts)))
  898.               return;
  899. --- 544,557 ----
  900.           if (length >= MAXOCLASSES)
  901.               length = MAXOCLASSES-1;    /* don't count RANDOM_OBJECT */
  902.   
  903. !         for (i = 0; i < length; i++)
  904. !             oc_syms[i+1] = (uchar) opts[i];
  905.           return;
  906.       }
  907.   
  908.       /* monsters:string */
  909.       if (!strncmpi(opts, "monsters", 8)) {
  910. !         int length;
  911.   
  912.           if (!(opts = string_for_env_opt("monsters", opts)))
  913.               return;
  914. ***************
  915. *** 668,675 ****
  916.           if (length >= MAXMCLASSES)
  917.               length = MAXMCLASSES-1;    /* mon class 0 unused */
  918.   
  919. !         for (k = 0; k < length; k++)
  920. !             monsyms[k+1] = (uchar) opts[k];
  921.           return;
  922.       }
  923.   
  924. --- 562,569 ----
  925.           if (length >= MAXMCLASSES)
  926.               length = MAXMCLASSES-1;    /* mon class 0 unused */
  927.   
  928. !         for (i = 0; i < length; i++)
  929. !             monsyms[i+1] = (uchar) opts[i];
  930.           return;
  931.       }
  932.   
  933. ***************
  934. *** 681,697 ****
  935.       }
  936.   
  937.       /* the order to list the pack */
  938. !     if (!strncmpi(opts, "pack", 4)) {
  939. !         op = index(opts,':');
  940. !         if(!op) {
  941. !             badoption(opts);
  942. !             return;
  943. !         }
  944. !         op++;            /* skip : */
  945.   
  946. !         if (!change_inv_order(op, 1))
  947. !                 set_order = TRUE;
  948. !         else
  949.                   badoption(opts);
  950.           return;
  951.       }
  952. --- 575,584 ----
  953.       }
  954.   
  955.       /* the order to list the pack */
  956. !     if (!strncmpi(opts, "packorder", 4)) {
  957. !         if (!(op = string_for_opt(opts))) return;
  958.   
  959. !         if (!change_inv_order(op))
  960.                   badoption(opts);
  961.           return;
  962.       }
  963. ***************
  964. *** 698,710 ****
  965.   
  966.       /* scores:5t[op] 5a[round] o[wn] */
  967.       if (!strncmpi(opts, "scores", 6)) {
  968. !         op = index(opts,':');
  969. !         if(!op) {
  970. !             badoption(opts);
  971. !             return;
  972. !         }
  973. !         op++;
  974. !         while(*op) {
  975.               num = 1;
  976.               if(digit(*op)) {
  977.                   num = atoi(op);
  978. --- 585,593 ----
  979.   
  980.       /* scores:5t[op] 5a[round] o[wn] */
  981.       if (!strncmpi(opts, "scores", 6)) {
  982. !         if (!(op = string_for_opt(opts))) return;
  983. ! 
  984. !         while (*op) {
  985.               num = 1;
  986.               if(digit(*op)) {
  987.                   num = atoi(op);
  988. ***************
  989. *** 737,743 ****
  990.           }
  991.           return;
  992.       }
  993. !     if (!strncmpi(opts, "win", 3)) {
  994.           if ((op = string_for_env_opt("windowtype", opts)) != 0) {
  995.           char buf[16];
  996.           nmcpy(buf, op, 15);
  997. --- 620,627 ----
  998.           }
  999.           return;
  1000.       }
  1001. ! 
  1002. !     if (!strncmpi(opts, "windowtype", 3)) {
  1003.           if ((op = string_for_env_opt("windowtype", opts)) != 0) {
  1004.           char buf[16];
  1005.           nmcpy(buf, op, 15);
  1006. ***************
  1007. *** 750,765 ****
  1008.        * options list
  1009.        */
  1010.       for (i = 0; boolopt[i].name; i++) {
  1011. !         if (boolopt[i].addr && !strncmpi(boolopt[i].name, opts, 3)) {
  1012.               *(boolopt[i].addr) = !negated;
  1013. - #ifdef TEXTCOLOR
  1014. -             if((boolopt[i].addr) == &flags.use_color)
  1015. -                 need_redraw = TRUE;
  1016.   
  1017. !             if((boolopt[i].addr) == &flags.hilite_pet)
  1018.                   need_redraw = TRUE;
  1019.   #endif
  1020. !             if (!initial && boolopt[i].addr==&flags.lit_corridor) {
  1021.                   /*
  1022.                    * All corridor squares seen via night vision or
  1023.                    * candles & lamps change.  Update them by calling
  1024. --- 634,714 ----
  1025.        * options list
  1026.        */
  1027.       for (i = 0; boolopt[i].name; i++) {
  1028. !         if (boolopt[i].addr && strlen(opts) >= 3 &&
  1029. !             !strncmpi(boolopt[i].name, opts, strlen(opts))) {
  1030. !                 /* options that must come from config file */
  1031. !             if (!initial &&
  1032. !                 ((boolopt[i].addr) == &flags.legacy
  1033. ! #if defined(MICRO) && !defined(AMIGA)
  1034. !               || (boolopt[i].addr) == &flags.rawio
  1035. ! #endif
  1036. !                  )) {
  1037. !                 rejectoption(boolopt[i].name);
  1038. !                 return;
  1039. !             }
  1040. ! 
  1041.               *(boolopt[i].addr) = !negated;
  1042.   
  1043. ! #if defined(TERMLIB) || defined(ASCIIGRAPH) || defined(MAC_GRAPHICS_ENV)
  1044. !             if (FALSE
  1045. ! # ifdef TERMLIB
  1046. !                  || (boolopt[i].addr) == &flags.DECgraphics
  1047. ! # endif
  1048. ! # ifdef ASCIIGRAPH
  1049. !                  || (boolopt[i].addr) == &flags.IBMgraphics
  1050. ! # endif
  1051. ! # ifdef MAC_GRAPHICS_ENV
  1052. !                  || (boolopt[i].addr) == &flags.MACgraphics
  1053. ! # endif
  1054. !                 ) {
  1055. ! # ifdef REINCARNATION
  1056. !                 if (!initial && Is_rogue_level(&u.uz))
  1057. !                 assign_rogue_graphics(FALSE);
  1058. ! # endif
  1059.                   need_redraw = TRUE;
  1060. + # ifdef TERMLIB
  1061. +                 if ((boolopt[i].addr) == &flags.DECgraphics)
  1062. +                 switch_graphics(flags.DECgraphics ?
  1063. +                         DEC_GRAPHICS : ASCII_GRAPHICS);
  1064. + # endif
  1065. + # ifdef ASCIIGRAPH
  1066. +                 if ((boolopt[i].addr) == &flags.IBMgraphics)
  1067. +                 switch_graphics(flags.IBMgraphics ?
  1068. +                         IBM_GRAPHICS : ASCII_GRAPHICS);
  1069. + # endif
  1070. + # ifdef MAC_GRAPHICS_ENV
  1071. +                 if ((boolopt[i].addr) == &flags.MACgraphics)
  1072. +                 switch_graphics(flags.MACgraphics ?
  1073. +                         MAC_GRAPHICS : ASCII_GRAPHICS);
  1074. + # endif
  1075. + # ifdef REINCARNATION
  1076. +                 if (!initial && Is_rogue_level(&u.uz))
  1077. +                 assign_rogue_graphics(TRUE);
  1078. + # endif
  1079. +             }
  1080. + #endif /* TERMLIB || ASCIIGRAPH || MAC_GRAPHICS_ENV */
  1081. + 
  1082. +             /* only do processing below if setting with doset() */
  1083. +             if (initial) return;
  1084. + 
  1085. +             if ((boolopt[i].addr) == &flags.time
  1086. + #ifdef EXP_ON_BOTL
  1087. +              || (boolopt[i].addr) == &flags.showexp
  1088.   #endif
  1089. ! #ifdef SCORE_ON_BOTL
  1090. !              || (boolopt[i].addr) == &flags.showscore
  1091. ! #endif
  1092. !                 )
  1093. !                 flags.botl = TRUE;
  1094. ! 
  1095. !             else if ((boolopt[i].addr) == &flags.invlet_constant) {
  1096. !                 if (flags.invlet_constant) reassign();
  1097. !             }
  1098. ! 
  1099. !             else if ((boolopt[i].addr) == &flags.num_pad)
  1100. !                 number_pad(flags.num_pad ? 1 : 0);
  1101. ! 
  1102. !             else if ((boolopt[i].addr) == &flags.lit_corridor) {
  1103.                   /*
  1104.                    * All corridor squares seen via night vision or
  1105.                    * candles & lamps change.  Update them by calling
  1106. ***************
  1107. *** 770,775 ****
  1108. --- 719,741 ----
  1109.                   vision_recalc(2);        /* shut down vision */
  1110.                   vision_full_recalc = 1;    /* delayed recalc */
  1111.               }
  1112. + 
  1113. + #ifdef TEXTCOLOR
  1114. +             else if ((boolopt[i].addr) == &flags.use_color
  1115. +                   || (boolopt[i].addr) == &flags.hilite_pet) {
  1116. +                 need_redraw = TRUE;
  1117. + # ifdef TOS
  1118. +                 if ((boolopt[i].addr) == &flags.use_color
  1119. +                 && flags.BIOS) {
  1120. +                 if (colors_changed)
  1121. +                     restore_colors();
  1122. +                 else
  1123. +                     set_colors();
  1124. +                 }
  1125. + # endif
  1126. +             }
  1127. + #endif
  1128. + 
  1129.               return;
  1130.           }
  1131.       }
  1132. ***************
  1133. *** 869,875 ****
  1134.       case 's':
  1135.           clear_nhwindow(WIN_MESSAGE);
  1136.           getlin("What options do you want to set?", buf);
  1137. -         clear_nhwindow(WIN_MESSAGE);
  1138.           if(buf[0] == '\033') return 0;
  1139.           need_redraw = FALSE;
  1140.           parseoptions(buf, FALSE, FALSE);
  1141. --- 835,840 ----
  1142. *** /tmp/da08454    Thu Feb 25 10:24:34 1993
  1143. --- src/pager.c    Mon Feb  8 14:31:40 1993
  1144. ***************
  1145. *** 1,4 ****
  1146. ! /*    SCCS Id: @(#)pager.c    3.1    92/09/01          */
  1147.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1148.   /* NetHack may be freely redistributed.  See license for details. */
  1149.   
  1150. --- 1,4 ----
  1151. ! /*    SCCS Id: @(#)pager.c    3.1    93/02/04    */
  1152.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1153.   /* NetHack may be freely redistributed.  See license for details. */
  1154.   
  1155. ***************
  1156. *** 93,103 ****
  1157.               (hp ? "high priest" : l_monnam(mtmp)),
  1158.               u.ustuck == mtmp ?
  1159.   #ifdef POLYSELF
  1160. !             (u.mtimedone ? ", being held" :
  1161.   #endif
  1162. !             ", holding you"
  1163.   #ifdef POLYSELF
  1164. !             )
  1165.   #endif
  1166.               : "");
  1167.       }
  1168. --- 93,103 ----
  1169.               (hp ? "high priest" : l_monnam(mtmp)),
  1170.               u.ustuck == mtmp ?
  1171.   #ifdef POLYSELF
  1172. !             ((u.mtimedone && sticks(uasmon)) ? ", being held" :
  1173.   #endif
  1174. !              ", holding you"
  1175.   #ifdef POLYSELF
  1176. !              )
  1177.   #endif
  1178.               : "");
  1179.       }
  1180. ***************
  1181. *** 313,319 ****
  1182.       cc.y = u.uy;
  1183.       } else {
  1184.       getlin("Specify what? (type the word)", out_str);
  1185. !     if (out_str[0] == '\033')
  1186.           return 0;
  1187.   
  1188.       if (out_str[1]) {    /* user typed in a complete string */
  1189. --- 313,319 ----
  1190.       cc.y = u.uy;
  1191.       } else {
  1192.       getlin("Specify what? (type the word)", out_str);
  1193. !     if (out_str[0] == '\0' || out_str[0] == '\033')
  1194.           return 0;
  1195.   
  1196.       if (out_str[1]) {    /* user typed in a complete string */
  1197. *** /tmp/da08462    Thu Feb 25 10:24:36 1993
  1198. --- src/pickup.c    Wed Feb 17 09:51:58 1993
  1199. ***************
  1200. *** 1,4 ****
  1201. ! /*    SCCS Id: @(#)pickup.c    3.1    93/01/04    */
  1202.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1203.   /* NetHack may be freely redistributed.  See license for details. */
  1204.   
  1205. --- 1,4 ----
  1206. ! /*    SCCS Id: @(#)pickup.c    3.1    93/02/16    */
  1207.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1208.   /* NetHack may be freely redistributed.  See license for details. */
  1209.   
  1210. ***************
  1211. *** 138,147 ****
  1212.           Sprintf(qbuf,"What kinds of thing do you want to %s? [%s]",
  1213.               action, ilets);
  1214.           getlin(qbuf,inbuf);
  1215. !         if (*inbuf == '\033') {
  1216. !             clear_nhwindow(WIN_MESSAGE);
  1217. !             return FALSE;
  1218. !         }
  1219.           for (p = inbuf; (sym = *p++); ) {
  1220.               /* new A function (selective all) added by GAN 01/09/87 */
  1221.               if (sym == ' ') continue;
  1222. --- 138,145 ----
  1223.           Sprintf(qbuf,"What kinds of thing do you want to %s? [%s]",
  1224.               action, ilets);
  1225.           getlin(qbuf,inbuf);
  1226. !         if (*inbuf == '\033') return FALSE;
  1227. ! 
  1228.           for (p = inbuf; (sym = *p++); ) {
  1229.               /* new A function (selective all) added by GAN 01/09/87 */
  1230.               if (sym == ' ') continue;
  1231. ***************
  1232. *** 236,248 ****
  1233.           }
  1234.       }
  1235.   
  1236. - #ifdef POLYSELF
  1237. -     if (nolimbs(uasmon)) {
  1238. -         You("cannot pick things up without limbs.");
  1239. -         return;
  1240. -     }
  1241. - #endif
  1242. - 
  1243.       /* added by GAN 10/24/86 to allow selective picking up */
  1244.       if (!all) {
  1245.           if (!query_classes(olets, &selective, &all_of_a_type,
  1246. --- 234,239 ----
  1247. ***************
  1248. *** 261,267 ****
  1249.   
  1250.               if (!all_of_a_type) {
  1251.               char qbuf[QBUFSZ];
  1252. !             Sprintf(qbuf,"Pick up %s?", doname(obj));
  1253.               switch ((obj->quan < 2L) ? ynaq(qbuf) : ynNaq(qbuf)) {
  1254.               case 'q': return;
  1255.               case 'n': continue;
  1256. --- 252,258 ----
  1257.   
  1258.               if (!all_of_a_type) {
  1259.               char qbuf[QBUFSZ];
  1260. !             Sprintf(qbuf, "Pick up %s?", doname(obj));
  1261.               switch ((obj->quan < 2L) ? ynaq(qbuf) : ynNaq(qbuf)) {
  1262.               case 'q': return;
  1263.               case 'n': continue;
  1264. ***************
  1265. *** 276,282 ****
  1266.               case '#':    /* count was entered */
  1267.                   if (!yn_number) continue; /* 0 count => No */
  1268.                   else count = yn_number;
  1269. !                 /* fall thru :-} */
  1270.               default:    /* 'y' */
  1271.                   break;
  1272.               }
  1273. --- 267,273 ----
  1274.               case '#':    /* count was entered */
  1275.                   if (!yn_number) continue; /* 0 count => No */
  1276.                   else count = yn_number;
  1277. !                 /* fall thru */
  1278.               default:    /* 'y' */
  1279.                   break;
  1280.               }
  1281. ***************
  1282. *** 384,390 ****
  1283.           exercise(A_WIS, FALSE);
  1284.           return FALSE;
  1285.           }
  1286. - 
  1287.       } else  if (obj->otyp == SCR_SCARE_MONSTER) {
  1288.           if (obj->blessed) obj->blessed = 0;
  1289.           else if (!obj->spe && !obj->cursed) obj->spe = 1;
  1290. --- 375,380 ----
  1291. ***************
  1292. *** 454,464 ****
  1293.   lift_some:
  1294.       if (inv_cnt() >= 52) {
  1295.           if (objx) unsplitobj(obj, objx, 0L);
  1296. -         Your("knapsack cannot accommodate any more items.");
  1297.           if (obj->otyp == SCR_SCARE_MONSTER) obj->spe = 0;
  1298.           return TRUE;
  1299.       }
  1300.   
  1301.       pickquan = obj->quan;    /* save number picked up */
  1302.       obj = pick_obj(obj);
  1303.   
  1304. --- 444,472 ----
  1305.   lift_some:
  1306.       if (inv_cnt() >= 52) {
  1307.           if (objx) unsplitobj(obj, objx, 0L);
  1308.           if (obj->otyp == SCR_SCARE_MONSTER) obj->spe = 0;
  1309. +         Your("knapsack cannot accommodate any more items.");
  1310.           return TRUE;
  1311.       }
  1312.   
  1313. +     if (obj->otyp != LOADSTONE &&
  1314. +         (wt*2 / weight_cap()) + 1 > SLT_ENCUMBER) {
  1315. +         /* as in near_capacity() */
  1316. +         char qbuf[QBUFSZ];
  1317. +         char ch;
  1318. + 
  1319. +         Sprintf(qbuf, "%s %s.  Continue?", nearloadmsg, doname(obj));
  1320. +         switch (ch = ynq(qbuf)) {
  1321. +             case 'n':
  1322. +             case 'q':
  1323. +                 if (objx) unsplitobj(obj, objx, 0L);
  1324. +                 if (obj->otyp == SCR_SCARE_MONSTER)
  1325. +                     obj->spe = 0;
  1326. +                 return (ch == 'q');
  1327. +             default:  break;    /* 'y' */
  1328. +         }
  1329. +     }
  1330. + 
  1331.       pickquan = obj->quan;    /* save number picked up */
  1332.       obj = pick_obj(obj);
  1333.   
  1334. ***************
  1335. *** 465,473 ****
  1336.       if (!Blind) obj->dknown = 1;
  1337.       if (uwep && uwep == obj) mrg_to_wielded = TRUE;
  1338.       nearload = near_capacity();
  1339. !     prinv(nearload > SLT_ENCUMBER ? nearloadmsg :
  1340. !           nearload > UNENCUMBERED ? moderateloadmsg : NULL,
  1341. !           obj, pickquan);
  1342.       mrg_to_wielded = FALSE;
  1343.       return FALSE;
  1344.   }
  1345. --- 473,480 ----
  1346.       if (!Blind) obj->dknown = 1;
  1347.       if (uwep && uwep == obj) mrg_to_wielded = TRUE;
  1348.       nearload = near_capacity();
  1349. !     prinv(nearload > UNENCUMBERED && nearload < MOD_ENCUMBER ?
  1350. !           moderateloadmsg : NULL, obj, pickquan);
  1351.       mrg_to_wielded = FALSE;
  1352.       return FALSE;
  1353.   }
  1354. ***************
  1355. *** 612,618 ****
  1356.   
  1357.   /* A variable set in use_container(), to be used by the callback routines */
  1358.   /* chk_bg(), in_container(), and out_container() from askchain().      */
  1359. ! static struct obj NEARDATA *current_container;
  1360.   #define Icebox (current_container->otyp == ICE_BOX)
  1361.   
  1362.   STATIC_PTR int
  1363. --- 619,625 ----
  1364.   
  1365.   /* A variable set in use_container(), to be used by the callback routines */
  1366.   /* chk_bg(), in_container(), and out_container() from askchain().      */
  1367. ! static NEARDATA struct obj *current_container;
  1368.   #define Icebox (current_container->otyp == ICE_BOX)
  1369.   
  1370.   STATIC_PTR int
  1371. ***************
  1372. *** 806,811 ****
  1373. --- 813,820 ----
  1374.       if(!obj->unpaid && !carried(current_container) &&
  1375.            costly_spot(current_container->ox, current_container->oy)) {
  1376.   
  1377. +         obj->ox = current_container->ox;
  1378. +         obj->oy = current_container->oy;
  1379.           addtobill(obj, FALSE, FALSE, FALSE);
  1380.       }
  1381.   
  1382. ***************
  1383. *** 826,832 ****
  1384.   }
  1385.   
  1386.   /* for getobj: allow counts, allow all types, expect food */
  1387. ! static const char NEARDATA frozen_food[] =
  1388.       { ALLOW_COUNT, ALL_CLASSES, FOOD_CLASS, 0 };
  1389.   
  1390.   int
  1391. --- 835,841 ----
  1392.   }
  1393.   
  1394.   /* for getobj: allow counts, allow all types, expect food */
  1395. ! static NEARDATA const char frozen_food[] =
  1396.       { ALLOW_COUNT, ALL_CLASSES, FOOD_CLASS, 0 };
  1397.   
  1398.   int
  1399. *** /tmp/da08478    Thu Feb 25 10:24:41 1993
  1400. --- src/polyself.c    Tue Feb 23 20:56:32 1993
  1401. ***************
  1402. *** 244,250 ****
  1403.           if(flags.female) dochange = TRUE;
  1404.       } else if (is_female(&mons[mntmp])) {
  1405.           if(!flags.female) dochange = TRUE;
  1406. !     } else if (!is_neuter(&mons[mntmp])) {
  1407.           if(!rn2(10)) dochange = TRUE;
  1408.       }
  1409.       if (dochange) {
  1410. --- 244,250 ----
  1411.           if(flags.female) dochange = TRUE;
  1412.       } else if (is_female(&mons[mntmp])) {
  1413.           if(!flags.female) dochange = TRUE;
  1414. !     } else if (!is_neuter(&mons[mntmp]) && mntmp != u.ulycn) {
  1415.           if(!rn2(10)) dochange = TRUE;
  1416.       }
  1417.       if (dochange) {
  1418. ***************
  1419. *** 777,809 ****
  1420.        * plus the trailing null, after pluralizing (since sometimes a
  1421.        * buffer is made a fixed size and must be able to hold it)
  1422.        */
  1423. !     static const char NEARDATA *humanoid_parts[] = { "arm", "eye", "face", "finger",
  1424.           "fingertip", "foot", "hand", "handed", "head", "leg",
  1425.           "light headed", "neck", "spine", "toe" };
  1426.   #ifdef POLYSELF
  1427. !     static const char NEARDATA *jelly_parts[] = { "pseudopod", "dark spot", "front",
  1428.           "pseudopod extension", "pseudopod extremity",
  1429.           "pseudopod root", "grasp", "grasped", "cerebral area",
  1430.           "lower pseudopod", "viscous", "middle", "surface",
  1431.           "pseudopod extremity" },
  1432. !     NEARDATA *animal_parts[] = { "forelimb", "eye", "face", "foreclaw", "claw tip",
  1433.           "rear claw", "foreclaw", "clawed", "head", "rear limb",
  1434.           "light headed", "neck", "spine", "rear claw tip" },
  1435. !     NEARDATA *horse_parts[] = { "forelimb", "eye", "face", "forehoof", "hoof tip",
  1436.           "rear hoof", "foreclaw", "hooved", "head", "rear limb",
  1437.           "light headed", "neck", "backbone", "rear hoof tip" },
  1438. !     NEARDATA *sphere_parts[] = { "appendage", "optic nerve", "body", "tentacle",
  1439.           "tentacle tip", "lower appendage", "tentacle", "tentacled",
  1440.           "body", "lower tentacle", "rotational", "equator", "body",
  1441.           "lower tentacle tip" },
  1442. !     NEARDATA *fungus_parts[] = { "mycelium", "visual area", "front", "hypha",
  1443.           "hypha", "root", "strand", "stranded", "cap area",
  1444.           "rhizome", "sporulated", "stalk", "root", "rhizome tip" },
  1445. !     NEARDATA *vortex_parts[] = { "region", "eye", "front", "minor current",
  1446.           "minor current", "lower current", "swirl", "swirled",
  1447.           "central core", "lower current", "addled", "center",
  1448.           "currents", "edge" },
  1449. !     NEARDATA *snake_parts[] = { "vestigial limb", "eye", "face", "large scale",
  1450.           "large scale tip", "rear region", "scale gap", "scale gapped",
  1451.           "head", "rear region", "light headed", "neck", "length",
  1452.           "rear scale" };
  1453. --- 777,809 ----
  1454.        * plus the trailing null, after pluralizing (since sometimes a
  1455.        * buffer is made a fixed size and must be able to hold it)
  1456.        */
  1457. !     static NEARDATA const char *humanoid_parts[] = { "arm", "eye", "face", "finger",
  1458.           "fingertip", "foot", "hand", "handed", "head", "leg",
  1459.           "light headed", "neck", "spine", "toe" };
  1460.   #ifdef POLYSELF
  1461. !     static NEARDATA const char *jelly_parts[] = { "pseudopod", "dark spot", "front",
  1462.           "pseudopod extension", "pseudopod extremity",
  1463.           "pseudopod root", "grasp", "grasped", "cerebral area",
  1464.           "lower pseudopod", "viscous", "middle", "surface",
  1465.           "pseudopod extremity" },
  1466. !     *animal_parts[] = { "forelimb", "eye", "face", "foreclaw", "claw tip",
  1467.           "rear claw", "foreclaw", "clawed", "head", "rear limb",
  1468.           "light headed", "neck", "spine", "rear claw tip" },
  1469. !     *horse_parts[] = { "forelimb", "eye", "face", "forehoof", "hoof tip",
  1470.           "rear hoof", "foreclaw", "hooved", "head", "rear limb",
  1471.           "light headed", "neck", "backbone", "rear hoof tip" },
  1472. !     *sphere_parts[] = { "appendage", "optic nerve", "body", "tentacle",
  1473.           "tentacle tip", "lower appendage", "tentacle", "tentacled",
  1474.           "body", "lower tentacle", "rotational", "equator", "body",
  1475.           "lower tentacle tip" },
  1476. !     *fungus_parts[] = { "mycelium", "visual area", "front", "hypha",
  1477.           "hypha", "root", "strand", "stranded", "cap area",
  1478.           "rhizome", "sporulated", "stalk", "root", "rhizome tip" },
  1479. !     *vortex_parts[] = { "region", "eye", "front", "minor current",
  1480.           "minor current", "lower current", "swirl", "swirled",
  1481.           "central core", "lower current", "addled", "center",
  1482.           "currents", "edge" },
  1483. !     *snake_parts[] = { "vestigial limb", "eye", "face", "large scale",
  1484.           "large scale tip", "rear region", "scale gap", "scale gapped",
  1485.           "head", "rear region", "light headed", "neck", "length",
  1486.           "rear scale" };
  1487. *** /tmp/da08486    Thu Feb 25 10:24:43 1993
  1488. --- src/potion.c    Thu Feb 11 13:27:58 1993
  1489. ***************
  1490. *** 1,4 ****
  1491. ! /*    SCCS Id: @(#)potion.c    3.1    92/12/10          */
  1492.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1493.   /* NetHack may be freely redistributed.  See license for details. */
  1494.   
  1495. --- 1,4 ----
  1496. ! /*    SCCS Id: @(#)potion.c    3.1    93/02/06          */
  1497.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1498.   /* NetHack may be freely redistributed.  See license for details. */
  1499.   
  1500. ***************
  1501. *** 8,14 ****
  1502.   static void NDECL(ghost_from_bottle);
  1503.   static boolean FDECL(neutralizes, (struct obj *,struct obj *));
  1504.   
  1505. ! static int NEARDATA nothing, NEARDATA unkn;
  1506.   #endif /* OVLB */
  1507.   
  1508.   extern boolean notonhead;    /* for long worms */
  1509. --- 8,14 ----
  1510.   static void NDECL(ghost_from_bottle);
  1511.   static boolean FDECL(neutralizes, (struct obj *,struct obj *));
  1512.   
  1513. ! static NEARDATA int nothing, unkn;
  1514.   #endif /* OVLB */
  1515.   
  1516.   extern boolean notonhead;    /* for long worms */
  1517. ***************
  1518. *** 18,24 ****
  1519.   
  1520.   #ifdef OVLB
  1521.   
  1522. ! static const char NEARDATA beverages[] = { POTION_CLASS, 0 };
  1523.   
  1524.   void
  1525.   make_confused(xtime,talk)
  1526. --- 18,24 ----
  1527.   
  1528.   #ifdef OVLB
  1529.   
  1530. ! static NEARDATA const char beverages[] = { POTION_CLASS, 0 };
  1531.   
  1532.   void
  1533.   make_confused(xtime,talk)
  1534. ***************
  1535. *** 310,317 ****
  1536.       case POT_WATER:
  1537.           if(!otmp->blessed && !otmp->cursed) {
  1538.               pline("This tastes like %swater.",
  1539. !                   otmp->spe == -1 ? "impure " : "");
  1540. !             lesshungry(rnd(otmp->spe == -1 ? 3 : 10));
  1541.               break;
  1542.           }
  1543.           unkn++;
  1544. --- 310,317 ----
  1545.       case POT_WATER:
  1546.           if(!otmp->blessed && !otmp->cursed) {
  1547.               pline("This tastes like %swater.",
  1548. !                   otmp->odiluted ? "impure " : "");
  1549. !             lesshungry(rnd(otmp->odiluted ? 3 : 10));
  1550.               break;
  1551.           }
  1552.           unkn++;
  1553. ***************
  1554. *** 365,375 ****
  1555.           break;
  1556.       case POT_BOOZE:
  1557.           unkn++;
  1558. !         pline("Ooph!  This tastes like %s!",
  1559.                 Hallucination ? "furniture polish" : "liquid fire");
  1560.           if (!otmp->blessed) make_confused(HConfusion + d(3,8),FALSE);
  1561.           /* the whiskey makes us feel better */
  1562. !         if(u.uhp < u.uhpmax) losehp(-1, "", 0); /* can't kill you */
  1563.           lesshungry(10 * (2 + bcsign(otmp)));
  1564.           exercise(A_WIS, FALSE);
  1565.           if(otmp->cursed) {
  1566. --- 365,377 ----
  1567.           break;
  1568.       case POT_BOOZE:
  1569.           unkn++;
  1570. !         pline("Ooph!  This tastes like %s%s!",
  1571. !               otmp->odiluted ? "watered down " : "",
  1572.                 Hallucination ? "furniture polish" : "liquid fire");
  1573.           if (!otmp->blessed) make_confused(HConfusion + d(3,8),FALSE);
  1574.           /* the whiskey makes us feel better */
  1575. !         if (u.uhp < u.uhpmax && !otmp->odiluted)
  1576. !             losehp(-1, "", 0); /* can't kill you */
  1577.           lesshungry(10 * (2 + bcsign(otmp)));
  1578.           exercise(A_WIS, FALSE);
  1579.           if(otmp->cursed) {
  1580. ***************
  1581. *** 429,442 ****
  1582.           else pline (Hallucination ?
  1583.   #ifdef TUTTI_FRUTTI
  1584.              "This tastes like 10%% real %s juice all-natural beverage." :
  1585. !            "This tastes like %s juice.", pl_fruit
  1586.   #else
  1587.              "This tastes like 10%% real fruit juice all-natural beverage." :
  1588. !            "This tastes like fruit juice."
  1589.   #endif
  1590.                   );
  1591.           if (otmp->otyp == POT_FRUIT_JUICE) {
  1592. !             lesshungry(10 * (2 + bcsign(otmp)));
  1593.               break;
  1594.           }
  1595.           if (!otmp->cursed) {
  1596. --- 431,446 ----
  1597.           else pline (Hallucination ?
  1598.   #ifdef TUTTI_FRUTTI
  1599.              "This tastes like 10%% real %s juice all-natural beverage." :
  1600. !            "This tastes like %s%s juice.",
  1601. !            otmp->odiluted ? "reconstituted " : "", pl_fruit
  1602.   #else
  1603.              "This tastes like 10%% real fruit juice all-natural beverage." :
  1604. !            "This tastes like %sfruit juice.",
  1605. !            otmp->odiluted ? "reconstituted " : ""
  1606.   #endif
  1607.                   );
  1608.           if (otmp->otyp == POT_FRUIT_JUICE) {
  1609. !             lesshungry((otmp->odiluted ? 5 : 10) * (2 + bcsign(otmp)));
  1610.               break;
  1611.           }
  1612.           if (!otmp->cursed) {
  1613. ***************
  1614. *** 985,995 ****
  1615.           case POTION_CLASS:
  1616.           if (obj->otyp == POT_WATER) return FALSE;
  1617.           Your("%s.", aobjnam(obj,"dilute"));
  1618. !         if (obj->spe == -1) {
  1619. !             obj->spe = 0;
  1620.               obj->blessed = obj->cursed = FALSE;
  1621.               obj->otyp = POT_WATER;
  1622. !         } else obj->spe--;
  1623.           return TRUE;
  1624.           case SCROLL_CLASS:
  1625.           if (obj->otyp != SCR_BLANK_PAPER
  1626. --- 989,999 ----
  1627.           case POTION_CLASS:
  1628.           if (obj->otyp == POT_WATER) return FALSE;
  1629.           Your("%s.", aobjnam(obj,"dilute"));
  1630. !         if (obj->odiluted) {
  1631. !             obj->odiluted = 0;
  1632.               obj->blessed = obj->cursed = FALSE;
  1633.               obj->otyp = POT_WATER;
  1634. !         } else obj->odiluted++;
  1635.           return TRUE;
  1636.           case SCROLL_CLASS:
  1637.           if (obj->otyp != SCR_BLANK_PAPER
  1638. ***************
  1639. *** 1139,1145 ****
  1640.           if (Blind) obj->dknown = 0;
  1641.   
  1642.           switch (neutralizes(obj, potion) ||
  1643. !             obj->spe == -1 /* diluted */ ? 1 : rnd(8)) {
  1644.               case 1:
  1645.                   obj->otyp = POT_WATER;
  1646.                   obj->blessed = obj->cursed = 0;
  1647. --- 1143,1149 ----
  1648.           if (Blind) obj->dknown = 0;
  1649.   
  1650.           switch (neutralizes(obj, potion) ||
  1651. !             obj->odiluted ? 1 : rnd(8)) {
  1652.               case 1:
  1653.                   obj->otyp = POT_WATER;
  1654.                   obj->blessed = obj->cursed = 0;
  1655. ***************
  1656. *** 1165,1175 ****
  1657.           }
  1658.   
  1659.           if (obj->otyp == POT_WATER) {
  1660. !             obj->spe = 0; /* in case it was diluted before */
  1661.               pline("The mixture bubbles violently%s.",
  1662.                   Blind ? "" : ", then clears");
  1663.           } else {
  1664. !             obj->spe--; /* diluted */
  1665.               if (!Blind) {
  1666.                   pline("The mixture looks %s.",
  1667.                       OBJ_DESCR(objects[obj->otyp]));
  1668. --- 1169,1179 ----
  1669.           }
  1670.   
  1671.           if (obj->otyp == POT_WATER) {
  1672. !             obj->odiluted = 0; /* in case it was diluted before */
  1673.               pline("The mixture bubbles violently%s.",
  1674.                   Blind ? "" : ", then clears");
  1675.           } else {
  1676. !             obj->odiluted++;
  1677.               if (!Blind) {
  1678.                   pline("The mixture looks %s.",
  1679.                       OBJ_DESCR(objects[obj->otyp]));
  1680. ***************
  1681. *** 1208,1214 ****
  1682.           potion->otyp = POT_WATER;
  1683.           potion->blessed = 0;
  1684.           potion->cursed = 0;
  1685. !         potion->spe = 0;
  1686.           return(1);
  1687.       }
  1688.   
  1689. --- 1212,1218 ----
  1690.           potion->otyp = POT_WATER;
  1691.           potion->blessed = 0;
  1692.           potion->cursed = 0;
  1693. !         potion->odiluted = 0;
  1694.           return(1);
  1695.       }
  1696.   
  1697. *** /tmp/da08494    Thu Feb 25 10:24:46 1993
  1698. --- src/pray.c    Tue Feb 23 16:07:40 1993
  1699. ***************
  1700. *** 524,530 ****
  1701.       case 0:    break;
  1702.       case 1:
  1703.           if (uwep && (welded(uwep) || uwep->oclass == WEAPON_CLASS ||
  1704. !              uwep->otyp == PICK_AXE) && (!uwep->blessed)) {
  1705.           if (uwep->cursed) {
  1706.               uwep->cursed = FALSE;
  1707.               uwep->bknown = TRUE;
  1708. --- 524,531 ----
  1709.       case 0:    break;
  1710.       case 1:
  1711.           if (uwep && (welded(uwep) || uwep->oclass == WEAPON_CLASS ||
  1712. !              uwep->otyp == PICK_AXE || uwep->otyp == UNICORN_HORN)
  1713. !                 && (!uwep->blessed)) {
  1714.           if (uwep->cursed) {
  1715.               uwep->cursed = FALSE;
  1716.               uwep->bknown = TRUE;
  1717. ***************
  1718. *** 533,539 ****
  1719.                    Hallucination ? hcolor() : amber);
  1720.               else You("feel the power of %s over your %s.",
  1721.               u_gname(), xname(uwep));
  1722. !         } else if(uwep->otyp < BOW) {
  1723.               uwep->blessed = uwep->bknown = TRUE;
  1724.               if (!Blind)
  1725.               Your("%s with %s aura.",
  1726. --- 534,540 ----
  1727.                    Hallucination ? hcolor() : amber);
  1728.               else You("feel the power of %s over your %s.",
  1729.               u_gname(), xname(uwep));
  1730. !         } else if(uwep->otyp < BOW || uwep->otyp > CROSSBOW) {
  1731.               uwep->blessed = uwep->bknown = TRUE;
  1732.               if (!Blind)
  1733.               Your("%s with %s aura.",
  1734. ***************
  1735. *** 696,702 ****
  1736.               break;
  1737.           }
  1738.           /* enhance weapon regardless of alignment or artifact status */
  1739. !         if (obj && (obj->oclass == WEAPON_CLASS)) {
  1740.               bless(obj);
  1741.               obj->oeroded = 0;
  1742.               obj->oerodeproof = TRUE;
  1743. --- 697,703 ----
  1744.               break;
  1745.           }
  1746.           /* enhance weapon regardless of alignment or artifact status */
  1747. !         if (obj && obj->oclass == WEAPON_CLASS) {
  1748.               bless(obj);
  1749.               obj->oeroded = 0;
  1750.               obj->oerodeproof = TRUE;
  1751. ***************
  1752. *** 788,794 ****
  1753.       angrygods(g_align);
  1754.   }
  1755.   
  1756. ! static const char NEARDATA sacrifice_types[] = { FOOD_CLASS, AMULET_CLASS, 0 };
  1757.   
  1758.   static void
  1759.   consume_offering(otmp)
  1760. --- 789,795 ----
  1761.       angrygods(g_align);
  1762.   }
  1763.   
  1764. ! static NEARDATA const char sacrifice_types[] = { FOOD_CLASS, AMULET_CLASS, 0 };
  1765.   
  1766.   static void
  1767.   consume_offering(otmp)
  1768. ***************
  1769. *** 866,872 ****
  1770.               exercise(A_WIS, FALSE);
  1771.           }
  1772.   
  1773. !         if (altaralign != A_CHAOTIC) {
  1774.           /* curse the lawful/neutral altar */
  1775.           pline("The altar is stained with %sn blood.",
  1776.                 (pl_character[0]=='E') ? "elve" : "huma");
  1777. --- 867,873 ----
  1778.               exercise(A_WIS, FALSE);
  1779.           }
  1780.   
  1781. !         if (altaralign != A_CHAOTIC && altaralign != A_NONE) {
  1782.           /* curse the lawful/neutral altar */
  1783.           pline("The altar is stained with %sn blood.",
  1784.                 (pl_character[0]=='E') ? "elve" : "huma");
  1785. ***************
  1786. *** 874,881 ****
  1787.           angry_priest();
  1788.           } else {
  1789.           register struct monst *dmon;
  1790. !         /* Human sacrifice on a chaotic altar is equivalent */
  1791. !         /* to demon summoning */
  1792.           if(u.ualign.type != A_CHAOTIC) {
  1793.           pline("The blood floods the altar, which vanishes in %s cloud!",
  1794.                 an(Hallucination ? hcolor() : Black));
  1795. --- 875,882 ----
  1796.           angry_priest();
  1797.           } else {
  1798.           register struct monst *dmon;
  1799. !         /* Human sacrifice on a chaotic or unaligned altar */
  1800. !         /* is equivalent to demon summoning */
  1801.           if(u.ualign.type != A_CHAOTIC) {
  1802.           pline("The blood floods the altar, which vanishes in %s cloud!",
  1803.                 an(Hallucination ? hcolor() : Black));
  1804. ***************
  1805. *** 886,894 ****
  1806.               pline("The blood covers the altar!");
  1807.               change_luck(2);
  1808.           }
  1809. !         if ((dmon = makemon(&mons[dlord()], u.ux, u.uy)) != 0) {
  1810.               You("have summoned %s!", a_monnam(dmon));
  1811. !             if (u.ualign.type == A_CHAOTIC)
  1812.               dmon->mpeaceful = TRUE;
  1813.               You("are terrified, and unable to move.");
  1814.               nomul(-3);
  1815. --- 887,895 ----
  1816.               pline("The blood covers the altar!");
  1817.               change_luck(2);
  1818.           }
  1819. !         if ((dmon = makemon(&mons[dlord(altaralign)], u.ux, u.uy))) {
  1820.               You("have summoned %s!", a_monnam(dmon));
  1821. !             if (sgn(u.ualign.type) == sgn(dmon->data->maligntyp))
  1822.               dmon->mpeaceful = TRUE;
  1823.               You("are terrified, and unable to move.");
  1824.               nomul(-3);
  1825. ***************
  1826. *** 1279,1285 ****
  1827.   doturn()
  1828.   {    /* Knights & Priest(esse)s only please */
  1829.   
  1830. !     register struct monst *mtmp;
  1831.       register int    xlev = 6;
  1832.   
  1833.       if((pl_character[0] != 'P') &&
  1834. --- 1280,1286 ----
  1835.   doturn()
  1836.   {    /* Knights & Priest(esse)s only please */
  1837.   
  1838. !     register struct monst *mtmp, *mtmp2;
  1839.       register int    xlev = 6;
  1840.   
  1841.       if((pl_character[0] != 'P') &&
  1842. ***************
  1843. *** 1319,1325 ****
  1844.       }
  1845.       pline("Calling upon %s, you chant an arcane formula.", u_gname());
  1846.       exercise(A_WIS, TRUE);
  1847. !     for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
  1848.           if(cansee(mtmp->mx,mtmp->my)) {
  1849.           if(!mtmp->mpeaceful && (is_undead(mtmp->data) ||
  1850.              (is_demon(mtmp->data) && (u.ulevel > (MAXULEV/2))))) {
  1851. --- 1320,1327 ----
  1852.       }
  1853.       pline("Calling upon %s, you chant an arcane formula.", u_gname());
  1854.       exercise(A_WIS, TRUE);
  1855. !     for(mtmp = fmon; mtmp; mtmp = mtmp2) {
  1856. !         mtmp2 = mtmp->nmon;
  1857.           if(cansee(mtmp->mx,mtmp->my)) {
  1858.           if(!mtmp->mpeaceful && (is_undead(mtmp->data) ||
  1859.              (is_demon(mtmp->data) && (u.ulevel > (MAXULEV/2))))) {
  1860. ***************
  1861. *** 1328,1334 ****
  1862.               pline("Unfortunately, your voice falters.");
  1863.               mtmp->mflee = mtmp->mfrozen = mtmp->msleep = FALSE;
  1864.               mtmp->mcanmove = TRUE;
  1865. !             } else if (! resist(mtmp, '\0', 0, TELL))
  1866.               switch (mtmp->data->mlet) {
  1867.                   /* this is intentional, lichs are tougher
  1868.                      than zombies. */
  1869. --- 1330,1336 ----
  1870.               pline("Unfortunately, your voice falters.");
  1871.               mtmp->mflee = mtmp->mfrozen = mtmp->msleep = FALSE;
  1872.               mtmp->mcanmove = TRUE;
  1873. !             } else if (! resist(mtmp, '\0', 0, TELL)) {
  1874.               switch (mtmp->data->mlet) {
  1875.                   /* this is intentional, lichs are tougher
  1876.                      than zombies. */
  1877. ***************
  1878. *** 1352,1359 ****
  1879.               default:    mtmp->mflee = TRUE;
  1880.                   break;
  1881.               }
  1882. !            }
  1883.           }
  1884.       nomul(-5);
  1885.       return(1);
  1886.   }
  1887. --- 1354,1363 ----
  1888.               default:    mtmp->mflee = TRUE;
  1889.                   break;
  1890.               }
  1891. !             }
  1892. !         }
  1893.           }
  1894. +     }
  1895.       nomul(-5);
  1896.       return(1);
  1897.   }
  1898.  
  1899.