Can not escape from the endgame fight

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

game/modules/tome/data/quests/high-peak.lua

@@ -65,10 +65,15 @@ on_status_change = function(self, who, status, sub)
 end
 
 function start_end_combat(self)
+	-- Allow teleporting inside
 	for i = 11, 38 do for j = 1, 21 do
 		game.level.map.lites(i, j, true)
 		game.level.map.attrs(i, j, "no_teleport", false)
 	end end
+	-- Forbid teleporting outside
+	for i = 0, game.level.map.w - 1 do for j = 22, game.level.map.h - 1 do
+		game.level.map.attrs(i, j, "no_teleport", true)
+	end end
 	game.level.allow_portals = true
 end