home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / games / volume16 / nethack31 / patch1h / patches01i
Text File  |  1993-03-05  |  54KB  |  1,886 lines
  1. *** /tmp/da08606    Thu Feb 25 10:25:21 1993
  2. --- src/sounds.c    Thu Feb 18 10:59:37 1993
  3. ***************
  4. *** 1,4 ****
  5. ! /*    SCCS Id: @(#)sounds.c    3.1    92/07/07
  6.   /*     Copyright (c) 1989 Janet Walz, Mike Threepoint */
  7.   /* NetHack may be freely redistributed.  See license for details. */
  8.   
  9. --- 1,4 ----
  10. ! /*    SCCS Id: @(#)sounds.c    3.1    93/02/09
  11.   /*     Copyright (c) 1989 Janet Walz, Mike Threepoint */
  12.   /* NetHack may be freely redistributed.  See license for details. */
  13.   
  14. ***************
  15. *** 64,74 ****
  16.           You("hear the tones of courtly conversation.");
  17.           break;
  18.           case 1:
  19. !         You("hear a sceptre being pounded in judgment.");
  20.           break;
  21.           case 2:
  22. !         pline("Someone just shouted \"Off with %s head!\"",
  23. !             flags.female ? "her" : "his");
  24.           break;
  25.           case 3:
  26.           You("hear Queen Beruthiel's cats!");
  27. --- 64,74 ----
  28.           You("hear the tones of courtly conversation.");
  29.           break;
  30.           case 1:
  31. !         You("hear a sceptre pounded in judgment.");
  32.           break;
  33.           case 2:
  34. !         pline("Someone shouts \"Off with %s head!\"",
  35. !               his[flags.female]);
  36.           break;
  37.           case 3:
  38.           You("hear Queen Beruthiel's cats!");
  39. ***************
  40. *** 186,195 ****
  41.       if (level.flags.has_zoo && !rn2(200)) {
  42.       switch (rn2(2)+hallu) {
  43.           case 0:
  44. !     You("hear a sound reminding you of an elephant stepping on a peanut.");
  45.           break;
  46.           case 1:
  47. !         You("hear a sound reminding you of a trained seal.");
  48.           break;
  49.           case 2:
  50.           You("hear Doctor Doolittle!");
  51. --- 186,195 ----
  52.       if (level.flags.has_zoo && !rn2(200)) {
  53.       switch (rn2(2)+hallu) {
  54.           case 0:
  55. !         You("hear a sound reminiscent of an elephant stepping on a peanut.");
  56.           break;
  57.           case 1:
  58. !         You("hear a sound reminiscent of a seal barking.");
  59.           break;
  60.           case 2:
  61.           You("hear Doctor Doolittle!");
  62. ***************
  63. *** 421,427 ****
  64.   #endif
  65.       case MS_BONES:
  66.           pline("%s rattles noisily.", Monnam(mtmp));
  67. !         You("freeze momentarily.");
  68.           nomul(-2);
  69.           break;
  70.       case MS_HUMANOID:
  71. --- 421,427 ----
  72.   #endif
  73.       case MS_BONES:
  74.           pline("%s rattles noisily.", Monnam(mtmp));
  75. !         You("freeze for a moment.");
  76.           nomul(-2);
  77.           break;
  78.       case MS_HUMANOID:
  79. ***************
  80. *** 449,455 ****
  81.           else if (likes_magic(mtmp->data))
  82.           pline("%s talks about spellcraft.", Monnam(mtmp));
  83.           else if (carnivorous(mtmp->data))
  84. !         pline("%s discusses what kinds of meat are safe to eat.", Monnam(mtmp));
  85.           else switch (monsndx(mtmp->data)){
  86.           case PM_HOBBIT:
  87.               if (mtmp->mhpmax - mtmp->mhp >= 10)
  88. --- 449,455 ----
  89.           else if (likes_magic(mtmp->data))
  90.           pline("%s talks about spellcraft.", Monnam(mtmp));
  91.           else if (carnivorous(mtmp->data))
  92. !         pline("%s discusses hunting.", Monnam(mtmp));
  93.           else switch (monsndx(mtmp->data)){
  94.           case PM_HOBBIT:
  95.               if (mtmp->mhpmax - mtmp->mhp >= 10)
  96. ***************
  97. *** 460,468 ****
  98. --- 460,470 ----
  99.           case PM_ARCHEOLOGIST:
  100.   pline("%s describes a recent article in \"Spelunker Today\" magazine.", Monnam(mtmp));
  101.               break;
  102. + # ifdef TOURIST
  103.           case PM_TOURIST:
  104.               verbalize("Aloha.");
  105.               break;
  106. + # endif
  107.           default:
  108.               pline("%s discusses dungeon exploration.", Monnam(mtmp));
  109.           }
  110. ***************
  111. *** 632,638 ****
  112.   
  113.   #ifdef POLYSELF
  114.       if (uasmon->msound == MS_SILENT) {
  115. !     Your("current form seems unable to speak.");
  116.       return(0);
  117.       }
  118.   #endif
  119. --- 634,640 ----
  120.   
  121.   #ifdef POLYSELF
  122.       if (uasmon->msound == MS_SILENT) {
  123. !     pline("As %s, you cannot speak.", an(uasmon->mname));
  124.       return(0);
  125.       }
  126.   #endif
  127. ***************
  128. *** 645,651 ****
  129.       return(0);
  130.       }
  131.       if (Underwater) {
  132. !     pline("All you can utter is a mouthful of air bubbles.");
  133.       return(0);
  134.       }
  135.   
  136. --- 647,653 ----
  137.       return(0);
  138.       }
  139.       if (Underwater) {
  140. !     pline("Your speech is unintelligible underwater.");
  141.       return(0);
  142.       }
  143.   
  144. *** /tmp/da08614    Thu Feb 25 10:25:23 1993
  145. --- src/sp_lev.c    Wed Feb 24 22:34:59 1993
  146. ***************
  147. *** 67,82 ****
  148.   #define NewTab(type, size)    (type **) alloc(sizeof(type *) * size)
  149.   #define Free(ptr)        if(ptr) free((genericptr_t) (ptr))
  150.   
  151. ! static walk NEARDATA walklist[50];
  152.   extern int min_rx, max_rx, min_ry, max_ry; /* from mkmap.c */
  153.   
  154.   static char Map[COLNO][ROWNO];
  155.   static char robjects[10], rloc_x[10], rloc_y[10], rmonst[10];
  156.   static aligntyp    ralign[3] = { AM_CHAOTIC, AM_NEUTRAL, AM_LAWFUL };
  157. ! static xchar NEARDATA xstart, NEARDATA ystart;
  158. ! static char NEARDATA xsize, NEARDATA ysize;
  159.   
  160. ! static void FDECL(make_walls_nondiggable, (XCHAR_P,XCHAR_P,XCHAR_P,XCHAR_P));
  161.   static int NDECL(rnddoor);
  162.   static int NDECL(rndtrap);
  163.   static void FDECL(get_location, (schar *,schar *,int));
  164. --- 67,82 ----
  165.   #define NewTab(type, size)    (type **) alloc(sizeof(type *) * size)
  166.   #define Free(ptr)        if(ptr) free((genericptr_t) (ptr))
  167.   
  168. ! static NEARDATA walk walklist[50];
  169.   extern int min_rx, max_rx, min_ry, max_ry; /* from mkmap.c */
  170.   
  171.   static char Map[COLNO][ROWNO];
  172.   static char robjects[10], rloc_x[10], rloc_y[10], rmonst[10];
  173.   static aligntyp    ralign[3] = { AM_CHAOTIC, AM_NEUTRAL, AM_LAWFUL };
  174. ! static NEARDATA xchar xstart, ystart;
  175. ! static NEARDATA char xsize, ysize;
  176.   
  177. ! static void FDECL(set_wall_property, (XCHAR_P,XCHAR_P,XCHAR_P,XCHAR_P,int));
  178.   static int NDECL(rnddoor);
  179.   static int NDECL(rndtrap);
  180.   static void FDECL(get_location, (schar *,schar *,int));
  181. ***************
  182. *** 96,107 ****
  183.   lev_init init_lev;
  184.   
  185.   /*
  186. !  * Make walls of the area (x1, y1, x2, y2) non diggable
  187.    */
  188.   
  189.   static void
  190. ! make_walls_nondiggable(x1,y1,x2,y2)
  191.   xchar x1, y1, x2, y2;
  192.   {
  193.       register xchar x, y;
  194.   
  195. --- 96,108 ----
  196.   lev_init init_lev;
  197.   
  198.   /*
  199. !  * Make walls of the area (x1, y1, x2, y2) non diggable/non passwall-able
  200.    */
  201.   
  202.   static void
  203. ! set_wall_property(x1,y1,x2,y2, prop)
  204.   xchar x1, y1, x2, y2;
  205. + int prop;
  206.   {
  207.       register xchar x, y;
  208.   
  209. ***************
  210. *** 108,114 ****
  211.       for(y = y1; y <= y2; y++)
  212.           for(x = x1; x <= x2; x++)
  213.           if(IS_STWALL(levl[x][y].typ))
  214. !             levl[x][y].diggable |= W_NONDIGGABLE;
  215.   }
  216.   
  217.   /*
  218. --- 109,115 ----
  219.       for(y = y1; y <= y2; y++)
  220.           for(x = x1; x <= x2; x++)
  221.           if(IS_STWALL(levl[x][y].typ))
  222. !             levl[x][y].diggable |= prop;
  223.   }
  224.   
  225.   /*
  226. ***************
  227. *** 843,849 ****
  228.           /* changed mpeaceful again; have to reset malign */
  229.           set_malign(mtmp);
  230.           }
  231. !         if (m->asleep >= 0) mtmp->msleep = m->asleep;
  232.       }
  233.   }
  234.   
  235. --- 844,860 ----
  236.           /* changed mpeaceful again; have to reset malign */
  237.           set_malign(mtmp);
  238.           }
  239. !         if (m->asleep >= 0) {
  240. ! #ifdef UNIXPC
  241. !         /* optimizer bug strikes again */
  242. !         if (m->asleep)
  243. !             mtmp->msleep = TRUE;
  244. !         else
  245. !             mtmp->msleep = FALSE;
  246. ! #else
  247. !         mtmp->msleep = m->asleep;
  248. ! #endif
  249. !         }
  250.       }
  251.   }
  252.   
  253. ***************
  254. *** 1035,1040 ****
  255. --- 1046,1055 ----
  256.           get_location(&x, &y, DRY);
  257.       }
  258.       levl[x][y].typ = typ;
  259. +     if (typ == FOUNTAIN)
  260. +         level.flags.nfountains++;
  261. +     else if (typ == SINK)
  262. +         level.flags.nsinks++;
  263.   }
  264.   
  265.   /* 
  266. ***************
  267. *** 1294,1349 ****
  268.       if (!croom || croom->rtype == OROOM)
  269.           return;
  270.   
  271. !     if(prefilled) {
  272. !         switch(croom->rtype) {
  273.           case COURT:
  274. !         level.flags.has_court = 1;
  275.           break;
  276.   #ifdef ARMY
  277.           case BARRACKS:
  278. !         level.flags.has_barracks = 1;
  279.           break;
  280.   #endif
  281. !         case ZOO:
  282. !         level.flags.has_zoo = 1;
  283.           break;
  284. -         case MORGUE:
  285. -         level.flags.has_morgue = 1;
  286. -         break;
  287.           case SWAMP:
  288. !         level.flags.has_swamp = 1;
  289.           break;
  290. -         case BEEHIVE:
  291. -         level.flags.has_beehive = 1;
  292. -         break;
  293. -         }
  294. -         return;
  295.       }
  296. -     /* Vault ? */
  297. -     if (croom->rtype == VAULT) {
  298. -         int x,y;
  299. -         for (x=croom->lx;x<=croom->hx;x++)
  300. -             for (y=croom->ly;y<=croom->hy;y++)
  301. -             mkgold((long)rn1(depth(&u.uz)*100, 51), x, y);
  302. -         return;
  303. -     }
  304. - 
  305. -     /* Shop ? */
  306. -     if (croom->rtype >= SHOPBASE) {
  307. -         stock_room(croom->rtype - SHOPBASE, croom);
  308. -         return;
  309. -     }
  310. - 
  311. -     /* Zoo ? */
  312. -     switch (croom->rtype) {
  313. -           case COURT:
  314. -           case ZOO:
  315. -           case BEEHIVE:
  316. -           case MORGUE:
  317. -           case BARRACKS:
  318. -         fill_zoo(croom);
  319. -         break;
  320. -     }
  321.   }
  322.   
  323.   static void
  324. --- 1309,1367 ----
  325.       if (!croom || croom->rtype == OROOM)
  326.           return;
  327.   
  328. !     if (!prefilled) {
  329. !         int x,y;
  330. ! 
  331. !         /* Shop ? */
  332. !         if (croom->rtype >= SHOPBASE) {
  333. !             stock_room(croom->rtype - SHOPBASE, croom);
  334. !             level.flags.has_shop = TRUE;
  335. !             return;
  336. !         }
  337. ! 
  338. !         switch (croom->rtype) {
  339. !         case VAULT:
  340. !             for (x=croom->lx;x<=croom->hx;x++)
  341. !             for (y=croom->ly;y<=croom->hy;y++)
  342. !                 mkgold((long)rn1(abs(depth(&u.uz))*100, 51), x, y);
  343. !             break;
  344. !         case COURT:
  345. !         case ZOO:
  346. !         case BEEHIVE:
  347. !         case MORGUE:
  348. !         case BARRACKS:
  349. !             fill_zoo(croom);
  350. !             break;
  351. !         }
  352. !     }
  353. !     switch (croom->rtype) {
  354. !         case VAULT:
  355. !         level.flags.has_vault = TRUE;
  356. !         break;
  357. !         case ZOO:
  358. !         level.flags.has_zoo = TRUE;
  359. !         break;
  360.           case COURT:
  361. !         level.flags.has_court = TRUE;
  362.           break;
  363. +         case MORGUE:
  364. +         level.flags.has_morgue = TRUE;
  365. +         break;
  366. +         case BEEHIVE:
  367. +         level.flags.has_beehive = TRUE;
  368. +         break;
  369.   #ifdef ARMY
  370.           case BARRACKS:
  371. !         level.flags.has_barracks = TRUE;
  372.           break;
  373.   #endif
  374. !         case TEMPLE:
  375. !         level.flags.has_temple = TRUE;
  376.           break;
  377.           case SWAMP:
  378. !         level.flags.has_swamp = TRUE;
  379.           break;
  380.       }
  381.   }
  382.   
  383.   static void
  384. ***************
  385. *** 2263,2270 ****
  386.           get_location(&tmpdig.x1, &tmpdig.y1, DRY|WET);
  387.           get_location(&tmpdig.x2, &tmpdig.y2, DRY|WET);
  388.   
  389. !         make_walls_nondiggable(tmpdig.x1, tmpdig.y1,
  390. !                        tmpdig.x2, tmpdig.y2);
  391.       }
  392.   
  393.       Fread((genericptr_t) &n, 1, sizeof(n), fd);
  394. --- 2281,2300 ----
  395.           get_location(&tmpdig.x1, &tmpdig.y1, DRY|WET);
  396.           get_location(&tmpdig.x2, &tmpdig.y2, DRY|WET);
  397.   
  398. !         set_wall_property(tmpdig.x1, tmpdig.y1,
  399. !                   tmpdig.x2, tmpdig.y2, W_NONDIGGABLE);
  400. !     }
  401. ! 
  402. !     Fread((genericptr_t) &n, 1, sizeof(n), fd);
  403. !                         /* Number of non_passables */
  404. !     while(n--) {
  405. !         Fread((genericptr_t)&tmpdig, 1, sizeof(tmpdig), fd);
  406. ! 
  407. !         get_location(&tmpdig.x1, &tmpdig.y1, DRY|WET);
  408. !         get_location(&tmpdig.x2, &tmpdig.y2, DRY|WET);
  409. ! 
  410. !         set_wall_property(tmpdig.x1, tmpdig.y1,
  411. !                   tmpdig.x2, tmpdig.y2, W_NONPASSWALL);
  412.       }
  413.   
  414.       Fread((genericptr_t) &n, 1, sizeof(n), fd);
  415. *** /tmp/da08638    Thu Feb 25 10:25:32 1993
  416. --- src/timeout.c    Fri Feb 12 10:25:41 1993
  417. ***************
  418. *** 14,20 ****
  419.   #ifdef OVLB
  420.   
  421.   /* He is being petrified - dialogue by inmet!tower */
  422. ! static const char NEARDATA *stoned_texts[] = {
  423.       "You are slowing down.",        /* 5 */
  424.       "Your limbs are stiffening.",        /* 4 */
  425.       "Your limbs have turned to stone.",    /* 3 */
  426. --- 14,20 ----
  427.   #ifdef OVLB
  428.   
  429.   /* He is being petrified - dialogue by inmet!tower */
  430. ! static NEARDATA const char *stoned_texts[] = {
  431.       "You are slowing down.",        /* 5 */
  432.       "Your limbs are stiffening.",        /* 4 */
  433.       "Your limbs have turned to stone.",    /* 3 */
  434. ***************
  435. *** 36,42 ****
  436.   }
  437.   
  438.   /* He is getting sicker and sicker prior to vomiting */
  439. ! static const char NEARDATA *vomiting_texts[] = {
  440.       "You are feeling mildly nauseous.",    /* 14 */
  441.       "You feel slightly confused.",        /* 11 */
  442.       "You can't seem to think straight.",    /* 8 */
  443. --- 36,42 ----
  444.   }
  445.   
  446.   /* He is getting sicker and sicker prior to vomiting */
  447. ! static NEARDATA const char *vomiting_texts[] = {
  448.       "You are feeling mildly nauseous.",    /* 14 */
  449.       "You feel slightly confused.",        /* 11 */
  450.       "You can't seem to think straight.",    /* 8 */
  451. ***************
  452. *** 67,73 ****
  453.       exercise(A_CON, FALSE);
  454.   }
  455.   
  456. ! static const char NEARDATA *choke_texts[] = {
  457.       "You find it hard to breathe.",
  458.       "You're gasping for air.",
  459.       "You can no longer breathe.",
  460. --- 67,73 ----
  461.       exercise(A_CON, FALSE);
  462.   }
  463.   
  464. ! static NEARDATA const char *choke_texts[] = {
  465.       "You find it hard to breathe.",
  466.       "You're gasping for air.",
  467.       "You can no longer breathe.",
  468. ***************
  469. *** 334,343 ****
  470.   void
  471.   burn_lamps()
  472.   {
  473. !     register struct obj *obj;
  474.   
  475.       /* Note: magic lamps never go out as long as the genie's inside */
  476. !     for(obj=invent; obj; obj=obj->nobj) {
  477.           if ((obj->otyp == OIL_LAMP || obj->otyp == BRASS_LANTERN)
  478.                               && obj->lamplit) {
  479.           obj->age--;
  480. --- 334,344 ----
  481.   void
  482.   burn_lamps()
  483.   {
  484. !     register struct obj *obj, *obj2;
  485.   
  486.       /* Note: magic lamps never go out as long as the genie's inside */
  487. !     for (obj=invent; obj; obj=obj2) {
  488. !         obj2 = obj->nobj;
  489.           if ((obj->otyp == OIL_LAMP || obj->otyp == BRASS_LANTERN)
  490.                               && obj->lamplit) {
  491.           obj->age--;
  492. ***************
  493. *** 376,382 ****
  494.           }
  495.           if ((obj->otyp == CANDELABRUM_OF_INVOCATION || Is_candle(obj)) &&
  496.               obj->lamplit)
  497. !         age_candle(obj);
  498.       }
  499.   }
  500.   
  501. --- 377,383 ----
  502.           }
  503.           if ((obj->otyp == CANDELABRUM_OF_INVOCATION || Is_candle(obj)) &&
  504.               obj->lamplit)
  505. !         age_candle(obj);    /* candles may vanish */
  506.       }
  507.   }
  508.   
  509. *** /tmp/da08646    Thu Feb 25 10:25:35 1993
  510. --- src/topten.c    Fri Feb 12 13:01:02 1993
  511. ***************
  512. *** 62,68 ****
  513.   static int FDECL(classmon, (CHAR_P,BOOLEAN_P));
  514.   
  515.   /* must fit with end.c */
  516. ! const char NEARDATA *killed_by_prefix[] = {
  517.       "killed by ", "choked on ", "poisoned by ", "", "drowned in ",
  518.       "", "crushed to death by ", "petrified by ", "",
  519.       "", "",
  520. --- 62,68 ----
  521.   static int FDECL(classmon, (CHAR_P,BOOLEAN_P));
  522.   
  523.   /* must fit with end.c */
  524. ! NEARDATA const char *killed_by_prefix[] = {
  525.       "killed by ", "choked on ", "poisoned by ", "", "drowned in ",
  526.       "", "crushed to death by ", "petrified by ", "",
  527.       "", "",
  528. ***************
  529. *** 148,153 ****
  530. --- 148,157 ----
  531.   #else
  532.   #define    HUP    if(!done_hup)
  533.   #endif
  534. + 
  535. + #ifdef TOS
  536. +     restore_colors();    /* make sure the screen is black on white */
  537. + #endif
  538.       /* create a new 'topten' entry */
  539.       t0 = newttentry();
  540.       /* deepest_lev_reached() is in terms of depth(), and reporting the
  541. ***************
  542. *** 172,182 ****
  543.           default: impossible("bad killer format?");
  544.           case KILLED_BY_AN:
  545.               Strcat(t0->death, killed_by_prefix[how]);
  546. !             (void) strncat(t0->death, an(killer), DTHSZ);
  547.               break;
  548.           case KILLED_BY:
  549.               Strcat(t0->death, killed_by_prefix[how]);
  550. !             (void) strncat(t0->death, killer, DTHSZ);
  551.               break;
  552.           case NO_KILLER_PREFIX:
  553.               (void) strncat(t0->death, killer, DTHSZ);
  554. --- 176,188 ----
  555.           default: impossible("bad killer format?");
  556.           case KILLED_BY_AN:
  557.               Strcat(t0->death, killed_by_prefix[how]);
  558. !             (void) strncat(t0->death, an(killer),
  559. !                         DTHSZ-strlen(t0->death));
  560.               break;
  561.           case KILLED_BY:
  562.               Strcat(t0->death, killed_by_prefix[how]);
  563. !             (void) strncat(t0->death, killer,
  564. !                         DTHSZ-strlen(t0->death));
  565.               break;
  566.           case NO_KILLER_PREFIX:
  567.               (void) strncat(t0->death, killer, DTHSZ);
  568. *** /tmp/da08654    Thu Feb 25 10:25:37 1993
  569. --- src/track.c    Thu Feb 11 13:28:07 1993
  570. ***************
  571. *** 7,14 ****
  572.   
  573.   #define    UTSZ    50
  574.   
  575. ! STATIC_VAR int NEARDATA utcnt, NEARDATA utpnt;
  576. ! STATIC_VAR coord NEARDATA utrack[UTSZ];
  577.   
  578.   #ifdef OVLB
  579.   void
  580. --- 7,14 ----
  581.   
  582.   #define    UTSZ    50
  583.   
  584. ! STATIC_VAR NEARDATA int utcnt, utpnt;
  585. ! STATIC_VAR NEARDATA coord utrack[UTSZ];
  586.   
  587.   #ifdef OVLB
  588.   void
  589. *** /tmp/da08662    Thu Feb 25 10:25:39 1993
  590. --- src/trap.c    Tue Feb 23 09:38:07 1993
  591. ***************
  592. *** 1,4 ****
  593. ! /*    SCCS Id: @(#)trap.c    3.1    92/12/10    */
  594.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  595.   /* NetHack may be freely redistributed.  See license for details. */
  596.   
  597. --- 1,4 ----
  598. ! /*    SCCS Id: @(#)trap.c    3.1    93/02/13    */
  599.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  600.   /* NetHack may be freely redistributed.  See license for details. */
  601.   
  602. ***************
  603. *** 57,64 ****
  604.   int type;
  605.   boolean print;
  606.   {
  607. !     static const char NEARDATA *action[] = { "smoulder", "rust", "rot", "corrode" };
  608. !     static const char NEARDATA *msg[] =  { "burnt", "rusted", "rotten", "corroded" };
  609.       boolean vulnerable = FALSE;
  610.       boolean plural;
  611.       boolean grprot = FALSE;
  612. --- 57,64 ----
  613.   int type;
  614.   boolean print;
  615.   {
  616. !     static NEARDATA const char *action[] = { "smoulder", "rust", "rot", "corrode" };
  617. !     static NEARDATA const char *msg[] =  { "burnt", "rusted", "rotten", "corroded" };
  618.       boolean vulnerable = FALSE;
  619.       boolean plural;
  620.       boolean grprot = FALSE;
  621. ***************
  622. *** 76,88 ****
  623.   
  624.       plural = is_gloves(otmp) || is_boots(otmp);
  625.   
  626. !     if (!vulnerable)
  627.           if (flags.verbose)
  628.               Your("%s %s not affected.", ostr, plural ? "are" : "is");
  629. !     else if (otmp->oeroded < MAX_ERODE) {
  630. !         if (grprot && otmp->greased)
  631.               grease_protect(otmp,ostr,plural);
  632. !         else if (otmp->oerodeproof || (otmp->blessed && !rnl(4))) {
  633.               if (flags.verbose)
  634.                   pline("Somehow, your %s %s not affected.",
  635.                       ostr, plural ? "are" : "is");
  636. --- 76,88 ----
  637.   
  638.       plural = is_gloves(otmp) || is_boots(otmp);
  639.   
  640. !     if (!vulnerable) {
  641.           if (flags.verbose)
  642.               Your("%s %s not affected.", ostr, plural ? "are" : "is");
  643. !     } else if (otmp->oeroded < MAX_ERODE) {
  644. !         if (grprot && otmp->greased) {
  645.               grease_protect(otmp,ostr,plural);
  646. !         } else if (otmp->oerodeproof || (otmp->blessed && !rnl(4))) {
  647.               if (flags.verbose)
  648.                   pline("Somehow, your %s %s not affected.",
  649.                       ostr, plural ? "are" : "is");
  650. ***************
  651. *** 93,103 ****
  652.                   otmp->oeroded ? " further" : "");
  653.               otmp->oeroded++;
  654.           }
  655. !     } else
  656.           if (flags.verbose)
  657.               Your("%s %s%s completely %s.", ostr,
  658.                    Blind ? "feel" : "look",
  659.                    plural ? "" : "s", msg[type]);
  660.       return(TRUE);
  661.   }
  662.   
  663. --- 93,104 ----
  664.                   otmp->oeroded ? " further" : "");
  665.               otmp->oeroded++;
  666.           }
  667. !     } else {
  668.           if (flags.verbose)
  669.               Your("%s %s%s completely %s.", ostr,
  670.                    Blind ? "feel" : "look",
  671.                    plural ? "" : "s", msg[type]);
  672. +     }
  673.       return(TRUE);
  674.   }
  675.   
  676. ***************
  677. *** 126,132 ****
  678.       register struct trap *ttmp;
  679.       register boolean oldplace;
  680.   
  681. !     if (ttmp = t_at(x,y)) {
  682.           oldplace = TRUE;
  683.           if (u.utrap && (x == u.ux) && (y == u.uy) && 
  684.             ((u.utraptype == TT_BEARTRAP && typ != BEAR_TRAP) ||
  685. --- 127,133 ----
  686.       register struct trap *ttmp;
  687.       register boolean oldplace;
  688.   
  689. !     if ((ttmp = t_at(x,y)) != 0) {
  690.           oldplace = TRUE;
  691.           if (u.utrap && (x == u.ux) && (y == u.uy) && 
  692.             ((u.utraptype == TT_BEARTRAP && typ != BEAR_TRAP) ||
  693. ***************
  694. *** 174,180 ****
  695.       boolean    tmp1, tmp2, tmp3, tmp4;
  696.   # ifdef POLYSELF
  697.       tmp1 = isok(x,y) && (!IS_ROCK(levl[x][y].typ) ||
  698. !         passes_walls(uasmon)) && !MON_AT(x, y);
  699.   # else
  700.       tmp1 = isok(x,y) && !IS_ROCK(levl[x][y].typ) && !MON_AT(x, y);
  701.   # endif
  702. --- 175,181 ----
  703.       boolean    tmp1, tmp2, tmp3, tmp4;
  704.   # ifdef POLYSELF
  705.       tmp1 = isok(x,y) && (!IS_ROCK(levl[x][y].typ) ||
  706. !         (passes_walls(uasmon) && may_passwall(x,y))) && !MON_AT(x, y);
  707.   # else
  708.       tmp1 = isok(x,y) && !IS_ROCK(levl[x][y].typ) && !MON_AT(x, y);
  709.   # endif
  710. ***************
  711. *** 191,197 ****
  712.   #else
  713.       return( isok(x,y) &&
  714.   # ifdef POLYSELF
  715. !         (!IS_ROCK(levl[x][y].typ) || passes_walls(uasmon)) &&
  716.   # else
  717.           !IS_ROCK(levl[x][y].typ) &&
  718.   # endif
  719. --- 192,199 ----
  720.   #else
  721.       return( isok(x,y) &&
  722.   # ifdef POLYSELF
  723. !         (!IS_ROCK(levl[x][y].typ) ||
  724. !          (passes_walls(uasmon) && may_passwall(x,y))) &&
  725.   # else
  726.           !IS_ROCK(levl[x][y].typ) &&
  727.   # endif
  728. ***************
  729. *** 317,325 ****
  730.   #else
  731.          !(ttype == PIT || ttype == SPIKED_PIT) &&
  732.   #endif
  733. !        !(ttype == MAGIC_PORTAL || ttype == ANTI_MAGIC) && !rn2(5))
  734.           You("escape a%s.", traps[ttype]);
  735. !     else {
  736.           seetrap(trap);
  737.           switch(ttype) {
  738.           case ARROW_TRAP:
  739. --- 319,327 ----
  740.   #else
  741.          !(ttype == PIT || ttype == SPIKED_PIT) &&
  742.   #endif
  743. !        !(ttype == MAGIC_PORTAL || ttype == ANTI_MAGIC) && !rn2(5)) {
  744.           You("escape a%s.", traps[ttype]);
  745. !     } else {
  746.           seetrap(trap);
  747.           switch(ttype) {
  748.           case ARROW_TRAP:
  749. ***************
  750. *** 327,335 ****
  751.               otmp = mksobj(ARROW, TRUE, FALSE);
  752.               otmp->quan = 1L;
  753.               otmp->owt = weight(otmp);
  754. !             if(thitu(8,dmgval(otmp,uasmon),otmp,"arrow"))
  755.               obfree(otmp, (struct obj *)0);
  756. !             else {
  757.               place_object(otmp, u.ux, u.uy);
  758.               otmp->nobj = fobj;
  759.               fobj = otmp;        
  760. --- 329,337 ----
  761.               otmp = mksobj(ARROW, TRUE, FALSE);
  762.               otmp->quan = 1L;
  763.               otmp->owt = weight(otmp);
  764. !             if(thitu(8,dmgval(otmp,uasmon),otmp,"arrow")) {
  765.               obfree(otmp, (struct obj *)0);
  766. !             } else {
  767.               place_object(otmp, u.ux, u.uy);
  768.               otmp->nobj = fobj;
  769.               fobj = otmp;        
  770. ***************
  771. *** 366,377 ****
  772.       pline("A trap door in the ceiling opens and a rock falls on your %s!",
  773.                   body_part(HEAD));
  774.   
  775. !             if (uarmh)
  776.                   if(is_metallic(uarmh)) {
  777.                   pline("Fortunately, you are wearing a hard helmet.");
  778.                   dmg = 2;
  779. !                 } else if (flags.verbose)
  780.                    Your("%s does not protect you.", xname(uarmh));
  781.   
  782.               stackobj(otmp);
  783.               newsym(u.ux,u.uy);    /* map the rock */
  784. --- 368,381 ----
  785.       pline("A trap door in the ceiling opens and a rock falls on your %s!",
  786.                   body_part(HEAD));
  787.   
  788. !             if (uarmh) {
  789.                   if(is_metallic(uarmh)) {
  790.                   pline("Fortunately, you are wearing a hard helmet.");
  791.                   dmg = 2;
  792. !                 } else if (flags.verbose) {
  793.                    Your("%s does not protect you.", xname(uarmh));
  794. +                 }
  795. +             }
  796.   
  797.               stackobj(otmp);
  798.               newsym(u.ux,u.uy);    /* map the rock */
  799. ***************
  800. *** 447,453 ****
  801.               } else
  802.               if (u.umonnum == PM_GREMLIN && rn2(3)) {
  803.               pline("A gush of water hits you!");
  804. !             if(mtmp = cloneu()) {
  805.                   mtmp->mhpmax = (u.mhmax /= 2);
  806.                   You("multiply.");
  807.               }
  808. --- 451,457 ----
  809.               } else
  810.               if (u.umonnum == PM_GREMLIN && rn2(3)) {
  811.               pline("A gush of water hits you!");
  812. !             if ((mtmp = cloneu()) != 0) {
  813.                   mtmp->mhpmax = (u.mhmax /= 2);
  814.                   You("multiply.");
  815.               }
  816. ***************
  817. *** 505,513 ****
  818.   #endif
  819.               ) {
  820.               if(Blind) break;
  821. !             if(trap->tseen)
  822.                   You("see a pit below you.");
  823. !             else {
  824.                   pline("A pit opens up under you!");
  825.                   You("don't fall in!");
  826.               }
  827. --- 509,517 ----
  828.   #endif
  829.               ) {
  830.               if(Blind) break;
  831. !             if(trap->tseen) {
  832.                   You("see a pit below you.");
  833. !             } else {
  834.                   pline("A pit opens up under you!");
  835.                   You("don't fall in!");
  836.               }
  837. ***************
  838. *** 657,666 ****
  839.           case STATUE_TRAP:
  840.               deltrap(trap);
  841.               newsym(u.ux,u.uy);    /* get rid of trap symbol */
  842. !             for(otmp=level.objects[u.ux][u.uy];
  843.                           otmp; otmp = otmp->nexthere)
  844. !             if(otmp->otyp == STATUE)
  845. !                 if(mtmp=makemon(&mons[otmp->corpsenm],u.ux,u.uy)) {
  846.                   pline("The statue comes to life!");
  847.                   /* mimic statues become seen mimics */
  848.                   if(mtmp->m_ap_type) seemimic(mtmp);
  849. --- 661,671 ----
  850.           case STATUE_TRAP:
  851.               deltrap(trap);
  852.               newsym(u.ux,u.uy);    /* get rid of trap symbol */
  853. !             for (otmp = level.objects[u.ux][u.uy];
  854.                           otmp; otmp = otmp->nexthere)
  855. !             if (otmp->otyp == STATUE)
  856. !                 if ((mtmp = makemon(&mons[otmp->corpsenm],
  857. !                         u.ux, u.uy)) != 0) {
  858.                   pline("The statue comes to life!");
  859.                   /* mimic statues become seen mimics */
  860.                   if(mtmp->m_ap_type) seemimic(mtmp);
  861. ***************
  862. *** 715,720 ****
  863. --- 720,726 ----
  864.               pline("KAABLAMM!!!  You triggered a land mine!");
  865.               set_wounded_legs(LEFT_SIDE, rn1(35, 41));
  866.               set_wounded_legs(RIGHT_SIDE, rn1(35, 41));
  867. +             exercise(A_DEX, FALSE);
  868.               }
  869.               losehp(rnd(16), "land mine", KILLED_BY_AN);
  870.               /* wake everything on the level */
  871. ***************
  872. *** 804,810 ****
  873.       if(!trap) {
  874.           mtmp->mtrapped = 0;    /* perhaps teleported? */
  875.       } else if (mtmp->mtrapped) {    /* was in trap */
  876. !         if(!rn2(40)) 
  877.               if (sobj_at(BOULDER, mtmp->mx, mtmp->my) && 
  878.                   ((trap->ttyp == PIT) || 
  879.                    (trap->ttyp == SPIKED_PIT))) {
  880. --- 810,816 ----
  881.       if(!trap) {
  882.           mtmp->mtrapped = 0;    /* perhaps teleported? */
  883.       } else if (mtmp->mtrapped) {    /* was in trap */
  884. !         if(!rn2(40)) {
  885.               if (sobj_at(BOULDER, mtmp->mx, mtmp->my) && 
  886.                   ((trap->ttyp == PIT) || 
  887.                    (trap->ttyp == SPIKED_PIT))) {
  888. ***************
  889. *** 814,819 ****
  890. --- 820,826 ----
  891.                   }
  892.               } else
  893.                   mtmp->mtrapped = 0;
  894. +         }
  895.       } else {
  896.           register int tt = trap->ttyp;
  897.   
  898. ***************
  899. *** 874,889 ****
  900.           case BEAR_TRAP:
  901.               if(mptr->msize > MZ_SMALL &&
  902.                  !amorphous(mptr) && !is_flyer(mptr)) {
  903. !                 mtmp->mtrapped = 1;
  904. !                 if(in_sight) {
  905. !                   pline("%s is caught in a bear trap!",
  906. !                     Monnam(mtmp));
  907. !                   seetrap(trap);
  908. !                 } else
  909. !                     if((mptr == &mons[PM_OWLBEAR]
  910. !                     || mptr == &mons[PM_BUGBEAR])
  911. !                     && flags.soundok)
  912. !                 You("hear the roaring of an angry bear!");
  913.               }
  914.               break;
  915.   
  916. --- 881,897 ----
  917.           case BEAR_TRAP:
  918.               if(mptr->msize > MZ_SMALL &&
  919.                  !amorphous(mptr) && !is_flyer(mptr)) {
  920. !                 mtmp->mtrapped = 1;
  921. !                 if(in_sight) {
  922. !                 pline("%s is caught in a bear trap!",
  923. !                       Monnam(mtmp));
  924. !                 seetrap(trap);
  925. !                 } else {
  926. !                 if((mptr == &mons[PM_OWLBEAR]
  927. !                     || mptr == &mons[PM_BUGBEAR])
  928. !                    && flags.soundok)
  929. !                     You("hear the roaring of an angry bear!");
  930. !                 }
  931.               }
  932.               break;
  933.   
  934. ***************
  935. *** 912,918 ****
  936.                       pline("May %s rust in peace.",
  937.                                   mon_nam(mtmp));
  938.                   mondied(mtmp);
  939. !                 trapkilled = TRUE;
  940.               } else if (mptr == &mons[PM_GREMLIN] && rn2(3)) {
  941.                   struct monst *mtmp2 = clone_mon(mtmp);
  942.   
  943. --- 920,929 ----
  944.                       pline("May %s rust in peace.",
  945.                                   mon_nam(mtmp));
  946.                   mondied(mtmp);
  947. ! #ifdef MUSE
  948. !                 if (mtmp->mhp <= 0)
  949. ! #endif
  950. !                     trapkilled = TRUE;
  951.               } else if (mptr == &mons[PM_GREMLIN] && rn2(3)) {
  952.                   struct monst *mtmp2 = clone_mon(mtmp);
  953.   
  954. ***************
  955. *** 957,964 ****
  956. --- 968,982 ----
  957.                       pline("%s falls into a pit!", Monnam(mtmp));
  958.                       seetrap(trap);
  959.                   }
  960. + #ifdef MUSE
  961. +                 mselftouch(mtmp, "Falling, ", FALSE);
  962. +                 if(mtmp->mhp <= 0 ||
  963. +                     thitm(0, mtmp, (struct obj *)0,
  964. +                      rnd((tt==PIT) ? 6 : 10)))
  965. + #else
  966.                   if(thitm(0, mtmp, (struct obj *)0,
  967.                        rnd((tt==PIT) ? 6 : 10)))
  968. + #endif
  969.                       trapkilled = TRUE;
  970.               }
  971.               break;
  972. ***************
  973. *** 1166,1172 ****
  974.   selftouch(arg)
  975.   const char *arg;
  976.   {
  977. !     if(uwep && (uwep->otyp == CORPSE && uwep->corpsenm == PM_COCKATRICE)
  978.   #ifdef POLYSELF
  979.               && !resists_ston(uasmon)
  980.   #endif
  981. --- 1184,1190 ----
  982.   selftouch(arg)
  983.   const char *arg;
  984.   {
  985. !     if(uwep && uwep->otyp == CORPSE && uwep->corpsenm == PM_COCKATRICE
  986.   #ifdef POLYSELF
  987.               && !resists_ston(uasmon)
  988.   #endif
  989. ***************
  990. *** 1183,1189 ****
  991. --- 1201,1235 ----
  992.       }
  993.   }
  994.   
  995. + #ifdef MUSE
  996.   void
  997. + mselftouch(mon,arg,byplayer)
  998. + struct monst *mon;
  999. + const char *arg;
  1000. + boolean byplayer;
  1001. + {
  1002. +     struct obj *mwep = MON_WEP(mon);
  1003. + 
  1004. +     if (mwep && mwep->otyp == CORPSE && mwep->corpsenm == PM_COCKATRICE
  1005. +             && !resists_ston(mon->data)) {
  1006. +         if (cansee(mon->mx, mon->my)) {
  1007. +             pline("%s%s touches the cockatrice corpse.",
  1008. +                 arg ? arg : "", arg ? mon_nam(mon) : Monnam(mon));
  1009. +             pline("%s turns to stone.", Monnam(mon));
  1010. +         }
  1011. +         if (poly_when_stoned(mon->data)) {
  1012. +             mon_to_stone(mon);
  1013. +             return;
  1014. +         }
  1015. +         if (byplayer) {
  1016. +             stoned = TRUE;
  1017. +             xkilled(mon,0);
  1018. +         } else monstone(mon);
  1019. +     }
  1020. + }
  1021. + #endif
  1022. + 
  1023. + void
  1024.   float_up()
  1025.   {
  1026.       if(u.utrap) {
  1027. ***************
  1028. *** 1279,1285 ****
  1029.           else if (!u.uinwater && !no_msg) {
  1030.               if (Hallucination)
  1031.                   pline("Bummer!  You've %s.",
  1032. !                       is_pool(u.ux,u.uy) ?
  1033.                             "splashed down" : "hit the ground");
  1034.               else
  1035.                   You("float gently to the %s.",
  1036. --- 1325,1331 ----
  1037.           else if (!u.uinwater && !no_msg) {
  1038.               if (Hallucination)
  1039.                   pline("Bummer!  You've %s.",
  1040. !                       is_pool(u.ux,u.uy) ?
  1041.                             "splashed down" : "hit the ground");
  1042.               else
  1043.                   You("float gently to the %s.",
  1044. ***************
  1045. *** 1337,1345 ****
  1046.                   || wizard
  1047.   #endif
  1048.                       ) {
  1049. !         if (unconscious())
  1050.           pline("Being unconscious, you cannot control your teleport.");
  1051. !         else {
  1052.               pline("To what position do you want to be teleported?");
  1053.               cc.x = u.ux;
  1054.               cc.y = u.uy;
  1055. --- 1383,1391 ----
  1056.                   || wizard
  1057.   #endif
  1058.                       ) {
  1059. !         if (unconscious()) {
  1060.           pline("Being unconscious, you cannot control your teleport.");
  1061. !         } else {
  1062.               pline("To what position do you want to be teleported?");
  1063.               cc.x = u.ux;
  1064.               cc.y = u.uy;
  1065. ***************
  1066. *** 1516,1523 ****
  1067.           char buf[BUFSZ];
  1068.   
  1069.           do {
  1070. !           getlin("To what level do you want to teleport? [type a number]",
  1071.               buf);
  1072.           } while(!digit(buf[0]) && (buf[0] != '-' || !digit(buf[1])));
  1073.           newlev = atoi(buf);
  1074.   
  1075. --- 1562,1571 ----
  1076.           char buf[BUFSZ];
  1077.   
  1078.           do {
  1079. !         getlin("To what level do you want to teleport? [type a number]",
  1080.               buf);
  1081. +         if (!strcmp(buf,"\033"))    /* cancelled */
  1082. +             return;
  1083.           } while(!digit(buf[0]) && (buf[0] != '-' || !digit(buf[1])));
  1084.           newlev = atoi(buf);
  1085.   
  1086. ***************
  1087. *** 1597,1603 ****
  1088.           } else
  1089.               You("are now high above the clouds...");
  1090.   
  1091. !         if(Levitation || is_floater(uasmon)) {
  1092.               You("float gently down to earth.");
  1093.               u.uz.dnum = 0; /* he might have been in another dgn */
  1094.               newlev = 1;
  1095. --- 1645,1655 ----
  1096.           } else
  1097.               You("are now high above the clouds...");
  1098.   
  1099. !         if(Levitation
  1100. ! #ifdef POLYSELF
  1101. !            || is_floater(uasmon)
  1102. ! #endif
  1103. !            ) {
  1104.               You("float gently down to earth.");
  1105.               u.uz.dnum = 0; /* he might have been in another dgn */
  1106.               newlev = 1;
  1107. ***************
  1108. *** 1802,1814 ****
  1109.   }
  1110.   
  1111.   void
  1112. ! water_damage(obj,force)
  1113.   register struct obj *obj;
  1114. ! register boolean force;
  1115.   {
  1116.       /* Scrolls, spellbooks, potions, weapons and
  1117.          pieces of armor may get affected by the water */
  1118. !     for(; obj; obj = obj->nobj) {
  1119.   
  1120.           (void) snuff_lit(obj);
  1121.   
  1122. --- 1854,1866 ----
  1123.   }
  1124.   
  1125.   void
  1126. ! water_damage(obj, force, here)
  1127.   register struct obj *obj;
  1128. ! register boolean force, here;
  1129.   {
  1130.       /* Scrolls, spellbooks, potions, weapons and
  1131.          pieces of armor may get affected by the water */
  1132. !     for (; obj; obj = (here ? obj->nexthere : obj->nobj)) {
  1133.   
  1134.           (void) snuff_lit(obj);
  1135.   
  1136. ***************
  1137. *** 1816,1822 ****
  1138.               if (force || !rn2(2)) obj->greased = 0;
  1139.           } else if(Is_container(obj) && !Is_box(obj) &&
  1140.               (obj->otyp != OILSKIN_SACK || (obj->cursed && !rn2(3)))) {
  1141. !             water_damage(obj->cobj,force);
  1142.           } else if(obj->oclass == SCROLL_CLASS && (force || rn2(12) > Luck)
  1143.   #ifdef MAIL
  1144.                 && obj->otyp != SCR_MAIL
  1145. --- 1868,1874 ----
  1146.               if (force || !rn2(2)) obj->greased = 0;
  1147.           } else if(Is_container(obj) && !Is_box(obj) &&
  1148.               (obj->otyp != OILSKIN_SACK || (obj->cursed && !rn2(3)))) {
  1149. !             water_damage(obj->cobj, force, FALSE);
  1150.           } else if(obj->oclass == SCROLL_CLASS && (force || rn2(12) > Luck)
  1151.   #ifdef MAIL
  1152.                 && obj->otyp != SCR_MAIL
  1153. ***************
  1154. *** 1909,1915 ****
  1155.   
  1156.       /* happily wading in the same contiguous pool */
  1157.       if (u.uinwater && is_pool(u.ux-u.dx,u.uy-u.dy) &&
  1158. !        Magical_breathing) {
  1159.           /* water effects on objects every now and then */
  1160.           if (!rn2(5)) inpool_ok = TRUE;
  1161.           else return(FALSE);
  1162. --- 1961,1971 ----
  1163.   
  1164.       /* happily wading in the same contiguous pool */
  1165.       if (u.uinwater && is_pool(u.ux-u.dx,u.uy-u.dy) &&
  1166. !         (
  1167. ! #ifdef POLYSELF
  1168. !          is_swimmer(uasmon) ||
  1169. ! #endif
  1170. !          Magical_breathing)) {
  1171.           /* water effects on objects every now and then */
  1172.           if (!rn2(5)) inpool_ok = TRUE;
  1173.           else return(FALSE);
  1174. ***************
  1175. *** 1926,1943 ****
  1176.               Hallucination ? "the Titanic" : "a rock");
  1177.       }
  1178.   
  1179. !     water_damage(invent,FALSE);
  1180.   
  1181.   #ifdef POLYSELF
  1182.       if(u.umonnum == PM_GREMLIN && rn2(3)) {
  1183.           struct monst *mtmp;
  1184. !         if(mtmp = cloneu()) {
  1185.               mtmp->mhpmax = (u.mhmax /= 2);
  1186.               You("multiply.");
  1187.           }
  1188.       }
  1189.   
  1190. !     if(is_swimmer(uasmon)) return(FALSE);
  1191.   #endif
  1192.       if (inpool_ok) return(FALSE);
  1193.   #ifdef WALKIES
  1194. --- 1982,2005 ----
  1195.               Hallucination ? "the Titanic" : "a rock");
  1196.       }
  1197.   
  1198. !     water_damage(invent, FALSE, FALSE);
  1199.   
  1200.   #ifdef POLYSELF
  1201.       if(u.umonnum == PM_GREMLIN && rn2(3)) {
  1202.           struct monst *mtmp;
  1203. !         if ((mtmp = cloneu()) != 0) {
  1204.               mtmp->mhpmax = (u.mhmax /= 2);
  1205.               You("multiply.");
  1206.           }
  1207.       }
  1208.   
  1209. !     if(is_swimmer(uasmon) && !inpool_ok) {
  1210. !         if (Punished) placebc();
  1211. !         u.uinwater = 1;
  1212. !         under_water(1);
  1213. !         vision_full_recalc = 1;
  1214. !         return(FALSE);
  1215. !     }
  1216.   #endif
  1217.       if (inpool_ok) return(FALSE);
  1218.   #ifdef WALKIES
  1219. ***************
  1220. *** 1956,1961 ****
  1221. --- 2018,2024 ----
  1222.           if (Punished) placebc();
  1223.           u.uinwater = 1;
  1224.           under_water(1);
  1225. +         vision_full_recalc = 1;
  1226.           return(FALSE);
  1227.       }
  1228.       if((Teleportation || can_teleport(uasmon)) &&
  1229. ***************
  1230. *** 2305,2315 ****
  1231.           case 0:
  1232.               pline("A cloud of %s gas billows from %s",
  1233.                     hcolor(), the(xname(obj)));
  1234. !             if(!Stunned)
  1235.                   if (Hallucination)
  1236.                   pline("What a groovy feeling!");
  1237.                   else
  1238.                   You("stagger and your vision blurs...");
  1239.               make_stunned(HStun + rn1(7, 16),FALSE);
  1240.               make_hallucinated(HHallucination + rn1(5, 16),FALSE,0L);
  1241.               break;
  1242. --- 2368,2381 ----
  1243.           case 0:
  1244.               pline("A cloud of %s gas billows from %s",
  1245.                     hcolor(), the(xname(obj)));
  1246. !             if(!Stunned) {
  1247.                   if (Hallucination)
  1248.                   pline("What a groovy feeling!");
  1249. +                 else if (Blind)
  1250. +                 You("stagger and get dizzy...");
  1251.                   else
  1252.                   You("stagger and your vision blurs...");
  1253. +             }
  1254.               make_stunned(HStun + rn1(7, 16),FALSE);
  1255.               make_hallucinated(HHallucination + rn1(5, 16),FALSE,0L);
  1256.               break;
  1257. ***************
  1258. *** 2410,2417 ****
  1259.               int yy = mon->my;
  1260.   
  1261.               monkilled(mon, "", AD_PHYS);
  1262. !             newsym(xx, yy);
  1263. !             trapkilled = TRUE;
  1264.           }
  1265.       }
  1266.       if (obj && (!strike || d_override)) {
  1267. --- 2476,2489 ----
  1268.               int yy = mon->my;
  1269.   
  1270.               monkilled(mon, "", AD_PHYS);
  1271. ! #ifdef MUSE
  1272. !             if (mon->mhp <= 0) {
  1273. ! #endif
  1274. !                 newsym(xx, yy);
  1275. !                 trapkilled = TRUE;
  1276. ! #ifdef MUSE
  1277. !             }
  1278. ! #endif
  1279.           }
  1280.       }
  1281.       if (obj && (!strike || d_override)) {
  1282. *** /tmp/da08670    Thu Feb 25 10:25:43 1993
  1283. --- src/u_init.c    Mon Feb 22 12:24:29 1993
  1284. ***************
  1285. *** 1,4 ****
  1286. ! /*    SCCS Id: @(#)u_init.c    3.1    92/11/13    */
  1287.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1288.   /* NetHack may be freely redistributed.  See license for details. */
  1289.   
  1290. --- 1,4 ----
  1291. ! /*    SCCS Id: @(#)u_init.c    3.1    93/02/21    */
  1292.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1293.   /* NetHack may be freely redistributed.  See license for details. */
  1294.   
  1295. ***************
  1296. *** 22,27 ****
  1297. --- 22,29 ----
  1298.   #define    UNDEF_SPE    '\177'
  1299.   #define    UNDEF_BLESS    2
  1300.   
  1301. + static boolean random_role = FALSE;
  1302. + 
  1303.   /* all roles must all have distinct first letter */
  1304.   const char *roles[] = {    /* also used in options.c and winxxx.c */
  1305.               /* roles[2] and [6] are changed for females */
  1306. ***************
  1307. *** 260,265 ****
  1308. --- 262,271 ----
  1309.           terminate(0);
  1310.       }
  1311.       i = role_index(pc);
  1312. +     if (random_role) {
  1313. +         pline("This game you will be %s.", an(roles[i]));
  1314. +         display_nhwindow(WIN_MESSAGE, TRUE);
  1315. +     }
  1316.   
  1317.       (void) strncpy(pl_character, roles[i], PL_CSIZ-1);
  1318.       pl_character[PL_CSIZ-1] = 0;
  1319. ***************
  1320. *** 475,480 ****
  1321. --- 481,488 ----
  1322.       if (discover)
  1323.           ini_inv(Wishing);
  1324.   #endif
  1325. +     u.ugold0 += hidden_gold();    /* in case sack has gold in it */
  1326. + 
  1327.       find_ac();            /* get initial ac value */
  1328.       init_attr(75);            /* init attribute values */
  1329.       max_rank_sz();            /* set max str size for class ranks */
  1330. ***************
  1331. *** 518,527 ****
  1332.            */
  1333.           if (undefined) {
  1334.   #ifdef POLYSELF
  1335. !             static unsigned NEARDATA nocreate = STRANGE_OBJECT;
  1336. !             static unsigned NEARDATA nocreate2 = STRANGE_OBJECT;
  1337.   #endif
  1338. !             static unsigned NEARDATA nocreate3 = STRANGE_OBJECT;
  1339.   
  1340.               while(obj->otyp == WAN_WISHING
  1341.   #ifdef POLYSELF
  1342. --- 526,535 ----
  1343.            */
  1344.           if (undefined) {
  1345.   #ifdef POLYSELF
  1346. !             static NEARDATA unsigned nocreate = STRANGE_OBJECT;
  1347. !             static NEARDATA unsigned nocreate2 = STRANGE_OBJECT;
  1348.   #endif
  1349. !             static NEARDATA unsigned nocreate3 = STRANGE_OBJECT;
  1350.   
  1351.               while(obj->otyp == WAN_WISHING
  1352.   #ifdef POLYSELF
  1353. ***************
  1354. *** 649,664 ****
  1355.   }
  1356.   
  1357.   void
  1358. ! plnamesuffix() {
  1359.       register char *p;
  1360.       if ((p = rindex(plname, '-')) != 0) {
  1361. !         *p = 0;
  1362.           pl_character[0] = p[1];
  1363. !         pl_character[1] = 0;
  1364.           if(!plname[0]) {
  1365.               askname();
  1366.               plnamesuffix();
  1367.           }
  1368.       }
  1369.   }
  1370.   
  1371. --- 657,680 ----
  1372.   }
  1373.   
  1374.   void
  1375. ! plnamesuffix()
  1376. ! {
  1377.       register char *p;
  1378.       if ((p = rindex(plname, '-')) != 0) {
  1379. !         *p = '\0';
  1380.           pl_character[0] = p[1];
  1381. !         pl_character[1] = '\0';
  1382. !         random_role = FALSE;
  1383.           if(!plname[0]) {
  1384.               askname();
  1385.               plnamesuffix();
  1386.           }
  1387. +     }
  1388. +     if (pl_character[0] == '@') {    /* explicit request for random class */
  1389. +         int i = rn2((int)strlen(pl_classes));
  1390. +         pl_character[0] = pl_classes[i];
  1391. +         pl_character[1] = '\0';
  1392. +         random_role = TRUE;
  1393.       }
  1394.   }
  1395.   
  1396. *** /tmp/da08678    Thu Feb 25 10:25:45 1993
  1397. --- src/uhitm.c    Tue Feb 23 16:35:40 1993
  1398. ***************
  1399. *** 1,4 ****
  1400. ! /*    SCCS Id: @(#)uhitm.c    3.1    92/12/10    */
  1401.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1402.   /* NetHack may be freely redistributed.  See license for details. */
  1403.   
  1404. --- 1,4 ----
  1405. ! /*    SCCS Id: @(#)uhitm.c    3.1    93/02/18    */
  1406.   /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1407.   /* NetHack may be freely redistributed.  See license for details. */
  1408.   
  1409. ***************
  1410. *** 102,108 ****
  1411.               else if ((obj = level.objects[mtmp->mx][mtmp->my]) != 0)
  1412.                   pline("Wait!  There's %s hiding under %s!",
  1413.                       an(l_monnam(mtmp)), doname(obj));
  1414. !             wakeup(mtmp);
  1415.               mtmp->data->mflags3 &= ~M3_WAITMASK;
  1416.               return(TRUE);
  1417.           }
  1418. --- 102,108 ----
  1419.               else if ((obj = level.objects[mtmp->mx][mtmp->my]) != 0)
  1420.                   pline("Wait!  There's %s hiding under %s!",
  1421.                       an(l_monnam(mtmp)), doname(obj));
  1422. !             mtmp->msleep = 0;
  1423.               mtmp->data->mflags3 &= ~M3_WAITMASK;
  1424.               return(TRUE);
  1425.           }
  1426. ***************
  1427. *** 350,356 ****
  1428.   struct monst *mon;
  1429.   int tmp;
  1430.   {
  1431. !     static int NEARDATA malive;
  1432.       boolean mhit = (tmp > (dieroll = rnd(20)) || u.uswallow);
  1433.   
  1434.       if(tmp > dieroll) exercise(A_DEX, TRUE);
  1435. --- 350,356 ----
  1436.   struct monst *mon;
  1437.   int tmp;
  1438.   {
  1439. !     static NEARDATA int malive;
  1440.       boolean mhit = (tmp > (dieroll = rnd(20)) || u.uswallow);
  1441.   
  1442.       if(tmp > dieroll) exercise(A_DEX, TRUE);
  1443. ***************
  1444. *** 426,438 ****
  1445.              obj->otyp == UNICORN_HORN || obj->oclass == ROCK_CLASS) {
  1446.   
  1447.           /* If not a melee weapon, and either not thrown, or thrown */
  1448. !         /* and a bow (bows are >BOOMERANG), or thrown and a missile */
  1449. !         /* without a propellor (missiles are <DART), do 1-2 points */
  1450. !         if((obj->otyp >= BOW || obj->otyp < DART)
  1451.               && obj->otyp != PICK_AXE && obj->otyp != UNICORN_HORN
  1452.               && (!thrown ||
  1453.                   (obj->oclass != ROCK_CLASS &&
  1454. !                 (obj->otyp > BOOMERANG ||
  1455.                   (obj->otyp < DART &&
  1456.                       (!uwep ||
  1457.                       objects[obj->otyp].w_propellor !=
  1458. --- 426,438 ----
  1459.              obj->otyp == UNICORN_HORN || obj->oclass == ROCK_CLASS) {
  1460.   
  1461.           /* If not a melee weapon, and either not thrown, or thrown */
  1462. !         /* and a bow (bows are >= BOW), or thrown and a missile */
  1463. !         /* without a propellor (which means <DART), do 1-2 points */
  1464. !         if((obj->otyp >= BOW || obj->otyp < BOOMERANG)
  1465.               && obj->otyp != PICK_AXE && obj->otyp != UNICORN_HORN
  1466.               && (!thrown ||
  1467.                   (obj->oclass != ROCK_CLASS &&
  1468. !                 (obj->otyp >= BOW ||
  1469.                   (obj->otyp < DART &&
  1470.                       (!uwep ||
  1471.                       objects[obj->otyp].w_propellor !=
  1472. ***************
  1473. *** 448,453 ****
  1474. --- 448,454 ----
  1475.               artifact_hit(&youmonst, mon, obj, &tmp, dieroll)) {
  1476.               if(mon->mhp <= 0) /* artifact killed monster */
  1477.                   return FALSE;
  1478. +             if (tmp == 0) return TRUE;
  1479.               hittxt = TRUE;
  1480.               }
  1481.               if (objects[obj->otyp].oc_material == SILVER
  1482. ***************
  1483. *** 662,673 ****
  1484.       if(mon->mhp < 1)
  1485.           destroyed = TRUE;
  1486.       if(mon->mtame && (!mon->mflee || mon->mfleetim)) {
  1487. ! #ifdef SOUNDS
  1488. !         if (rn2(8)) yelp(mon);
  1489. !         else growl(mon); /* give them a moment's worry */
  1490. ! #endif
  1491. !         mon->mtame--;
  1492. !         if(!mon->mtame) newsym(mon->mx, mon->my);
  1493.           mon->mflee = TRUE;        /* Rick Richardson */
  1494.           mon->mfleetim += 10*rnd(tmp);
  1495.       }
  1496. --- 663,669 ----
  1497.       if(mon->mhp < 1)
  1498.           destroyed = TRUE;
  1499.       if(mon->mtame && (!mon->mflee || mon->mfleetim)) {
  1500. !         abuse_dog(mon);
  1501.           mon->mflee = TRUE;        /* Rick Richardson */
  1502.           mon->mfleetim += 10*rnd(tmp);
  1503.       }
  1504. ***************
  1505. *** 758,764 ****
  1506.           && u.umonnum != PM_BALROG) {
  1507.           struct monst *dtmp;
  1508.           pline("Some hell-p has arrived!");
  1509. !         if((dtmp = makemon(!rn2(6) ? &mons[ndemon()] : uasmon, u.ux, u.uy)))
  1510.           (void)tamedog(dtmp, (struct obj *)0);
  1511.           exercise(A_WIS, TRUE);
  1512.           return(0);
  1513. --- 754,761 ----
  1514.           && u.umonnum != PM_BALROG) {
  1515.           struct monst *dtmp;
  1516.           pline("Some hell-p has arrived!");
  1517. !         if((dtmp = makemon(!rn2(6) ? &mons[ndemon(u.ualign.type)] :
  1518. !                      uasmon, u.ux, u.uy)))
  1519.           (void)tamedog(dtmp, (struct obj *)0);
  1520.           exercise(A_WIS, TRUE);
  1521.           return(0);
  1522. ***************
  1523. *** 859,873 ****
  1524.               }
  1525.               if (stealoid) {
  1526.               boolean stolen = FALSE;
  1527. -             /* Is "he"/"his" always correct? */
  1528.               if (gender(mdef) == u.mfemale &&
  1529.                           uasmon->mlet == S_NYMPH)
  1530.       You("charm %s.  She gladly hands over her possessions.", mon_nam(mdef));
  1531.               else
  1532. !         You("seduce %s and %s starts to take off %s clothes.",
  1533. !                 mon_nam(mdef),
  1534. !                 gender(mdef) ? "she" : "he",
  1535. !                 gender(mdef) ? "her" : "his");
  1536.               while(mdef->minvent) {
  1537.                   otmp = mdef->minvent;
  1538.                   mdef->minvent = otmp->nobj;
  1539. --- 856,868 ----
  1540.               }
  1541.               if (stealoid) {
  1542.               boolean stolen = FALSE;
  1543.               if (gender(mdef) == u.mfemale &&
  1544.                           uasmon->mlet == S_NYMPH)
  1545.       You("charm %s.  She gladly hands over her possessions.", mon_nam(mdef));
  1546.               else
  1547. !             You("seduce %s and %s starts to take off %s clothes.",
  1548. !                 mon_nam(mdef), he[pronoun_gender(mdef)],
  1549. !                 his[pronoun_gender(mdef)]);
  1550.               while(mdef->minvent) {
  1551.                   otmp = mdef->minvent;
  1552.                   mdef->minvent = otmp->nobj;
  1553. ***************
  1554. *** 892,898 ****
  1555.                   impossible("Player steal fails!");
  1556.               else {
  1557.                   pline("%s finishes taking off %s suit.",
  1558. !                    Monnam(mdef), gender(mdef) ? "her" : "his");
  1559.                   You("steal %s!", doname(stealoid));
  1560.   # if defined(ARMY) && !defined(MUSE)
  1561.                   mdef->data = &mons[PM_UNARMORED_SOLDIER];
  1562. --- 887,893 ----
  1563.                   impossible("Player steal fails!");
  1564.               else {
  1565.                   pline("%s finishes taking off %s suit.",
  1566. !                       Monnam(mdef), his[pronoun_gender(mdef)]);
  1567.                   You("steal %s!", doname(stealoid));
  1568.   # if defined(ARMY) && !defined(MUSE)
  1569.                   mdef->data = &mons[PM_UNARMORED_SOLDIER];
  1570. ***************
  1571. *** 910,915 ****
  1572. --- 905,915 ----
  1573.   #ifdef MUSE
  1574.               possibly_unwield(mdef);
  1575.               otmp->owornmask = 0L;
  1576. +             mselftouch(mdef, (const char *)0, TRUE);
  1577. +             if (mdef->mhp <= 0) {
  1578. +                 tmp = 1; /* avoid early return from damageum */
  1579. +                 break;
  1580. +             }
  1581.   #endif
  1582.              }
  1583.           }
  1584. ***************
  1585. *** 959,969 ****
  1586.               int xtmp = d(2,6);
  1587.               pline("%s suddenly seems weaker!", Monnam(mdef));
  1588.               mdef->mhpmax -= xtmp;
  1589. !             if ((mdef->mhp -= xtmp) <= 0 || !mdef->m_lev--) {
  1590.                   pline("%s dies!", Monnam(mdef));
  1591.                   xkilled(mdef,0);
  1592.                   return(2);
  1593.               }
  1594.           }
  1595.           tmp = 0;
  1596.           break;
  1597. --- 959,970 ----
  1598.               int xtmp = d(2,6);
  1599.               pline("%s suddenly seems weaker!", Monnam(mdef));
  1600.               mdef->mhpmax -= xtmp;
  1601. !             if ((mdef->mhp -= xtmp) <= 0 || !mdef->m_lev) {
  1602.                   pline("%s dies!", Monnam(mdef));
  1603.                   xkilled(mdef,0);
  1604.                   return(2);
  1605.               }
  1606. +             mdef->m_lev--;
  1607.           }
  1608.           tmp = 0;
  1609.           break;
  1610. ***************
  1611. *** 1008,1016 ****
  1612.   #ifdef MUSE
  1613.           if ((mdef->misc_worn_check & W_ARMH) && rn2(8)) {
  1614.               pline("%s helmet blocks your attack to %s head.",
  1615. !               s_suffix(Monnam(mdef)),
  1616. !               (Blind || !humanoid(mdef->data)) ? "its" :
  1617. !                 (mdef->female ? "her" : "his"));
  1618.               break;
  1619.           }
  1620.   #endif
  1621. --- 1009,1015 ----
  1622.   #ifdef MUSE
  1623.           if ((mdef->misc_worn_check & W_ARMH) && rn2(8)) {
  1624.               pline("%s helmet blocks your attack to %s head.",
  1625. !               s_suffix(Monnam(mdef)), his[pronoun_gender(mdef)]);
  1626.               break;
  1627.           }
  1628.   #endif
  1629. *** /tmp/da08686    Thu Feb 25 10:25:48 1993
  1630. --- src/vault.c    Tue Feb  9 15:55:34 1993
  1631. ***************
  1632. *** 253,259 ****
  1633.           mongone(guard);
  1634.           return;
  1635.       }
  1636. -     clear_nhwindow(WIN_MESSAGE);
  1637.       verbalize("I don't know you.");
  1638.       if (!u.ugold && !hidden_gold())
  1639.           verbalize("Please follow me.");
  1640. --- 253,258 ----
  1641. ***************
  1642. *** 330,341 ****
  1643.       for(x = lowx-1; x <= hix+1; x++)
  1644.           for(y = lowy-1; y <= hiy+1; y += (hiy-lowy+2)) {
  1645.           if(!IS_WALL(levl[x][y].typ) && !in_fcorridor(grd, x, y)) {
  1646. !             struct monst *mon;
  1647. ! 
  1648. !             if((mon = m_at(x, y)) && grd->mx != x && grd->my != y) {
  1649.               if (mon->data->msound != MS_SILENT)
  1650. !                 You("hear a scream.");
  1651. !             rloc(m_at(x,y));
  1652.               }
  1653.               if ((gold = g_at(x, y)) != 0) {
  1654.               move_gold(gold, EGD(grd)->vroom);
  1655. --- 329,339 ----
  1656.       for(x = lowx-1; x <= hix+1; x++)
  1657.           for(y = lowy-1; y <= hiy+1; y += (hiy-lowy+2)) {
  1658.           if(!IS_WALL(levl[x][y].typ) && !in_fcorridor(grd, x, y)) {
  1659. !             if(MON_AT(x, y) && grd->mx != x && grd->my != y) {
  1660. !             struct monst *mon = m_at(x,y);
  1661.               if (mon->data->msound != MS_SILENT)
  1662. !                 yelp(mon);
  1663. !             rloc(mon);
  1664.               }
  1665.               if ((gold = g_at(x, y)) != 0) {
  1666.               move_gold(gold, EGD(grd)->vroom);
  1667. ***************
  1668. *** 368,375 ****
  1669.           for(y = lowy; y <= hiy; y++) {
  1670.           if(!IS_WALL(levl[x][y].typ) && !in_fcorridor(grd, x, y)) {
  1671.               if(MON_AT(x, y) && grd->mx != x && grd->my != y) {
  1672. !             You("hear a scream.");
  1673. !             rloc(m_at(x,y));
  1674.               }
  1675.               if ((gold = g_at(x, y)) != 0) {
  1676.               move_gold(gold, EGD(grd)->vroom);
  1677. --- 366,375 ----
  1678.           for(y = lowy; y <= hiy; y++) {
  1679.           if(!IS_WALL(levl[x][y].typ) && !in_fcorridor(grd, x, y)) {
  1680.               if(MON_AT(x, y) && grd->mx != x && grd->my != y) {
  1681. !             struct monst *mon = m_at(x,y);
  1682. !             if (mon->data->msound != MS_SILENT)
  1683. !                 yelp(mon);
  1684. !             rloc(mon);
  1685.               }
  1686.               if ((gold = g_at(x, y)) != 0) {
  1687.               move_gold(gold, EGD(grd)->vroom);
  1688. ***************
  1689. *** 483,489 ****
  1690.                   l_monnam(grd));
  1691.               return(-1);
  1692.           } else {
  1693. !             verbalize("Well, be gone your way.");
  1694.               wallify_vault(grd);
  1695.               egrd->gddone = 1;
  1696.               goto cleanup;
  1697. --- 483,489 ----
  1698.                   l_monnam(grd));
  1699.               return(-1);
  1700.           } else {
  1701. !             verbalize("Well, begone.");
  1702.               wallify_vault(grd);
  1703.               egrd->gddone = 1;
  1704.               goto cleanup;
  1705. ***************
  1706. *** 708,715 ****
  1707.           gx = rooms[EGD(grd)->vroom].lx + rn2(2);
  1708.           gy = rooms[EGD(grd)->vroom].ly + rn2(2);
  1709.           Sprintf(buf,
  1710. !         "To Croesus: here's the gold recovered from the %s %s...",
  1711. !         player_mon()->mname, plname);
  1712.           make_engr_at(gx, gy, buf, 0L, ENGRAVE);
  1713.       }
  1714.       place_object(gold = mkgoldobj(u.ugold), gx, gy);
  1715. --- 708,715 ----
  1716.           gx = rooms[EGD(grd)->vroom].lx + rn2(2);
  1717.           gy = rooms[EGD(grd)->vroom].ly + rn2(2);
  1718.           Sprintf(buf,
  1719. !         "To Croesus: here's the gold recovered from %s the %s.",
  1720. !         plname, player_mon()->mname);
  1721.           make_engr_at(gx, gy, buf, 0L, ENGRAVE);
  1722.       }
  1723.       place_object(gold = mkgoldobj(u.ugold), gx, gy);
  1724. *** /tmp/da08694    Thu Feb 25 10:25:51 1993
  1725. --- src/version.c    Fri Feb  5 11:20:43 1993
  1726. ***************
  1727. *** 5,11 ****
  1728.   #include    "hack.h"
  1729.   #include    "date.h"
  1730.   #ifndef BETA
  1731. ! # if defined(MICRO) && !defined(AMIGA) && !defined(TOS)
  1732.   # include    "patchlev.h"
  1733.   # else
  1734.   # include    "patchlevel.h"
  1735. --- 5,11 ----
  1736.   #include    "hack.h"
  1737.   #include    "date.h"
  1738.   #ifndef BETA
  1739. ! # if defined(MICRO) && !defined(AMIGA) && !defined(TOS) && !defined(OS2_HPFS)
  1740.   # include    "patchlev.h"
  1741.   # else
  1742.   # include    "patchlevel.h"
  1743. *** /tmp/da08702    Thu Feb 25 10:25:53 1993
  1744. --- src/vision.c    Wed Feb  3 16:37:18 1993
  1745. ***************
  1746. *** 484,490 ****
  1747.               next_rmax[row] = max(next_rmax[row], col);
  1748.               next_array[row][col] = IN_SIGHT;
  1749.           }
  1750. !         }
  1751.   
  1752.       /* if in a pit, just update for immediate locations */
  1753.       else if (u.utrap && u.utraptype == TT_PIT) {
  1754. --- 484,490 ----
  1755.               next_rmax[row] = max(next_rmax[row], col);
  1756.               next_array[row][col] = IN_SIGHT;
  1757.           }
  1758. !     }
  1759.   
  1760.       /* if in a pit, just update for immediate locations */
  1761.       else if (u.utrap && u.utraptype == TT_PIT) {
  1762. *** /tmp/da07333    Thu Feb 25 10:19:14 1993
  1763. --- dat/oracles.txt    Sun Feb 21 16:16:26 1993
  1764. ***************
  1765. *** 9,14 ****
  1766. --- 9,16 ----
  1767.   If thou hast had trouble with rust on thy armor or weapons, thou shouldst
  1768.   know that thou canst prevent this by, while in a confused state, reading the
  1769.   magical parchments which normally are used to cause their enchantment.
  1770. + Unguents of lubrication may provide similar protection, albeit of a
  1771. + transitory nature.
  1772.   -----
  1773.   Behold the cockatrice, whose diminutive stature belies its hidden might.  The
  1774.   cockatrice can petrify any ordinary being it contacts--save those wise
  1775. ***************
  1776. *** 15,37 ****
  1777.   adventurers who eat a dead lizard or blob of acid when they feel themselves
  1778.   slowly turning to stone.
  1779.   -----
  1780. ! While some wayfarers rely on finding finished armour in the dungeon, the
  1781. ! resourceful consider dragon scales as truly enchanting raw material and
  1782. ! realize that dragon scale mail is an excellent investment.
  1783.   -----
  1784. ! It is well known among travelers that extra-healing draughts may clear thy
  1785. ! senses when thou art addled by hallucinations.  But never forget, the lowly
  1786. ! potion which makes one sick may be used for the same purpose.
  1787.   -----
  1788. ! While the consumption of lizard flesh or water beloved of the gods may
  1789. ! straighten thy head after confusion, the application of the horn of a
  1790. ! creature of utmost purity can alleviate many other afflictions as well.
  1791.   -----
  1792. ! If thou wishest to travel quickly between distant levels, thou must be
  1793. ! able to control thy teleports, and be confused, and read the scroll
  1794. ! which usually teleports thyself around on the level.  Daring adventurers
  1795. ! have also performed the same feat sans need for scrolls or potions by
  1796. ! stepping on the correct type of trap.
  1797.   -----
  1798.   Almost all adventurers who come this way hope to pass the dread Medusa.  To
  1799.   do this, the best advice is to keep thine eyes blindfolded and to cause the
  1800. --- 17,39 ----
  1801.   adventurers who eat a dead lizard or blob of acid when they feel themselves
  1802.   slowly turning to stone.
  1803.   -----
  1804. ! While some wayfarers rely on scrounging finished armour in the dungeon, the
  1805. ! resourceful know the mystical means by which mail may be fashioned out of
  1806. ! scales from a dragon's hide.
  1807.   -----
  1808. ! It is customarily known among travelers that extra-healing draughts may clear
  1809. ! thy senses when thou art addled by delusory visions.  But never forget, the
  1810. ! lowly potion which makes one sick may be used for the same purpose.
  1811.   -----
  1812. ! While the consumption of lizard flesh or water beloved of the gods may clear
  1813. ! the muddled head, the application of the horn of a creature of utmost purity
  1814. ! can alleviate many other afflictions as well.
  1815.   -----
  1816. ! If thou wouldst travel quickly between distant locations, thou must be
  1817. ! able to control thy teleports, and in a confused state misread the scroll
  1818. ! which usually teleports thyself locally.  Daring adventurers have also
  1819. ! performed the same feat sans need for scrolls or potions by stepping into
  1820. ! a particular ambuscade.
  1821.   -----
  1822.   Almost all adventurers who come this way hope to pass the dread Medusa.  To
  1823.   do this, the best advice is to keep thine eyes blindfolded and to cause the
  1824. ***************
  1825. *** 52,58 ****
  1826.   even so, few hath developed the skill to identify enchanted rings by the
  1827.   transfigurations effected upon the voracious device's frame.
  1828.   -----
  1829. ! The meat of enchanted creatures will ofttimes convey magical properties
  1830.   unto the consumer.  A fresh corpse of floating eye doth fetch a high
  1831.   price among wizards for its utility in conferring Telepathy, by which
  1832.   the sightless may locate surrounding minds.
  1833. --- 54,60 ----
  1834.   even so, few hath developed the skill to identify enchanted rings by the
  1835.   transfigurations effected upon the voracious device's frame.
  1836.   -----
  1837. ! The meat of enchanted creatures ofttimes conveyeth magical properties
  1838.   unto the consumer.  A fresh corpse of floating eye doth fetch a high
  1839.   price among wizards for its utility in conferring Telepathy, by which
  1840.   the sightless may locate surrounding minds.
  1841. ***************
  1842. *** 66,77 ****
  1843.   powers echo throughout legend.  Learned wayfarers can reproduce blades of
  1844.   elven lineage, hated of the orcs, without the need for such intervention.
  1845.   -----
  1846. - Adventurers searching for Medusa or the Wizard of Yendor needst not wait until
  1847. - their dungeon level corresponds with their enemies' to know their location.
  1848. - Eat a floating eye, blind thyself, and use a mirror in thine own direction,
  1849. - and provided thou art lucky, thou shalt know the approximate locations of
  1850. - thine enemies.
  1851. - -----
  1852.   There are many stories of a mighty amulet, the origins of which are said
  1853.   to be ancient Yendor.  This amulet doth have awesome power, and the gods
  1854.   desireth it greatly.  Mortals mayst tap only portions of its terrible
  1855. --- 68,73 ----
  1856. ***************
  1857. *** 88,100 ****
  1858.   read from Moloch's book, shall cause the earth to tremble mightily.  The
  1859.   light of an enchanted candelabrum shall show thee the way.
  1860.   -----
  1861. ! In the nethermost recesses of the dungeon, there standeth a castle, wherein
  1862. ! layeth a wand of wishes.  If thou wouldst gain entry, bear with thee an
  1863. ! instrument of music, for the drawbridge may be charmed down with the proper
  1864. ! melody.  What notes comprise it only the gods know, but a musical mastermind
  1865. ! may yet succeed by witful improvization.  However, the less perspicacious are
  1866. ! not without recourse, should they be prepared to circumambulate the castle to
  1867. ! the postern.
  1868.   ----- ELBERETH
  1869.   The name of Elbereth may strike fear into the hearts of thine enemies, if
  1870.   thou doest write it upon the ground at thy feet.  If thou maintain the utmost
  1871. --- 84,96 ----
  1872.   read from Moloch's book, shall cause the earth to tremble mightily.  The
  1873.   light of an enchanted candelabrum shall show thee the way.
  1874.   -----
  1875. ! In the deepest recesses of the Dungeons of Doom, guarding access to the
  1876. ! nether regions, there standeth a castle, wherein layeth a wand of wishes.
  1877. ! If thou wouldst gain entry, bear with thee an instrument of music, for the
  1878. ! pontlevis may be charmed down with the proper melody.  What notes comprise
  1879. ! it only the gods know, but a musical mastermind may yet succeed by witful
  1880. ! improvization.  However, the less perspicacious are not without recourse,
  1881. ! should they be prepared to circumambulate the castle to the postern.
  1882.   ----- ELBERETH
  1883.   The name of Elbereth may strike fear into the hearts of thine enemies, if
  1884.   thou doest write it upon the ground at thy feet.  If thou maintain the utmost
  1885.  
  1886.