SpellBase5 = {"Дезориентирующий выстрел","Грубый прием","Превращение","Покаяние","Ослепление","Ошеломление","Ненасытная стужа"}
SpellBase6 = {"Грубый прием"}
SpellFrame = CreateFrame("Frame", "FrameSpell", UIParent);
SpellFrame:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED");
SpellFrame:SetScript("OnEvent", function(self, event, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12, arg13, ...)
local power = UnitPower("player")
local name = UnitName("player")
local tar = UnitName("target")

for s = 1,#SpellBase5 do
if arg2 == "SPELL_CAST_SUCCESS" and name ~= arg5 and arg9 == name and arg13 == SpellBase5 [s]then

local enabled55 = GetSpellCooldown("Слово Тьмы: Смерть")

if enabled55 == 0 then
RunMacroText("/target "..arg5)
RunMacroText("/cast Слово Тьмы: Смерть")
RunMacroText("/cancelaura Слово силы: Щит")
RunMacroText("/cancelaura Божественное покровительство")
print("Попытка прожать швд")
end

end
end

for s = 1,#SpellBase6 do
if arg2 == "SPELL_CAST_START" and name ~= arg5 and arg13 == SpellBase6 [s]then

local enabled55 = GetSpellCooldown("Слово Тьмы: Смерть")

if enabled55 == 0 then
RunMacroText("/target "..arg5)
RunMacroText("/cast Слово Тьмы: Смерть")
RunMacroText("/cancelaura Слово силы: Щит")
RunMacroText("/cancelaura Божественное покровительство")
print("Попытка прожать швд")
end

end
end

end)

/run local start, duration, enabled = GetSpellCooldown("Смертельный удар") if duration <= 2 then CastSpellByName("Смертельный удар") end

function Fn1(self, v1, ...)
  local v2, v3, v4, v5, v6
  v2 = {...}
  if v1 == "COMBAT_LOG_EVENT_UNFILTERED" then
    v3 = { "Дезориентирующий выстрел", "Дыхание дракона", "Грубый прием", "Парализующий удар", "Превращение", "Покаяние", "Ослепление", "Ошеломление", "Соблазн", "Ненасытная стужа", "Укус виверны", "Устрашающий крик" }
    v4 = "Слово Тьмы: Смерть"
    if v2[2] == "SPELL_CAST_SUCCESS" or v2[2] == "SPELL_CAST_START" then
      if select(2, GetSpellCooldown(v4)) <= 2 then
        v5 = UnitGUID("player")
        for i = 1, #v3 do
          if v3 [i]== v2[13] then
            if v2[8] == v5 or v2[9] == nil then
              v6 = { "target", "focus", "mouseover", "targettarget", "mouseovertarget", "pettarget", "arena1", "arena2", "arena3", "arena4", "arena5", "arenapet1", "arenapet2", "arenapet3", "arenapet4", "arenapet5" }
              for j = 1, #v6 do
                if v2[4] == UnitGUID(v6[j]) and UnitCanAttack(v6[j], "player") then
                  SpellStopCasting()
                  CastSpellByName(v4, v6[j])
                  CancelUnitBuff("player", "Слово силы: Щит")
                  CancelUnitBuff("player", "Божественное покровительство")
                  print("Попытка прожать швд")
                end
              end
              if v2[9] == nil then
                TargetUnit(v2[5])
                if v2[4] == UnitGUID("target") and UnitCanAttack("target", "player") then
                  SpellStopCasting()
                  CastSpellByName(v4, "target")
                  CancelUnitBuff("player", "Слово силы: Щит")
                  CancelUnitBuff("player", "Божественное покровительство")
                  print("Попытка прожать швд")
                end
                TargetLastTarget()
              end
            end
          end
        end
      end
    end
  end
end

CreateFrame("Frame", "X79Frame", UIParent)
X79Frame:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED")
X79Frame:SetScript("OnEvent", Fn1)

/run if GetSpellCooldown("Пинок")==0 and IsSpellInRange("Пинок","target") and (UnitCastingInfo("target") or UnitChannelInfo("target")) and (not UnitBuff("target", "Мастер аур")) and (not UnitBuff("target", "Божественный щит")) then RunMacroTex("/cast Пинок") end

local ScriptAddon = CreateFrame("Frame", "ScriptAddon", nil) 
function ScriptAddon:OnEvent(event, ...) -- functions created in "object:method"-style have an implicit first parameter of "self", which points to object 
self[event](self, ...) -- route event parameters to ScriptAddon:event methods 
end 
ScriptAddon:SetScript("OnEvent", ScriptAddon.OnEvent) 
ScriptAddon:RegisterEvent("UNIT_SPELLCAST_START") 

function ScriptAddon:UNIT_SPELLCAST_START(unit) 
local spell, rank, displayName, icon, startTime, endTime, isTradeSkill = UnitCastingInfo(unit) 
if not spell then return end 
if displayName == "Превращение" or displayName == "Соблазн" then
self:SetScript("OnUpdate", self.OnUpdate) 
self.unit = unit 
self.total = 0 
self.endTime = endTime/1000 -- this is equal to GetTime() at which the cast will end 
self.unitName = UnitName(unit) 
end 
end 

function ScriptAddon:OnUpdate(elapsed) 
self.total = self.total + elapsed 
-- only call function every 50ms to improve performance 
if self.total >= 0.00 then 
self.total = 0 
local spell, rank, displayName, icon, startTime, endTime, isTradeSkill = UnitCastingInfo(self.unit) 
if endTime and endTime/1000 - GetTime() <= 0.2 then 
-- stop using performance heavy onupdate function if no spellcast is currently going on 
self:SetScript("OnUpdate", nil) 
TargetUnit(self.unit) 
CastSpellByName("Слово Тьмы: Смерть") 
elseif self.endTime-0.2 <= GetTime() then -- lost Unit (changed target e.g.), guessing cast timer 
self:SetScript("OnUpdate", nil) 
TargetUnit(self.unitName) 
CastSpellByName("Слово Тьмы: Смерть") 
end 
end 
end

if PQR_CustomTargetHP < 98 and UnitBuffID("player", 54149) and
PQR_IsCastingSpell(48785) == false then
return true

if 100 * UnitHealth("PQR_CustomTarget") / UnitHealthMax(PQR_CustomTarget) < 99
and UnitBuffID("player", 54149)
then return true end