SpellBase = {"Ослепление", "Превращение", "Глубокая заморозкw", "Покаяние", "Парализующий удар"}
SpellFrame = CreateFrame("Frame", "FrameSpell", UIParent);
SpellFrame:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED");
SpellFrame:SetScript("OnEvent", function(self, event, arg1, arg2, ...)
if(event=="COMBAT_LOG_EVENT_UNFILTERED") then
     for s = 1,#SpellBase do
     local name = UnitName("player")
     if arg2 == "SPELL_CAST_SUCCESS" and name ~= arg4 and name == arg7 and arg10 == SpellBase[s] then
      local enabled = GetSpellCooldown("Слово Тьмы: Смерть(Уровень 4)")
      if enabled == 0 then
       CastSpellByName("Слово Тьмы: Смерть(Уровень 4)")
       print(arg1,arg2,...)
      end
     end
     end
end
end)

function Kick(self, elapsed)
                      local spell, _, _, _, _, endTime, _, _, interrupt = UnitCastingInfo("target")                        
                      local enabled = GetSpellCooldown("Встречный выстрел")                        
                      local inRange = IsSpellInRange("Встречный выстрел", "target")                      
                      if spell then
                       if interrupt == false and enabled == 0 and inRange == 1 then                      
                        local finish = endTime/1000 - GetTime()
                        if finish <= 0.6 then
                         RunMacroText("/cast Встречный выстрел")                        
                        end
                       end
                      end                           
end                      
CreateFrame("Frame", "KickFrame")
KickFrame:SetScript("OnUpdate", Kick)

function Kick(self, elapsed)
                      local spell, _, _, _, _, endTime, _, _, interrupt = UnitCastingInfo("focus")                          
                      local enabled = GetSpellCooldown("Встречный выстрел")                      
                      local inRange = IsSpellInRange("Встречный выстрел", "focus")                      
                      if spell then                      
                       if interrupt == false and enabled == 0 and inRange == 1 then                      
                        RunMacroText("/cast Встречный выстрел")                      
                       end
                      end                          
end                      
CreateFrame("Frame", "KickFrame")
KickFrame:SetScript("OnUpdate", Kick)

local purgePriority = 0
  if CanHit("Усмиряющий выстрел") then
   purgePriority = GetPurgePriority()
  end

local dangerousBuffs = {"Озарение", "Слово силы: Щит", "Ледяная преграда", "Гнев карателя", "Берсерк", "Длань защиты", "Длань свободы", "Божественное одобрение", "Придание сил"}
function CanUse(spell)
    if IsUsableSpell(spell) and GetSpellCooldown(spell) == 0 and ReadyToCast(spell) then
        return true
    else
        return false
    end
end

function CanHit(spell)
    if CanUse(spell) and CanReach(spell) and not EnemyIsImmuneToSpell(spell) then
        return true
    else
        return false
    end
end

function BuffInfo(spell, unit, own)
    if own then
        return UnitBuff(unit, spell, nil, unit)
    else
        return UnitBuff(unit, spell)
    end
end
function TargetHasBuff(spell, own)
    if BuffInfo(spell, target, own) then
        return true
    else
        return false
    end
end

function HasBuffToPurge(count)
    for j=1,count do
  local buff,_,_,_,buffType = UnitBuff(target,j);
  if buff and (buffType == "" or buffType == "Magic") then
   return true
  end
    end
    return false
end

function GetPurgePriority()
    local foundBuff = false
    local dontPurge = false
    for j=1,10 do
  local buffName,_,_,_,buffType = UnitBuff(target,j);
  -- все берсерки имеют тип "", бафы без категории nil
  if buffName and (buffType == "" or buffType == "Magic") then
   if tContains(dangerousBuffs, buffName) then
    return 2
   elseif buffName == "Жизнецвет" then
    dontPurge = true
   end
   foundBuff = true
  end
    end
    if foundBuff and not dontPurge then
  return 1
    else
  return 0
    end
end

function EnemyHasBuff(spell, own)
    if UnitCanAttack(me, target) and TargetHasBuff(spell, own) then
        return true
    else
        return false
    end
end

function HasBuff(spell, mine)
    if BuffInfo(spell, me, mine) then
        return true
    else
        return false
    end
end

function HasStacksOfBuff(spell, stacks, mine)
    local name,_,_,count = BuffInfo(spell,me,mine)
    if name and count >= stacks then
        return true
    else
        return false
    end
end

function GetBuffDuration(spell, unit)
    local buffName,_,_,_,_,_,endTime = BuffInfo(spell, unit, false)
    if buffName then
  return endTime - GetTime()
    else
  return 0
    end
end

function EnemyIsImmuneToSpell(spell)

if EnemyHasBuff("Ледяная глыба") or EnemyHasBuff("Божественный щит") or EnemyHasBuff("Сдерживание") or TargetHasDebuff("Смерч") or EnemyHasBuff("Плащ теней") or EnemyHasBuff("Антимагический панцирь") then
        return true
    else
        return false
    end
end

function PurgeSrc(self)
local enabled = GetSpellCooldown("Усмиряющий выстрел")
local inRange = IsSpellInRange("Усмиряющий выстрел", "target")
if UnitBuff("target", "Озарение") or UnitBuff("target", "Озарение") and not UnitBuff("target", "Ледяная глыба") and not UnitBuff("target", "Ледяная глыба") and enabled == 0 and inRange == 1 then           
CastSpellByName("Усмиряющий выстрел", "target")
           end
end

CreateFrame("Frame", "frameB")
frameB:SetScript("OnUpdate", PurgeSrc)

function KillS(self)
local enabled = GetSpellCooldown("Убийственный выстрел")
local inRange = IsSpellInRange("Убийственный выстрел", "target")
if UnitHealth(target) < 20% then
CastSpellByName("Убийственный выстрел", "target")
end
end

CreateFrame("Frame", "frameE")
frameE:SetScript("OnUpdate", KillS)

HealthFrame = CreateFrame("Frame", "HealthF", UIParent);  
HealthFrame:RegisterEvent("TARGET_HEALTH");  
HealthFrame:SetScript("OnEvent", function(self, event, arg1, arg2, ...)  
if(event=="TARGET_HEALTH") then  
  if arg1 == "target" then  
   health = TargetHealth("target")
   healthMax =  TargetHealthMax("target")
   percentHealth = health * 100 /  healthMax
   if percentHealth <= 20 and enabled == 0 and inRange == 1 then
CastSpellByName("Убийственный выстрел", "target")
end
end

function Reflekt(self, elapsed)     
local spell, _, _, _, _, endTime, _, _, interrupt = UnitCastingInfo("target")      
local name = UnitName("targettarget")
local myname = UnitName("player")
     if spell == "Сглаз" or spell == "Превращение" or spell == "Смерч" or spell == "Стрела хаоса" or spell == "Изгнание зла" or spell == "Звездный огонь" or spell == "Господство над разумом" or spell == "Слепящий свет" then                
      if name == myname then
       local finish = endTime/1000 - GetTime()     
       if finish <= 0.5 then     
        RunMacroText("/cast Притвориться мертвым")                      
       end
      end
     end                       
end                
CreateFrame("Frame", "ReflektFrame")     
ReflektFrame:SetScript("OnUpdate", Reflekt)