local mod	= DBM:NewMod("Souls", "DBM-BlackTemple")
local L		= mod:GetLocalizedStrings()

mod:SetRevision(("$Revision: 5019 $"):sub(12, -3))
mod:SetCreatureID(23418)
mod:RegisterCombat("yell", DBM_SOULS_YELL_PULL, 23420)


mod:RegisterEvents(
	"CHAT_MSG_RAID_BOSS_EMOTE",
	"CHAT_MSG_MONSTER_YELL",
	"SPELL_AURA_APPLIED",
	"SPELL_AURA_REMOVED",
	"SPELL_CAST_START",
	"SPELL_DAMAGE",
	"UNIT_HEALTH"
)


local intermissionSummonEssenceOfSuffering = mod:NewCastTimer(35, 2143967)
local intermissionSummonEssenceOfDesire = mod:NewCastTimer(35, 2143968)
local intermissionSummonEssenceOfAnger = mod:NewCastTimer(35, 2143969)

local warnSpiritShock = mod:NewSpellAnnounce(2143804, 2)
local timerTargetSpiritShock = mod:NewTargetTimer(5, 2143804)

local warnSoulBlast = mod:NewSpellAnnounce(2143961, 2)
local warnSoulDrain = mod:NewSpellAnnounce(2143760, 2)
local timerNextSoulDrain = mod:NewNextTimer(20, 2143760)

local warnRuneShield = mod:NewSpellAnnounce(2143808, 2)
local timerRuneShield = mod:NewTargetTimer(15, 2143808)
local timerNextRuneShield = mod:NewNextTimer(16, 2143808)

local warnTease = mod:NewSpellAnnounce(2143808, 2)
local timerTease = mod:NewBuffActiveTimer(15, 2143808)
local timerNextTease = mod:NewNextTimer(30, 2143808)

local warnSeethe = mod:NewSpellAnnounce(2143861, 2)
local timerSeethe = mod:NewBuffActiveTimer(15, 2143861)
local timerNextSeethe = mod:NewNextTimer(15, 2143861)

local warnSoulScream = mod:NewSpellAnnounce(2143853, 2)
local timerSoulScream = mod:NewCastTimer(2, 2143853)
local timerNextSoulScream = mod:NewNextTimer(12, 2143853)


local warnAuraOfSuffering = mod:NewSpellAnnounce(2143751, 2)
local warnAuraOfDesire = mod:NewSpellAnnounce(2143800, 2)
local warnAuraOfAnger = mod:NewSpellAnnounce(2143850, 2)

--local
local isSuffer		=	false

function mod:OnCombatStart(delay)
	self.vb.phase = 1
	isSuffer = true
end

function mod:SPELL_AURA_APPLIED(args)
	if args:IsSpellID(2143804) then
		warnSpiritShock:Show()
		timerTargetSpiritShock:Start(args.destName)
	elseif args:IsSpellID(2143961) and args.amount and args.amount >= 20 and args.amount % 5 == 0 then
		warnSoulBlast:Show()
	elseif args:IsSpellID(2143760, 2143761, 2143762, 2143763) then
		warnSoulDrain:Show()
	elseif args:IsSpellID(2143808) then
		warnRuneShield:Show()
		timerRuneShield:Start()
	elseif args:IsSpellID(2143808) then
		warnTease:Show()
		timerTease:Start()
		timerNextTease:Start()
	elseif args:IsSpellID(2143861) then
		warnSeethe:Show()
		timerSeethe:Start()
		timerNextSeethe:Start()
	elseif args:IsSpellID(2143750, 2143751, 2143752, 2143753) and DBM:AntiSpam(60) and self.vb.phase == 1 then
		warnAuraOfSuffering:Show()
		timerNextSoulDrain:Start(20)
	elseif args:IsSpellID(2143800, 2143803) and DBM:AntiSpam(60) and self.vb.phase == 1 then
		self.vb.phase = 2
		warnAuraOfDesire:Show()
		timerNextRuneShield:Start(16)
		timerNextTease:Start(20)
	elseif args:IsSpellID(2143850) and DBM:AntiSpam(60) and self.vb.phase == 2 then
		self.vb.phase = 3
		warnAuraOfAnger:Show()
		timerNextSoulScream:Start(10)
	end
