Objects from worldmap ambushes and farportal zones grant less money

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

game/modules/tome/class/GameState.lua

@@ -566,6 +566,7 @@ function _M:spawnWorldAmbush(enc, dx, dy)
 		level_range = {game.player.level, game.player.level},
 		level_scheme = "player",
 		max_level = 1,
+		objects_cost_modifier = 0.1,
 		actor_adjust_level = function(zone, level, e) return zone.base_level + e:getRankLevelAdjust() + level.level-1 + rng.range(-1,2) end,
 		width = enc.width or 20, height = enc.height or 20,
 --		no_worldport = true,

game/modules/tome/class/Object.lua

@@ -1484,6 +1484,10 @@ function _M:getPrice()
 	if self.egoed then
 		base = base + self:getPriceFlags()
 	end
+	if game.level and game.level.data and game.level.data.objects_cost_modifier then
+		local v = util.getval(game.level.data.objects_cost_modifier, self)
+		base = base * v
+	end
 	return base
 end
 

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

@@ -88,6 +88,7 @@ It should automatically create a portal back, but it might not be near your arri
 			zone.no_worldport = true
 			zone.force_farportal_recall = true
 			zone.generator.actor.abord_no_guardian = true
+			zone.objects_cost_modifier = 0.1
 			zone.make_back_portal = function(self)
 				local p = game:getPlayer(true)
 				local x, y = p.x, p.y