home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / games / volume16 / nethack31 / patch2c / patches02i
Text File  |  1993-06-16  |  57KB  |  2,128 lines
  1. *** /tmp/da11426    Tue Jun  1 16:16:08 1993
  2. --- src/topten.c    Tue May 25 15:33:42 1993
  3. ***************
  4. *** 36,42 ****
  5.   #define    POINTSMIN    1    /* must be > 0 */
  6.   #define    ENTRYMAX    100    /* must be >= 10 */
  7.   
  8. ! #ifndef MICRO
  9.   #define    PERS_IS_UID        /* delete for PERSMAX per name; now per uid */
  10.   #endif
  11.   struct toptenentry {
  12. --- 36,42 ----
  13.   #define    POINTSMIN    1    /* must be > 0 */
  14.   #define    ENTRYMAX    100    /* must be >= 10 */
  15.   
  16. ! #if !defined(MICRO) && !defined(MAC)
  17.   #define    PERS_IS_UID        /* delete for PERSMAX per name; now per uid */
  18.   #endif
  19.   struct toptenentry {
  20. ***************
  21. *** 77,98 ****
  22.       /* note: fscanf() below must read the record's terminating newline */
  23.       final_fpos = tt->fpos = ftell(rfile);
  24.   #endif
  25.   #ifdef NO_SCAN_BRACK
  26.       if(fscanf(rfile,"%6s %d %d %d %d %d %d %ld%*c%c%c %s %s%*c",
  27. - #  define TTFIELDS 13
  28.   #else
  29.       if(fscanf(rfile, "%6s %d %d %d %d %d %d %ld %c%c %[^,],%[^\n]%*c",
  30. - #  define TTFIELDS 12
  31.   #endif
  32.               tt->date, &tt->uid,
  33.               &tt->deathdnum, &tt->deathlev,
  34.               &tt->maxlvl, &tt->hp, &tt->maxhp, &tt->points,
  35.               &tt->plchar, &tt->sex,
  36. - #ifdef LATTICE    /* return value is broken also, sigh */
  37. -             tt->name, tt->death) < 1)
  38. - #else
  39.               tt->name, tt->death) != TTFIELDS)
  40. - #endif
  41.   #undef TTFIELDS
  42.           tt->points = 0;
  43.       else {
  44. --- 77,93 ----
  45.       /* note: fscanf() below must read the record's terminating newline */
  46.       final_fpos = tt->fpos = ftell(rfile);
  47.   #endif
  48. + #define TTFIELDS 12
  49.   #ifdef NO_SCAN_BRACK
  50.       if(fscanf(rfile,"%6s %d %d %d %d %d %d %ld%*c%c%c %s %s%*c",
  51.   #else
  52.       if(fscanf(rfile, "%6s %d %d %d %d %d %d %ld %c%c %[^,],%[^\n]%*c",
  53.   #endif
  54.               tt->date, &tt->uid,
  55.               &tt->deathdnum, &tt->deathlev,
  56.               &tt->maxlvl, &tt->hp, &tt->maxhp, &tt->points,
  57.               &tt->plchar, &tt->sex,
  58.               tt->name, tt->death) != TTFIELDS)
  59.   #undef TTFIELDS
  60.           tt->points = 0;
  61.       else {
  62. ***************
  63. *** 208,217 ****
  64.   
  65.   #if defined(WIZARD) || defined(EXPLORE_MODE)
  66.       if (wizard || discover) {
  67. !         raw_print("");
  68. !         raw_printf(
  69.             "Since you were in %s mode, the score list will not be checked.",
  70.               wizard ? "wizard" : "discover");
  71.           return;
  72.       }
  73.   #endif
  74. --- 203,214 ----
  75.   
  76.   #if defined(WIZARD) || defined(EXPLORE_MODE)
  77.       if (wizard || discover) {
  78. !         HUP {
  79. !         raw_print("");
  80. !         raw_printf(
  81.             "Since you were in %s mode, the score list will not be checked.",
  82.               wizard ? "wizard" : "discover");
  83. +         }
  84.           return;
  85.       }
  86.   #endif
  87. ***************
  88. *** 533,538 ****
  89. --- 530,543 ----
  90.           return;
  91.       }
  92.   
  93. + #ifdef    AMIGA
  94. +     {
  95. +         extern winid amii_rawprwin;
  96. +         init_nhwindows();
  97. +         amii_rawprwin = create_nhwindow( NHW_TEXT );
  98. +     }
  99. + #endif
  100. + 
  101.       /* If the score list isn't after a game, we never went through */
  102.       /* init_dungeons() */
  103.       if (wiz1_level.dlevel == 0) init_dungeons();
  104. ***************
  105. *** 556,562 ****
  106. --- 561,571 ----
  107.   #else
  108.           player0 = plname;
  109.           if(!*player0)
  110. + #ifdef AMIGA
  111. +             player0 = "all";    /* single user system */
  112. + #else
  113.               player0 = "hackplayer";
  114. + #endif
  115.           playerct = 1;
  116.           players = &player0;
  117.   #endif
  118. ***************
  119. *** 602,607 ****
  120. --- 611,621 ----
  121.                    hname);
  122.           }
  123.           }
  124. + #ifdef    AMIGA
  125. +         display_nhwindow( amii_rawprwin, 1 );
  126. +         destroy_nhwindow( amii_rawprwin );
  127. +         amii_rawprwin = WIN_ERR;
  128. + #endif
  129.           return;
  130.       }
  131.   
  132. ***************
  133. *** 651,656 ****
  134. --- 665,675 ----
  135.           break;
  136.       }
  137.   #endif /* nonsense /**/
  138. + #ifdef    AMIGA
  139. +     display_nhwindow( amii_rawprwin, 1 );
  140. +     destroy_nhwindow( amii_rawprwin );
  141. +     amii_rawprwin = WIN_ERR;
  142. + #endif
  143.   }
  144.   
  145.   static int
  146. *** /tmp/da11442    Tue Jun  1 16:16:12 1993
  147. --- src/trap.c    Tue Jun  1 10:47:53 1993
  148. ***************
  149. *** 1,8 ****
  150. ! /*    SCCS Id: @(#)trap.c    3.1    93/02/13    */
  151.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  152.   /* NetHack may be freely redistributed.  See license for details. */
  153.   
  154. ! #include    "hack.h"
  155.   
  156.   #ifdef OVLB
  157.   const char *traps[TRAPNUM] = {
  158. --- 1,8 ----
  159. ! /*    SCCS Id: @(#)trap.c    3.1    93/05/25    */
  160.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  161.   /* NetHack may be freely redistributed.  See license for details. */
  162.   
  163. ! #include "hack.h"
  164.   
  165.   #ifdef OVLB
  166.   const char *traps[TRAPNUM] = {
  167. ***************
  168. *** 125,133 ****
  169. --- 125,135 ----
  170.   register int x, y, typ;
  171.   {
  172.       register struct trap *ttmp;
  173. +     register struct rm *lev;
  174.       register boolean oldplace;
  175.   
  176.       if ((ttmp = t_at(x,y)) != 0) {
  177. +         if (ttmp->ttyp == MAGIC_PORTAL) return (struct trap *)0;
  178.           oldplace = TRUE;
  179.           if (u.utrap && (x == u.ux) && (y == u.uy) && 
  180.             ((u.utraptype == TT_BEARTRAP && typ != BEAR_TRAP) ||
  181. ***************
  182. *** 148,156 ****
  183.           case PIT:
  184.           case SPIKED_PIT:
  185.           case TRAPDOOR:
  186. !         levl[x][y].doormask = 0;   /* subsumes altarmask, icedpool... */
  187. !         if (IS_ROOM(levl[x][y].typ))
  188. !             levl[x][y].typ = ROOM;
  189.           break;
  190.       }
  191.       ttmp->tseen = 0;
  192. --- 150,172 ----
  193.           case PIT:
  194.           case SPIKED_PIT:
  195.           case TRAPDOOR:
  196. !         lev = &levl[x][y];
  197. !         lev->doormask = 0;    /* subsumes altarmask, icedpool... */
  198. !         if (IS_ROOM(lev->typ)) /* && !IS_AIR(lev->typ) */
  199. !             lev->typ = ROOM;
  200. ! #if defined(POLYSELF) || defined(MUSE)
  201. !         /*
  202. !          * some cases which can happen when digging
  203. !          * down while phazing thru solid areas
  204. !          */
  205. !         else if (lev->typ == STONE || lev->typ == SCORR)
  206. !             lev->typ = CORR;
  207. !         else if (IS_WALL(lev->typ) ||
  208. !              IS_DOOR(lev->typ) || lev->typ == SDOOR)
  209. !             lev->typ = level.flags.is_maze_lev ? ROOM :
  210. !                    level.flags.is_cavernous_lev ? CORR : DOOR;
  211. ! #endif
  212. !         unearth_objs(x, y);
  213.           break;
  214.       }
  215.       ttmp->tseen = 0;
  216. ***************
  217. *** 181,187 ****
  218.   # endif
  219.       tmp2 = !sobj_at(BOULDER,x,y) && (trapok || !t_at(x,y));
  220.       tmp3 = !(is_pool(x,y) &&
  221. !            !(Levitation || Wwalking || Magical_breathing
  222.   # ifdef POLYSELF
  223.            || is_flyer(uasmon) || is_swimmer(uasmon)
  224.            || is_clinger(uasmon)
  225. --- 197,203 ----
  226.   # endif
  227.       tmp2 = !sobj_at(BOULDER,x,y) && (trapok || !t_at(x,y));
  228.       tmp3 = !(is_pool(x,y) &&
  229. !            !(Levitation || Wwalking || Amphibious
  230.   # ifdef POLYSELF
  231.            || is_flyer(uasmon) || is_swimmer(uasmon)
  232.            || is_clinger(uasmon)
  233. ***************
  234. *** 200,206 ****
  235.           !MON_AT(x, y) &&
  236.           !sobj_at(BOULDER,x,y) && (trapok || !t_at(x,y)) &&
  237.           !(is_pool(x,y) &&
  238. !         !(Levitation || Wwalking || Magical_breathing
  239.   # ifdef POLYSELF
  240.             || is_flyer(uasmon) || is_swimmer(uasmon)
  241.             || is_clinger(uasmon)
  242. --- 216,222 ----
  243.           !MON_AT(x, y) &&
  244.           !sobj_at(BOULDER,x,y) && (trapok || !t_at(x,y)) &&
  245.           !(is_pool(x,y) &&
  246. !         !(Levitation || Wwalking || Amphibious
  247.   # ifdef POLYSELF
  248.             || is_flyer(uasmon) || is_swimmer(uasmon)
  249.             || is_clinger(uasmon)
  250. ***************
  251. *** 273,279 ****
  252.       } while(!rn2(4) && newlevel < dunlevs_in_dungeon(&u.uz));
  253.   
  254.       if(td) pline("A trap door opens up under you!");
  255. !     else pline("The floor opens up under you!");
  256.   
  257.       if(Levitation || u.ustuck || !Can_fall_thru(&u.uz)
  258.   #ifdef POLYSELF
  259. --- 289,295 ----
  260.       } while(!rn2(4) && newlevel < dunlevs_in_dungeon(&u.uz));
  261.   
  262.       if(td) pline("A trap door opens up under you!");
  263. !     else pline("The %s opens up under you!", surface(u.ux,u.uy));
  264.   
  265.       if(Levitation || u.ustuck || !Can_fall_thru(&u.uz)
  266.   #ifdef POLYSELF
  267. ***************
  268. *** 937,944 ****
  269.   
  270.           case FIRE_TRAP:
  271.               if (in_sight)
  272. !         pline("A tower of flame bursts from the floor under %s!",
  273. !                     mon_nam(mtmp));
  274.               if(resists_fire(mptr)) {
  275.                   if (in_sight) {
  276.                   shieldeff(mtmp->mx,mtmp->my);
  277. --- 953,960 ----
  278.   
  279.           case FIRE_TRAP:
  280.               if (in_sight)
  281. !              pline("A tower of flame bursts from the %s under %s!",
  282. !                 surface(mtmp->mx,mtmp->my), mon_nam(mtmp));
  283.               if(resists_fire(mptr)) {
  284.                   if (in_sight) {
  285.                   shieldeff(mtmp->mx,mtmp->my);
  286. ***************
  287. *** 954,959 ****
  288. --- 970,977 ----
  289.               (void) destroy_mitem(mtmp, SCROLL_CLASS, AD_FIRE);
  290.               (void) destroy_mitem(mtmp, SPBOOK_CLASS, AD_FIRE);
  291.               (void) destroy_mitem(mtmp, POTION_CLASS, AD_FIRE);
  292. +             if (is_ice(mtmp->mx,mtmp->my))
  293. +                 melt_ice(mtmp->mx,mtmp->my);
  294.               if (in_sight) seetrap(trap);
  295.               break;
  296.   
  297. ***************
  298. *** 1055,1060 ****
  299. --- 1073,1079 ----
  300.               break;
  301.   
  302.           case TELEP_TRAP:
  303. +             if(tele_restrict(mtmp)) break;
  304.           case MAGIC_PORTAL:
  305.   #ifdef WALKIES
  306.               if(teleport_pet(mtmp)) {
  307. ***************
  308. *** 1133,1139 ****
  309.                   break; /* monsters usually don't set it off */
  310.               if(is_flyer(mptr)) {
  311.                   if (in_sight) {
  312. !     pline("A trigger appears in a pile of soil below %s.", Monnam(mtmp));
  313.                       seetrap(trap);
  314.                   }
  315.                   if (rn2(3)) break;
  316. --- 1152,1158 ----
  317.                   break; /* monsters usually don't set it off */
  318.               if(is_flyer(mptr)) {
  319.                   if (in_sight) {
  320. !     pline("A trigger appears in a pile of soil below %s.", mon_nam(mtmp));
  321.                       seetrap(trap);
  322.                   }
  323.                   if (rn2(3)) break;
  324. ***************
  325. *** 1345,1353 ****
  326.           default:
  327.               dotrap(trap);
  328.       }
  329. !     if(!flags.nopick && OBJ_AT(u.ux, u.uy) &&
  330. !        !Is_airlevel(&u.uz) && !Is_waterlevel(&u.uz) &&
  331. !        (!is_pool(u.ux,u.uy) || Underwater))
  332.           pickup(1);
  333.       return 0;
  334.   }
  335. --- 1364,1370 ----
  336.           default:
  337.               dotrap(trap);
  338.       }
  339. !     if(!Is_airlevel(&u.uz) && !Is_waterlevel(&u.uz))
  340.           pickup(1);
  341.       return 0;
  342.   }
  343. ***************
  344. *** 1404,1409 ****
  345. --- 1421,1439 ----
  346.       (void) safe_teleds();
  347.   }
  348.   
  349. + boolean
  350. + tele_restrict(mon)
  351. + struct monst *mon;
  352. + {
  353. +     if(level.flags.noteleport) {
  354. +         if (canseemon(mon))
  355. +             pline("A mysterious force prevents %s from teleporting!",
  356. +             mon_nam(mon));
  357. +         return TRUE;
  358. +     }
  359. +     return FALSE;
  360. + }
  361. + 
  362.   void
  363.   teleds(nux, nuy)
  364.   register int nux,nuy;
  365. ***************
  366. *** 1423,1433 ****
  367.           u.uundetected = 0;
  368.       if (u.usym == S_MIMIC_DEF) u.usym = S_MIMIC;
  369.   #endif
  370. -     if(Punished) placebc();
  371.       if(u.uswallow){
  372.           u.uswldtim = u.uswallow = 0;
  373.           docrt();
  374.       }
  375.       initrack(); /* teleports mess up tracking monsters without this */
  376.       /*
  377.        *  Make sure the hero disappears from the old location.  This will
  378. --- 1453,1463 ----
  379.           u.uundetected = 0;
  380.       if (u.usym == S_MIMIC_DEF) u.usym = S_MIMIC;
  381.   #endif
  382.       if(u.uswallow){
  383.           u.uswldtim = u.uswallow = 0;
  384.           docrt();
  385.       }
  386. +     if(Punished) placebc();
  387.       initrack(); /* teleports mess up tracking monsters without this */
  388.       /*
  389.        *  Make sure the hero disappears from the old location.  This will
  390. ***************
  391. *** 1446,1452 ****
  392.   {
  393.       struct trap *trap;
  394.       boolean castit = FALSE;
  395. !     register int sp_no = 0;
  396.   
  397.       trap = t_at(u.ux, u.uy);
  398.       if (trap && (!trap->tseen || trap->ttyp != TELEP_TRAP))
  399. --- 1476,1482 ----
  400.   {
  401.       struct trap *trap;
  402.       boolean castit = FALSE;
  403. !     register int sp_no = 0, energy;
  404.   
  405.       trap = t_at(u.ux, u.uy);
  406.       if (trap && (!trap->tseen || trap->ttyp != TELEP_TRAP))
  407. ***************
  408. *** 1503,1514 ****
  409.       }
  410.   
  411.       if(!trap && (u.uhunger <= 100 || ACURR(A_STR) < 6)) {
  412. -         You("lack the strength for a teleport spell.");
  413.   #ifdef WIZARD
  414. !         if(!wizard)
  415.   #endif
  416. !         return(1);
  417.       }
  418.       if(!trap &&
  419.         check_capacity("Your concentration falters from carrying so much."))
  420.           return 1;
  421. --- 1533,1563 ----
  422.       }
  423.   
  424.       if(!trap && (u.uhunger <= 100 || ACURR(A_STR) < 6)) {
  425.   #ifdef WIZARD
  426. !         if (!wizard) {
  427.   #endif
  428. !             You("lack the strength %s.",
  429. !                 castit ? "for a teleport spell" : "to teleport");
  430. !             return 1;
  431. ! #ifdef WIZARD
  432. !         }
  433. ! #endif
  434.       }
  435. + 
  436. +     energy = objects[SPE_TELEPORT_AWAY].oc_level * 7 / 2 - 2;
  437. + 
  438. +     if(!trap && u.uen <= energy) {
  439. + #ifdef WIZARD
  440. +         if (!wizard) {
  441. + #endif
  442. +             You("lack the energy %s.",
  443. +                 castit ? "for a teleport spell" : "to teleport");
  444. +             return 1;
  445. + #ifdef WIZARD
  446. +         } else u.uen = energy;
  447. + #endif
  448. +     }
  449. + 
  450.       if(!trap &&
  451.         check_capacity("Your concentration falters from carrying so much."))
  452.           return 1;
  453. ***************
  454. *** 1522,1528 ****
  455.               if (!wizard)
  456.   #endif
  457.               return(0);
  458. !     }
  459.   #ifdef WALKIES
  460.       if(next_to_u()) {
  461.   #endif
  462. --- 1571,1579 ----
  463.               if (!wizard)
  464.   #endif
  465.               return(0);
  466. !     } else if (!trap)
  467. !         u.uen -= energy;
  468. ! 
  469.   #ifdef WALKIES
  470.       if(next_to_u()) {
  471.   #endif
  472. ***************
  473. *** 1729,1735 ****
  474.        * SCR_FIRE by GAN 11/02/86
  475.        */
  476.   
  477. !     pline("A tower of flame bursts from the floor!");
  478.       if(Fire_resistance) {
  479.           shieldeff(u.ux, u.uy);
  480.           You("are uninjured.");
  481. --- 1780,1786 ----
  482.        * SCR_FIRE by GAN 11/02/86
  483.        */
  484.   
  485. !     pline("A tower of flame bursts from the %s!", surface(u.ux,u.uy));
  486.       if(Fire_resistance) {
  487.           shieldeff(u.ux, u.uy);
  488.           You("are uninjured.");
  489. ***************
  490. *** 1741,1746 ****
  491. --- 1792,1799 ----
  492.       destroy_item(SCROLL_CLASS, AD_FIRE);
  493.       destroy_item(SPBOOK_CLASS, AD_FIRE);
  494.       destroy_item(POTION_CLASS, AD_FIRE);
  495. +     if (is_ice(u.ux, u.uy))
  496. +         melt_ice(u.ux, u.uy);
  497.   }
  498.   
  499.   static void
  500. ***************
  501. *** 1888,1895 ****
  502.           } else if(is_rustprone(obj) && obj->oeroded < MAX_ERODE &&
  503.                 !(obj->oerodeproof || (obj->blessed && !rnl(4))) &&
  504.                 (force || rn2(12) > Luck)) {
  505. !             /* all metal stuff and armor except body armor
  506. !                protected by oilskin cloak */
  507.               if(obj->oclass != ARMOR_CLASS || obj != uarm ||
  508.                  !uarmc || uarmc->otyp != OILSKIN_CLOAK ||
  509.                   (uarmc->cursed && !rn2(3)))
  510. --- 1941,1948 ----
  511.           } else if(is_rustprone(obj) && obj->oeroded < MAX_ERODE &&
  512.                 !(obj->oerodeproof || (obj->blessed && !rnl(4))) &&
  513.                 (force || rn2(12) > Luck)) {
  514. !             /* all metal stuff and armor except (body armor
  515. !                protected by oilskin cloak) */
  516.               if(obj->oclass != ARMOR_CLASS || obj != uarm ||
  517.                  !uarmc || uarmc->otyp != OILSKIN_CLOAK ||
  518.                   (uarmc->cursed && !rn2(3)))
  519. ***************
  520. *** 1965,1971 ****
  521.   #ifdef POLYSELF
  522.            is_swimmer(uasmon) ||
  523.   #endif
  524. !          Magical_breathing)) {
  525.           /* water effects on objects every now and then */
  526.           if (!rn2(5)) inpool_ok = TRUE;
  527.           else return(FALSE);
  528. --- 2018,2024 ----
  529.   #ifdef POLYSELF
  530.            is_swimmer(uasmon) ||
  531.   #endif
  532. !          Amphibious)) {
  533.           /* water effects on objects every now and then */
  534.           if (!rn2(5)) inpool_ok = TRUE;
  535.           else return(FALSE);
  536. ***************
  537. *** 1972,1979 ****
  538.       }
  539.   
  540.       if (!u.uinwater) {
  541. !         You("%s into the water!",
  542. !         Is_waterlevel(&u.uz) ? "plunge" : "fall");
  543.   #ifdef POLYSELF
  544.           if(!is_swimmer(uasmon))
  545.   #endif
  546. --- 2025,2033 ----
  547.       }
  548.   
  549.       if (!u.uinwater) {
  550. !         You("%s into the water%c",
  551. !         Is_waterlevel(&u.uz) ? "plunge" : "fall",
  552. !         Amphibious ? '.' : '!');
  553.   #ifdef POLYSELF
  554.           if(!is_swimmer(uasmon))
  555.   #endif
  556. ***************
  557. *** 1992,2005 ****
  558.               You("multiply.");
  559.           }
  560.       }
  561. - 
  562. -     if(is_swimmer(uasmon) && !inpool_ok) {
  563. -         if (Punished) placebc();
  564. -         u.uinwater = 1;
  565. -         under_water(1);
  566. -         vision_full_recalc = 1;
  567. -         return(FALSE);
  568. -     }
  569.   #endif
  570.       if (inpool_ok) return(FALSE);
  571.   #ifdef WALKIES
  572. --- 2046,2051 ----
  573. ***************
  574. *** 2010,2021 ****
  575.           unleash_all();
  576.       }
  577.   #endif
  578. !     if (Magical_breathing) {
  579. !         pline("But wait!");
  580. !         Your("lungs start acting like gills.");
  581. !         if (!Is_waterlevel(&u.uz))
  582. !             Your("%s the bottom.",Hallucination ? "keel hits" : "feet touch");
  583. !         if (Punished) placebc();
  584.           u.uinwater = 1;
  585.           under_water(1);
  586.           vision_full_recalc = 1;
  587. --- 2056,2079 ----
  588.           unleash_all();
  589.       }
  590.   #endif
  591. !     if (Amphibious
  592. ! #ifdef POLYSELF
  593. !             || is_swimmer(uasmon)
  594. ! #endif
  595. !                         ) {
  596. !         if (Amphibious) {
  597. !             if (flags.verbose)
  598. !                 pline("But you aren't drowning.");
  599. !             if (!Is_waterlevel(&u.uz))
  600. !                 if (Hallucination) 
  601. !                     Your("keel hits the bottom.");
  602. !                 else
  603. !                     You("touch bottom.");
  604. !         }
  605. !         if (Punished) {
  606. !             unplacebc();
  607. !             placebc();
  608. !         }
  609.           u.uinwater = 1;
  610.           under_water(1);
  611.           vision_full_recalc = 1;
  612. ***************
  613. *** 2076,2083 ****
  614.               done(DROWNING);
  615.           }
  616.       u.uinwater = 0;
  617. !     You("find yourself back %s.",Is_waterlevel(&u.uz) ?
  618. !         "in an air bubble" : "on dry land");
  619.       return(TRUE);
  620.   }
  621.   
  622. --- 2134,2141 ----
  623.               done(DROWNING);
  624.           }
  625.       u.uinwater = 0;
  626. !     You("find yourself back %s.", Is_waterlevel(&u.uz) ?
  627. !         "in an air bubble" : "on land");
  628.       return(TRUE);
  629.   }
  630.   
  631. ***************
  632. *** 2216,2222 ****
  633.               if(!force && (confused || Fumbling || 
  634.                                rnd(75+level_difficulty()/2) > ch)) {
  635.                   You("set it off!");
  636. !                 b_trapped("door");
  637.               } else
  638.                   You("disarm it!");
  639.               levl[x][y].doormask &= ~D_TRAPPED;
  640. --- 2274,2280 ----
  641.               if(!force && (confused || Fumbling || 
  642.                                rnd(75+level_difficulty()/2) > ch)) {
  643.                   You("set it off!");
  644. !                 b_trapped("door", FINGER);
  645.               } else
  646.                   You("disarm it!");
  647.               levl[x][y].doormask &= ~D_TRAPPED;
  648. ***************
  649. *** 2327,2333 ****
  650.           case 14:
  651.           case 13:
  652.               You("feel a needle prick your %s.",body_part(bodypart));
  653. !             poisoned("needle", A_CON, "poison needle",10);
  654.               exercise(A_CON, FALSE);
  655.               break;
  656.           case 12:
  657. --- 2385,2391 ----
  658.           case 14:
  659.           case 13:
  660.               You("feel a needle prick your %s.",body_part(bodypart));
  661. !             poisoned("needle", A_CON, "poisoned needle",10);
  662.               exercise(A_CON, FALSE);
  663.               break;
  664.           case 12:
  665. ***************
  666. *** 2343,2348 ****
  667. --- 2401,2408 ----
  668.               destroy_item(SCROLL_CLASS, AD_FIRE);
  669.               destroy_item(SPBOOK_CLASS, AD_FIRE);
  670.               destroy_item(POTION_CLASS, AD_FIRE);
  671. +             if (is_ice(u.ux, u.uy))
  672. +                 melt_ice(u.ux, u.uy);
  673.               break;
  674.           case 8:
  675.           case 7:
  676. ***************
  677. *** 2422,2440 ****
  678.       dealloc_trap(trap);
  679.   }
  680.   
  681. ! /* used for doors.  can be used for anything else that opens. */
  682.   void
  683. ! b_trapped(item)
  684.   register const char *item;
  685.   {
  686.       register int lvl = level_difficulty();
  687. !     int dmg = rnd(5 + (lvl<5 ? lvl : 2+lvl/2));
  688.   
  689.       pline("KABOOM!!  %s was booby-trapped!", The(item));
  690. !     if (u.ulevel < 4 && lvl < 3 && !rnl(3))
  691. !         You("are shaken, but luckily unhurt.");        
  692. !     else losehp(dmg, "explosion", KILLED_BY_AN);
  693.       exercise(A_STR, FALSE);
  694.       make_stunned(HStun + dmg, TRUE);
  695.   }
  696.   
  697. --- 2482,2500 ----
  698.       dealloc_trap(trap);
  699.   }
  700.   
  701. ! /* used for doors (also tins).  can be used for anything else that opens. */
  702.   void
  703. ! b_trapped(item, bodypart)
  704.   register const char *item;
  705. + register int bodypart;
  706.   {
  707.       register int lvl = level_difficulty();
  708. !     int dmg = rnd(5 + (lvl < 5 ? lvl : 2+lvl/2));
  709.   
  710.       pline("KABOOM!!  %s was booby-trapped!", The(item));
  711. !     losehp(dmg, "explosion", KILLED_BY_AN);
  712.       exercise(A_STR, FALSE);
  713. +     if (bodypart) exercise(A_CON, FALSE);
  714.       make_stunned(HStun + dmg, TRUE);
  715.   }
  716.   
  717. *** /tmp/da11450    Tue Jun  1 16:16:16 1993
  718. --- src/u_init.c    Tue Apr 27 17:00:42 1993
  719. ***************
  720. *** 1,4 ****
  721. ! /*    SCCS Id: @(#)u_init.c    3.1    93/02/21    */
  722.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  723.   /* NetHack may be freely redistributed.  See license for details. */
  724.   
  725. --- 1,4 ----
  726. ! /*    SCCS Id: @(#)u_init.c    3.1    93/04/24    */
  727.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  728.   /* NetHack may be freely redistributed.  See license for details. */
  729.   
  730. ***************
  731. *** 368,374 ****
  732.                * generators are bad enough to seriously skew the
  733.                * results if we use rn2(2)...  --KAA
  734.                */
  735. ! 
  736.           /*
  737.            * Elves are people of music and song, or they are warriors.
  738.            * Warriors get mithril coats; non-warriors MAY get an
  739. --- 368,374 ----
  740.                * generators are bad enough to seriously skew the
  741.                * results if we use rn2(2)...  --KAA
  742.                */
  743. !         ini_inv(Elf);
  744.           /*
  745.            * Elves are people of music and song, or they are warriors.
  746.            * Warriors get mithril coats; non-warriors MAY get an
  747. ***************
  748. *** 375,396 ****
  749.            * instrument.  We use a kludge to get only non-magic
  750.            * instruments.
  751.            */
  752. !         if (Elf[E_ARMOR].trotyp == ELVEN_CLOAK) {
  753. !             if (!rn2(5)) {
  754. !                 static int trotyp[] = {
  755. !                     WOODEN_FLUTE, TOOLED_HORN, WOODEN_HARP,
  756. !                     BELL, BUGLE, LEATHER_DRUM
  757. !                 };
  758. ! 
  759. !                 Instrument[0].trotyp = trotyp[rn2(SIZE(trotyp))];
  760. ! #ifdef DEBUG
  761. !                 debugpline("Elf got instrument %d",
  762. !                     Instrument[0].trotyp);
  763. ! #endif
  764. !                 ini_inv(Instrument);
  765. !             }
  766.           }
  767. -         ini_inv(Elf);
  768.           if(!rn2(5)) ini_inv(Blindfold);
  769.           else if(!rn2(6)) ini_inv(Lamp);
  770.           knows_object(ELVEN_SHORT_SWORD);
  771. --- 375,388 ----
  772.            * instrument.  We use a kludge to get only non-magic
  773.            * instruments.
  774.            */
  775. !         if (Elf[E_ARMOR].trotyp == ELVEN_CLOAK && !rn2(5)) {
  776. !             static int trotyp[] = {
  777. !             WOODEN_FLUTE, TOOLED_HORN, WOODEN_HARP,
  778. !             BELL, BUGLE, LEATHER_DRUM
  779. !             };
  780. !             Instrument[0].trotyp = trotyp[rn2(SIZE(trotyp))];
  781. !             ini_inv(Instrument);
  782.           }
  783.           if(!rn2(5)) ini_inv(Blindfold);
  784.           else if(!rn2(6)) ini_inv(Lamp);
  785.           knows_object(ELVEN_SHORT_SWORD);
  786. *** /tmp/da11458    Tue Jun  1 16:16:19 1993
  787. --- src/uhitm.c    Tue Jun  1 14:25:48 1993
  788. ***************
  789. *** 323,328 ****
  790. --- 323,330 ----
  791.           }
  792.   #endif
  793.       } else {
  794. +         int oldhp = mon->mhp;
  795. + 
  796.           /* we hit the monster; be careful: it might die! */
  797.           notonhead = (mon->mx != u.ux+u.dx || mon->my != u.uy+u.dy);
  798.           if((malive = hmon(mon, uwep, 0)) == TRUE) {
  799. ***************
  800. *** 337,343 ****
  801.                                   )
  802.                   u.ustuck = 0;
  803.           }
  804. !         if (mon->wormno) cutworm(mon, u.ux+u.dx, u.uy+u.dy, uwep);
  805.           }
  806.           if(mon->ispriest && !rn2(2)) ghod_hitsu(mon);
  807.           if(special) (void) angry_guards(!flags.soundok);
  808. --- 339,350 ----
  809.                                   )
  810.                   u.ustuck = 0;
  811.           }
  812. !         /* If no damage was done (Vorpal Blade and not on head)
  813. !          * do not cut the worm.  We lost the information long ago, so
  814. !          * we must do this by checking the hit points.
  815. !          */
  816. !         if (mon->wormno && mon->mhp < oldhp)
  817. !             cutworm(mon, u.ux+u.dx, u.uy+u.dy, uwep);
  818.           }
  819.           if(mon->ispriest && !rn2(2)) ghod_hitsu(mon);
  820.           if(special) (void) angry_guards(!flags.soundok);
  821. ***************
  822. *** 1347,1359 ****
  823.               if (mon->data == &mons[PM_SHADE])
  824.                   Your("hug passes harmlessly through %s.",
  825.                   mon_nam(mon));
  826. !             else if (!sticks(mon->data))
  827.                   if (mon==u.ustuck) {
  828.                   pline("%s is being %s.", Monnam(mon),
  829.                       u.umonnum==PM_ROPE_GOLEM ? "choked":
  830.                       "crushed");
  831.                   sum[i] = damageum(mon, mattk);
  832. !                 } else if(sum[i-1] && sum[i-2]) {
  833.                   You("grab %s!", mon_nam(mon));
  834.                   u.ustuck = mon;
  835.                   sum[i] = damageum(mon, mattk);
  836. --- 1354,1366 ----
  837.               if (mon->data == &mons[PM_SHADE])
  838.                   Your("hug passes harmlessly through %s.",
  839.                   mon_nam(mon));
  840. !             else if (!sticks(mon->data) && !u.uswallow)
  841.                   if (mon==u.ustuck) {
  842.                   pline("%s is being %s.", Monnam(mon),
  843.                       u.umonnum==PM_ROPE_GOLEM ? "choked":
  844.                       "crushed");
  845.                   sum[i] = damageum(mon, mattk);
  846. !                 } else if(i >= 2 && sum[i-1] && sum[i-2]) {
  847.                   You("grab %s!", mon_nam(mon));
  848.                   u.ustuck = mon;
  849.                   sum[i] = damageum(mon, mattk);
  850. ***************
  851. *** 1526,1532 ****
  852.               } else {
  853.                   You("are frozen by %s gaze!", 
  854.                     s_suffix(mon_nam(mon)));
  855. !                 nomul((ACURR(A_WIS) > 12 || rn2(4)) ? -tmp : -120);
  856.               }
  857.               } else {
  858.               pline("%s cannot defend itself.",
  859. --- 1533,1539 ----
  860.               } else {
  861.                   You("are frozen by %s gaze!", 
  862.                     s_suffix(mon_nam(mon)));
  863. !                 nomul((ACURR(A_WIS) > 12 || rn2(4)) ? -tmp : -127);
  864.               }
  865.               } else {
  866.               pline("%s cannot defend itself.",
  867. *** /tmp/da11466    Tue Jun  1 16:16:22 1993
  868. --- src/vault.c    Tue Jun  1 12:12:46 1993
  869. ***************
  870. *** 1,4 ****
  871. ! /*    SCCS Id: @(#)vault.c    3.1    93/01/15    */
  872.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  873.   /* NetHack may be freely redistributed.  See license for details. */
  874.   
  875. --- 1,4 ----
  876. ! /*    SCCS Id: @(#)vault.c    3.1    93/03/30    */
  877.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  878.   /* NetHack may be freely redistributed.  See license for details. */
  879.   
  880. ***************
  881. *** 41,47 ****
  882.               }
  883.           }
  884.           levl[fcx][fcy].typ = EGD(grd)->fakecorr[fcbeg].ftyp;
  885. !         map_background(fcx,fcy, 1);
  886.           if(!ACCESSIBLE(levl[fcx][fcy].typ)) block_point(fcx,fcy);
  887.           EGD(grd)->fcbeg++;
  888.       }
  889. --- 41,47 ----
  890.               }
  891.           }
  892.           levl[fcx][fcy].typ = EGD(grd)->fakecorr[fcbeg].ftyp;
  893. !         map_location(fcx, fcy, 1);    /* bypass vision */
  894.           if(!ACCESSIBLE(levl[fcx][fcy].typ)) block_point(fcx,fcy);
  895.           EGD(grd)->fcbeg++;
  896.       }
  897. ***************
  898. *** 331,338 ****
  899.           if(!IS_WALL(levl[x][y].typ) && !in_fcorridor(grd, x, y)) {
  900.               if(MON_AT(x, y) && grd->mx != x && grd->my != y) {
  901.               struct monst *mon = m_at(x,y);
  902. !             if (mon->data->msound != MS_SILENT)
  903. !                 yelp(mon);
  904.               rloc(mon);
  905.               }
  906.               if ((gold = g_at(x, y)) != 0) {
  907. --- 331,339 ----
  908.           if(!IS_WALL(levl[x][y].typ) && !in_fcorridor(grd, x, y)) {
  909.               if(MON_AT(x, y) && grd->mx != x && grd->my != y) {
  910.               struct monst *mon = m_at(x,y);
  911. ! #ifdef SOUNDS
  912. !             yelp(mon);
  913. ! #endif
  914.               rloc(mon);
  915.               }
  916.               if ((gold = g_at(x, y)) != 0) {
  917. ***************
  918. *** 367,374 ****
  919.           if(!IS_WALL(levl[x][y].typ) && !in_fcorridor(grd, x, y)) {
  920.               if(MON_AT(x, y) && grd->mx != x && grd->my != y) {
  921.               struct monst *mon = m_at(x,y);
  922. !             if (mon->data->msound != MS_SILENT)
  923. !                 yelp(mon);
  924.               rloc(mon);
  925.               }
  926.               if ((gold = g_at(x, y)) != 0) {
  927. --- 368,376 ----
  928.           if(!IS_WALL(levl[x][y].typ) && !in_fcorridor(grd, x, y)) {
  929.               if(MON_AT(x, y) && grd->mx != x && grd->my != y) {
  930.               struct monst *mon = m_at(x,y);
  931. ! #ifdef SOUNDS
  932. !             yelp(mon);
  933. ! #endif
  934.               rloc(mon);
  935.               }
  936.               if ((gold = g_at(x, y)) != 0) {
  937. ***************
  938. *** 724,731 ****
  939.       register struct obj *obj;
  940.   
  941.       for (obj = invent; obj; obj = obj->nobj)
  942. !         if (Is_container(obj))
  943.           value += contained_gold(obj);
  944.   
  945.       return(value);
  946.   }
  947. --- 726,734 ----
  948.       register struct obj *obj;
  949.   
  950.       for (obj = invent; obj; obj = obj->nobj)
  951. !         if (Has_contents(obj))
  952.           value += contained_gold(obj);
  953. +     /* unknown gold stuck inside statues may cause some consternation... */
  954.   
  955.       return(value);
  956.   }
  957. *** /tmp/da11474    Tue Jun  1 16:16:24 1993
  958. --- src/version.c    Mon Apr 19 16:59:52 1993
  959. ***************
  960. *** 5,11 ****
  961.   #include    "hack.h"
  962.   #include    "date.h"
  963.   #ifndef BETA
  964. ! # if defined(MICRO) && !defined(AMIGA) && !defined(TOS) && !defined(OS2_HPFS)
  965.   # include    "patchlev.h"
  966.   # else
  967.   # include    "patchlevel.h"
  968. --- 5,11 ----
  969.   #include    "hack.h"
  970.   #include    "date.h"
  971.   #ifndef BETA
  972. ! # ifdef SHORT_FILENAMES
  973.   # include    "patchlev.h"
  974.   # else
  975.   # include    "patchlevel.h"
  976. ***************
  977. *** 16,28 ****
  978.   doversion()
  979.   {
  980.   #ifdef BETA
  981. !     pline("%s NetHack Beta Version %s - last build %s.",
  982.   #else
  983. !     pline("%s NetHack Version %s.%d - last build %s.",
  984.   #endif
  985. !         PORT_ID, VERSION,
  986. ! #ifndef BETA
  987. !         PATCHLEVEL,
  988.   #endif
  989.           BUILD_DATE);    /* from date.h, generated by 'makedefs' */
  990.       return 0;
  991. --- 16,28 ----
  992.   doversion()
  993.   {
  994.   #ifdef BETA
  995. !     pline("%s NetHack Beta Version %d.%d.%d-%d - last build %s.",
  996.   #else
  997. !     pline("%s NetHack Version %d.%d.%d - last build %s.",
  998.   #endif
  999. !         PORT_ID, VERSION_MAJOR, VERSION_MINOR, PATCHLEVEL,
  1000. ! #ifdef BETA
  1001. !         EDITLEVEL,
  1002.   #endif
  1003.           BUILD_DATE);    /* from date.h, generated by 'makedefs' */
  1004.       return 0;
  1005. *** /tmp/da11482    Tue Jun  1 16:16:27 1993
  1006. --- src/vision.c    Mon Mar 29 14:33:20 1993
  1007. ***************
  1008. *** 1,4 ****
  1009. ! /*    SCCS Id: @(#)vision.c    3.1    92/11/14    */
  1010.   /* Copyright (c) Dean Luick, with acknowledgements to Dave Cohrs, 1990.    */
  1011.   /* NetHack may be freely redistributed.  See license for details.    */
  1012.   #include "hack.h"
  1013. --- 1,4 ----
  1014. ! /*    SCCS Id: @(#)vision.c    3.1    93/03/28    */
  1015.   /* Copyright (c) Dean Luick, with acknowledgements to Dave Cohrs, 1990.    */
  1016.   /* NetHack may be freely redistributed.  See license for details.    */
  1017.   #include "hack.h"
  1018. ***************
  1019. *** 300,306 ****
  1020.       char *rmin, *rmax;
  1021.   {
  1022.       int rnum = levl[u.ux][u.uy].roomno - ROOMOFFSET; /* no SHARED... */
  1023. !     int start, stop, in_door;
  1024.       register int zx, zy;
  1025.   
  1026.       /* If in a lit room, we are able to see to its boundaries. */
  1027. --- 300,306 ----
  1028.       char *rmin, *rmax;
  1029.   {
  1030.       int rnum = levl[u.ux][u.uy].roomno - ROOMOFFSET; /* no SHARED... */
  1031. !     int start, stop, in_door, xhi, xlo, yhi, ylo;
  1032.       register int zx, zy;
  1033.   
  1034.       /* If in a lit room, we are able to see to its boundaries. */
  1035. ***************
  1036. *** 323,333 ****
  1037.       in_door = levl[u.ux][u.uy].typ == DOOR;
  1038.   
  1039.       /* Can always see adjacent. */
  1040. !     for (zy = u.uy-1; zy <= u.uy+1; zy++) {
  1041. !     rmin[zy] = min(rmin[zy],u.ux-1);
  1042. !     rmax[zy] = max(rmax[zy],u.ux+1);
  1043.   
  1044. !     for (zx = u.ux-1; zx <= u.ux+1; zx++) {
  1045.           next[zy][zx] = COULD_SEE | IN_SIGHT;
  1046.           /*
  1047.            * Yuck, update adjacent non-diagonal positions when in a doorway.
  1048. --- 323,337 ----
  1049.       in_door = levl[u.ux][u.uy].typ == DOOR;
  1050.   
  1051.       /* Can always see adjacent. */
  1052. !     ylo = max(u.uy - 1, 0);
  1053. !     yhi = min(u.uy + 1, ROWNO - 1);
  1054. !     xlo = max(u.ux - 1, 1);
  1055. !     xhi = min(u.ux + 1, COLNO - 1);
  1056. !     for (zy = ylo; zy <= yhi; zy++) {
  1057. !     if (xlo < rmin[zy]) rmin[zy] = xlo;
  1058. !     if (xhi > rmax[zy]) rmax[zy] = xhi;
  1059.   
  1060. !     for (zx = xlo; zx <= xhi; zx++) {
  1061.           next[zy][zx] = COULD_SEE | IN_SIGHT;
  1062.           /*
  1063.            * Yuck, update adjacent non-diagonal positions when in a doorway.
  1064. *** /tmp/da11490    Tue Jun  1 16:16:31 1993
  1065. --- src/weapon.c    Wed Mar  3 14:34:34 1993
  1066. ***************
  1067. *** 462,488 ****
  1068.       mon->weapon_check = NEED_WEAPON;
  1069.       return 0;
  1070.   }
  1071. - 
  1072. - /* rearrange a monster's inventory so that wielded weapon is first */
  1073. - void
  1074. - sort_mwep(mon)
  1075. - struct monst *mon;
  1076. - {
  1077. -     struct obj *otmp, *prev, *mw_tmp = MON_WEP(mon);
  1078. - 
  1079. -     if (!mw_tmp) return;
  1080. -     for (otmp = mon->minvent, prev = 0; otmp; otmp = otmp->nobj) {
  1081. -         if (otmp == mw_tmp)  break;
  1082. -         prev = otmp;
  1083. -     }
  1084. -     if (!otmp) {
  1085. -         MON_NOWEP(mon);
  1086. -     } else if (prev) {
  1087. -         prev->nobj = otmp->nobj;
  1088. -         otmp->nobj = mon->minvent;
  1089. -         mon->minvent = otmp;
  1090. -     }
  1091. - }
  1092.   #endif
  1093.   
  1094.   int
  1095. --- 462,467 ----
  1096. *** /tmp/da11514    Tue Jun  1 16:16:36 1993
  1097. --- src/windows.c    Tue Apr 13 17:37:55 1993
  1098. ***************
  1099. *** 17,22 ****
  1100. --- 17,25 ----
  1101.   #endif
  1102.   #ifdef AMIGA_INTUITION
  1103.   extern struct window_procs amii_procs ;
  1104. + extern struct window_procs amiv_procs ;
  1105. + extern void NDECL( amii_loadlib );
  1106. + extern void NDECL( amiv_loadlib );
  1107.   #endif
  1108.   
  1109.   NEARDATA struct window_procs windowprocs;
  1110. ***************
  1111. *** 36,42 ****
  1112.       { & mac_procs , NULL } ,
  1113.   #endif
  1114.   #ifdef AMIGA_INTUITION
  1115. !     { & amii_procs , NULL } ,
  1116.   #endif
  1117.       { 0, 0 }        /* must be last */
  1118.   };
  1119. --- 39,51 ----
  1120.       { & mac_procs , NULL } ,
  1121.   #endif
  1122.   #ifdef AMIGA_INTUITION
  1123. !     /* A shared library is used for implementing the access to these two
  1124. !      * different display mechanisms.  This means that the function names
  1125. !      * are actually the same (assembler stubs) and the libraries do different
  1126. !      * things.
  1127. !      */
  1128. !     { & amii_procs , amii_loadlib } ,
  1129. !     { & amiv_procs , amiv_loadlib } ,
  1130.   #endif
  1131.       { 0, 0 }        /* must be last */
  1132.   };
  1133. *** /tmp/da11522    Tue Jun  1 16:16:38 1993
  1134. --- src/wizard.c    Fri May 28 11:32:12 1993
  1135. ***************
  1136. *** 1,4 ****
  1137. ! /*    SCCS Id: @(#)wizard.c    3.1    92/11/13          */
  1138.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1139.   /* NetHack may be freely redistributed.  See license for details. */
  1140.   
  1141. --- 1,4 ----
  1142. ! /*    SCCS Id: @(#)wizard.c    3.1    93/05/26    */
  1143.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1144.   /* NetHack may be freely redistributed.  See license for details. */
  1145.   
  1146. ***************
  1147. *** 14,25 ****
  1148.   
  1149.   #ifdef OVLB
  1150.   
  1151. ! static short FDECL(which_arti, (UCHAR_P));
  1152.   static boolean FDECL(mon_has_arti, (struct monst *,SHORT_P));
  1153.   static struct monst *FDECL(other_mon_has_arti, (struct monst *,SHORT_P));
  1154.   static struct obj *FDECL(on_ground, (SHORT_P));
  1155. ! static boolean FDECL(you_have, (UCHAR_P));
  1156. ! static long FDECL(target_on, (UCHAR_P,struct monst *));
  1157.   static long FDECL(strategy, (struct monst *));
  1158.   
  1159.   /*    TODO:    Expand this list.    */
  1160. --- 14,25 ----
  1161.   
  1162.   #ifdef OVLB
  1163.   
  1164. ! static short FDECL(which_arti, (int));
  1165.   static boolean FDECL(mon_has_arti, (struct monst *,SHORT_P));
  1166.   static struct monst *FDECL(other_mon_has_arti, (struct monst *,SHORT_P));
  1167.   static struct obj *FDECL(on_ground, (SHORT_P));
  1168. ! static boolean FDECL(you_have, (int));
  1169. ! static long FDECL(target_on, (int,struct monst *));
  1170.   static long FDECL(strategy, (struct monst *));
  1171.   
  1172.   /*    TODO:    Expand this list.    */
  1173. ***************
  1174. *** 135,141 ****
  1175.   
  1176.   static short
  1177.   which_arti(mask)
  1178. !     register uchar mask;
  1179.   {
  1180.       switch(mask) {
  1181.           case M3_WANTSAMUL:    return(AMULET_OF_YENDOR);
  1182. --- 135,141 ----
  1183.   
  1184.   static short
  1185.   which_arti(mask)
  1186. !     register int mask;
  1187.   {
  1188.       switch(mask) {
  1189.           case M3_WANTSAMUL:    return(AMULET_OF_YENDOR);
  1190. ***************
  1191. *** 205,211 ****
  1192.   
  1193.   static boolean
  1194.   you_have(mask)
  1195. !     register uchar    mask;
  1196.   {
  1197.       switch(mask) {
  1198.           case M3_WANTSAMUL:    return(u.uhave.amulet);
  1199. --- 205,211 ----
  1200.   
  1201.   static boolean
  1202.   you_have(mask)
  1203. !     register int mask;
  1204.   {
  1205.       switch(mask) {
  1206.           case M3_WANTSAMUL:    return(u.uhave.amulet);
  1207. ***************
  1208. *** 222,228 ****
  1209.   
  1210.   static long
  1211.   target_on(mask, mtmp)
  1212. !     register uchar  mask;
  1213.       register struct monst *mtmp;
  1214.   {
  1215.       register short    otyp;
  1216. --- 222,228 ----
  1217.   
  1218.   static long
  1219.   target_on(mask, mtmp)
  1220. !     register int mask;
  1221.       register struct monst *mtmp;
  1222.   {
  1223.       register short    otyp;
  1224. ***************
  1225. *** 329,338 ****
  1226.   
  1227.           default:        /* kill, maim, pillage! */
  1228.           {
  1229. !         long  where = (mtmp->mstrategy & 0xff000000);
  1230.           xchar tx = (xchar)((mtmp->mstrategy >> 16) & 0xff),
  1231.                 ty = (xchar)((mtmp->mstrategy >> 8) & 0xff);
  1232. !         uchar targ = (xchar)(mtmp->mstrategy & 0xff);
  1233.           struct obj *otmp;
  1234.   
  1235.           if(!targ) { /* simply wants you to close */
  1236. --- 329,338 ----
  1237.   
  1238.           default:        /* kill, maim, pillage! */
  1239.           {
  1240. !         long  where = (mtmp->mstrategy & 0xff000000L);
  1241.           xchar tx = (xchar)((mtmp->mstrategy >> 16) & 0xff),
  1242.                 ty = (xchar)((mtmp->mstrategy >> 8) & 0xff);
  1243. !         int   targ = (mtmp->mstrategy & 0xff);
  1244.           struct obj *otmp;
  1245.   
  1246.           if(!targ) { /* simply wants you to close */
  1247. ***************
  1248. *** 388,394 ****
  1249.   {
  1250.       register struct monst *mtmp2;
  1251.   
  1252. !     if(mtmp2 = makemon(&mons[PM_WIZARD_OF_YENDOR], u.ux, u.uy)) {
  1253.           mtmp2->msleep = mtmp2->mtame = mtmp2->mpeaceful = 0;
  1254.           if (!u.uhave.amulet && rn2(2)) {  /* give clone a fake */
  1255.               mtmp2->minvent = mksobj(FAKE_AMULET_OF_YENDOR, TRUE, FALSE);
  1256. --- 388,394 ----
  1257.   {
  1258.       register struct monst *mtmp2;
  1259.   
  1260. !     if ((mtmp2 = makemon(&mons[PM_WIZARD_OF_YENDOR], u.ux, u.uy)) != 0) {
  1261.           mtmp2->msleep = mtmp2->mtame = mtmp2->mpeaceful = 0;
  1262.           if (!u.uhave.amulet && rn2(2)) {  /* give clone a fake */
  1263.               mtmp2->minvent = mksobj(FAKE_AMULET_OF_YENDOR, TRUE, FALSE);
  1264. ***************
  1265. *** 435,441 ****
  1266.   {
  1267.       register struct monst    *mtmp;
  1268.   
  1269. !     if(mtmp = makemon(&mons[PM_WIZARD_OF_YENDOR], u.ux, u.uy)) {
  1270.           mtmp->msleep = mtmp->mtame = mtmp->mpeaceful = 0;
  1271.           set_malign(mtmp);
  1272.           pline("A voice booms out...");
  1273. --- 435,441 ----
  1274.   {
  1275.       register struct monst    *mtmp;
  1276.   
  1277. !     if ((mtmp = makemon(&mons[PM_WIZARD_OF_YENDOR], u.ux, u.uy)) != 0) {
  1278.           mtmp->msleep = mtmp->mtame = mtmp->mpeaceful = 0;
  1279.           set_malign(mtmp);
  1280.           pline("A voice booms out...");
  1281. *** /tmp/da11538    Tue Jun  1 16:16:43 1993
  1282. --- src/worn.c    Sat Mar 13 16:33:03 1993
  1283. ***************
  1284. *** 131,138 ****
  1285.   # ifdef TOURIST
  1286.           else if (obj->otyp == HAWAIIAN_SHIRT) flag = W_ARMU;
  1287.   # endif
  1288. !         else if (is_cloak(obj)) flag = W_ARMC;
  1289. !         else if (is_helmet(obj)) flag = W_ARMH;
  1290.           else if (is_shield(obj)) {
  1291.               if (MON_WEP(mon) && bimanual(MON_WEP(mon)))
  1292.                   continue;
  1293. --- 131,141 ----
  1294.   # ifdef TOURIST
  1295.           else if (obj->otyp == HAWAIIAN_SHIRT) flag = W_ARMU;
  1296.   # endif
  1297. !         else if (is_cloak(obj)) {
  1298. !             if (cantweararm(mon->data))
  1299. !                 continue;
  1300. !             flag = W_ARMC;
  1301. !         } else if (is_helmet(obj)) flag = W_ARMH;
  1302.           else if (is_shield(obj)) {
  1303.               if (MON_WEP(mon) && bimanual(MON_WEP(mon)))
  1304.                   continue;
  1305. ***************
  1306. *** 140,152 ****
  1307.           } else if (is_gloves(obj)) {
  1308.               if (MON_WEP(mon) && MON_WEP(mon)->cursed)
  1309.                   continue;
  1310. !             flag = W_ARMG;
  1311. !         } else if (is_boots(obj)) flag = W_ARMF;
  1312. !         else if (obj->oclass == ARMOR_CLASS) {
  1313. ! #ifdef POLYSELF
  1314.               if (cantweararm(mon->data))
  1315.                   continue;
  1316. - #endif
  1317.               flag = W_ARM;
  1318.           } else continue;
  1319.           if (mon->misc_worn_check & flag) continue;
  1320. --- 143,156 ----
  1321.           } else if (is_gloves(obj)) {
  1322.               if (MON_WEP(mon) && MON_WEP(mon)->cursed)
  1323.                   continue;
  1324. !             flag = W_ARMG;
  1325. !         } else if (is_boots(obj)) {
  1326. !             if (slithy(mon->data) || mon->data->mlet == S_CENTAUR)
  1327. !                 continue;
  1328. !             flag = W_ARMF;
  1329. !         } else if (obj->oclass == ARMOR_CLASS) {
  1330.               if (cantweararm(mon->data))
  1331.                   continue;
  1332.               flag = W_ARM;
  1333.           } else continue;
  1334.           if (mon->misc_worn_check & flag) continue;
  1335. ***************
  1336. *** 310,315 ****
  1337. --- 314,322 ----
  1338.           otmp->owornmask &= ~W_ARMH;
  1339.           rel_1_obj(mon, otmp);
  1340.           }
  1341. +     }
  1342. +     if (nohands(mdat) || verysmall(mdat) || slithy(mdat) ||
  1343. +         mdat->mlet == S_CENTAUR) {
  1344.           if (otmp = which_armor(mon, W_ARMF)) {
  1345.           if (vis) {
  1346.               if (is_whirly(mon->data))
  1347. *** /tmp/da11554    Tue Jun  1 16:16:47 1993
  1348. --- src/zap.c    Fri May 28 16:20:14 1993
  1349. ***************
  1350. *** 1,4 ****
  1351. ! /*    SCCS Id: @(#)zap.c    3.1    92/10/21    */
  1352.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1353.   /* NetHack may be freely redistributed.  See license for details. */
  1354.   
  1355. --- 1,4 ----
  1356. ! /*    SCCS Id: @(#)zap.c    3.1    93/05/17    */
  1357.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1358.   /* NetHack may be freely redistributed.  See license for details. */
  1359.   
  1360. ***************
  1361. *** 19,25 ****
  1362.   extern boolean m_using;
  1363.   #endif
  1364.   
  1365. - static boolean FDECL(obj_resists, (struct obj *));
  1366.   static boolean FDECL(obj_shudders, (struct obj *));
  1367.   static void FDECL(polyuse, (struct obj*, int, int));
  1368.   static void FDECL(do_osshock, (struct obj *));
  1369. --- 19,24 ----
  1370. ***************
  1371. *** 49,55 ****
  1372.   #define ZT_SPELL(x)        (10+(x))
  1373.   #define ZT_BREATH(x)    (20+(x))
  1374.   
  1375. ! const char *fl[]= {
  1376.       "magic missile",    /* Wands must be 0-9 */
  1377.       "bolt of fire",
  1378.       "bolt of cold",
  1379. --- 48,54 ----
  1380.   #define ZT_SPELL(x)        (10+(x))
  1381.   #define ZT_BREATH(x)    (20+(x))
  1382.   
  1383. ! const char *flash_types[] = {        /* also used in buzzmu(mcastu.c) */
  1384.       "magic missile",    /* Wands must be 0-9 */
  1385.       "bolt of fire",
  1386.       "bolt of cold",
  1387. ***************
  1388. *** 93,104 ****
  1389.   register struct obj *otmp;
  1390.   {
  1391.       register boolean wake = FALSE;
  1392.   #ifdef MULDGN
  1393.       boolean dbldam = (pl_character[0] == 'K') && u.uhave.questart;
  1394.   #endif
  1395.       register int dmg;
  1396.   
  1397. !     switch(otmp->otyp) {
  1398.       case WAN_STRIKING:
  1399.       case SPE_FORCE_BOLT:
  1400.           wake = TRUE;
  1401. --- 92,104 ----
  1402.   register struct obj *otmp;
  1403.   {
  1404.       register boolean wake = FALSE;
  1405. +     register int otyp = otmp->otyp;
  1406.   #ifdef MULDGN
  1407.       boolean dbldam = (pl_character[0] == 'K') && u.uhave.questart;
  1408.   #endif
  1409.       register int dmg;
  1410.   
  1411. !     switch(otyp) {
  1412.       case WAN_STRIKING:
  1413.       case SPE_FORCE_BOLT:
  1414.           wake = TRUE;
  1415. ***************
  1416. *** 107,118 ****
  1417.   #ifdef MULDGN
  1418.               if(dbldam) dmg *= 2;
  1419.   #endif
  1420. !             hit((otmp->otyp == WAN_STRIKING) ? "wand" :
  1421. !                         "spell", mtmp, exclam(dmg));
  1422.               (void) resist(mtmp, otmp->oclass, dmg, TELL);
  1423. !         } else miss((otmp->otyp == WAN_STRIKING) ? "wand" :
  1424. !                         "spell", mtmp);
  1425. !         makeknown(otmp->otyp);
  1426.           break;
  1427.       case WAN_SLOW_MONSTER:
  1428.       case SPE_SLOW_MONSTER:
  1429. --- 107,117 ----
  1430.   #ifdef MULDGN
  1431.               if(dbldam) dmg *= 2;
  1432.   #endif
  1433. !             hit((otyp == WAN_STRIKING) ? "wand" : "spell",
  1434. !                 mtmp, exclam(dmg));
  1435.               (void) resist(mtmp, otmp->oclass, dmg, TELL);
  1436. !         } else miss((otyp == WAN_STRIKING) ? "wand" : "spell", mtmp);
  1437. !         makeknown(otyp);
  1438.           break;
  1439.       case WAN_SLOW_MONSTER:
  1440.       case SPE_SLOW_MONSTER:
  1441. ***************
  1442. *** 153,159 ****
  1443.               if (!rn2(25)) {
  1444.               if (canseemon(mtmp)) {
  1445.                   pline("%s shudders!", Monnam(mtmp));
  1446. !                 makeknown(otmp->otyp);
  1447.               }
  1448.               /* no corpse after system shock */
  1449.               xkilled(mtmp, 3);
  1450. --- 152,158 ----
  1451.               if (!rn2(25)) {
  1452.               if (canseemon(mtmp)) {
  1453.                   pline("%s shudders!", Monnam(mtmp));
  1454. !                 makeknown(otyp);
  1455.               }
  1456.               /* no corpse after system shock */
  1457.               xkilled(mtmp, 3);
  1458. ***************
  1459. *** 160,166 ****
  1460.               }
  1461.               else if (newcham(mtmp, (struct permonst *)0) )
  1462.               if (!Hallucination && (!Blind || sensemon(mtmp)))
  1463. !                 makeknown(otmp->otyp);
  1464.           }
  1465.           break;
  1466.       case WAN_CANCELLATION:
  1467. --- 159,165 ----
  1468.               }
  1469.               else if (newcham(mtmp, (struct permonst *)0) )
  1470.               if (!Hallucination && (!Blind || sensemon(mtmp)))
  1471. !                 makeknown(otyp);
  1472.           }
  1473.           break;
  1474.       case WAN_CANCELLATION:
  1475. ***************
  1476. *** 188,194 ****
  1477.       case WAN_NOTHING:
  1478.           break;
  1479.       case WAN_PROBING:
  1480. !         makeknown(otmp->otyp);
  1481.           mstatusline(mtmp);
  1482.           break;
  1483.       case WAN_OPENING:
  1484. --- 187,193 ----
  1485.       case WAN_NOTHING:
  1486.           break;
  1487.       case WAN_PROBING:
  1488. !         makeknown(otyp);
  1489.           mstatusline(mtmp);
  1490.           break;
  1491.       case WAN_OPENING:
  1492. ***************
  1493. *** 198,211 ****
  1494.                   else pline("%s opens its mouth!", Monnam(mtmp));
  1495.               }
  1496.               expels(mtmp, mtmp->data, TRUE);
  1497.               break;
  1498.           }
  1499.       case WAN_LOCKING:
  1500.       case SPE_KNOCK:
  1501.       case SPE_WIZARD_LOCK:
  1502.           break;
  1503.       default:
  1504. !         impossible("What an interesting effect (%u)", otmp->otyp);
  1505.       }
  1506.       if(wake) {
  1507.           if(mtmp->mhp > 0) {
  1508. --- 197,223 ----
  1509.                   else pline("%s opens its mouth!", Monnam(mtmp));
  1510.               }
  1511.               expels(mtmp, mtmp->data, TRUE);
  1512. +         }
  1513.               break;
  1514. +     case SPE_HEALING:
  1515. +     case SPE_EXTRA_HEALING:
  1516. +         mtmp->mhp += (otyp == SPE_HEALING) ? rnd(8) : d(2,8)+2;
  1517. +         if (mtmp->mhp > mtmp->mhpmax) 
  1518. +             mtmp->mhp = mtmp->mhpmax;
  1519. +         if (canseemon(mtmp))
  1520. +             pline(otyp == SPE_HEALING ? "%s begins to look better." :
  1521. +               "%s looks much better.", Monnam(mtmp));
  1522. +         if (mtmp->mtame || mtmp->mpeaceful) {            
  1523. +             adjalign((pl_character[0] == 'H') ? 1 :
  1524. +                  sgn(u.ualign.type));
  1525.           }
  1526. +          break;
  1527.       case WAN_LOCKING:
  1528.       case SPE_KNOCK:
  1529.       case SPE_WIZARD_LOCK:
  1530.           break;
  1531.       default:
  1532. !         impossible("What an interesting effect (%u)", otyp);
  1533.       }
  1534.       if(wake) {
  1535.           if(mtmp->mhp > 0) {
  1536. ***************
  1537. *** 399,407 ****
  1538.       uncurse(obj);
  1539.   }
  1540.   
  1541. ! static boolean
  1542. ! obj_resists(obj)
  1543.   struct obj *obj;
  1544.   {
  1545.       if (obj->otyp == AMULET_OF_YENDOR ||
  1546.           obj->otyp == SPE_BOOK_OF_THE_DEAD ||
  1547. --- 411,420 ----
  1548.       uncurse(obj);
  1549.   }
  1550.   
  1551. ! boolean
  1552. ! obj_resists(obj, ochance, achance)
  1553.   struct obj *obj;
  1554. + int ochance, achance;    /* percent chance for ordinary objects, artifacts */
  1555.   {
  1556.       if (obj->otyp == AMULET_OF_YENDOR ||
  1557.           obj->otyp == SPE_BOOK_OF_THE_DEAD ||
  1558. ***************
  1559. *** 410,418 ****
  1560.           (obj->otyp == CORPSE && is_rider(&mons[obj->corpsenm]))) {
  1561.           return TRUE;
  1562.       } else {
  1563. !         int chance = rn2(20);
  1564. !         /* artifacts resist 95% of the time; normal objects 5% */
  1565. !         return (obj->oartifact ? !!chance : !chance);
  1566.       }
  1567.   }
  1568.   
  1569. --- 423,431 ----
  1570.           (obj->otyp == CORPSE && is_rider(&mons[obj->corpsenm]))) {
  1571.           return TRUE;
  1572.       } else {
  1573. !         int chance = rn2(100);
  1574. ! 
  1575. !         return (chance < (obj->oartifact ? achance : ochance));
  1576.       }
  1577.   }
  1578.   
  1579. ***************
  1580. *** 475,481 ****
  1581.   {
  1582.       struct permonst *mdat = (struct permonst *)0;
  1583.       struct monst *mtmp;
  1584. !     char *material;
  1585.       int pm_index;
  1586.   
  1587.       /* no golems if you zap only one object -- not enough stuff */
  1588. --- 488,494 ----
  1589.   {
  1590.       struct permonst *mdat = (struct permonst *)0;
  1591.       struct monst *mtmp;
  1592. !     const char *material;
  1593.       int pm_index;
  1594.   
  1595.       /* no golems if you zap only one object -- not enough stuff */
  1596. ***************
  1597. *** 581,593 ****
  1598.       register int res = 1;
  1599.       struct obj *otmp2;
  1600.   
  1601. !     if(obj == uball || obj == uchain)
  1602.           res = 0;
  1603. !     else
  1604.       switch(otmp->otyp) {
  1605.       case WAN_POLYMORPH:
  1606.       case SPE_POLYMORPH:
  1607. !         if (obj_resists(obj)) {
  1608.               res = 0;
  1609.               break;
  1610.           } else if (obj_shudders(obj)) {
  1611. --- 594,613 ----
  1612.       register int res = 1;
  1613.       struct obj *otmp2;
  1614.   
  1615. !     if (obj == uball) {
  1616.           res = 0;
  1617. !     } else if (obj == uchain) {
  1618. !         if (otmp->otyp == WAN_OPENING || otmp->otyp == SPE_KNOCK) {
  1619. !             unpunish();
  1620. !             res = 1;
  1621. !             makeknown(otmp->otyp);
  1622. !         } else
  1623. !             res = 0;
  1624. !     } else
  1625.       switch(otmp->otyp) {
  1626.       case WAN_POLYMORPH:
  1627.       case SPE_POLYMORPH:
  1628. !         if (obj_resists(obj, 5, 95)) {
  1629.               res = 0;
  1630.               break;
  1631.           } else if (obj_shudders(obj)) {
  1632. ***************
  1633. *** 646,651 ****
  1634. --- 666,672 ----
  1635.               otmp2->otyp = LOW_BOOTS;
  1636.               otmp2->oclass = ARMOR_CLASS;
  1637.               otmp2->spe = 0;
  1638. +             otmp2->oeroded = 0;
  1639.               otmp2->oerodeproof = TRUE;
  1640.               otmp2->quan = 1L;
  1641.               otmp2->cursed = FALSE;
  1642. ***************
  1643. *** 653,659 ****
  1644.           }
  1645.   
  1646.           /* no box contents --KAA */
  1647. !         if (Is_container(otmp2) || otmp2->otyp == STATUE)
  1648.               delete_contents(otmp2);
  1649.   
  1650.           /* 'n' merged objects may be fused into 1 object */
  1651. --- 674,680 ----
  1652.           }
  1653.   
  1654.           /* no box contents --KAA */
  1655. !         if (Has_contents(otmp2))
  1656.               delete_contents(otmp2);
  1657.   
  1658.           /* 'n' merged objects may be fused into 1 object */
  1659. ***************
  1660. *** 676,682 ****
  1661.                     shop_keeper(*in_rooms(obj->ox, obj->oy, SHOPBASE));
  1662.   
  1663.               if ((!obj->no_charge ||
  1664. !              (Is_container(obj) &&
  1665.                   (contained_cost(obj, shkp, 0L, FALSE) != 0L)))
  1666.                  && inhishop(shkp)) {
  1667.                   if(shkp->mpeaceful) {
  1668. --- 697,703 ----
  1669.                     shop_keeper(*in_rooms(obj->ox, obj->oy, SHOPBASE));
  1670.   
  1671.               if ((!obj->no_charge ||
  1672. !              (Has_contents(obj) &&
  1673.                   (contained_cost(obj, shkp, 0L, FALSE) != 0L)))
  1674.                  && inhishop(shkp)) {
  1675.                   if(shkp->mpeaceful) {
  1676. ***************
  1677. *** 699,711 ****
  1678.               fracture_rock(obj);
  1679.           else if (obj->otyp == STATUE)
  1680.               (void) break_statue(obj);
  1681. !         else
  1682.               res = 0;
  1683.           makeknown(otmp->otyp);
  1684.           break;
  1685.       case WAN_CANCELLATION:
  1686.       case SPE_CANCELLATION:
  1687.           cancel_item(obj);
  1688.           break;
  1689.       case WAN_TELEPORTATION:
  1690.       case SPE_TELEPORT_AWAY:
  1691. --- 720,745 ----
  1692.               fracture_rock(obj);
  1693.           else if (obj->otyp == STATUE)
  1694.               (void) break_statue(obj);
  1695. !         else {
  1696. !             (void)breaks(obj, FALSE);
  1697.               res = 0;
  1698. +         }
  1699.           makeknown(otmp->otyp);
  1700.           break;
  1701. +     case WAN_DIGGING:
  1702. +     case SPE_DIG:
  1703. +         /* vaporize boulders */
  1704. +         if (obj->otyp == BOULDER) {
  1705. +             delobj(obj);
  1706. +             res = 0;
  1707. +         }
  1708. +         break;
  1709.       case WAN_CANCELLATION:
  1710.       case SPE_CANCELLATION:
  1711.           cancel_item(obj);
  1712. + #ifdef TEXTCOLOR
  1713. +         newsym(obj->ox,obj->oy);    /* might change color */
  1714. + #endif
  1715.           break;
  1716.       case WAN_TELEPORTATION:
  1717.       case SPE_TELEPORT_AWAY:
  1718. ***************
  1719. *** 721,734 ****
  1720.           break;
  1721.       case WAN_OPENING:
  1722.       case SPE_KNOCK:
  1723. -         /* Zap it at the chain, not the ball */
  1724. -         if (obj == uchain) {
  1725. -             unpunish();
  1726. -             res = 1;
  1727. -             makeknown(obj->otyp);
  1728. -             break;
  1729. -         }
  1730. -         /* fall through */
  1731.       case WAN_LOCKING:
  1732.       case SPE_WIZARD_LOCK:
  1733.           if(Is_box(obj))
  1734. --- 755,760 ----
  1735. ***************
  1736. *** 735,742 ****
  1737.               res = boxlock(obj, otmp);
  1738.           else
  1739.               res = 0;
  1740. !         if (res /* && obj->oclass == WAND_CLASS */)
  1741. !             makeknown(obj->otyp);
  1742.           break;
  1743.       case WAN_SLOW_MONSTER:        /* no effect on objects */
  1744.       case SPE_SLOW_MONSTER:
  1745. --- 761,768 ----
  1746.               res = boxlock(obj, otmp);
  1747.           else
  1748.               res = 0;
  1749. !         if (res /* && otmp->oclass == WAND_CLASS */)
  1750. !             makeknown(otmp->otyp);
  1751.           break;
  1752.       case WAN_SLOW_MONSTER:        /* no effect on objects */
  1753.       case SPE_SLOW_MONSTER:
  1754. ***************
  1755. *** 743,748 ****
  1756. --- 769,776 ----
  1757.       case WAN_SPEED_MONSTER:
  1758.       case WAN_NOTHING:
  1759.       case WAN_PROBING:
  1760. +     case SPE_HEALING:
  1761. +     case SPE_EXTRA_HEALING:
  1762.           res = 0;
  1763.           break;
  1764.       default:
  1765. ***************
  1766. *** 990,996 ****
  1767.           case SPE_CANCELLATION:
  1768.               cancel_monst(&youmonst, obj, TRUE, FALSE, TRUE);
  1769.               break;
  1770. !            case WAN_MAKE_INVISIBLE: {
  1771.               /* have to test before changing HInvis but must change
  1772.                * HInvis before doing newsym().
  1773.                */
  1774. --- 1018,1024 ----
  1775.           case SPE_CANCELLATION:
  1776.               cancel_monst(&youmonst, obj, TRUE, FALSE, TRUE);
  1777.               break;
  1778. !         case WAN_MAKE_INVISIBLE: {
  1779.               /* have to test before changing HInvis but must change
  1780.                * HInvis before doing newsym().
  1781.                */
  1782. ***************
  1783. *** 1006,1012 ****
  1784.               }
  1785.               break;
  1786.           }
  1787. !            case WAN_SPEED_MONSTER:
  1788.               if (!(Fast & INTRINSIC)) {
  1789.               You("seem to be moving faster.");
  1790.               makeknown(WAN_SPEED_MONSTER);
  1791. --- 1034,1040 ----
  1792.               }
  1793.               break;
  1794.           }
  1795. !         case WAN_SPEED_MONSTER:
  1796.               if (!(Fast & INTRINSIC)) {
  1797.               You("seem to be moving faster.");
  1798.               makeknown(WAN_SPEED_MONSTER);
  1799. ***************
  1800. *** 1014,1020 ****
  1801.               }
  1802.               Fast |= FROMOUTSIDE;
  1803.               break;
  1804. !            case WAN_SLEEP:
  1805.               makeknown(WAN_SLEEP);
  1806.           case SPE_SLEEP:
  1807.               if(Sleep_resistance) {
  1808. --- 1042,1048 ----
  1809.               }
  1810.               Fast |= FROMOUTSIDE;
  1811.               break;
  1812. !         case WAN_SLEEP:
  1813.               makeknown(WAN_SLEEP);
  1814.           case SPE_SLEEP:
  1815.               if(Sleep_resistance) {
  1816. ***************
  1817. *** 1067,1075 ****
  1818.               }
  1819.   #endif
  1820.               break;
  1821.           case SPE_DIG:
  1822.           case SPE_DETECT_UNSEEN:
  1823. -         case WAN_DIGGING:
  1824.           case WAN_NOTHING:
  1825.           case WAN_OPENING:
  1826.           case WAN_LOCKING:
  1827. --- 1095,1110 ----
  1828.               }
  1829.   #endif
  1830.               break;
  1831. +         case SPE_HEALING:
  1832. +         case SPE_EXTRA_HEALING:
  1833. +             healup(obj->otyp == SPE_HEALING ? rnd(8) : d(2,8)+2,
  1834. +                0, FALSE, FALSE);
  1835. +             You(obj->otyp == SPE_HEALING ? "begin to feel better." :
  1836. +             "feel a fair bit better.");
  1837. +             break;
  1838. +         case WAN_DIGGING:
  1839.           case SPE_DIG:
  1840.           case SPE_DETECT_UNSEEN:
  1841.           case WAN_NOTHING:
  1842.           case WAN_OPENING:
  1843.           case WAN_LOCKING:
  1844. ***************
  1845. *** 1712,1721 ****
  1846.       return(cnt);
  1847.   }
  1848.   
  1849. ! /* type == 0 to 9     : you shooting a wand */
  1850. ! /* type == 10 to 19   : you casting a spell */
  1851. ! /* type == 20 to 29   : you breathing as a monster */
  1852. ! /* type == -10 to -19   : monster casting spell */
  1853.   /* type == -20 to -29 : monster breathing at you */
  1854.   /* type == -30 to -39 : monster shooting a wand (MUSE only) */
  1855.   /* called with dx = dy = 0 with vertical bolts */
  1856. --- 1747,1756 ----
  1857.       return(cnt);
  1858.   }
  1859.   
  1860. ! /* type ==   0 to   9 : you shooting a wand */
  1861. ! /* type ==  10 to  19 : you casting a spell */
  1862. ! /* type ==  20 to  29 : you breathing as a monster */
  1863. ! /* type == -10 to -19 : monster casting spell */
  1864.   /* type == -20 to -29 : monster breathing at you */
  1865.   /* type == -30 to -39 : monster shooting a wand (MUSE only) */
  1866.   /* called with dx = dy = 0 with vertical bolts */
  1867. ***************
  1868. *** 1730,1739 ****
  1869.       register xchar lsx, lsy;
  1870.       struct monst *mon;
  1871.       boolean bodyhit = FALSE, shopdamage = FALSE;
  1872.   #ifdef MUSE
  1873. !     register const char *fltxt = fl[(type <= -30) ? abstype : abs(type)];
  1874.   #else
  1875. !     register const char *fltxt = fl[abs(type)];
  1876.   #endif
  1877.       if(u.uswallow) {
  1878.       register int tmp;
  1879. --- 1765,1776 ----
  1880.       register xchar lsx, lsy;
  1881.       struct monst *mon;
  1882.       boolean bodyhit = FALSE, shopdamage = FALSE;
  1883. +     register const char *fltxt;
  1884. + 
  1885.   #ifdef MUSE
  1886. !     fltxt = flash_types[(type <= -30) ? abstype : abs(type)];
  1887.   #else
  1888. !     fltxt = flash_types[abs(type)];
  1889.   #endif
  1890.       if(u.uswallow) {
  1891.       register int tmp;
  1892. ***************
  1893. *** 1774,1804 ****
  1894.           if (type >= 0) mon->data->mflags3 &= ~M3_WAITMASK;
  1895.           if (rnd(20) < 18 + find_mac(mon)) {
  1896.   #ifdef MUSE
  1897. !         struct obj *orefl = which_armor(mon, W_ARMS);
  1898. ! 
  1899. !         if (orefl && orefl->otyp == SHIELD_OF_REFLECTION) {
  1900.               if(cansee(mon->mx,mon->my)) {
  1901.               hit(fltxt, mon, exclam(0));
  1902. !             pline("But it reflects from %s shield!",
  1903. !                   s_suffix(mon_nam(mon)));
  1904. !             makeknown(SHIELD_OF_REFLECTION);
  1905. !             shieldeff(sx, sy);
  1906.               }
  1907. - 
  1908.               dx = -dx;
  1909.               dy = -dy;
  1910. -         } else if ((orefl = which_armor(mon, W_AMUL)) &&
  1911. -                     orefl->otyp == AMULET_OF_REFLECTION) {
  1912. -             if(cansee(mon->mx,mon->my)) {
  1913. -             hit(fltxt, mon, exclam(0));
  1914. -             pline("But it reflects from %s amulet!",
  1915. -                   s_suffix(mon_nam(mon)));
  1916. -             makeknown(AMULET_OF_REFLECTION);
  1917. -             shieldeff(sx, sy);
  1918. -             }
  1919. - 
  1920. -             dx = -dx;
  1921. -             dy = -dy;
  1922.           } else
  1923.   #endif
  1924.           {
  1925. --- 1811,1824 ----
  1926.           if (type >= 0) mon->data->mflags3 &= ~M3_WAITMASK;
  1927.           if (rnd(20) < 18 + find_mac(mon)) {
  1928.   #ifdef MUSE
  1929. !         if (mon_reflects(mon, "")) {
  1930.               if(cansee(mon->mx,mon->my)) {
  1931.               hit(fltxt, mon, exclam(0));
  1932. !             shieldeff(mon->mx, mon->my);
  1933. !             (void) mon_reflects(mon, "But it reflects from %s %s!");
  1934.               }
  1935.               dx = -dx;
  1936.               dy = -dy;
  1937.           } else
  1938.   #endif
  1939.           {
  1940. ***************
  1941. *** 1820,1827 ****
  1942.                   mon->mhp = mon->mhpmax;
  1943.               break; /* Out of while loop */
  1944.               }
  1945. !             if(mon->data == &mons[PM_DEATH] &&
  1946. !                             abs(type)%10 == ZT_DEATH) {
  1947.                   if(cansee(mon->mx,mon->my)) {
  1948.                   hit(fltxt, mon, exclam(tmp));
  1949.                       pline("Death absorbs the deadly %s!",
  1950. --- 1840,1846 ----
  1951.                   mon->mhp = mon->mhpmax;
  1952.               break; /* Out of while loop */
  1953.               }
  1954. !             if(mon->data == &mons[PM_DEATH] && abstype == ZT_DEATH) {
  1955.                   if(cansee(mon->mx,mon->my)) {
  1956.                   hit(fltxt, mon, exclam(tmp));
  1957.                       pline("Death absorbs the deadly %s!",
  1958. ***************
  1959. *** 1983,1990 ****
  1960.               else if(Antimagic) {
  1961.               shieldeff(sx, sy);
  1962.               You("aren't affected.");
  1963. !             } else
  1964. !             u.uhp = -1;
  1965.               break;
  1966.           case ZT_LIGHTNING:
  1967.               if (Shock_resistance) {
  1968. --- 2002,2010 ----
  1969.               else if(Antimagic) {
  1970.               shieldeff(sx, sy);
  1971.               You("aren't affected.");
  1972. !             break;
  1973. !             }
  1974. !             u.uhp = -1;
  1975.               break;
  1976.           case ZT_LIGHTNING:
  1977.               if (Shock_resistance) {
  1978. ***************
  1979. *** 2078,2083 ****
  1980. --- 2098,2127 ----
  1981.                     abstype == ZT_DEATH ? "disintegrate" : "destroy");
  1982.   }
  1983.   
  1984. + void
  1985. + melt_ice(x, y)
  1986. + xchar x, y;
  1987. + {
  1988. +     struct rm *lev = &levl[x][y];
  1989. + 
  1990. +     if (lev->typ == DRAWBRIDGE_UP)
  1991. +         lev->drawbridgemask &= ~DB_ICE;    /* revert to DB_MOAT */
  1992. +     else {    /* lev->typ == ICE */
  1993. + #ifdef STUPID
  1994. +         if (lev->icedpool == ICED_POOL) lev->typ = POOL;
  1995. +         else lev->typ = MOAT;
  1996. + #else
  1997. +         lev->typ = (lev->icedpool == ICED_POOL ? POOL : MOAT);
  1998. + #endif
  1999. +         lev->icedpool = 0;
  2000. +     }
  2001. +     unearth_objs(x, y);
  2002. +     newsym(x,y);
  2003. +     if (cansee(x,y)) Norep("The ice crackles and melts.");
  2004. +     if (x == u.ux && y == u.uy)
  2005. +         spoteffects();    /* possibly drown, notice objects */
  2006. + }
  2007. + 
  2008.   /* Burn floor scrolls, evaporate pools, etc...  in a single square.  Used
  2009.    * both for normal bolts of fire, cold, etc... and for fireballs.
  2010.    * Sets shopdamage to TRUE if a shop door is destroyed, and returns the 
  2011. ***************
  2012. *** 2096,2116 ****
  2013.   
  2014.       if(abstype == ZT_FIRE) {
  2015.           if(is_ice(x, y)) {
  2016. !         if (lev->typ == DRAWBRIDGE_UP)
  2017. !             lev->drawbridgemask &= ~DB_ICE;    /* revert to DB_MOAT */
  2018. !         else {    /* lev->typ == ICE */
  2019. ! #ifdef STUPID
  2020. !             if (lev->icedpool == ICED_POOL) lev->typ = POOL;
  2021. !             else lev->typ = MOAT;
  2022. ! #else
  2023. !             lev->typ = (lev->icedpool == ICED_POOL ? POOL : MOAT);
  2024. ! #endif
  2025. !             lev->icedpool = 0;
  2026. !         }
  2027. !         newsym(x,y);
  2028. !         Norep("The ice crackles and melts.");
  2029. !         if (x == u.ux && y == u.uy)
  2030. !             spoteffects();    /* possibly drown */
  2031.           } else if(is_pool(x,y)) {
  2032.           const char *msgtxt = "You hear hissing gas.";
  2033.           if(lev->typ != POOL) {    /* MOAT or DRAWBRIDGE_UP */
  2034. --- 2140,2146 ----
  2035.   
  2036.       if(abstype == ZT_FIRE) {
  2037.           if(is_ice(x, y)) {
  2038. !         melt_ice(x, y);
  2039.           } else if(is_pool(x,y)) {
  2040.           const char *msgtxt = "You hear hissing gas.";
  2041.           if(lev->typ != POOL) {    /* MOAT or DRAWBRIDGE_UP */
  2042. ***************
  2043. *** 2121,2127 ****
  2044.               rangemod -= 3;
  2045.               lev->typ = ROOM;
  2046.               ttmp = maketrap(x, y, PIT);
  2047. !             ttmp->tseen = 1;
  2048.               if (cansee(x,y)) msgtxt = "The water evaporates.";
  2049.           }
  2050.           Norep(msgtxt);
  2051. --- 2151,2157 ----
  2052.               rangemod -= 3;
  2053.               lev->typ = ROOM;
  2054.               ttmp = maketrap(x, y, PIT);
  2055. !             if (ttmp) ttmp->tseen = 1;
  2056.               if (cansee(x,y)) msgtxt = "The water evaporates.";
  2057.           }
  2058.           Norep(msgtxt);
  2059. ***************
  2060. *** 2152,2165 ****
  2061.                       (lev->typ == POOL ? ICED_POOL : ICED_MOAT);
  2062.               lev->typ = (lava ? ROOM : ICE);
  2063.               }
  2064. !             /*
  2065. !              * Not perfect: There could be stuff on the bottom.  If
  2066. !              * we leave it here, it'll pop to the surface which is
  2067. !              * strange, so just destroy all the objects at this location.
  2068. !              * A better solution requires major changes (as usual).
  2069. !              */
  2070. !             if(OBJ_AT(x,y))
  2071. !             delallobj(x,y);
  2072.               if(cansee(x,y)) {
  2073.               if(moat)
  2074.                   Norep("The moat is bridged with ice!");
  2075. --- 2182,2188 ----
  2076.                       (lev->typ == POOL ? ICED_POOL : ICED_MOAT);
  2077.               lev->typ = (lava ? ROOM : ICE);
  2078.               }
  2079. !             bury_objs(x,y);
  2080.               if(cansee(x,y)) {
  2081.               if(moat)
  2082.                   Norep("The moat is bridged with ice!");
  2083. ***************
  2084. *** 2295,2313 ****
  2085.       } while(!goodpos(tx,ty,(struct monst *)0, (struct permonst *)0));
  2086.       freeobj(obj);
  2087.       if (flooreffects(obj, tx, ty, "fall"))
  2088. !          return;
  2089. !     if(costly_spot(otx, oty) && (!costly_spot(tx, ty) ||
  2090. !                      !index(in_rooms(tx, ty, 0),
  2091. !                         *in_rooms(otx, oty, 0)))) {
  2092.           if(costly_spot(u.ux, u.uy) &&
  2093.                   index(u.urooms, *in_rooms(otx, oty, 0)))
  2094.               addtobill(obj, FALSE, FALSE, FALSE);
  2095.           else (void)stolen_value(obj, otx, oty, FALSE, FALSE);
  2096.       }
  2097.       obj->nobj = fobj;
  2098.       fobj = obj;
  2099.       place_object(obj, tx, ty);
  2100. -     newsym(otx, oty);
  2101.       newsym(tx,ty);
  2102.   }
  2103.   
  2104. --- 2318,2340 ----
  2105.       } while(!goodpos(tx,ty,(struct monst *)0, (struct permonst *)0));
  2106.       freeobj(obj);
  2107.       if (flooreffects(obj, tx, ty, "fall"))
  2108. !         return;
  2109. !     if (otx == 0 && oty == 0) {
  2110. !         ;    /* fell through a trapdoor; no update of old loc needed */
  2111. !     } else {
  2112. !         if (costly_spot(otx, oty)
  2113. !           && (!costly_spot(tx, ty) ||
  2114. !           !index(in_rooms(tx, ty, 0), *in_rooms(otx, oty, 0)))) {
  2115.           if(costly_spot(u.ux, u.uy) &&
  2116.                   index(u.urooms, *in_rooms(otx, oty, 0)))
  2117.               addtobill(obj, FALSE, FALSE, FALSE);
  2118.           else (void)stolen_value(obj, otx, oty, FALSE, FALSE);
  2119. +         }
  2120. +         newsym(otx, oty);    /* update old location */
  2121.       }
  2122.       obj->nobj = fobj;
  2123.       fobj = obj;
  2124.       place_object(obj, tx, ty);
  2125.       newsym(tx,ty);
  2126.   }
  2127.   
  2128.