end

function mod:SPELL_AURA_REMOVED(args)
	if args:IsSpellID(2143808) then
		-- warnRuneShield:Hide()
		timerRuneShield:Stop()
	end
end


function mod:SPELL_CAST_START(args)
	if args:IsSpellID(2143853, 2143854, 2143855, 2143856) or args:IsSpellID(2143857) then
		warnSoulScream:Show()
		timerSoulScream:Start()
		timerNextSoulScream:Start()
	end
end

function mod:UNIT_HEALTH(unit)
	--Essence of Suffering
	if isSuffer and (mod:GetUnitCreatureId(unit) == 23418) then
		local hp = (math.max(0,UnitHealth(unit)) / math.max(1, UnitHealthMax(unit))) * 100;
		if (hp <= 1) then
			intermissionSummonEssenceOfSuffering:Start()
        end
	--Essence of Desire
	elseif isSuffer and (mod:GetUnitCreatureId(unit) == 23419) then
		local hp = (math.max(0,UnitHealth(unit)) / math.max(1, UnitHealthMax(unit))) * 100;
		if (hp <= 1) then
			intermissionSummonEssenceOfDesire:Start()
		end
	--Essence of Anger
	elseif isSuffer and (mod:GetUnitCreatureId(unit) == 23420) then
		local hp = (math.max(0,UnitHealth(unit)) / math.max(1, UnitHealthMax(unit))) * 100;
		if (hp <= 1) then
			intermissionSummonEssenceOfAnger:Start()
		end
    end
end

-- Souls.MinVersionToSync = 3.00


-- local drainTargets = {}
-- local spiteTargets = {}
-- local lastFixate
-- local lastSpite = 0
-- local phase = 1

--Souls:AddOption("WarnDrain", true, DBM_SOULS_OPTION_DRAIN)
--Souls:AddOption("WarnDrainCast", false, DBM_SOULS_OPTION_DRAIN_CAST)
--Souls:AddOption("WarnFixate", false, DBM_SOULS_OPTION_FIXATE)
--Souls:AddOption("WarnScream", false, DBM_SOULS_OPTION_SCREAM)
--Souls:AddOption("WarnSpite", true, DBM_SOULS_OPTION_SPITE)
--Souls:AddOption("SpecWarnSpite", true, DBM_SOULS_OPTION_SPECWARN_SPITE)
--Souls:AddOption("SpiteWhisper", false, DBM_SOULS_OPTION_WHISPER_SPITE)

--Souls:AddBarOption("Enrage")
--Souls:AddBarOption("Next Enrage")
--Souls:AddBarOption("Fixate: (.*)")
--Souls:AddBarOption("Mana Drain")
--Souls:AddBarOption("Rune Shield")
--Souls:AddBarOption("Deaden")
--Souls:AddBarOption("Soul Scream")

-- drainTargets = {}
-- spiteTargets = {}
-- lastFixate = nil
-- self:StartStatusBarTimer(47 - delay, "Next Enrage", "Interface\\Icons\\Spell_Shadow_UnholyFrenzy")
-- self:ScheduleSelf(42 - delay, "EnrageWarn")
-- phase = 1

-- function Souls:OnEvent(event, arg1)
-- 	if event == "CHAT_MSG_RAID_BOSS_EMOTE" then
-- 		if arg1 == DBM_SOULS_EMOTE_ENRAGE and self.InCombat then
-- 			self:Announce(DBM_SOULS_WARN_ENRAGE, 3)
-- 			self:StartStatusBarTimer(15, "Enrage", "Interface\\Icons\\Spell_Shadow_UnholyFrenzy")
-- 			self:ScheduleSelf(15, "NextEnrage")
-- 		end
-- 	elseif event == "NextEnrage" then
-- 		self:Announce(DBM_SOULS_WARN_ENRAGE_OVER, 2)
-- 		self:StartStatusBarTimer(32, "Next Enrage", "Interface\\Icons\\Spell_Shadow_UnholyFrenzy")
-- 		self:ScheduleSelf(27, "EnrageWarn")
-- 	elseif event == "EnrageWarn" then
-- 		self:Announce(DBM_SOULS_WARN_ENRAGE_SOON, 2)
	
