From 12bb914d94f41de46d8d84b532fe99c0c2e7b9fc Mon Sep 17 00:00:00 2001
From: Adam Borowski <kilobyte@angband.pl>
Date: Wed, 11 Nov 2009 18:13:04 +0100
Subject: Portals to Pan and empty arches in the Abyss.

---
 crawl-ref/source/abyss.cc | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'crawl-ref/source/abyss.cc')

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;
+            }
         }
     }
 
-- 
cgit v1.2.3-54-g00ecf