Wizard-mode wishing for (melting) ice

diff --git a/doc/fixes3-7-0.txt b/doc/fixes3-7-0.txt
index efb0f3bb40e0cbfaea4bff1b1b07eedd625dcced..6e197ab7b66bdebe3fbf0a1f617bdffcade40183 100644 (file)
--- a/doc/fixes3-7-0.txt
+++ b/doc/fixes3-7-0.txt
@@ -1327,7 +1327,8 @@ when hallucinating, see hallucinated liquids when looking at water or lava
 applying a spellbook hints about read charges left
 wizard mode wishing for level topology can now create hidden doors (ask for
        "secret door" when at a door or wall location), hidden corridor
-       spots ("secret corridor" at a corridor location), clouds and walls
+       spots ("secret corridor" at a corridor location), clouds, walls,
+       and (melting) ice
 tiny chance for randomly created spellbooks to be Discworld novels instead
        of having only one in the first book or scroll shop created (won't
        occur in hero's initial inventory or NPC priest inventory or be

diff --git a/src/objnam.c b/src/objnam.c
index 9e093bc64ea679a4d85916929c6858263f5a54da..d342fff051ccacfb4378e1e640401b139d53764c 100644 (file)
--- a/src/objnam.c
+++ b/src/objnam.c
@@ -3198,6 +3198,16 @@ wizterrainwish(struct _readobjnam_data *d)
         if (!(Levitation || Flying))
             pooleffects(FALSE);
         madeterrain = TRUE;
+    } else if (!BSTRCMPI(bp, p - 3, "ice")) {
+        lev->typ = ICE;
+        lev->flags = 0;
+        del_engr_at(x, y);
+
+        if (!strncmpi(bp, "melting ", 8))
+            start_melt_ice_timeout(x, y, 0L);
+
+        pline("Ice.");
+        madeterrain = TRUE;
     } else if (!BSTRCMPI(bp, p - 5, "altar")) {
         aligntyp al;