Portals to Pan and empty arches in the Abyss.

1 files changed, 15 insertions, 0 deletions

diff --git a/crawl-ref/source/abyss.cc b/crawl-ref/source/abyss.cc
index 1a5db5cbdb..e30013a5be 100644
--- a/crawl-ref/source/abyss.cc
+++ b/crawl-ref/source/abyss.cc
@@ -320,6 +320,21 @@ static void _generate_area(const coord_def& topleft,
                 mpr("Placing altar.", MSGCH_DIAGNOSTICS);
 #endif
             }
+
+            if (one_chance_in(20000))
+            {
+                // Not a vital thing, items shouldn't hurt.
+                grd(*ri) = DNGN_ENTER_PANDEMONIUM;
+#ifdef DEBUG_ABYSS
+                mpr("Placing a Pan portal.", MSGCH_DIAGNOSTICS);
+#endif
+            }
+
+            if (one_chance_in(10000))
+            {
+                // purely decorative
+                grd(*ri) = DNGN_STONE_ARCH;
+            }
         }
     }