-- 	elseif event == "SPELL_AURA_APPLIED" then
-- 		if arg1.spellId == 41431 and bit.band(arg1.destFlags, COMBATLOG_OBJECT_TYPE_PLAYER) == 0 then
-- 			self:SendSync("Runeshield")
-- 		elseif arg1.spellId == 41376 then
-- 			self:SendSync("Spite"..tostring(arg1.destName))
-- 		elseif arg1.spellId == 41303 then
-- 			self:SendSync("SoulDrain"..tostring(arg1.destName))
-- 		elseif arg1.spellId == 41294 then
-- 			self:SendSync("Fixate"..tostring(arg1.destName))
-- 		end
-- 	elseif event == "RuneShieldWarn" then
-- 		self:Announce(DBM_SOULS_WARN_RUNESHIELD_SOON, 2)

-- 	elseif event == "SPELL_CAST_START" then
-- 		if arg1.spellId == 41410 then
-- 			self:SendSync("Deaden")
-- 		elseif arg1.spellId == 41303 then
-- 			self:SendSync("DrainCast")
-- 		end
	
-- 	elseif event == "SPELL_DAMAGE" then
-- 		if arg1.spellId == 41545 then
-- 			self:SendSync("SoulScream")
-- 		end
	
-- 	elseif event == "DeadenWarn" then
-- 		self:Announce(DBM_SOULS_WARN_DEADEN_SOON, 1)
	
-- 	elseif event == "CHAT_MSG_MONSTER_YELL" and arg1 then
-- 		if arg1 == DBM_SOULS_YELL_DESIRE or arg1:find(DBM_SOULS_YELL_DESIRE_DEMONIC) then
-- 			phase = 2
-- 			self:Announce(DBM_SOULS_WARN_DESIRE_INC, 1)
-- 			self:StartStatusBarTimer(160, "Mana Drain", "Interface\\Icons\\Spell_Shadow_SiphonMana")
-- 			self:ScheduleSelf(140, "ManaDrainWarn")
			
-- 			self:StartStatusBarTimer(13.5, "Rune Shield", "Interface\\Icons\\Spell_Arcane_Blast")
-- 			self:ScheduleSelf(10.5, "RuneShieldWarn")
-- 			self:StartStatusBarTimer(28, "Deaden", "Interface\\Icons\\Spell_Shadow_SoulLeech_1")
-- 			self:ScheduleSelf(23, "DeadenWarn")
-- 		elseif arg1 == DBM_SOULS_YELL_ANGER_INC then
-- 			phase = 3
-- 			self:Announce(DBM_SOULS_WARN_ANGER_INC, 1)
-- 		end
-- 	elseif event == "ManaDrainWarn" then
-- 		self:Announce(DBM_SOULS_WARN_MANADRAIN, 1)

-- 	elseif event == "WarnDrain" then
-- 		local msg = ""
-- 		for i, v in ipairs(drainTargets) do
-- 			msg = msg..">"..v.."<"..", "
-- 		end
-- 		msg = msg:sub(0, -3)
-- 		drainTargets = {}
-- 		self:Announce(DBM_SOULS_WARN_SOULDRAIN:format(msg), 1)
-- 	elseif event == "WarnSpite" then
-- 		if (GetTime() - lastSpite) > 12 then
-- 			lastSpite = GetTime()
-- 			local msg = ""
-- 			for i, v in ipairs(spiteTargets) do
-- 				msg = msg..">"..v.."<"..", "
-- 				if v == UnitName("player") then
-- 					if self.Options.SpecWarnSpite then
-- 						self:AddSpecialWarning(DBM_SOULS_SPECWARN_SPITE)
-- 					end
-- 				end
-- 				if self.Options.SpiteWhisper and self.Options.Announce and DBM.Rank >= 1 then
-- 					self:SendHiddenWhisper(DBM_SOULS_WHISPER_SPITE, v)
-- 				end
-- 			end
-- 			msg = msg:sub(0, -3)
-- 			spiteTargets = {}
-- 			self:Announce(DBM_SOULS_WARN_SPITE:format(msg), 2)
-- 		else
-- 			spiteTargets = {}
-- 		end
-- 	end
-- end

