USD="UNIT_SPELLCAST_SUCCEEDED";OT="OnEvent";FR="Frame";RF=CreateFrame;RD="Border";UE=UnitName
CS=RF(FR) CS.c=RF("Cooldown","CST",CS.t) CS:RegisterEvent(USD)  
CS.c:SetAllPoints(CS) CS:SetPoint("TOPRIGHT",PlayerFrame,-2,-100)CS:SetSize(22,22)CS.t=CS:CreateTexture(nil,RD)CS.t:SetAllPoints()CS.t:SetTexture("Interface\\Icon s\\ability_cheapshot")
CS:SetScript(OT,function(self,event,...)if UE(select(1,...))==UE("player")and select(5,...)==1833 then CST:SetCooldown(GetTime(),25)end end)
SP=RF(FR) SP.c=RF("Cooldown","SAP",SP.t) SP:RegisterEvent(USD)  
SP.c:SetAllPoints(SP) SP:SetPoint("TOPRIGHT",PlayerFrame,-25,-100)SP:SetSize(22,22)SP.t=SP:CreateTexture(nil,RD)SP.t:SetAllPoints()SP.t:SetTexture("Interface\\Ico ns\\ability_sap")
SP:SetScript(OT,function(self,event,...)if UE(select(1,...))==UE("player")and select(5,...)==51724 then SAP:SetCooldown(GetTime(),27)end if UE(select(1,...))==UE("player")and select(5,...)==38764 then SAP:SetCooldown(GetTime(),23)end end)

function Dispel(self, elapsed)  
local inRange = IsSpellInRange("Пожирание магии", "target")  
local Range = IsSpellInRange("Запрет чар", "target")  
local enable = GetSpellCooldown(48011)  
local enabl = GetSpellCooldown(19647)  
local pl = "player"  
local power = UnitPower("pet", 0)  
local finish = endTime/1000 - GetTime()  
if enable == 0 and power >= 390 and inRange == 1 then  
if UnitDebuff(pl, "Страх") or UnitDebuff(pl, "Жертвенный огонь") or UnitDebuff(pl, "Лик смерти") or UnitDebuff(pl, "Порча") or UnitDebuff(pl, "Неистовство тьмы") or UnitDebuff(pl, "Вой ужаса") or UnitDebuff(pl, "Вой ужаса") or UnitDebuff(pl, "Превращение") or UnitDebuff(pl, "Ледяные оковы") or UnitDebuff(pl, "Молот правосудия") or UnitDebuff(pl, "Покояние") or UnitDebuff(pl, "Сглаз") or UnitDebuff(pl, "Ментальный крик") or UnitDebuff(pl, "Соблазн") then  
CastSpellByName("Пожирание магии", "player")  
end  
end  
if enabl == 0 and power >= 200 and Range == 1 then  
if UnitCastingInfo("target") or UnitChannelInfo("target") and finish <= 0.6 then  
CastSpellByName("Запрет чар", "target")  
end  
end  
end  
CreateFrame("Frame", "DispelFrame")  
DispelFrame:SetScript("OnUpdate", Dispel)

if not frame then
frame = CreateFrame("Frame")
end
local onEvent = function(self, event, ...)
if (event == "COMBAT_LOG_EVENT_UNFILTERED") then
local timestamp, type, sourceGUID, sourceName, sourceFlags, destGUID, destName, destFlags = select(1, ...)
if (type == "SPELL_CAST_SUCCESS") then
local spellId, spellName, spellSchool = select(9, ...)
if spellName == "Ослепление" or spellName == "Покаяние" or spellName== "Дезориентирующий выстрел" and UnitName("player") == destName then
TargetUnit(arg4)
CastSpellByName ("Слово тьмы: Смерть")
end
end
end
end
frame:SetScript("OnEvent", onEvent)
frame:UnregisterEvent("COMBAT_LOG_EVENT_UNFILTERED")
frame:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED")
frame:UnregisterEvent("UNIT_SPELLCAST_SUCCEEDED")