home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume7 / nethack3 / patch7m / patch7.09
Text File  |  1990-02-26  |  55KB  |  2,070 lines
  1. *** src/Old/u_init.c    Mon Feb 19 19:05:03 1990
  2. --- src/u_init.c    Fri Feb 16 18:59:15 1990
  3. ***************
  4. *** 14,25 ****
  5.   };
  6.   
  7.   static void FDECL(ini_inv, (struct trobj *));
  8.   
  9.   #define    UNDEF_TYP    0
  10.   #define    UNDEF_SPE    '\177'
  11.   #define    UNDEF_BLESS    2
  12.   
  13. ! char *(roles[]) = {    /* must all have distinct first letter */
  14.               /* roles[2] and [6] are changed for females */
  15.               /* in all cases, the corresponding male and female */
  16.               /* roles must start with the same letter */
  17. --- 14,27 ----
  18.   };
  19.   
  20.   static void FDECL(ini_inv, (struct trobj *));
  21. + static void FDECL(knows_class,(CHAR_P));
  22. + static int FDECL(role_index,(CHAR_P));
  23.   
  24.   #define    UNDEF_TYP    0
  25.   #define    UNDEF_SPE    '\177'
  26.   #define    UNDEF_BLESS    2
  27.   
  28. ! const char *(roles[]) = {    /* must all have distinct first letter */
  29.               /* roles[2] and [6] are changed for females */
  30.               /* in all cases, the corresponding male and female */
  31.               /* roles must start with the same letter */
  32. ***************
  33. *** 235,241 ****
  34.   role_index(pc)
  35.   char pc;
  36.   {
  37. !     register char *cp;
  38.   
  39.       if(cp = index(pl_classes, pc))
  40.           return(cp - pl_classes);
  41. --- 237,243 ----
  42.   role_index(pc)
  43.   char pc;
  44.   {
  45. !     register const char *cp;
  46.   
  47.       if(cp = index(pl_classes, pc))
  48.           return(cp - pl_classes);
  49. ***************
  50. *** 247,254 ****
  51.   {
  52.       register int i;
  53.       char pick, pc;
  54. ! 
  55. !     Printf("\nNetHack, Copyright 1985, 1986, 1987, 1988, 1989.");
  56.       Printf("\n         By Stichting Mathematisch Centrum and M. Stephenson.");
  57.       Printf("\n         See license for details.\n\n");
  58.   
  59. --- 249,258 ----
  60.   {
  61.       register int i;
  62.       char pick, pc;
  63. ! #ifdef __GNULINT__
  64. !     pick = i = 0;    /* prevent "used before set" warnings */
  65. ! #endif
  66. !     Printf("\nNetHack, Copyright 1985, 1986, 1987, 1988, 1989, 1990.");
  67.       Printf("\n         By Stichting Mathematisch Centrum and M. Stephenson.");
  68.       Printf("\n         See license for details.\n\n");
  69.   
  70. ***************
  71. *** 265,270 ****
  72. --- 269,276 ----
  73.           pl_character[0] = pc = 0;
  74.       }
  75.   
  76. + #ifndef MACOS
  77. + 
  78.       Printf("\nShall I pick a character for you? [Y,N, or Q(quit)] ");
  79.   
  80.       while(!index("yYnNqQ", (pick = readchar())) && !index(quitchars, pick))
  81. ***************
  82. *** 314,319 ****
  83. --- 320,329 ----
  84.       }
  85.       if(pc == '\n')    pc = 0;
  86.   
  87. + #else
  88. +     flags.wantspace = FALSE;
  89. + #endif /* MACOS */
  90. + 
  91.   beginner:
  92.       if(!pc) {
  93.           i = rn2(SIZE(roles));
  94. ***************
  95. *** 337,343 ****
  96.   
  97.       u.ulevel = 0;    /* set up some of the initial attributes */
  98.       u.uhp = u.uhpmax = newhp();
  99. !     adjabil(1);
  100.       u.ulevel = 1;
  101.   
  102.       u.uluck  = u.moreluck = 0;
  103. --- 347,353 ----
  104.   
  105.       u.ulevel = 0;    /* set up some of the initial attributes */
  106.       u.uhp = u.uhpmax = newhp();
  107. !     adjabil(0,1);
  108.       u.ulevel = 1;
  109.   
  110.       u.uluck  = u.moreluck = 0;
  111. ***************
  112. *** 469,479 ****
  113.       case 'S':
  114.           ini_inv(Samurai);
  115.           if(!rn2(5)) ini_inv(Blindfold);
  116. -         objects[SHORT_SWORD].oc_name = "wakizashi";
  117. -         objects[BROADSWORD].oc_name = "ninja-to";
  118. -         objects[GLAIVE].oc_name = "naginata";
  119. -         /* objects[BOW].oc_name = "yumi"; */
  120. -         objects[LOCK_PICK].oc_name = "osaku";
  121.           knows_class(WEAPON_SYM);
  122.           break;
  123.       case 'P':
  124. --- 479,484 ----
  125. *** src/Old/uhitm.c    Mon Feb 19 19:05:35 1990
  126. --- src/uhitm.c    Sun Feb  4 09:46:50 1990
  127. ***************
  128. *** 1,4 ****
  129. ! /*    SCCS Id: @(#)uhitm.c    3.0    89/11/19
  130.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  131.   /* NetHack may be freely redistributed.  See license for details. */
  132.   
  133. --- 1,4 ----
  134. ! /*    SCCS Id: @(#)uhitm.c    3.0    89/11/27
  135.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  136.   /* NetHack may be freely redistributed.  See license for details. */
  137.   
  138. ***************
  139. *** 11,16 ****
  140. --- 11,17 ----
  141.   #ifdef POLYSELF
  142.   static boolean hmonas();
  143.   #endif
  144. + static void nohandglow();
  145.   
  146.   #ifdef WORM
  147.   extern boolean notonhead;
  148. ***************
  149. *** 77,85 ****
  150. --- 78,93 ----
  151.           && !Hallucination && (!mtmp->mhide || !mtmp->mundetected)
  152.           && (!mtmp->mimic || Protection_from_shape_changers)) {
  153.           if (Blind ? Telepat : (!mtmp->minvis || See_invisible)) {
  154. + #ifdef MACOS
  155. +             char mac_tbuf[80];
  156. +             if(!flags.silent) SysBeep(1);
  157. +             sprintf(mac_tbuf, "Really attack %s?", mon_nam(mtmp));
  158. +             if(UseMacAlertText(128, mac_tbuf) != 1) {
  159. + #else
  160.               pline("Really attack %s? ", mon_nam(mtmp));
  161.               (void) fflush(stdout);
  162.               if (yn() != 'y') {
  163. + #endif
  164.                   flags.move = 0;
  165.                   return(TRUE);
  166.               }
  167. ***************
  168. *** 126,132 ****
  169.   #endif
  170.   /*    it is unchivalrous to attack the defenseless or from behind */
  171.       if (pl_character[0] == 'K' && u.ualigntyp == U_LAWFUL &&
  172. !         (mtmp->mfroz || mtmp->msleep || mtmp->mflee) &&
  173.           u.ualign > -10) adjalign(-1);
  174.   
  175.   /*    Adjust vs. (and possibly modify) monster state.        */
  176. --- 134,140 ----
  177.   #endif
  178.   /*    it is unchivalrous to attack the defenseless or from behind */
  179.       if (pl_character[0] == 'K' && u.ualigntyp == U_LAWFUL &&
  180. !         (!mtmp->mcanmove || mtmp->msleep || mtmp->mflee) &&
  181.           u.ualign > -10) adjalign(-1);
  182.   
  183.   /*    Adjust vs. (and possibly modify) monster state.        */
  184. ***************
  185. *** 138,146 ****
  186.           mtmp->msleep = 0;
  187.           tmp += 2;
  188.       }
  189. !     if(mtmp->mfroz) {
  190.           tmp += 4;
  191. !         if(!rn2(10)) mtmp->mfroz = 0;
  192.       }
  193.       if (is_orc(mtmp->data) && pl_character[0]=='E') tmp++;
  194.   
  195. --- 146,157 ----
  196.           mtmp->msleep = 0;
  197.           tmp += 2;
  198.       }
  199. !     if(!mtmp->mcanmove) {
  200.           tmp += 4;
  201. !         if(!rn2(10)) {
  202. !             mtmp->mcanmove = 1;
  203. !             mtmp->mfrozen = 0;
  204. !         }
  205.       }
  206.       if (is_orc(mtmp->data) && pl_character[0]=='E') tmp++;
  207.   
  208. ***************
  209. *** 184,190 ****
  210.       /* andrew@orca: prevent unlimited pick-axe attacks */
  211.       u_wipe_engr(3);
  212.   
  213. !     if(mdat->mlet == S_LEPRECHAUN && !mtmp->mfroz && !mtmp->msleep &&
  214.          !mtmp->mconf && mtmp->mcansee && !rn2(7) &&
  215.          (m_move(mtmp, 0) == 2 ||                /* he died */
  216.          mtmp->mx != u.ux+u.dx || mtmp->my != u.uy+u.dy)) /* he moved */
  217. --- 195,201 ----
  218.       /* andrew@orca: prevent unlimited pick-axe attacks */
  219.       u_wipe_engr(3);
  220.   
  221. !     if(mdat->mlet == S_LEPRECHAUN && mtmp->mfrozen && !mtmp->msleep &&
  222.          !mtmp->mconf && mtmp->mcansee && !rn2(7) &&
  223.          (m_move(mtmp, 0) == 2 ||                /* he died */
  224.          mtmp->mx != u.ux+u.dx || mtmp->my != u.uy+u.dy)) /* he moved */
  225. ***************
  226. *** 196,203 ****
  227.        * cinating.
  228.        */
  229.       /*  changes by wwp 5/16/85 */
  230. !     if (!Blind && !Confusion && !Hallucination && flags.safe_dog &&
  231. !         (mdat->mlet == S_DOG || mdat->mlet == S_FELINE) && mtmp->mtame) {
  232.           mtmp->mflee = 1;
  233.           mtmp->mfleetim = rnd(6);
  234.           if (mtmp->mnamelth)
  235. --- 207,215 ----
  236.        * cinating.
  237.        */
  238.       /*  changes by wwp 5/16/85 */
  239. !     if (!Confusion && !Hallucination && flags.safe_dog &&
  240. !         (Blind ? Telepat : (!mtmp->minvis || See_invisible)) &&
  241. !                                 mtmp->mtame) {
  242.           mtmp->mflee = 1;
  243.           mtmp->mfleetim = rnd(6);
  244.           if (mtmp->mnamelth)
  245. ***************
  246. *** 245,251 ****
  247.       if(!mhit) {
  248.           if(!Blind && flags.verbose) You("miss %s.", mon_nam(mon));
  249.           else            You("miss it.");
  250. !         if(!mon->msleep && !mon->mfroz)
  251.           wakeup(mon);
  252.       } else {
  253.           /* we hit the monster; be careful: it might die! */
  254. --- 257,263 ----
  255.       if(!mhit) {
  256.           if(!Blind && flags.verbose) You("miss %s.", mon_nam(mon));
  257.           else            You("miss it.");
  258. !         if(!mon->msleep && mon->mcanmove)
  259.           wakeup(mon);
  260.       } else {
  261.           /* we hit the monster; be careful: it might die! */
  262. ***************
  263. *** 299,304 ****
  264. --- 311,317 ----
  265.   register int thrown;
  266.   {
  267.       register int tmp;
  268. +     struct permonst *mdat = mon->data;
  269.       /* Why all these booleans?  This stuff has to be done in the
  270.        *      following order:
  271.        * 1) Know what we're attacking with, and print special hittxt for
  272. ***************
  273. *** 313,319 ****
  274. --- 326,334 ----
  275.        *    kill poison
  276.        * 5) Print hit message (depends on 1 and 4)
  277.        * 6a) Print poison message (must be done after 5)
  278. + #if 0
  279.        * 6b) Rust weapon (must be done after 5)
  280. + #endif
  281.        * 7) Possibly kill monster (must be done after 6a, 6b)
  282.        * 8) Instant-kill from poison (can happen anywhere between 5 and 9)
  283.        * 9) Hands not glowing (must be done after 7 and 8)
  284. ***************
  285. *** 330,336 ****
  286.       wakeup(mon);
  287.       if(!obj) {
  288.           tmp = rnd(2);    /* attack with bare hands */
  289. !         if(mon->data == &mons[PM_COCKATRICE] && !uarmg
  290.   #ifdef POLYSELF
  291.           && !resists_ston(uasmon)
  292.   #endif
  293. --- 345,352 ----
  294.       wakeup(mon);
  295.       if(!obj) {
  296.           tmp = rnd(2);    /* attack with bare hands */
  297. ! #if 0
  298. !         if(mdat == &mons[PM_COCKATRICE] && !uarmg
  299.   #ifdef POLYSELF
  300.           && !resists_ston(uasmon)
  301.   #endif
  302. ***************
  303. *** 342,359 ****
  304.           done_in_by(mon);
  305.           hittxt = TRUE; /* maybe lifesaved */
  306.           }
  307.       } else {
  308.           if(obj->olet == WEAPON_SYM || obj->otyp == PICK_AXE ||
  309.              obj->otyp == UNICORN_HORN || obj->olet == ROCK_SYM) {
  310.   
  311. !         if(obj == uwep && (obj->otyp > VOULGE || obj->otyp < BOOMERANG)
  312.               && obj->otyp != PICK_AXE && obj->otyp != UNICORN_HORN)
  313.               tmp = rnd(2);
  314.           else {
  315. !             tmp = dmgval(obj, mon->data);
  316.   #ifdef NAMED_ITEMS
  317. !             if(spec_ability(obj, SPFX_DRLI) &&
  318. !                         !resists_drli(mon->data)) {
  319.               if (!Blind) {
  320.                   pline("The %s blade draws the life from %s!",
  321.                   Hallucination ? hcolor() : black,
  322. --- 358,375 ----
  323.           done_in_by(mon);
  324.           hittxt = TRUE; /* maybe lifesaved */
  325.           }
  326. + #endif
  327.       } else {
  328.           if(obj->olet == WEAPON_SYM || obj->otyp == PICK_AXE ||
  329.              obj->otyp == UNICORN_HORN || obj->olet == ROCK_SYM) {
  330.   
  331. !         if(obj == uwep && (obj->otyp >= BOW || obj->otyp < BOOMERANG)
  332.               && obj->otyp != PICK_AXE && obj->otyp != UNICORN_HORN)
  333.               tmp = rnd(2);
  334.           else {
  335. !             tmp = dmgval(obj, mdat);
  336.   #ifdef NAMED_ITEMS
  337. !             if(spec_ability(obj, SPFX_DRLI) && !resists_drli(mdat)) {
  338.               if (!Blind) {
  339.                   pline("The %s blade draws the life from %s!",
  340.                   Hallucination ? hcolor() : black,
  341. ***************
  342. *** 385,393 ****
  343.                   ispoisoned = TRUE;
  344.               }
  345.               if(thrown && obj->otyp == SILVER_ARROW) {
  346. !             if (is_were(mon->data) || mon->data->mlet==S_VAMPIRE
  347. !                 || (mon->data->mlet==S_IMP && mon->data != &mons[PM_TENGU])
  348. !                 || is_demon(mon->data)) {
  349.                   silvermsg = TRUE;
  350.                   tmp += rnd(20);
  351.               }
  352. --- 401,409 ----
  353.                   ispoisoned = TRUE;
  354.               }
  355.               if(thrown && obj->otyp == SILVER_ARROW) {
  356. !             if (is_were(mdat) || mdat->mlet==S_VAMPIRE
  357. !                 || (mdat->mlet==S_IMP && mdat != &mons[PM_TENGU])
  358. !                 || is_demon(mdat)) {
  359.                   silvermsg = TRUE;
  360.                   tmp += rnd(20);
  361.               }
  362. ***************
  363. *** 410,416 ****
  364.               You("break your mirror.  That's bad luck!");
  365.               change_luck(-2);
  366.               useup(obj);
  367. !             return(TRUE);
  368.   #endif
  369.           case EXPENSIVE_CAMERA:
  370.       You("succeed in destroying your camera.  Congratulations!");
  371. --- 426,433 ----
  372.               You("break your mirror.  That's bad luck!");
  373.               change_luck(-2);
  374.               useup(obj);
  375. !             hittxt = TRUE;
  376. !             tmp = 1;
  377.   #endif
  378.           case EXPENSIVE_CAMERA:
  379.       You("succeed in destroying your camera.  Congratulations!");
  380. ***************
  381. *** 420,426 ****
  382.               if(obj->corpsenm == PM_COCKATRICE) {
  383.                   kludge("You hit %s with the cockatrice corpse.",
  384.                     mon_nam(mon));
  385. !                 if(resists_ston(mon->data)) {
  386.                   tmp = 1;
  387.                   hittxt = TRUE;
  388.                   break;
  389. --- 437,443 ----
  390.               if(obj->corpsenm == PM_COCKATRICE) {
  391.                   kludge("You hit %s with the cockatrice corpse.",
  392.                     mon_nam(mon));
  393. !                 if(resists_ston(mdat)) {
  394.                   tmp = 1;
  395.                   hittxt = TRUE;
  396.                   break;
  397. ***************
  398. *** 428,433 ****
  399. --- 445,451 ----
  400.                   kludge("%s turns to stone.", Monnam(mon));
  401.                   stoned = TRUE;
  402.                   xkilled(mon,0);
  403. +                 nohandglow();
  404.                   return(FALSE);
  405.               }
  406.               tmp = mons[obj->corpsenm].msize + 1;
  407. ***************
  408. *** 435,441 ****
  409.           case EGG: /* only possible if hand-to-hand */
  410.               if(obj->corpsenm > -1
  411.                       && obj->corpsenm != PM_COCKATRICE
  412. !                     && mon->data==&mons[PM_COCKATRICE]) {
  413.                   kludge("You hit %s with the %s egg%s.",
  414.                       mon_nam(mon),
  415.                       mons[obj->corpsenm].mname,
  416. --- 453,459 ----
  417.           case EGG: /* only possible if hand-to-hand */
  418.               if(obj->corpsenm > -1
  419.                       && obj->corpsenm != PM_COCKATRICE
  420. !                     && mdat == &mons[PM_COCKATRICE]) {
  421.                   kludge("You hit %s with the %s egg%s.",
  422.                       mon_nam(mon),
  423.                       mons[obj->corpsenm].mname,
  424. ***************
  425. *** 451,457 ****
  426.               tmp = 1;
  427.               break;
  428.           case CLOVE_OF_GARLIC:        /* no effect against demons */
  429. !             if(is_undead(mon->data)) mon->mflee = 1;
  430.               tmp = 1;
  431.               break;
  432.           case CREAM_PIE:
  433. --- 469,475 ----
  434.               tmp = 1;
  435.               break;
  436.           case CLOVE_OF_GARLIC:        /* no effect against demons */
  437. !             if(is_undead(mdat)) mon->mflee = 1;
  438.               tmp = 1;
  439.               break;
  440.           case CREAM_PIE:
  441. ***************
  442. *** 468,475 ****
  443.               else
  444.                   pline("The cream pie splashes over %s%s!",
  445.                   mon_nam(mon),
  446. !                 (haseyes(mon->data) &&
  447. !                     mon->data != &mons[PM_FLOATING_EYE])
  448.                   ? "'s face" : "");
  449.               if(mon->msleep) mon->msleep = 0;
  450.               setmangry(mon);
  451. --- 486,493 ----
  452.               else
  453.                   pline("The cream pie splashes over %s%s!",
  454.                   mon_nam(mon),
  455. !                 (haseyes(mdat) &&
  456. !                     mdat != &mons[PM_FLOATING_EYE])
  457.                   ? "'s face" : "");
  458.               if(mon->msleep) mon->msleep = 0;
  459.               setmangry(mon);
  460. ***************
  461. *** 483,495 ****
  462.               break;
  463.   #ifdef POLYSELF
  464.           case ACID_VENOM: /* only possible if thrown */
  465. !             if(resists_acid(mon->data)) {
  466.                   kludge("Your venom hits %s harmlessly.",
  467.                       mon_nam(mon));
  468.                   tmp = 0;
  469.               } else {
  470.                   kludge("Your venom burns %s!", mon_nam(mon));
  471. !                 tmp = dmgval(obj, mon->data);
  472.               }
  473.               hittxt = TRUE;
  474.               get_dmg_bonus = FALSE;
  475. --- 501,513 ----
  476.               break;
  477.   #ifdef POLYSELF
  478.           case ACID_VENOM: /* only possible if thrown */
  479. !             if(resists_acid(mdat)) {
  480.                   kludge("Your venom hits %s harmlessly.",
  481.                       mon_nam(mon));
  482.                   tmp = 0;
  483.               } else {
  484.                   kludge("Your venom burns %s!", mon_nam(mon));
  485. !                 tmp = dmgval(obj, mdat);
  486.               }
  487.               hittxt = TRUE;
  488.               get_dmg_bonus = FALSE;
  489. ***************
  490. *** 513,522 ****
  491.           /* If you throw using a propellor, you don't get a strength
  492.            * bonus but you do get an increase-damage bonus.
  493.            */
  494. !         if(!obj || !uwep ||
  495.               (obj->olet != GEM_SYM && obj->olet != WEAPON_SYM) ||
  496. !             objects[obj->otyp].w_propellor !=
  497. !                 -objects[uwep->otyp].w_propellor)
  498.               tmp += dbon();
  499.       }
  500.   
  501. --- 531,541 ----
  502.           /* If you throw using a propellor, you don't get a strength
  503.            * bonus but you do get an increase-damage bonus.
  504.            */
  505. !         if(!thrown || !obj || !uwep ||
  506.               (obj->olet != GEM_SYM && obj->olet != WEAPON_SYM) ||
  507. !             !objects[obj->otyp].w_propellor ||
  508. !             (objects[obj->otyp].w_propellor !=
  509. !                 -objects[uwep->otyp].w_propellor))
  510.               tmp += dbon();
  511.       }
  512.   
  513. ***************
  514. *** 530,536 ****
  515.       }
  516.    */
  517.       if (ispoisoned) {
  518. !         if(resists_poison(mon->data))
  519.           needpoismsg = TRUE;
  520.           else if (rn2(10))
  521.           tmp += rnd(6);
  522. --- 549,555 ----
  523.       }
  524.    */
  525.       if (ispoisoned) {
  526. !         if(resists_poison(mdat))
  527.           needpoismsg = TRUE;
  528.           else if (rn2(10))
  529.           tmp += rnd(6);
  530. ***************
  531. *** 550,558 ****
  532.           mon->mflee = 1;            /* Rick Richardson */
  533.           mon->mfleetim += 10*rnd(tmp);
  534.       }
  535. !     if((mon->data == &mons[PM_BLACK_PUDDING] ||
  536. !            mon->data == &mons[PM_BROWN_PUDDING]) && obj &&
  537. !            obj == uwep && objects[obj->otyp].oc_material == METAL
  538.              && mon->mhp > 1 && !thrown && !mon->mcan
  539.              /* && !destroyed  -- guaranteed by mhp > 1 */ ) {
  540.   
  541. --- 569,577 ----
  542.           mon->mflee = 1;            /* Rick Richardson */
  543.           mon->mfleetim += 10*rnd(tmp);
  544.       }
  545. !     if((mdat == &mons[PM_BLACK_PUDDING] || mdat == &mons[PM_BROWN_PUDDING])
  546. !            && obj && obj == uwep
  547. !            && objects[obj->otyp].oc_material == METAL
  548.              && mon->mhp > 1 && !thrown && !mon->mcan
  549.              /* && !destroyed  -- guaranteed by mhp > 1 */ ) {
  550.   
  551. ***************
  552. *** 583,611 ****
  553.       if (poiskilled) {
  554.           pline("The poison was deadly...");
  555.           xkilled(mon, 0);
  556.           return FALSE;
  557. !     } else if (destroyed)
  558. !         killed(mon);    /* takes care of messages */
  559. !     else if(u.umconf && !thrown) {
  560. !         if(!Blind) {
  561. !             Your("%s stop glowing %s.",
  562. !             makeplural(body_part(HAND)),
  563. !             Hallucination ? hcolor() : red);
  564. !         }
  565.           if(!resist(mon, '+', 0, NOTELL)) mon->mconf = 1;
  566. !         if(!mon->mstun && !mon->mfroz && !mon->msleep &&
  567.              !Blind && mon->mconf)
  568.               pline("%s appears confused.", Monnam(mon));
  569. -         u.umconf = 0;
  570.       }
  571.   
  572. !     if(mon->data == &mons[PM_RUST_MONSTER] && obj && obj == uwep &&
  573.           objects[obj->otyp].oc_material == METAL &&
  574.           obj->olet == WEAPON_SYM && obj->spe > -2) {
  575.           if(obj->rustfree) {
  576.           pline("The rust on your %s vanishes instantly!",
  577.                 is_sword(obj) ? "sword" : "weapon");
  578. !         } else if(obj->blessed && rnl(4))
  579.           pline("Somehow your %s is not affected!",
  580.                 is_sword(obj) ? "sword" : "weapon");
  581.           else {
  582. --- 602,628 ----
  583.       if (poiskilled) {
  584.           pline("The poison was deadly...");
  585.           xkilled(mon, 0);
  586. +         nohandglow();
  587.           return FALSE;
  588. !     } else if (destroyed) {
  589. !         killed(mon);    /* takes care of most messages */
  590. !         nohandglow();
  591. !     } else if(u.umconf && !thrown) {
  592. !         nohandglow();
  593.           if(!resist(mon, '+', 0, NOTELL)) mon->mconf = 1;
  594. !         if(!mon->mstun && mon->mcanmove && !mon->msleep &&
  595.              !Blind && mon->mconf)
  596.               pline("%s appears confused.", Monnam(mon));
  597.       }
  598.   
  599. ! #if 0
  600. !     if(mdat == &mons[PM_RUST_MONSTER] && obj && obj == uwep &&
  601.           objects[obj->otyp].oc_material == METAL &&
  602.           obj->olet == WEAPON_SYM && obj->spe > -2) {
  603.           if(obj->rustfree) {
  604.           pline("The rust on your %s vanishes instantly!",
  605.                 is_sword(obj) ? "sword" : "weapon");
  606. !         } else if(obj->blessed && !rnl(4))
  607.           pline("Somehow your %s is not affected!",
  608.                 is_sword(obj) ? "sword" : "weapon");
  609.           else {
  610. ***************
  611. *** 613,618 ****
  612. --- 630,636 ----
  613.           obj->spe--;
  614.           }
  615.       }
  616. + #endif
  617.   
  618.       return(destroyed ? FALSE : TRUE);
  619.   }
  620. ***************
  621. *** 636,643 ****
  622.           ) {
  623.           struct monst *dtmp;
  624.           pline("Some hell-p has arrived!");
  625. ! /*        if((dtmp = makemon(uasmon, u.ux, u.uy)))*/
  626. !         if((dtmp = makemon(&mons[ndemon()], u.ux, u.uy)))
  627.           (void)tamedog(dtmp, (struct obj *)0);
  628.           return(0);
  629.       }
  630. --- 654,660 ----
  631.           ) {
  632.           struct monst *dtmp;
  633.           pline("Some hell-p has arrived!");
  634. !         if((dtmp = makemon(!rn2(6) ? &mons[ndemon()] : uasmon, u.ux, u.uy)))
  635.           (void)tamedog(dtmp, (struct obj *)0);
  636.           return(0);
  637.       }
  638. ***************
  639. *** 716,722 ****
  640.               int isize = inv_cnt();
  641.   
  642.               stealoid = (struct obj *)0;
  643. !             if (is_mercenary(pd)) {
  644.               for(otmp = mdef->minvent; otmp; otmp=otmp->nobj)
  645.                   if (otmp->otyp >= PLATE_MAIL && otmp->otyp
  646.                   <= ELVEN_CLOAK) stealoid = otmp;
  647. --- 733,739 ----
  648.               int isize = inv_cnt();
  649.   
  650.               stealoid = (struct obj *)0;
  651. !             if(is_mercenary(pd) && could_seduce(&youmonst,mdef,mattk)){
  652.               for(otmp = mdef->minvent; otmp; otmp=otmp->nobj)
  653.                   if (otmp->otyp >= PLATE_MAIL && otmp->otyp
  654.                   <= ELVEN_CLOAK) stealoid = otmp;
  655. ***************
  656. *** 869,884 ****
  657.               u.ustuck = mdef; /* it's now stuck to you */
  658.           break;
  659.           case AD_PLYS:
  660. !         if (!mdef->mfroz && !rn2(3) && tmp < mdef->mhp) {
  661.               if (!Blind) pline("%s is frozen by you!", Monnam(mdef));
  662. !             mdef->mfroz = 1;
  663.           }
  664.           case AD_SLEE:
  665.           if (!resists_sleep(mdef->data) && !mdef->msleep &&
  666. !                                 !mdef->mfroz) {
  667.               if (!Blind)
  668.               pline("%s suddenly falls asleep!", Monnam(mdef));
  669. !             mdef->msleep = 1;
  670.           }
  671.           break;
  672.           default:    tmp = 0;
  673. --- 886,904 ----
  674.               u.ustuck = mdef; /* it's now stuck to you */
  675.           break;
  676.           case AD_PLYS:
  677. !         if (mdef->mcanmove && !rn2(3) && tmp < mdef->mhp) {
  678.               if (!Blind) pline("%s is frozen by you!", Monnam(mdef));
  679. !             mdef->mcanmove = 0;
  680. !             mdef->mfrozen = rnd(10);
  681.           }
  682. +         break;
  683.           case AD_SLEE:
  684.           if (!resists_sleep(mdef->data) && !mdef->msleep &&
  685. !                             mdef->mcanmove) {
  686.               if (!Blind)
  687.               pline("%s suddenly falls asleep!", Monnam(mdef));
  688. !             mdef->mcanmove = 0;
  689. !             mdef->mfrozen = rnd(10);
  690.           }
  691.           break;
  692.           default:    tmp = 0;
  693. ***************
  694. *** 910,916 ****
  695.           case AD_BLND:
  696.           if(mdef->data->mlet != S_YLIGHT) {
  697.               kludge("%s is blinded by your flash of light!", Monnam(mdef));
  698. !             if (!mdef->mblinded) {
  699.               mdef->mblinded += rn2(25);
  700.               mdef->mcansee = 0;
  701.               }
  702. --- 930,936 ----
  703.           case AD_BLND:
  704.           if(mdef->data->mlet != S_YLIGHT) {
  705.               kludge("%s is blinded by your flash of light!", Monnam(mdef));
  706. !             if (mdef->mcansee) {
  707.               mdef->mblinded += rn2(25);
  708.               mdef->mcansee = 0;
  709.               }
  710. ***************
  711. *** 956,964 ****
  712.        * after exactly 1 round of attack otherwise.  -KAA
  713.        */
  714.   
  715. ! # ifdef WORM
  716. !     if(mdef->wormno) return 0;
  717. ! # endif
  718.       if(u.uhunger < 1500 && !u.uswallow) {
  719.   
  720.           if(mdef->data->mlet != S_COCKATRICE) {
  721. --- 976,983 ----
  722.        * after exactly 1 round of attack otherwise.  -KAA
  723.        */
  724.   
  725. !     if(mdef->data->msize >= MZ_HUGE) return 0;
  726. ! 
  727.       if(u.uhunger < 1500 && !u.uswallow) {
  728.   
  729.           if(mdef->data->mlet != S_COCKATRICE) {
  730. ***************
  731. *** 1046,1061 ****
  732.               xkilled(mdef,0);
  733.               return(2);
  734.           }
  735. !         kludge("You regurgitate %s!", mon_nam(mdef));
  736. !         if (Blind)
  737. !             pline("Obviously, you didn't like its taste.");
  738. !         else
  739. !             pline("Obviously, you didn't like %s's taste.",
  740.                                   mon_nam(mdef));
  741.           } else {
  742.           kludge("You bite into %s", mon_nam(mdef));
  743.           You("turn to stone...");
  744. !         killer = "poor choice of food";
  745.           done(STONING);
  746.           }
  747.       }
  748. --- 1065,1084 ----
  749.               xkilled(mdef,0);
  750.               return(2);
  751.           }
  752. !         kludge("You %s %s!", is_animal(uasmon) ? "regurgitate"
  753. !             : "expel", mon_nam(mdef));
  754. !         if (is_animal(uasmon)) {
  755. !             if (Blind)
  756. !             pline("Obviously, you didn't like its taste.");
  757. !             else
  758. !             pline("Obviously, you didn't like %s's taste.",
  759.                                   mon_nam(mdef));
  760. +         }
  761.           } else {
  762.           kludge("You bite into %s", mon_nam(mdef));
  763.           You("turn to stone...");
  764. !         killer_format = KILLED_BY;
  765. !         killer = "swallowing a cockatrice whole";
  766.           done(STONING);
  767.           }
  768.       }
  769. ***************
  770. *** 1134,1141 ****
  771.                   if (!u.uswallow &&
  772.                       (compat = could_seduce(&youmonst,
  773.                                   mon, mattk)))
  774. !                 pline("You %s %s %s.",
  775. !                     mon->mblinded ? "talk to" : "smile at",
  776.                       Blind ? "it" : mon_nam(mon),
  777.                       compat == 2 ? "engagingly" : "seductively");
  778.                   else if (mattk->aatyp == AT_KICK)
  779. --- 1157,1164 ----
  780.                   if (!u.uswallow &&
  781.                       (compat = could_seduce(&youmonst,
  782.                                   mon, mattk)))
  783. !                 You("%s %s %s.",
  784. !                     mon->mcansee ? "smile at" : "talk to",
  785.                       Blind ? "it" : mon_nam(mon),
  786.                       compat == 2 ? "engagingly" : "seductively");
  787.                   else if (mattk->aatyp == AT_KICK)
  788. ***************
  789. *** 1262,1271 ****
  790.           if(mhit && !rn2(6)) {
  791.           if (kicked) {
  792.               if (uarmf)
  793. !             (void) rust_dmg(uarmf, xname(uarmf), 1, TRUE);
  794.           } else corrode_weapon();
  795.           }
  796.           break;
  797.         case AD_MAGM:
  798.           /* wrath of gods for attacking Oracle */
  799.           if(Antimagic) {
  800. --- 1285,1315 ----
  801.           if(mhit && !rn2(6)) {
  802.           if (kicked) {
  803.               if (uarmf)
  804. !             (void) rust_dmg(uarmf, xname(uarmf), 3, TRUE);
  805.           } else corrode_weapon();
  806.           }
  807.           break;
  808. +       case AD_STON:
  809. +         if(mhit)
  810. +           if (!kicked)
  811. +         if (!uwep && !uarmg
  812. + #ifdef POLYSELF
  813. +             && !resists_ston(uasmon)
  814. + #endif
  815. +            ) {
  816. +             You("turn to stone...");
  817. +             done_in_by(mon);
  818. +             return 2;
  819. +         }
  820. +         break;
  821. +       case AD_RUST:
  822. +         if(mhit)
  823. +           if (kicked) {
  824. +         if (uarmf)
  825. +             (void) rust_dmg(uarmf, xname(uarmf), 1, TRUE);
  826. +           } else
  827. +         corrode_weapon();
  828. +         break;
  829.         case AD_MAGM:
  830.           /* wrath of gods for attacking Oracle */
  831.           if(Antimagic) {
  832. ***************
  833. *** 1287,1296 ****
  834.   
  835.           switch(ptr->mattk[i].adtyp) {
  836.   
  837. !           case AD_PLYS:        /* specifically floating eye */
  838. !         if(canseemon(mon)) {
  839. ! 
  840. !             tmp = -d((int)mon->m_lev+1, (int)ptr->mattk[i].damd);
  841.               if(mon->mcansee) {
  842.               if(Reflecting & W_AMUL) {
  843.                   makeknown(AMULET_OF_REFLECTION);
  844. --- 1331,1343 ----
  845.   
  846.           switch(ptr->mattk[i].adtyp) {
  847.   
  848. !           case AD_PLYS:
  849. !         tmp = -d((int)mon->m_lev+1, (int)ptr->mattk[i].damd);
  850. !         if(ptr == &mons[PM_FLOATING_EYE]) {
  851. !             if (!canseemon(mon)) {
  852. !             tmp = 0;
  853. !             break;
  854. !             }
  855.               if(mon->mcansee) {
  856.               if(Reflecting & W_AMUL) {
  857.                   makeknown(AMULET_OF_REFLECTION);
  858. ***************
  859. *** 1308,1313 ****
  860. --- 1355,1364 ----
  861.               pline("%s cannot defend itself.", Amonnam(mon,"blind"));
  862.               if(!rn2(500)) change_luck(-1);
  863.               }
  864. +         } else { /* gelatinous cube */
  865. +             You("are frozen by %s!", mon_nam(mon));
  866. +             nomul(tmp);
  867. +             tmp = 0;
  868.           }
  869.           break;
  870.             case AD_COLD:        /* brown mold or blue jelly */
  871. ***************
  872. *** 1350,1361 ****
  873.           if(monnear(mon, u.ux, u.uy)) {
  874.               tmp = d((int)mon->m_lev+1, (int)ptr->mattk[i].damd);
  875.               if(Fire_resistance) {
  876. !               shieldeff(u.ux, u.uy);
  877.               You("feel mildly warm.");
  878. ! #ifdef POLYSELF
  879. ! #ifdef GOLEMS
  880.               ugolemeffects(AD_FIRE, tmp);
  881. - #endif /* GOLEMS */
  882.   #endif
  883.               tmp = 0;
  884.               break;
  885. --- 1401,1410 ----
  886.           if(monnear(mon, u.ux, u.uy)) {
  887.               tmp = d((int)mon->m_lev+1, (int)ptr->mattk[i].damd);
  888.               if(Fire_resistance) {
  889. !             shieldeff(u.ux, u.uy);
  890.               You("feel mildly warm.");
  891. ! #if defined(POLYSELF) && defined(GOLEMS)
  892.               ugolemeffects(AD_FIRE, tmp);
  893.   #endif
  894.               tmp = 0;
  895.               break;
  896. ***************
  897. *** 1364,1369 ****
  898. --- 1413,1432 ----
  899.               mdamageu(mon, tmp);
  900.           }
  901.           break;
  902. +           case AD_ELEC:
  903. +         tmp = d((int)mon->m_lev+1, (int)ptr->mattk[i].damd);
  904. +         if(Shock_resistance) {
  905. +             shieldeff(u.ux, u.uy);
  906. +             You("feel a mild tingle.");
  907. + #if defined(POLYSELF) && defined(GOLEMS)
  908. +             ugolemeffects(AD_ELEC, tmp);
  909. + #endif
  910. +             tmp = 0;
  911. +             break;
  912. +         }
  913. +         You("are jolted with electricity!");
  914. +         mdamageu(mon, tmp);
  915. +         break;
  916.             default:
  917.           break;
  918.           }
  919. ***************
  920. *** 1398,1401 ****
  921. --- 1461,1487 ----
  922.           pline("Wait!  That's %s!", defmonnam(mtmp));
  923.       }
  924.       wakeup(mtmp);    /* clears mtmp->mimic */
  925. + }
  926. + 
  927. + static void
  928. + nohandglow()
  929. + {
  930. +     if (!u.umconf) return; /* for safety */
  931. +     if (u.umconf == 1) {
  932. +         if (Blind)
  933. +             Your("%s stop tingling.", makeplural(body_part(HAND)));
  934. +         else
  935. +             Your("%s stop glowing %s.",
  936. +                 makeplural(body_part(HAND)),
  937. +                 Hallucination ? hcolor() : red);
  938. +     } else {
  939. +         if (Blind)
  940. +             pline("The tingling in your %s lessens.",
  941. +                 makeplural(body_part(HAND)));
  942. +         else
  943. +             Your("%s no longer glow so brightly %s.",
  944. +                 makeplural(body_part(HAND)),
  945. +                 Hallucination ? hcolor() : red);
  946. +     }
  947. +     u.umconf--;
  948.   }
  949. *** src/Old/unixmain.c    Mon Feb 19 19:06:32 1990
  950. --- src/unixmain.c    Sun Feb 11 11:29:09 1990
  951. ***************
  952. *** 7,16 ****
  953.   
  954.   #include <signal.h>
  955.   #include <pwd.h>
  956.   
  957.   char SAVEF[PL_NSIZ + 11] = "save/";    /* save/99999player */
  958.   
  959. ! char *hname = 0;        /* name of the game (argv[0] of call) */
  960.   char obuf[BUFSIZ];    /* BUFSIZ is defined in stdio.h */
  961.   int hackpid = 0;                /* current pid */
  962.   int locknum = 0;                /* max num of players */
  963. --- 7,19 ----
  964.   
  965.   #include <signal.h>
  966.   #include <pwd.h>
  967. + #ifndef O_RDONLY
  968. + #include <fcntl.h>
  969. + #endif
  970.   
  971.   char SAVEF[PL_NSIZ + 11] = "save/";    /* save/99999player */
  972.   
  973. ! const char *hname = 0;        /* name of the game (argv[0] of call) */
  974.   char obuf[BUFSIZ];    /* BUFSIZ is defined in stdio.h */
  975.   int hackpid = 0;                /* current pid */
  976.   int locknum = 0;                /* max num of players */
  977. ***************
  978. *** 233,239 ****
  979.   #ifdef COMPRESS
  980.       Strcpy(old,SAVEF);
  981.       Strcat(SAVEF,".Z");
  982. !     if((fd = open(SAVEF,0)) >= 0) {
  983.            (void) close(fd);
  984.           Strcpy(cmd, COMPRESS);
  985.           Strcat(cmd, " -d ");    /* uncompress */
  986. --- 236,242 ----
  987.   #ifdef COMPRESS
  988.       Strcpy(old,SAVEF);
  989.       Strcat(SAVEF,".Z");
  990. !     if((fd = open(SAVEF,O_RDONLY)) >= 0) {
  991.            (void) close(fd);
  992.           Strcpy(cmd, COMPRESS);
  993.           Strcat(cmd, " -d ");    /* uncompress */
  994. ***************
  995. *** 246,252 ****
  996.       }
  997.       Strcpy(SAVEF,old);
  998.   #endif
  999. !     if((fd = open(SAVEF,0)) >= 0 &&
  1000.          (uptodate(fd) || unlink(SAVEF) == 666)) {
  1001.   #ifdef WIZARD
  1002.           /* Since wizard is actually flags.debug, restoring might
  1003. --- 249,256 ----
  1004.       }
  1005.       Strcpy(SAVEF,old);
  1006.   #endif
  1007. !     if((fd = open(SAVEF,O_RDONLY)) >= 0 &&
  1008. !        /* if not up-to-date, quietly unlink file via false condition */
  1009.          (uptodate(fd) || unlink(SAVEF) == 666)) {
  1010.   #ifdef WIZARD
  1011.           /* Since wizard is actually flags.debug, restoring might
  1012. ***************
  1013. *** 254,261 ****
  1014.            */
  1015.           boolean remember_wiz_mode = wizard;
  1016.   #endif
  1017.           (void) signal(SIGINT, (SIG_RET_TYPE) done1);
  1018. !         pline("Restoring old save file...");
  1019.           (void) fflush(stdout);
  1020.           if(!dorecover(fd))
  1021.               goto not_recovered;
  1022. --- 258,266 ----
  1023.            */
  1024.           boolean remember_wiz_mode = wizard;
  1025.   #endif
  1026. +         (void) chmod(SAVEF,0);    /* disallow parallel restores */
  1027.           (void) signal(SIGINT, (SIG_RET_TYPE) done1);
  1028. !         pline("Restoring save file...");
  1029.           (void) fflush(stdout);
  1030.           if(!dorecover(fd))
  1031.               goto not_recovered;
  1032. ***************
  1033. *** 274,279 ****
  1034. --- 279,297 ----
  1035.               pline("Do you want to keep the save file? ");
  1036.               if(yn() == 'n')
  1037.                   (void) unlink(SAVEF);
  1038. +             else {
  1039. +                 (void) chmod(SAVEF,FCMASK); /* back to readable */
  1040. + # ifdef COMPRESS
  1041. +                 Strcpy(cmd, COMPRESS);
  1042. +                 Strcat(cmd, " ");
  1043. + #  ifdef COMPRESS_OPTIONS
  1044. +                 Strcat(cmd, COMPRESS_OPTIONS);
  1045. +                 Strcat(cmd, " ");
  1046. + #  endif
  1047. +                 Strcat(cmd,SAVEF);
  1048. +                 (void) system(cmd);
  1049. + # endif
  1050. +             }
  1051.           }
  1052.   #endif
  1053.           flags.move = 0;
  1054. ***************
  1055. *** 382,390 ****
  1056.   
  1057.           if(dir == NULL)
  1058.           dir = ".";
  1059. !         if((fd = open(RECORD, 2)) < 0) {
  1060. !         Printf("Warning: cannot write %s/%s", dir, RECORD);
  1061. !         getret();
  1062.           } else
  1063.           (void) close(fd);
  1064.       }
  1065. --- 400,411 ----
  1066.   
  1067.           if(dir == NULL)
  1068.           dir = ".";
  1069. !         if((fd = open(RECORD, O_RDWR)) < 0) {
  1070. !         if((fd = open(RECORD, O_CREAT|O_RDWR, FCMASK)) < 0) {
  1071. !             Printf("Warning: cannot write %s/%s", dir, RECORD);
  1072. !             getret();
  1073. !         } else
  1074. !             (void) close(fd);
  1075.           } else
  1076.           (void) close(fd);
  1077.       }
  1078. *** src/Old/unixtty.c    Mon Feb 19 19:06:57 1990
  1079. --- src/unixtty.c    Sun Jan 21 13:58:48 1990
  1080. ***************
  1081. *** 115,121 ****
  1082.   /* reset terminal to original state */
  1083.   void
  1084.   settty(s)
  1085. ! char *s;
  1086.   {
  1087.       clear_screen();
  1088.       end_screen();
  1089. --- 115,121 ----
  1090.   /* reset terminal to original state */
  1091.   void
  1092.   settty(s)
  1093. ! const char *s;
  1094.   {
  1095.       clear_screen();
  1096.       end_screen();
  1097. ***************
  1098. *** 192,200 ****
  1099.   /*VARARGS1*/
  1100.   
  1101.   void
  1102. ! error VA_DECL(char *,s)
  1103.       VA_START(s);
  1104. !     VA_INIT(s, char *);
  1105.       if(settty_needed)
  1106.           settty(NULL);
  1107.       Vprintf(s,VA_ARGS);
  1108. --- 192,200 ----
  1109.   /*VARARGS1*/
  1110.   
  1111.   void
  1112. ! error VA_DECL(const char *,s)
  1113.       VA_START(s);
  1114. !     VA_INIT(s, const char *);
  1115.       if(settty_needed)
  1116.           settty(NULL);
  1117.       Vprintf(s,VA_ARGS);
  1118. *** src/Old/version.c    Mon Feb 19 19:07:51 1990
  1119. --- src/version.c    Mon Feb 12 18:47:37 1990
  1120. ***************
  1121. *** 5,11 ****
  1122.   #include    "hack.h"
  1123.   #include    "date.h"
  1124.   #ifndef BETA
  1125. ! #ifdef MSDOS
  1126.   # include    "patchlev.h"
  1127.   #else
  1128.   # include    "patchlevel.h"
  1129. --- 5,11 ----
  1130.   #include    "hack.h"
  1131.   #include    "date.h"
  1132.   #ifndef BETA
  1133. ! #if defined(MSDOS) && !defined(AMIGA)
  1134.   # include    "patchlev.h"
  1135.   #else
  1136.   # include    "patchlevel.h"
  1137. ***************
  1138. *** 51,53 ****
  1139. --- 51,222 ----
  1140.           datestring);
  1141.       return 0;
  1142.   }
  1143. + 
  1144. + #define Next_opt(x) if (next_opt(x)) goto quit;
  1145. + #define Page_line(x) if (page_line(x)) goto quit;
  1146. + 
  1147. + int
  1148. + doextversion()
  1149. + {
  1150. +     set_pager(0);
  1151. +     (void)page_line("");
  1152. +     Page_line("Options compiled into this version of NetHack");
  1153. +     Page_line("(in no particular order):");
  1154. +     Page_line("");
  1155. + #ifdef POLYSELF
  1156. +     Next_opt("self-polymorphing, ");
  1157. + #endif
  1158. + #ifdef THEOLOGY
  1159. +     Next_opt("theology, ");
  1160. + #endif
  1161. + #ifdef SOUNDS
  1162. +     Next_opt("sounds, ");
  1163. + #endif
  1164. + #ifdef KICK
  1165. +     Next_opt("kicking, ");
  1166. + #endif
  1167. + #ifdef THRONES
  1168. +     Next_opt("thrones, ");
  1169. + #endif
  1170. + #ifdef FOUNTAINS
  1171. +     Next_opt("fountains, ");
  1172. + #endif
  1173. + #ifdef SINKS
  1174. +     Next_opt("sinks, ");
  1175. + #endif
  1176. + #ifdef ALTARS
  1177. +     Next_opt("altars, ");
  1178. + #endif
  1179. + #ifdef WALLIFIED_MAZE
  1180. +     Next_opt("fancy mazes, ");
  1181. + #endif
  1182. + #ifdef REINCARNATION
  1183. +     Next_opt("Rogue level, ");
  1184. + #endif
  1185. + #ifdef STRONGHOLD
  1186. +     Next_opt("special levels, ");
  1187. + #endif
  1188. + #ifdef ORACLE
  1189. +     Next_opt("oracle, ");
  1190. + #endif
  1191. + #ifdef MEDUSA
  1192. +     Next_opt("Medusa, ");
  1193. + #endif
  1194. + #ifdef KOPS
  1195. +     Next_opt("Kops, ");
  1196. + #endif
  1197. + #ifdef ARMY
  1198. +     Next_opt("armies, ");
  1199. + #endif
  1200. + #ifdef WORM
  1201. +     Next_opt("long worms, ");
  1202. + #endif
  1203. + #ifdef GOLEMS
  1204. +     Next_opt("golems, ");
  1205. + #endif
  1206. + #ifdef INFERNO
  1207. +     Next_opt("inferno, ");
  1208. + #endif
  1209. + #ifdef SEDUCE
  1210. +     Next_opt("seduction, ");
  1211. + #endif
  1212. + #ifdef TOLKIEN
  1213. +     Next_opt("Tolkien extras, ");
  1214. + #endif
  1215. + #ifdef PROBING
  1216. +     Next_opt("wand of probing, ");
  1217. + #endif
  1218. + #ifdef WALKIES
  1219. +     Next_opt("leashes, ");
  1220. + #endif
  1221. + #ifdef SHIRT
  1222. +     Next_opt("Hawaiian shirt, ");
  1223. + #endif
  1224. + #ifdef MUSIC
  1225. +     Next_opt("music, ");
  1226. + #endif
  1227. + #ifdef TUTTI_FRUTTI
  1228. +     Next_opt("fruits, ");
  1229. + #endif
  1230. + #ifdef SPELLS
  1231. +     Next_opt("spells, ");
  1232. + #endif
  1233. + #ifdef NAMED_ITEMS
  1234. +     Next_opt("named items, ");
  1235. + #endif
  1236. + #ifdef ELBERETH
  1237. +     Next_opt("Elbereth, ");
  1238. + #endif
  1239. + #ifdef EXPLORE_MODE
  1240. +     Next_opt("explore mode, ");
  1241. + #endif
  1242. + #ifdef HARD
  1243. +     Next_opt("HARD, ");
  1244. + #endif
  1245. + #ifdef REDO
  1246. +     Next_opt("redo-commands, ");
  1247. + #endif
  1248. + #ifdef CLIPPING
  1249. +     Next_opt("screen clipping, ");
  1250. + #endif
  1251. + #ifdef TEXTCOLOR
  1252. +     Next_opt("color, ");
  1253. + #endif
  1254. + #ifdef DGK
  1255. +     Next_opt("Don Kneller's enhancements, ");
  1256. + #endif
  1257. + #ifdef OVERLAY
  1258. +     Next_opt("overlays, ");
  1259. + #endif
  1260. + #ifdef SHELL
  1261. +     Next_opt("shell command, ");
  1262. + #endif
  1263. + #ifdef MAIL
  1264. +     Next_opt("mail, ");
  1265. + #endif
  1266. + #ifdef NEWS
  1267. +     Next_opt("news file, ");
  1268. + #endif
  1269. + #ifdef COM_COMPL
  1270. +     Next_opt("command line completion, ");
  1271. + #endif
  1272. + #ifdef AMIGA_WBENCH
  1273. +     Next_opt("Amiga WorkBench support, ");
  1274. + #endif
  1275. + #ifdef WIZARD
  1276. +     Next_opt("wizard mode, ");
  1277. + #endif
  1278. + #ifdef LOGFILE
  1279. +     Next_opt("logfile, ");
  1280. + #endif
  1281. + #ifdef TERMLIB
  1282. +     Next_opt("termcap file, ");
  1283. + #endif
  1284. + #ifdef TERMINFO
  1285. +     Next_opt("terminfo, ");
  1286. + #endif
  1287. + #ifdef ANSI_DEFAULT
  1288. +     Next_opt("ANSI default terminal, ");
  1289. + #endif
  1290. + #ifdef COMPRESS
  1291. +     Next_opt("compress bones/level/save files, ");
  1292. + #endif
  1293. +     Next_opt("basic NetHack features");
  1294. +     Next_opt("");
  1295. +     set_pager(1);
  1296. +     return 0;
  1297. + quit:
  1298. +     (void) next_opt("\033");
  1299. +     set_pager(2);
  1300. +     return 0;
  1301. + }
  1302. + 
  1303. + #ifdef MSDOS
  1304. + int
  1305. + comp_times(filetime)
  1306. + long filetime;
  1307. + {
  1308. +     if(filetime < compiletime) return (1);
  1309. +     else return (0);
  1310. + }
  1311. + #endif
  1312. *** src/Old/weapon.c    Mon Feb 19 19:08:10 1990
  1313. --- src/weapon.c    Thu Jan 25 22:14:52 1990
  1314. ***************
  1315. *** 9,14 ****
  1316. --- 9,16 ----
  1317.    */
  1318.   #include    "hack.h"
  1319.   
  1320. + #ifdef OVLB
  1321. + 
  1322.   static const char kebabable[] = { S_XORN, S_DRAGON, S_NAGA, S_GIANT, 0 };
  1323.   
  1324.   /*
  1325. ***************
  1326. *** 168,173 ****
  1327. --- 170,178 ----
  1328.       return;
  1329.   }
  1330.   
  1331. + #endif /* OVLB */
  1332. + #ifdef OVL0
  1333. + 
  1334.   #define    Oselect(x)    if((otmp = m_carrying(mtmp, x))) return(otmp);
  1335.   
  1336.   #ifdef TOLKIEN
  1337. ***************
  1338. *** 352,357 ****
  1339. --- 357,365 ----
  1340.       else return(sbon+ACURR(A_DEX)-14);
  1341.   }
  1342.   
  1343. + #endif /* OVL0 */
  1344. + #ifdef OVL1
  1345. + 
  1346.   int
  1347.   dbon() {    /* damage bonus for strength */
  1348.   #ifdef POLYSELF
  1349. ***************
  1350. *** 367,369 ****
  1351. --- 375,379 ----
  1352.       else if(ACURR(A_STR) < 118) return(5);    /* up to 18/99 */
  1353.       else return(6);
  1354.   }
  1355. + 
  1356. + #endif /* OVL1 */
  1357. *** src/Old/were.c    Mon Feb 19 19:08:33 1990
  1358. --- src/were.c    Thu Jan 25 22:14:54 1990
  1359. ***************
  1360. *** 4,9 ****
  1361. --- 4,13 ----
  1362.   
  1363.   #include    "hack.h"
  1364.   
  1365. + static int FDECL(counter_were,(int));
  1366. + 
  1367. + #ifdef OVL0
  1368. + 
  1369.   void
  1370.   were_change(mon)
  1371.   register struct monst *mon;
  1372. ***************
  1373. *** 22,27 ****
  1374. --- 26,34 ----
  1375.           } else if(!rn2(30) || Protection_from_shape_changers) new_were(mon);
  1376.   }
  1377.   
  1378. + #endif /* OVL0 */
  1379. + #ifdef OVLB
  1380. + 
  1381.   static int
  1382.   counter_were(pm)
  1383.   int pm;
  1384. ***************
  1385. *** 108,110 ****
  1386. --- 115,119 ----
  1387.       (void) polymon(u.ulycn);
  1388.   }
  1389.   #endif
  1390. + 
  1391. + #endif /* OVLB */
  1392. *** src/Old/wield.c    Mon Feb 19 19:08:53 1990
  1393. --- src/wield.c    Sun Jan 21 13:58:49 1990
  1394. ***************
  1395. *** 65,71 ****
  1396.           You("wield the cockatrice corpse in your bare %s.",
  1397.               makeplural(body_part(HAND)));
  1398.           You("turn to stone...");
  1399. !         killer="cockatrice corpse";
  1400.           done(STONING);
  1401.       } else if(uarms && bimanual(wep))
  1402.           You("cannot wield a two-handed %s and hold a shield.",
  1403. --- 65,72 ----
  1404.           You("wield the cockatrice corpse in your bare %s.",
  1405.               makeplural(body_part(HAND)));
  1406.           You("turn to stone...");
  1407. !         killer_format = KILLED_BY;
  1408. !         killer="touching a cockatrice corpse";
  1409.           done(STONING);
  1410.       } else if(uarms && bimanual(wep))
  1411.           You("cannot wield a two-handed %s and hold a shield.",
  1412. ***************
  1413. *** 114,120 ****
  1414.       else if (uwep->spe > -6) {
  1415.           Your("%s!", aobjnam(uwep, "corrode"));
  1416.           uwep->spe--;
  1417. !     } else    Your("%s quite rusted now.", aobjnam(uwep, "look"));
  1418.   }
  1419.   
  1420.   int
  1421. --- 115,121 ----
  1422.       else if (uwep->spe > -6) {
  1423.           Your("%s!", aobjnam(uwep, "corrode"));
  1424.           uwep->spe--;
  1425. !     } else    Your("%s quite rusted now.", aobjnam(uwep, Blind ? "feel" : "look"));
  1426.   }
  1427.   
  1428.   int
  1429. ***************
  1430. *** 124,132 ****
  1431.   {
  1432.       register const char *color = Hallucination ? hcolor() :
  1433.                        (amount < 0) ? black : blue;
  1434. !     register char *xtime;
  1435.   
  1436. !     if(!uwep || (uwep->olet != WEAPON_SYM && uwep->otyp != PICK_AXE)) {
  1437.           char buf[36];
  1438.   
  1439.           Sprintf(buf, "Your %s %s.", makeplural(body_part(HAND)),
  1440. --- 125,134 ----
  1441.   {
  1442.       register const char *color = Hallucination ? hcolor() :
  1443.                        (amount < 0) ? black : blue;
  1444. !     register const char *xtime;
  1445.   
  1446. !     if(!uwep || (uwep->olet != WEAPON_SYM && uwep->otyp != PICK_AXE
  1447. !             && uwep->otyp != UNICORN_HORN)) {
  1448.           char buf[36];
  1449.   
  1450.           Sprintf(buf, "Your %s %s.", makeplural(body_part(HAND)),
  1451. ***************
  1452. *** 145,151 ****
  1453.   
  1454.       if(uwep->otyp == CRYSKNIFE && amount < 0) {
  1455.           uwep->otyp = WORM_TOOTH;
  1456. !         Your("weapon looks duller now.");
  1457.           return(1);
  1458.       }
  1459.   #endif
  1460. --- 147,153 ----
  1461.   
  1462.       if(uwep->otyp == CRYSKNIFE && amount < 0) {
  1463.           uwep->otyp = WORM_TOOTH;
  1464. !         Your("weapon seems duller now.");
  1465.           return(1);
  1466.       }
  1467.   #endif
  1468. *** src/Old/wizard.c    Mon Feb 19 19:09:10 1990
  1469. --- src/wizard.c    Tue Feb 13 18:41:41 1990
  1470. ***************
  1471. *** 1,4 ****
  1472. ! /*    SCCS Id: @(#)wizard.c    3.0    88/04/11
  1473.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1474.   /* NetHack may be freely redistributed.  See license for details. */
  1475.   
  1476. --- 1,4 ----
  1477. ! /*    SCCS Id: @(#)wizard.c    3.0    90/01/09
  1478.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1479.   /* NetHack may be freely redistributed.  See license for details. */
  1480.   
  1481. ***************
  1482. *** 8,13 ****
  1483. --- 8,15 ----
  1484.   
  1485.   #include "hack.h"
  1486.   
  1487. + #ifdef OVLB
  1488. + 
  1489.   #ifdef HARD
  1490.   /*    TODO:    Expand this list.    */
  1491.   static const int nasties[] = {
  1492. ***************
  1493. *** 20,30 ****
  1494.       };
  1495.   #endif /* HARD */
  1496.   
  1497. ! /*    TODO:    investigate this. */
  1498. ! static const char wizapp[] = {
  1499. !     S_HUMAN, S_DEMON, S_VAMPIRE, S_DRAGON, S_TROLL, S_UMBER,
  1500. !     S_XORN, S_XAN, S_COCKATRICE, S_EYE, S_NAGA, S_TRAPPER,
  1501. !     /* '1' /* Historical reference */ };
  1502.   
  1503.   /* If he has found the Amulet, make the wizard appear after some time */
  1504.   void
  1505. --- 22,38 ----
  1506.       };
  1507.   #endif /* HARD */
  1508.   
  1509. ! static const unsigned wizapp[] = {
  1510. !     PM_HUMAN, PM_WATER_DEMON, PM_VAMPIRE,
  1511. !     PM_RED_DRAGON, PM_TROLL, PM_UMBER_HULK,
  1512. !     PM_XORN, PM_XAN, PM_COCKATRICE,
  1513. !     PM_FLOATING_EYE,
  1514. !     PM_GUARDIAN_NAGA,
  1515. !     PM_TRAPPER
  1516. ! };
  1517. ! 
  1518. ! #endif /* OVLB */
  1519. ! #ifdef OVL0
  1520.   
  1521.   /* If he has found the Amulet, make the wizard appear after some time */
  1522.   void
  1523. ***************
  1524. *** 39,51 ****
  1525.               if(u.uhave_amulet) {
  1526.               mtmp->msleep = 0;
  1527.               if(dist(mtmp->mx,mtmp->my) > 2)
  1528. !                 pline(
  1529. !     "You get the creepy feeling that somebody noticed your taking the Amulet."
  1530.                   );
  1531.               return;
  1532.               }
  1533.   }
  1534.   
  1535.   int
  1536.   mon_has_amulet(mtmp)
  1537.   register struct monst *mtmp;
  1538. --- 47,62 ----
  1539.               if(u.uhave_amulet) {
  1540.               mtmp->msleep = 0;
  1541.               if(dist(mtmp->mx,mtmp->my) > 2)
  1542. !                 You(
  1543. !     "get the creepy feeling that somebody noticed your taking the Amulet."
  1544.                   );
  1545.               return;
  1546.               }
  1547.   }
  1548.   
  1549. + #endif /* OVL0 */
  1550. + #ifdef OVLB
  1551. + 
  1552.   int
  1553.   mon_has_amulet(mtmp)
  1554.   register struct monst *mtmp;
  1555. ***************
  1556. *** 86,91 ****
  1557. --- 97,105 ----
  1558.                   /* teleport to it and pick it up */
  1559.                   remove_monster(mtmp->mx, mtmp->my);
  1560.                   place_monster(mtmp, otmp->ox, otmp->oy);
  1561. +                 if (cansee(mtmp->mx, mtmp->my))
  1562. +                 pline("%s picks up %s.", Monnam(mtmp),
  1563. +                                 xname(otmp));
  1564.                   freeobj(otmp);
  1565.                   mpickobj(mtmp, otmp);
  1566.                   pmon(mtmp);
  1567. ***************
  1568. *** 100,106 ****
  1569.       /* secondary goal - stayin' alive */
  1570.   
  1571.       /* if wounded, hole up on or near the stairs (to block them) */
  1572. !     if(mtmp->mhp < 20 + rnd(10))
  1573.           if (mtmp->mx != xupstair && mtmp->my != yupstair)
  1574.           mnearto(mtmp,xupstair,yupstair,TRUE);
  1575.   
  1576. --- 114,121 ----
  1577.       /* secondary goal - stayin' alive */
  1578.   
  1579.       /* if wounded, hole up on or near the stairs (to block them) */
  1580. !     /* unless, of course, there are no stairs (e.g. endlevel */
  1581. !     if(mtmp->mhp < 20 + rnd(10) && (xupstair || yupstair))
  1582.           if (mtmp->mx != xupstair && mtmp->my != yupstair)
  1583.           mnearto(mtmp,xupstair,yupstair,TRUE);
  1584.   
  1585. ***************
  1586. *** 131,138 ****
  1587.   
  1588.       for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
  1589.           mtmp->msleep = 0;
  1590. !         if(mtmp->mfroz && !rn2(5))
  1591. !             mtmp->mfroz = 0;
  1592.       }
  1593.   }
  1594.   
  1595. --- 146,155 ----
  1596.   
  1597.       for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
  1598.           mtmp->msleep = 0;
  1599. !         if(!mtmp->mcanmove && !rn2(5)) {
  1600. !             mtmp->mfrozen = 0;
  1601. !             mtmp->mcanmove = 1;
  1602. !         }
  1603.       }
  1604.   }
  1605.   
  1606. ***************
  1607. *** 148,153 ****
  1608. --- 165,171 ----
  1609.               mtmp2->minvent->spe = -1;
  1610.           }
  1611.           unpmon(mtmp2);
  1612. +         mtmp2->m_ap_type = M_AP_MONSTER;
  1613.           mtmp2->mappearance = wizapp[rn2(SIZE(wizapp))];
  1614.           pmon(mtmp2);
  1615.       }
  1616. ***************
  1617. *** 262,308 ****
  1618.   
  1619.   const char *random_malediction[] = {
  1620.       "Hell shall soon claim thy remains,",
  1621. !     "I chortle at thee, pathetic",
  1622. !     "Prepare to die,",
  1623.       "Resistance is useless,",
  1624.       "Surrender or die, thou",
  1625. !     "There shall be no mercy, yon",
  1626.       "Thou shalt repent of thy cunning,",
  1627.       "Thou art as a flea to me,",
  1628.       "Thou art doomed,",
  1629.       "Thy fate is sealed,",
  1630.       "Verily, thou shalt be one dead"
  1631. ! /*    "Go play leapfrog with a unicorn,", */
  1632.   };
  1633.   
  1634. ! /* Insult the player */
  1635.   void
  1636.   cuss(mtmp)
  1637.   register struct monst    *mtmp;
  1638.   {
  1639. !     switch (rn2(5)) {
  1640. !         case 0: pline("%s casts aspersions on your ancestry.",
  1641. !               Monnam(mtmp));
  1642. !             break;
  1643. !         case 1: pline("%s laughs fiendishly.", /* typical bad guy action */
  1644. !               Monnam(mtmp));
  1645. !             break;
  1646. !         default:
  1647. !             if (u.uhave_amulet && !rn2(SIZE(random_insult)))
  1648. !             pline("\"Relinquish the amulet, %s!\"",
  1649. !                   random_insult[rn2(SIZE(random_insult))]);
  1650. !             else if (u.uhp < 5 && !rn2(2))    /* Panic */
  1651. !             pline(rn2(2) ?
  1652. !                 "\"Even now thy life force ebbs, %s!\"" :
  1653. !                 "\"Savor thy breath, %s, it be thine last!\"",
  1654. !                   random_insult[rn2(SIZE(random_insult))]);
  1655. !             else if (mtmp->mhp < 5 && !rn2(2))    /* Parthian shot */
  1656. !             pline(rn2(2) ?
  1657. !                 "\"I shall return.\"" :
  1658. !                 "\"I'll be back.\"");
  1659. !             else
  1660. !             pline("\"%s %s!\"",
  1661. !                   random_malediction[rn2(SIZE(random_malediction))],
  1662. !                   random_insult[rn2(SIZE(random_insult))]);
  1663.       }
  1664.   }
  1665. --- 280,357 ----
  1666.   
  1667.   const char *random_malediction[] = {
  1668.       "Hell shall soon claim thy remains,",
  1669. !     "I chortle at thee, thou pathetic",
  1670. !     "Prepare to die, thou ",
  1671.       "Resistance is useless,",
  1672.       "Surrender or die, thou",
  1673. !     "There shall be no mercy, thou",
  1674.       "Thou shalt repent of thy cunning,",
  1675.       "Thou art as a flea to me,",
  1676.       "Thou art doomed,",
  1677.       "Thy fate is sealed,",
  1678.       "Verily, thou shalt be one dead"
  1679. ! };
  1680. ! 
  1681. ! #ifdef SOUNDS
  1682. ! const char *demonic_malediction[] = {
  1683. !     "I first mistook thee for a statue, when I regarded thy head of stone.",
  1684. !     "Come here often?",
  1685. !     "Dost pain excite thee?  Wouldst thou prefer the whip?",
  1686. !     "Thinkest thou it shall tickle as I rip out thy lungs?",
  1687. !     "Eat slime and die!",
  1688. !     "Go ahead, fetch thy mama!  I shall wait.",
  1689. !     "Go play leapfrog with a herd of unicorns!",
  1690. !     "Hast thou been drinking, or art thou always so clumsy?",
  1691. !     "This time I shall let thee off with a spanking, but let it not happen again.",
  1692. !     "I've met smarter (and prettier) acid blobs.",
  1693. !     "Look!  Thy bootlace is undone!",
  1694. !     "Mercy!  Dost thou wish me to die of laughter?",
  1695. !     "Run away!  Live to flee another day!",    
  1696. !     "Thou hadst best fight better than thou canst dress!",
  1697. !     "Twixt thy cousin and thee, Medusa is the prettier.",
  1698. !     "Methinks thou wert unnaturally interested in yon corpse back there, eh, varlet?",
  1699. !     "Up thy nose with a rubber hose!",
  1700. !     "Verily, thy corpse could not smell worse!",
  1701. !     "Wait!  I shall polymorph into a grid bug to give thee a fighting chance!",
  1702. !     "Why search for the Amulet?  Thou wouldst but lose it, cretin.",
  1703.   };
  1704. + #endif
  1705.   
  1706. ! /* Insult or intimidate the player */
  1707.   void
  1708.   cuss(mtmp)
  1709.   register struct monst    *mtmp;
  1710.   {
  1711. ! #ifdef SOUNDS
  1712. !     if (mtmp->iswiz) {
  1713. ! #endif
  1714. !         if (!rn2(5))  /* typical bad guy action */
  1715. !         pline("%s laughs fiendishly.", Monnam(mtmp));
  1716. !         else 
  1717. !         if (u.uhave_amulet && !rn2(SIZE(random_insult)))
  1718. !             pline("\"Relinquish the amulet, %s!\"",
  1719. !               random_insult[rn2(SIZE(random_insult))]);
  1720. !         else if (u.uhp < 5 && !rn2(2))    /* Panic */
  1721. !             pline(rn2(2) ?
  1722. !               "\"Even now thy life force ebbs, %s!\"" :
  1723. !               "\"Savor thy breath, %s, it be thine last!\"",
  1724. !               random_insult[rn2(SIZE(random_insult))]);
  1725. !         else if (mtmp->mhp < 5 && !rn2(2))    /* Parthian shot */
  1726. !             verbalize(rn2(2) ?
  1727. !                   "I shall return." :
  1728. !                   "I'll be back.");
  1729. !         else
  1730. !             pline("\"%s %s!\"",
  1731. !               random_malediction[rn2(SIZE(random_malediction))],
  1732. !               random_insult[rn2(SIZE(random_insult))]);
  1733. ! #ifdef SOUNDS
  1734. !     } else {
  1735. !         if (!rn2(5))
  1736. !         kludge("%s casts aspersions on your ancestry.", Monnam(mtmp));
  1737. !         else
  1738. !         verbalize(demonic_malediction[rn2(SIZE(demonic_malediction))]);
  1739.       }
  1740. + #endif
  1741.   }
  1742. + 
  1743. + #endif /* OVLB */
  1744. *** src/Old/worm.c    Mon Feb 19 19:09:31 1990
  1745. --- src/worm.c    Sun Jan 28 19:32:59 1990
  1746. ***************
  1747. *** 7,12 ****
  1748. --- 7,36 ----
  1749.   #ifdef WORM
  1750.   #include "wseg.h"
  1751.   
  1752. + static void FDECL(remseg,(struct monst *,struct wseg *));
  1753. + 
  1754. + /* Each tailed worm has a wormno.  This is used as an index for the following
  1755. +  * arrays:
  1756. +  * wsegs: the start of a a linked list of segments, located at the tail.
  1757. +  * wheads: the end of a linked list of segments, located at the head.  Putting
  1758. +  *    the tail of the list at the head of the worm and vice versa is an
  1759. +  *    endless source of confusion, but necessary.  From now on, we will use
  1760. +  *    "start" and "end" to refer to the list, and "head" and "tail" to refer
  1761. +  *    to the worm.
  1762. +  * wgrowtime: obvious.
  1763. +  *
  1764. +  * When a worm is moved, we add a new segment at the head (end of the list)
  1765. +  * and (unless we want it to grow) delete the segment at the tail (beginning
  1766. +  * of the list).  This new head segment is located in the same square as
  1767. +  * the actual head of the worm (thus requiring a special case when setting
  1768. +  * level.monsters upon worm movement).  If we do want to grow the worm, we
  1769. +  * don't delete the tail segment, and we give the worm extra hit points,
  1770. +  * which possibly go into its maximum.
  1771. +  *
  1772. +  * Non-moving worms (worm_nomove) shrink instead of grow as their tails keep
  1773. +  * going while their heads are stopped short.  Delete the tail segment,
  1774. +  * and remove hit points from the worm.
  1775. +  */
  1776.   struct wseg *wsegs[32] = DUMMY, *wheads[32] = DUMMY, *m_atseg = 0;
  1777.   long wgrowtime[32] = DUMMY;
  1778.   
  1779. ***************
  1780. *** 193,199 ****
  1781. --- 217,231 ----
  1782.           wsegs[tmp2] = wsegs[tmp];
  1783.           wgrowtime[tmp2] = 0;
  1784.       }
  1785. +     /* do-loop: go from the tail to the head.  Segments close to the tail
  1786. +      * either die or become part of worm 2.  We stop at the hit segment
  1787. +      * and this loop never goes down the entire length of the worm.
  1788. +      */
  1789.       do {
  1790. +         /* The segment immediately next to (tailwards) the one hit, */
  1791. +         /* becoes the head of the new second worm.  Note: at this point, */
  1792. +         /* wtmp->nseg is the one you hit, wtmp is immediately tailwards, */
  1793. +         /* and wtmp->nseg->nseg is immediately headwards. */
  1794.           if(wtmp->nseg->wx == x && wtmp->nseg->wy == y){
  1795.           if(tmp2) wheads[tmp2] = wtmp;
  1796.           wsegs[tmp] = wtmp->nseg->nseg;
  1797. ***************
  1798. *** 202,208 ****
  1799.           if(tmp2) {
  1800.               kludge("You cut %s in half.", mon_nam(mtmp));
  1801.           /* devalue the monster level of both halves of the worm */
  1802. !             mtmp->m_lev = (mtmp->m_lev <= 2) ? 2 : mtmp->m_lev - 2;
  1803.               mtmp2->m_lev = mtmp->m_lev;
  1804.           /* calculate the mhp on the new (lower) monster level */
  1805.               mtmp2->mhpmax = mtmp2->mhp = d((int)mtmp2->m_lev, 8);
  1806. --- 234,240 ----
  1807.           if(tmp2) {
  1808.               kludge("You cut %s in half.", mon_nam(mtmp));
  1809.           /* devalue the monster level of both halves of the worm */
  1810. !             mtmp->m_lev = (mtmp->m_lev <= 3) ? 2 : mtmp->m_lev - 2;
  1811.               mtmp2->m_lev = mtmp->m_lev;
  1812.           /* calculate the mhp on the new (lower) monster level */
  1813.               mtmp2->mhpmax = mtmp2->mhp = d((int)mtmp2->m_lev, 8);
  1814. ***************
  1815. *** 219,226 ****
  1816. --- 251,261 ----
  1817.           mtmp->mhp /= 2;
  1818.           return;
  1819.           }
  1820. +     /* Worm segments which are closer to the tail than the one you hit, */
  1821. +     /* get either deleted or transferred from the old to new worms */
  1822.           wtmp2 = wtmp->nseg;
  1823.           if(!tmp2) remseg(mtmp, wtmp);
  1824. +         else place_worm_seg(mtmp2, wtmp->wx, wtmp->wy);
  1825.           wtmp = wtmp2;
  1826.       } while(wtmp->nseg);
  1827.       panic("Cannot find worm segment");
  1828. *** src/Old/worn.c    Mon Feb 19 19:09:52 1990
  1829. --- src/worn.c    Mon Jan 22 21:02:41 1990
  1830. ***************
  1831. *** 35,42 ****
  1832.   register struct obj *obj;
  1833.   long mask;
  1834.   {
  1835. !     register struct worn *wp;
  1836. !     register struct obj *oobj;
  1837.   
  1838.       for(wp = worn; wp->w_mask; wp++) if(wp->w_mask & mask) {
  1839.           oobj = *(wp->w_obj);
  1840. --- 35,42 ----
  1841.   register struct obj *obj;
  1842.   long mask;
  1843.   {
  1844. !     register const struct worn *wp;
  1845. !     register struct obj *oobj = 0;
  1846.   
  1847.       for(wp = worn; wp->w_mask; wp++) if(wp->w_mask & mask) {
  1848.           oobj = *(wp->w_obj);
  1849. ***************
  1850. *** 71,87 ****
  1851.        */
  1852.       if (Inhell && !Fire_resistance) {
  1853.           pline(crispy);
  1854. !         killer = "loss of fire protection";
  1855.           done(BURNING);
  1856.           /* If we're here they survived with life saving, so put the
  1857.            * weapon they just unwielded back in their hands...
  1858.            */
  1859. !         if (oobj->otyp != DRAGON_SCALE_MAIL
  1860.                   && oobj->otyp != RIN_FIRE_RESISTANCE
  1861.   #ifdef NAMED_ITEMS
  1862.                   && !defends(AD_FIRE, oobj)
  1863.   #endif
  1864. !                 && oobj->corpsenm != PM_RED_DRAGON)
  1865.               impossible("lost FR from a non-FR item?");
  1866.           setworn(oobj, mask);
  1867.       }
  1868. --- 71,88 ----
  1869.        */
  1870.       if (Inhell && !Fire_resistance) {
  1871.           pline(crispy);
  1872. !         killer_format = NO_KILLER_PREFIX;
  1873. !         killer = self_pronoun("lost %s fire protection in hell","his");
  1874.           done(BURNING);
  1875.           /* If we're here they survived with life saving, so put the
  1876.            * weapon they just unwielded back in their hands...
  1877.            */
  1878. !         if (!oobj || (oobj->otyp != DRAGON_SCALE_MAIL
  1879.                   && oobj->otyp != RIN_FIRE_RESISTANCE
  1880.   #ifdef NAMED_ITEMS
  1881.                   && !defends(AD_FIRE, oobj)
  1882.   #endif
  1883. !                 && oobj->corpsenm != PM_RED_DRAGON))
  1884.               impossible("lost FR from a non-FR item?");
  1885.           setworn(oobj, mask);
  1886.       }
  1887. ***************
  1888. *** 92,98 ****
  1889.   setnotworn(obj)
  1890.   register struct obj *obj;
  1891.   {
  1892. !     register struct worn *wp;
  1893.   
  1894.       if (!obj) return;
  1895.       for(wp = worn; wp->w_mask; wp++)
  1896. --- 93,99 ----
  1897.   setnotworn(obj)
  1898.   register struct obj *obj;
  1899.   {
  1900. !     register const struct worn *wp;
  1901.   
  1902.       if (!obj) return;
  1903.       for(wp = worn; wp->w_mask; wp++)
  1904. ***************
  1905. *** 111,117 ****
  1906.        */
  1907.       if (Inhell && !Fire_resistance && obj->olet != AMULET_SYM) {
  1908.           pline(crispy);
  1909. !         killer = "loss of fire protection";
  1910.           done(BURNING);
  1911.           /* Survived with lifesaving, etc...; there's no general way
  1912.            * to undo the setnotworn()--we can't re-wear/wield the
  1913. --- 112,119 ----
  1914.        */
  1915.       if (Inhell && !Fire_resistance && obj->olet != AMULET_SYM) {
  1916.           pline(crispy);
  1917. !         killer_format = NO_KILLER_PREFIX;
  1918. !         killer = self_pronoun("lost %s fire protection in hell","his");
  1919.           done(BURNING);
  1920.           /* Survived with lifesaving, etc...; there's no general way
  1921.            * to undo the setnotworn()--we can't re-wear/wield the
  1922. *** src/Old/search.c    Mon Feb 19 18:58:10 1990
  1923. --- src/search.c    Sat Feb  3 21:37:33 1990
  1924. ***************
  1925. *** 7,12 ****
  1926. --- 7,16 ----
  1927.   #  include "artifact.h"
  1928.   #endif
  1929.   
  1930. + static void FDECL(findone,(XCHAR_P,XCHAR_P,int *));
  1931. + 
  1932. + #ifdef OVLB
  1933. + 
  1934.   static void
  1935.   findone(zx,zy,num)
  1936.   xchar zx,zy;
  1937. ***************
  1938. *** 66,78 ****
  1939.       num = 0;
  1940.       for(zy = ly; zy <= hy; zy++)
  1941.           for(zx = lx; zx <= hx; zx++)
  1942. !             findone(zx,zy,&num);
  1943.       for(zy = ly2; zy <= hy2; zy++)
  1944.           for(zx = lx2; zx <= hx2; zx++)
  1945. !             findone(zx,zy,&num);
  1946.       return(num);
  1947.   }
  1948.   
  1949.   int
  1950.   dosearch()
  1951.   {
  1952. --- 70,87 ----
  1953.       num = 0;
  1954.       for(zy = ly; zy <= hy; zy++)
  1955.           for(zx = lx; zx <= hx; zx++)
  1956. !             if(isok(zx,zy))
  1957. !                 findone(zx,zy,&num);
  1958.       for(zy = ly2; zy <= hy2; zy++)
  1959.           for(zx = lx2; zx <= hx2; zx++)
  1960. !             if(isok(zx,zy))
  1961. !                 findone(zx,zy,&num);
  1962.       return(num);
  1963.   }
  1964.   
  1965. + #endif /* OVLB */
  1966. + #ifdef OVL1
  1967. + 
  1968.   int
  1969.   dosearch()
  1970.   {
  1971. ***************
  1972. *** 98,104 ****
  1973.               pline("What are you looking for?  The exit?");
  1974.       } else
  1975.           for(x = u.ux-1; x < u.ux+2; x++)
  1976. !           for(y = u.uy-1; y < u.uy+2; y++)
  1977.           if(x != u.ux || y != u.uy) {
  1978.               if(levl[x][y].typ == SDOOR) {
  1979.   #ifdef NAMED_ITEMS
  1980. --- 107,114 ----
  1981.               pline("What are you looking for?  The exit?");
  1982.       } else
  1983.           for(x = u.ux-1; x < u.ux+2; x++)
  1984. !           for(y = u.uy-1; y < u.uy+2; y++) {
  1985. !         if(!isok(x,y)) continue;
  1986.           if(x != u.ux || y != u.uy) {
  1987.               if(levl[x][y].typ == SDOOR) {
  1988.   #ifdef NAMED_ITEMS
  1989. ***************
  1990. *** 153,158 ****
  1991. --- 163,169 ----
  1992.                           You("find %s posing as a statue.",
  1993.                             defmonnam(mtmp));
  1994.                       delobj(otmp);
  1995. +                     newsym(x, y);
  1996.                         }
  1997.                       deltrap(trap);
  1998.                       return(1);
  1999. ***************
  2000. *** 164,172 ****
  2001. --- 175,187 ----
  2002.                   }
  2003.               }
  2004.           }
  2005. +           }
  2006.       return(1);
  2007.   }
  2008.   
  2009. + #endif /* OVL1 */
  2010. + #ifdef OVLB
  2011. + 
  2012.   int
  2013.   doidtrap() {
  2014.       register struct trap *trap;
  2015. ***************
  2016. *** 180,186 ****
  2017.               if(u.dz)
  2018.               if((u.dz < 0) != (is_maze_lev && trap->ttyp == TRAPDOOR))
  2019.                   continue;
  2020. !             pline("That is a%s.",traps[ Hallucination ? rn2(TRAPNUM-3)+2 :
  2021.               trap->ttyp]);
  2022.               return 0;
  2023.           }
  2024. --- 195,201 ----
  2025.               if(u.dz)
  2026.               if((u.dz < 0) != (is_maze_lev && trap->ttyp == TRAPDOOR))
  2027.                   continue;
  2028. !             pline("That is a%s.",traps[ Hallucination ? rn2(TRAPNUM-3)+3 :
  2029.               trap->ttyp]);
  2030.               return 0;
  2031.           }
  2032. ***************
  2033. *** 188,193 ****
  2034. --- 203,211 ----
  2035.       return 0;
  2036.   }
  2037.   
  2038. + #endif /* OVLB */
  2039. + #ifdef OVL0
  2040. + 
  2041.   void
  2042.   wakeup(mtmp)
  2043.   register struct monst *mtmp;
  2044. ***************
  2045. *** 198,203 ****
  2046. --- 216,224 ----
  2047.       if(mtmp->mimic) seemimic(mtmp);
  2048.   }
  2049.   
  2050. + #endif /* OVL0 */
  2051. + #ifdef OVLB
  2052. + 
  2053.   /* NOTE: we must check if(mtmp->mimic) before calling this routine */
  2054.   void
  2055.   seemimic(mtmp)
  2056. ***************
  2057. *** 204,210 ****
  2058. --- 225,234 ----
  2059.   register struct monst *mtmp;
  2060.   {
  2061.       mtmp->mimic = 0;
  2062. +     mtmp->m_ap_type = M_AP_NOTHING;
  2063.       mtmp->mappearance = 0;
  2064.       unpmon(mtmp);
  2065.       pmon(mtmp);
  2066.   }
  2067. + 
  2068. + #endif /* OVLB */
  2069.  
  2070.