-- function Souls:GetBossHP()
-- 	if phase == 1 then
-- 		return DBM_SOULS_BOSS_SUFFERING..": "..DBM.GetHPByName(DBM_SOULS_BOSS_SUFFERING)
-- 	elseif phase == 2 then
-- 		return DBM_SOULS_BOSS_DESIRE..": "..DBM.GetHPByName(DBM_SOULS_BOSS_DESIRE)
-- 	elseif phase == 3 then
-- 		return DBM_SOULS_BOSS_KILL_NAME..": "..DBM.GetHPByName(DBM_SOULS_BOSS_KILL_NAME)
-- 	end
-- end

-- function Souls:OnSync(msg)
-- 	if msg == "Runeshield" then
-- 		self:Announce(DBM_SOULS_WARN_RUNESHIELD, 3)
-- 		self:StartStatusBarTimer(15.4, "Rune Shield", "Interface\\Icons\\Spell_Arcane_Blast") -- the timer between 2 runeshields is always about 15.5 seconds in my combatlog...this could be due to delay/lag/whatever, but this timer seems to be quite accurate
-- 		self:ScheduleSelf(12.4, "RuneShieldWarn")
-- 	elseif msg == "Deaden" then
-- 		self:Announce(DBM_SOULS_WARN_DEADEN, 2)
-- 		self:StartStatusBarTimer(31.5, "Deaden", "Interface\\Icons\\Spell_Shadow_SoulLeech_1")
-- 		self:ScheduleSelf(26.5, "DeadenWarn")
-- 	elseif msg:sub(0, 5) == "Spite" and self.Options.WarnSpite then
-- 		msg = msg:sub(6)
-- 		table.insert(spiteTargets, msg)
-- 		self:UnScheduleSelf("WarnSpite")
-- 		if #spiteTargets == 3 then
-- 			self:OnEvent("WarnSpite")
-- 		else
-- 			self:ScheduleSelf(1.3, "WarnSpite")
-- 		end
-- 	elseif msg:sub(0, 9) == "SoulDrain" and self.Options.WarnDrain then
-- 		msg = msg:sub(10)
-- 		table.insert(drainTargets, msg)
-- 		self:UnScheduleSelf("WarnDrain")
-- 		if #drainTargets == 5 then
-- 			self:OnEvent("WarnDrain")
-- 		else
-- 			self:ScheduleSelf(1.5, "WarnDrain")
-- 		end
-- 	elseif msg == "DrainCast" then
-- 		if self.Options.WarnDrainCast then
-- 			self:Announce(DBM_SOULS_WARN_SOULDRAIN_CAST, 1)
-- 		end
-- 	elseif msg:sub(0, 6) == "Fixate" and self.InCombat then
-- 		msg = msg:sub(7)
-- 		if lastFixate then
-- 			self:EndStatusBarTimer(lastFixate)
-- 		end
-- 		self:StartStatusBarTimer(5.5, "Fixate: "..msg, "Interface\\Icons\\Spell_Shadow_SpectralSight")
-- 		lastFixate = "Fixate: "..msg
-- 		if msg == UnitName("player") then
-- 			self:AddSpecialWarning(DBM_SOULS_SPECWARN_FIXATE)
-- 		end
-- 		if self.Options.WarnFixate then
-- 			self:Announce(DBM_SOULS_WARN_FIXATE:format(msg), 2)
-- 		end
-- 	elseif msg == "SoulScream" then
-- 		self:StartStatusBarTimer(10, "Soul Scream", "Interface\\Icons\\Spell_Shadow_SoulLeech")
-- 		if self.Options.WarnScream then
-- 			self:Announce(DBM_SOULS_WARN_SCREAM, 1)
-- 		end
-- 	end
-- end