update arena

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

game/modules/tome/class/generator/actor/Arena.lua

@@ -338,6 +338,9 @@ function _M:calculateWave()
 		{ entity = { name = "slinger" },
 			wave = 1, power = 7, delay = 4, bonus = 0.2, score = 100, entry = 1,
 			special = function (self) if game.level.arena.currentWave > 35 then self.entity = { name = "high slinger" } end return self end },
+		{ entity = { name = "dremling" },
+			wave = 1, power = 6, delay = 2, bonus = 0.3 , score = 100, entry = 2,
+			special = function (self) if game.level.arena.currentWave > 15 then self.wave = 2 end end },
 		{ entity = { name = "brown bear" },
 			wave = 1, power = 4, delay = 3, bonus = 0.2, score = 100 , entry = 2},
 		{ entity = { type = "animal", subtype = "snake" },
@@ -347,6 +350,8 @@ function _M:calculateWave()
 			special = function (self) if game.level.arena.currentWave > 30 then self.wave = 2 end return self end },
 		{ entity = { type = "animal", subtype = "bear" },
 			wave = 2, power = 4, delay = 5, bonus = 0.3, score = 80, entry = 2 },
+		{ entity = { name = "drem" },
+			wave = 1, power = 7, delay = 3, bonus = 0.4 , score = 100, entry = 2},
 		{ entity = { type = "vermin", subtype = "ooze" },
 			wave = 4, power = 3, delay = 2, bonus = 0.1, score = 15, entry = 2 },
 		{ entity = { type = "undead", subtype = "skeleton" },

game/modules/tome/data/chats/arena-start.lua

@@ -89,6 +89,17 @@ local give_healinfu = function(self, player)
 	end
 end
 
+local give_moveinfu = function(self, player)
+	local o = game.zone:makeEntity(game.level, "object", {name="movement infusion"}, 1, true)
+	if o then
+		o:identify(true)
+		player:addObject(player.INVEN_INVEN, o)
+		o.inscription_data.dur = o.inscription_data.dur + 2
+		game.zone:addEntity(game.level, o, "object")
+		game.level.arena.perk = "Move"..game.level.arena.modeString
+	end
+end
+
 local give_imbue = function(self, player)
 	player:learnTalent(player.T_IMBUE_ITEM, true, 4)
 	player.changed = true
@@ -158,7 +169,7 @@ newChat{ id="perks",
 		{"A pair of boots of disengagement...", action=give_boots_dise},
 		{"A pair of boots of rushing...", action=give_boots_rush},
 		{"A pair of boots of phasing...", action=give_boots_phas},
-		--{"#DARK_BLUE#A pair of boots of lightning speed...", action=give_boots_lspeed},
+		{"A movement infusion...", action=give_moveinfu},
 		{"A healing infusion...", action=give_healinfu},
 		{"A bow of piercing arrows...", action=give_bow},
 		{"A sling of flare...", action=give_sling},

game/modules/tome/data/zones/arena/npcs.lua

@@ -23,6 +23,7 @@ load("/data/general/npcs/crystal.lua")
 load("/data/general/npcs/bone-giant.lua")
 load("/data/general/npcs/ritch.lua")
 load("/data/general/npcs/ziguranth.lua")
+load("/data/general/npcs/horror-corrupted.lua")
 
 local Talents = require("engine.interface.ActorTalents")
 

game/modules/tome/data/zones/arena/objects.lua

@@ -77,7 +77,7 @@ newEntity{ define_as = "ARENA_BOOTS_DISE", name = "a pair of leather boots of di
 	desc = [[A pair of boots made of leather. They seem to be of exceptional quality.]],
 	suffix=true, instant_resolve=true,
 	egoed = true,
-	greater_ego = true,
+	greater_ego = 1,
 	identified = true,
 	rarity = false,
 	cost = 0,
@@ -100,7 +100,7 @@ newEntity{ define_as = "ARENA_BOOTS_PHAS", name = "a pair of leather boots of ph
 	desc = [[A pair of boots made of leather. They seem to be of exceptional quality.]],
 	suffix=true, instant_resolve=true,
 	egoed = true,
-	greater_ego = true,
+	greater_ego = 1,
 	identified = true,
 	cost = 0,
 	rarity = false,
@@ -131,7 +131,7 @@ newEntity{ define_as = "ARENA_BOOTS_RUSH", name = "a pair of leather boots of ru
 	suffix=true, instant_resolve=true,
 	egoed = true,
 	rarity = false,
-	greater_ego = true,
+	greater_ego = 1,
 	identified = true,
 	cost = 0,
 	material_level = 1,
@@ -151,7 +151,7 @@ newEntity{ define_as = "ARENA_BOW", name = "elm longbow of piercing arrows",
 	rarity = 30,
 	add_name = " #CHARGES#",
 	egoed = true,
-	greater_ego = true,
+	greater_ego = 1,
 	identified = true,
 	cost = 0,
 	material_level = 1,
@@ -177,7 +177,7 @@ newEntity{ define_as = "ARENA_SLING", name = "rough leather sling of flare",
 	add_name = " #CHARGES#",
 	rarity = 30,
 	egoed = true,
-	greater_ego = true,
+	greater_ego = 1,
 	identified = true,
 	cost = 0,
 	material_level = 1,