Added a confirmation prompt when entering the High Peak

git-svn-id: http://svn.net-core.org/repos/t-engine4@6378 51575b47-30f0-44d4-a5cc-537603b46e54

game/modules/tome/data/zones/slime-tunnels/grids.lua

@@ -59,6 +59,12 @@ newEntity{
 	display='>', color=colors.VIOLET, image = "terrain/stair_up_wild.png",
 	notice = true,
 	change_level=1, change_zone="high-peak",
+	change_level_check = function()
+		require("engine.ui.Dialog"):yesnoLongPopup("High Peak", 'As you stand on the stairs you can feel this is a "do or die" one way trip. If you enter there will be no coming back.\nEnter?', 500, function(ret) if ret then
+			game:changeLevel(1, "high-peak")
+		end end)
+		return true
+	end,
 }
 
 newEntity{ base = "SLIME_UP",