New Doomed tree: One with Shadows

@@ -1791,6 +1791,19 @@ function _M:onTakeHit(value, src, death_note)
 		end
 	end
 
+	if value > 0 and self:attr("shadow_empathy") then
+		-- Absorb damage into a random shadow
+		local shadow = self:callTalent(self.T_SHADOW_EMPATHY, "getRandomShadow")
+		if shadow then
+			game:delayedLogMessage(self, src,  "displacement_shield"..(shadow.uid or ""), "#CRIMSON##Source# shares some damage with a shadow!")
+			local displaced = math.min(value * self.shadow_empathy / 100, shadow.life)
+			shadow:takeHit(displaced, src)
+			game:delayedLogDamage(src, self, 0, ("#PINK#(%d linked)#LAST#"):format(displaced), false)
+			game:delayedLogDamage(src, shadow, displaced, ("#PINK#%d linked#LAST#"):format(displaced), false)
+			value = value - displaced
+		end
+	end
+
 	if value > 0 and self:attr("displacement_shield") then
 		-- Absorb damage into the displacement shield
 		if rng.percent(self.displacement_shield_chance) then
@@ -2149,6 +2162,14 @@ function _M:onTakeHit(value, src, death_note)
 			game.level.map:particleEmitter(self.x, self.y, 1, "teleport_in")
 		end
 	end
+	
+	-- Shadow decoy
+	if value >= self.life and self:isTalentActive(self.T_SHADOW_DECOY) then
+		local t = self:getTalentFromId(self.T_SHADOW_DECOY)
+		if t.onDie(self, t, value, src) then
+			value = 0
+		end
+	end
 
 	if value <= 0 then return 0 end
 	-- Vim leech

@@ -508,6 +508,24 @@ function _M:playerFOV()
 		end
 	end
 
+	if self:knowTalent(self.T_SHADOW_SENSE) then
+		local t = self:getTalentFromId(self.T_SHADOW_SENSE)
+		local range = self:getTalentRange(t)
+		local sqsense = range * range
+
+		for shadow, _ in pairs(game.party.members) do if shadow.is_doomed_shadow and not shadow.dead then
+			local arr = shadow.fov.actors_dist
+			local tbl = shadow.fov.actors
+			local act
+			for i = 1, #arr do
+				act = arr[i]
+				if act and not act.dead and act.x and tbl[act] and shadow:canSee(act) and tbl[act].sqdist <= sqsense then
+					game.level.map.seens(act.x, act.y, 0.6)
+				end
+			end
+		end end 
+	end
+
 	if not self:attr("blind") then
 		-- Handle dark vision; same as infravision, but also sees past creeping dark
 		-- this is treated as a sense, but is filtered by custom LOS code

