Can't teleport inside the fortress

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

game/engines/default/engine/Zone.lua

@@ -42,6 +42,7 @@ function _M:setup(t)
 	self.trap_class = require(t.trap_class or "engine.Trap")
 	self.object_class = require(t.object_class or "engine.Object")
 	self.on_setup = t.on_setup
+	self.ood_factor = t.ood_factor or 3
 end
 
 --- Loads a zone definition
@@ -105,7 +106,7 @@ function _M:computeRarities(type, list, level, filter, add_level, rarity_field)
 			end
 
 			local max = 10000
-			if lev < e.level_range[1] then max = 10000 / (3 * (e.level_range[1] - lev))
+			if lev < e.level_range[1] then max = 10000 / (self.ood_factor * (e.level_range[1] - lev))
 			elseif e.level_range[2] and lev > e.level_range[2] then max = 10000 / (lev - e.level_range[2])
 			end
 			local genprob = math.floor(max / e[rarity_field])

game/modules/angband/class/Game.lua

@@ -115,9 +115,9 @@ end
 
 function _M:loaded()
 	engine.GameTurnBased.loaded(self)
-	Zone:setup{npc_class="mod.class.NPC", grid_class="mod.class.Grid", object_class="mod.class.Object", }
+	Zone:setup{npc_class="mod.class.NPC", grid_class="mod.class.Grid", object_class="mod.class.Object", ood_factor=7}
 	Map:setViewerActor(self.player)
-	Map:setViewPort(200, 20, self.w - 200, math.floor(self.h * 0.80) - 20, 16, 16, "/data/font/FSEX300.ttf", 16, false, true)
+	Map:setViewPort(200, 20, self.w - 200, math.floor(self.h * 0.80) - 20, 12, 16, "/data/font/FSEX300.ttf", 16, false, true)
 	self.key = engine.KeyBind.new()
 end
 
@@ -128,7 +128,7 @@ function _M:createSeparators()
 end
 
 function _M:setupDisplayMode()
-	Map:setViewPort(200, 20, self.w - 200, math.floor(self.h * 0.80) - 20, 16, 16, "/data/font/FSEX300.ttf", 16, false, true)
+	Map:setViewPort(200, 20, self.w - 200, math.floor(self.h * 0.80) - 20, 12, 16, "/data/font/FSEX300.ttf", 16, false, true)
 	Map:resetTiles()
 	Map.tiles.use_images = false
 

game/modules/tome/data/maps/zones/shertul-fortress.lua

@@ -17,6 +17,8 @@
 -- Nicolas Casalini "DarkGod"
 -- darkgod@te4.org
 
+setStatusAll{no_teleport=true}
+
 startx = 1
 starty = 29
 stopx = 1