Archmages will not be able to cheese their way through the Charred Scar

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

game/modules/tome/class/Actor.lua

@@ -354,6 +354,7 @@ function _M:probabilityTravel(x, y, dist)
 	local tx, ty = x, y
 	while game.level.map:isBound(tx, ty) and game.level.map:checkAllEntities(tx, ty, "block_move", self) and dist > 0 do
 		if game.level.map.attrs(tx, ty, "no_teleport") then break end
+		if game.level.map:checkAllEntities(tx, ty, "no_prob_travel", self) then break end
 		tx = tx + dirx
 		ty = ty + diry
 		dist = dist - 1

game/modules/tome/class/Game.lua

@@ -706,7 +706,7 @@ function _M:setupCommands()
 			if config.settings.tome.cheat then
 --				local m = game.zone:makeEntityByName(game.level, "actor", "TEST")
 --				game.zone:addEntity(game.level, m, "actor", game.player.x, game.player.y+1)
-				self:changeLevel(15, "high-peak")
+				self:changeLevel(1, "charred-scar")
 				game.player:magicMap(50)
 --				self.player:grantQuest("anti-antimagic")
 			end

game/modules/tome/data/general/objects/world-artifacts.lua

@@ -1348,7 +1348,7 @@ newEntity{ base = "BASE_GAUNTLETS",
 	name = "Stone Gauntlets of Harkor'Zun",
 	unided_name = "dark stone gauntlets",
 	desc = [[Fashioned in ancient times by cultists of Harkor'Zun, these heavy granite gauntlets where designed to protect the wearer from the wrath of their dark master.]],
-	level_range = {20, 30},
+	level_range = {26, 31},
 	rarity = 210,
 	encumber = 14,
 	metallic = false,

game/modules/tome/data/zones/charred-scar/grids.lua

@@ -33,6 +33,7 @@ newEntity{
 	always_remember = true,
 	does_block_move = true,
 	block_sight = true,
+	no_prob_travel = true,
 	air_level = -20,
 }