@@ -129,6 +129,7 @@ newBirthDescriptor{
 		["cursed/cursed-form"]={true, 0.0},
 		["cunning/survival"]={false, 0.0},
 		["cursed/fears"]={false, 0.0},
+		["cursed/one-with-shadows"]={false, 0.3},
 	},
 	talents = {
 		[ActorTalents.T_UNNATURAL_BODY] = 1,

+-- ToME - Tales of Maj'Eyal
+-- Copyright (C) 2009, 2010, 2011, 2012, 2013 Nicolas Casalini
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU General Public License as published by
+-- the Free Software Foundation, either version 3 of the License, or
+-- (at your option) any later version.
+--
+-- This program is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+-- GNU General Public License for more details.
+--
+-- You should have received a copy of the GNU General Public License
+-- along with this program.  If not, see <http://www.gnu.org/licenses/>.
+--
+-- Nicolas Casalini "DarkGod"
+-- darkgod@te4.org
+
+base_size = 32
+
+return { generator = function()
+	local ad = rng.range(0, 360)
+	local a = math.rad(ad)
+	local dir = math.rad(90)
+	local r = rng.range(18, 22)
+	local dirchance = rng.chance(2)
+	local x = rng.range(-16, 16)
+	local y = 16 - math.abs(math.sin(x / 16) * 8)
+	local c = rng.float(0, 0.3)
+
+	return {
+		trail = 1,
+		life = rng.range(10, 18),
+		size = rng.range(2, 3), sizev = 0, sizea = 0.005,
+
+		x = x, xv = 0, xa = 0,
+		y = y, yv = 0, ya = -0.2,
+		dir = 0, dirv = 0, dira = 0,
+		vel = 0, velv = 0, vela = 0,
+
+		r = c,   rv = 0, ra = 0,
+		g = c,   gv = 0, ga = 0,
+		b = c,   bv = 0, ba = 0,
+		a = rng.float(0.5, 1),   av = 0, aa = 0,
+	}
+end, },
+function(self)
+	self.ps:emit(4)
+end,
+40

@@ -31,6 +31,7 @@ newTalentType{ allow_random=true, is_mind=true, type="cursed/force-of-will", nam
 newTalentType{ allow_random=true, is_mind=true, type="cursed/darkness", name = "darkness", description = "Harness the power of darkness to envelop your foes." }
 newTalentType{ allow_random=true, is_mind=true, type="cursed/shadows", name = "shadows", description = "Summon shadows from the darkness to aid you." }
 newTalentType{ allow_random=true, is_mind=true, type="cursed/punishments", name = "punishments", description = "Your hate becomes punishment in the minds of your foes." }
+newTalentType{ allow_random=true, is_mind=true, type="cursed/one-with-shadows", name = "one with shadows", min_lev = 10, description = "Harness your shadows to their full potential." }
 
 -- Generic
 newTalentType{ allow_random=true, is_mind=true, type="cursed/gestures", name = "gestures", generic = true, description = "Enhance the power of you mind with gestures." }
@@ -102,6 +103,27 @@ cursed_cun_req5 = {
 	level = function(level) return 16 + (level-1)  end,
 }
 
+cursed_req_high1 = {
+	stat = { cun=function(level) return 22 + (level-1) * 2 end },
+	level = function(level) return 10 + (level-1)  end,
+}
+cursed_req_high2 = {
+	stat = { cun=function(level) return 30 + (level-1) * 2 end },
+	level = function(level) return 14 + (level-1)  end,
+}
+cursed_req_high3 = {
+	stat = { cun=function(level) return 38 + (level-1) * 2 end },
+	level = function(level) return 18 + (level-1)  end,
+}
+cursed_req_high4 = {
+	stat = { cun=function(level) return 46 + (level-1) * 2 end },
+	level = function(level) return 22 + (level-1)  end,
+}
+cursed_req_high5 = {
+	stat = { cun=function(level) return 54 + (level-1) * 2 end },
+	level = function(level) return 26 + (level-1)  end,
+}
+
 cursed_lev_req1 = {
 	level = function(level) return 0 + (level-1)  end,
 }
@@ -146,6 +168,7 @@ load("/data/talents/cursed/shadows.lua")
 load("/data/talents/cursed/darkness.lua")
 load("/data/talents/cursed/punishments.lua")
 load("/data/talents/cursed/gestures.lua")
+load("/data/talents/cursed/one-with-shadows.lua")
 
 load("/data/talents/cursed/cursed-form.lua")
 load("/data/talents/cursed/cursed-aura.lua")

+-- ToME - Tales of Middle-Earth
+-- Copyright (C) 2009, 2010, 2011, 2012, 2013 Nicolas Casalini
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU General Public License as published by
+-- the Free Software Foundation, either version 3 of the License, or
+-- (at your option) any later version.
+--
+-- This program is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+-- GNU General Public License for more details.
+--
+-- You should have received a copy of the GNU General Public License
+-- along with this program.  If not, see <http://www.gnu.org/licenses/>.
+--
+-- Nicolas Casalini "DarkGod"
+-- darkgod@te4.org
+
+local Emote = require "engine.Emote"
+
+newTalent{
+	name = "Shadow Senses",
+	type = {"cursed/one-with-shadows", 1},
+	require = cursed_cun_req_high1,
+	mode = "passive",
+	points = 5,
+	no_npc_use = true,
+	range = function(self, t) return math.floor(self:combatTalentScale(t, 1, 5, 1)) end,
+	info = function(self, t)
+		return ([[Your awareness extends to your shadows.
+		You always know exactly where your shadows are and can perceive any foe within %d tiles of their vision.]])
+		:format(self:getTalentRange(t))
+	end,
+}
+
+newTalent{
+	name = "Shadow Empathy",
+	type = {"cursed/one-with-shadows", 2},
+	require = cursed_cun_req_high2,
+	points = 5,
+	hate = 10,
+	cooldown = 25,
+	getRandomShadow = function(self, t)
+		local shadows = {}
+		if game.party and game.party:hasMember(self) then
+			for act, def in pairs(game.party.members) do
+				if act.summoner and act.summoner == self and act.is_doomed_shadow and not act.dead then
+					shadows[#shadows+1] = act
+				end
+			end
+		else
+			for uid, act in pairs(game.level.entities) do
+				if act.summoner and act.summoner == self and act.is_doomed_shadow and not act.dead then
+					shadows[#shadows+1] = act
+				end
+			end
+		end
+		return #shadows > 0 and rng.table(shadows)
+	end,
+	getDur = function(self, t) return math.floor(self:combatTalentScale(t, 3, 10)) end,
+	getPower = function(self, t) return 5 + self:combatTalentMindDamage(t, 0, 300) / 8 end,
+	action = function(self, t)
+		self:setEffect(self.EFF_SHADOW_EMPATHY, t.getDur(self, t), {power=t.getPower(self, t)})
+		return true
+	end,
+	info = function(self, t)
+		local power = t.getPower(self, t)
+		local duration = t.getDur(self, t)
+		return ([[You are linked to your shadows for %d turns, diverting %d%% of all damage you take to a random shadow.
+		Effect increases with Mindpower.]]):
+		format(duration, power)
+	end,
+}
+
+newTalent{
+	name = "Shadow Transposition",
+	type = {"cursed/one-with-shadows", 3},
+	require = cursed_cun_req_high3,
+	points = 5,
+	hate = 6,
+	no_npc_use = true,
+	radius = function(self, t) return math.floor(self:combatTalentScale(t, 1, 15, 1)) end,
+	getNb = function(self, t) return math.floor(self:combatTalentScale(t, 1, 3, 1)) end,
+	action = function(self, t)
+		local tg = {type="hit", range=self:getTalentRadius(t)}
+		local x, y, target = self:getTarget(tg)
+		if not x or not y or not target then return nil end
+		if core.fov.distance(self.x, self.y, target.x, target.y) > self:getTalentRadius(t) then return nil end
+		if target.summoner ~= self or not target.is_doomed_shadow then return end
+
+		-- Displace
+		local tx, ty, sx, sy = target.x, target.y, self.x, self.y
+		target.x = nil target.y = nil
+		self.x = nil self.y = nil
+		target:move(sx, sy, true)
+		self:move(tx, ty, true)
+
+		self:removeEffectsFilter(function(t) return (t.type == "physical" or t.type == "magical") and t.status == "detrimental" end, t.getNb(self, t))
+
+		return true
+	end,
+	info = function(self, t)
+		return ([[Observers find it difficult to tell you and your shadows apart.
+		You can target a shadow in radius %d and instantly trade places with it.
+		%d random negative physical or magical effects are transferred from you to the chosen shadow in the process.]])
+		:format(self:getTalentRadius(t), t.getNb(self, t))
+	end,
+}
+
+newTalent{
+	name = "Shadow Decoy",
+	type = {"cursed/one-with-shadows", 4},
+	require = cursed_cun_req_high4,
+	mode = "sustained",
+	cooldown = 10,
+	points = 5,
+	cooldown = 50,
+	sustain_hate = 40,
+	getPower = function(self, t) return 10 + self:combatTalentMindDamage(t, 0, 300) end,
+	onDie = function(self, t, value, src)
+		local shadow = self:callTalent(self.T_SHADOW_EMPATHY, "getRandomShadow")
+		if not shadow then return false end
+
+		game:delayedLogDamage(src, self, 0, ("#GOLD#(%d decoy)#LAST#"):format(value), false)
+		game:delayedLogDamage(src, shadow, value, ("#GOLD#%d decoy#LAST#"):format(value), false)
+		shadow:takeHit(value, src)
+		self:setEffect(self.EFF_SHADOW_DECOY, 4, {power=t.getPower(self, t)})
+		self:forceUseTalent(t.id, {ignore_energy=true})
+
+		if self.player then self:setEmote(Emote.new("Fools, you never killed me; that was only my shadow!", 45)) end
+		return true
+	end,
+	activate = function(self, t)
+		return {}
+	end,
+	deactivate = function(self, t, p)
+		return true
+	end,
+	info = function(self, t)
+		return ([[Your shadows guard you with their lifes.
+		When you would receive a fatal blow, you instantly transpose with a random shadow that takes the blow instead, putting this talent on cooldown.
+		For the next 4 turns you only die if you reach -%d life. However, when below 0 you cannot see how much life you have left.
+		Effect increases with Mindpower.]]):
+		format(t.getPower(self, t))
+	end,
+}

@@ -194,6 +194,7 @@ local function createShadow(self, level, tCallShadows, tShadowWarriors, tShadowM
 		exp_worth=0,
 		hate_regen = 1,
 		avoid_traps = 1,
+		is_doomed_shadow = true,
 
 		max_life = resolvers.rngavg(3,12), life_rating = 5,
 		stats = { -- affected by stat limits

@@ -258,7 +258,7 @@ newInscription{
 	info = function(self, t)
 		local data = self:getInscriptionData(t.short_name)
 		return ([[Activate the infusion to increase three of your primary stats by %d for %d turns.
-		Also while Heroism is active, you will only die when reaching -%d life. However, when below 0 you cannot see how much life you have left, and you will die if you did not heal before the effect ends.
+		Also while Heroism is active, you will only die when reaching -%d life. However, when below 0 you cannot see how much life you have left.
 		It will always increase your three highest stats.]]):format(data.power + data.inc_stat, data.dur, data.die_at + data.inc_stat * 30)
 	end,
 	short_info = function(self, t)

@@ -2952,3 +2952,37 @@ newEffect{
 		eff.power = 2
 	end,
 }
+
+newEffect{
+	name = "SHADOW_EMPATHY", image = "talents/shadow_empathy.png",
+	desc = "Shadow Empathy",
+	long_desc = function(self, eff) return ("%d%% of all damage is redirected to a random shadow."):format(eff.power) end,
+	type = "mental",
+	subtype = { mind=true, shield=true },
+	status = "beneficial",
+	parameters = { power=10 },
+	activate = function(self, eff)
+		self:effectTemporaryValue(eff, "shadow_empathy", eff.power)
+		eff.particle = self:addParticles(Particles.new("darkness_power", 1))
+	end,
+	deactivate = function(self, eff)
+		self:removeParticles(eff.particle)		
+	end,
+}
+
+newEffect{
+	name = "SHADOW_DECOY", image = "talents/shadow_decoy.png",
+	desc = "Shadow Decoy",
+	long_desc = function(self, eff) return ("A random shadow absorbed a fatal blow for you, granting you a negative shield of %d."):format(eff.power) end,
+	type = "mental",
+	subtype = { mind=true, shield=true },
+	status = "beneficial",
+	parameters = { power=10 },
+	activate = function(self, eff)
+		self:effectTemporaryValue(eff, "die_at", -eff.power)
+		eff.particle = self:addParticles(Particles.new("darkness_power", 1))
+	end,
+	deactivate = function(self, eff)
+		self:removeParticles(eff.particle)		
+	end,
+}