local ScriptAddon = CreateFrame("Frame", "ScriptAddon", nil)
function ScriptAddon:OnEvent(event, ...)
self[event](self, ...)
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 == "Стрела хаоса" or displayName == "Жертвенный огонь" or displayName == "Превращение" or displayName == "Сглаз" or displayName == "Выброс лавы" or displayName == "Взрыв разума" then
self:SetScript("OnUpdate", self.OnUpdate)
self.unit = unit
self.total = 0
self.endTime = endTime/1000
self.unitName = UnitName(unit)
end
end

function ScriptAddon:OnUpdate(elapsed)
self.total = self.total + elapsed
if self.total >= 0.05 then
self.total = 0
local spell, rank, displayName, icon, startTime, endTime, isTradeSkill = UnitCastingInfo(self.unit)
if endTime and endTime/1000 - GetTime() <= 0.3 then
self:SetScript("OnUpdate", nil)
TargetUnit(self.unit)
CastSpellByName("Тотем заземления")
elseif self.endTime-0.3 <= GetTime() then
self:SetScript("OnUpdate", nil)
TargetUnit(self.unitName)
CastSpellByName("Тотем заземления")
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.2 then
RunMacro("antiot")
end
end
end
end
CreateFrame("Frame", "KickFrame")
KickFrame:SetScript("OnUpdate", Kick)

Где макрос с названием antiot в строчке "RunMacro("antiot")" - содержит следующее:
/stopcasting
/cast Пронизывающий ветер()

SpellBase = {"Антимагия", "Пронизывающий ветер", "Запрет чар", "Пинок", "Удар щитом", "Зуботычина"}
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_SUCCEESS" and name ~= arg4 and name == arg7 and arg10 == SpellBase[s] then
RunMacro("stopcast")
end
end
end
end)

где stopcast - макрос
/stopcasting
/stopcasting
/stopcasting

SpellBase = {"Антимагия", "Пронизывающий ветер", "Запрет чар", "Пинок", "Удар щитом", "Зуботычина"}
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("Пронизывающий ветер")
if enabled == 0 then
RunMacro("antiot")
end
end
end
end
end)

где "antiot" – макрос
/stopcasting
/cast Пронизывающий ветер

function rijiytopor(self, elapsed)
local spell, _, _, _, _, _, _, _, _ = UnitCastingInfo("target")
local enabled = GetSpellCooldown("Удар щитом()")
local isEnemy = UnitIsEnemy("player","target")
if isEnemy == 1 then
if spell then
if enabled == 1 then
RunMacroText("/equip Темная скорбь")
end
end
end
end
CreateFrame("Frame", "TOPORODEL")
TOPORODEL:SetScript("OnUpdate", rijiytopor)

function Kick(self, elapsed)
local spell, _, _, _, _, endTime, _, _, interrupt = UnitCastingInfo("target")
local enabled = GetSpellCooldown("Пронизывающий ветер()")
local isEnemy = UnitIsEnemy("player","target")
if isEnemy == 1 then
local inRange = IsSpellInRange("Пронизывающий ветер()", "target")
if spell == "Превращение" or "Ледяная стрела" or "Выброс лавы" or "Стрела хаоса" or "Огненный шар" or "Смерч" or "Сглаз" or "Прикосновение вампира" or "Звездный огонь" or "Гнев деревьев" or "Цепная молния" then
if interrupt == false and enabled == 0 and inRange == 1 then
local finish = endTime/1000 - GetTime()
if finish <= 1.3 then
RunMacro("antiot")
end
end
end
end
end
CreateFrame("Frame", "KickFrame")
KickFrame:SetScript("OnUpdate", Kick)

function arcanee(self, elapsed)
local name, _, _, count, _, _, _, _, _, _, _, _, _, _, _, _ = UnitDebuff("player", "Чародейская вспышка")
local inCombat = UnitAffectingCombat("target")
if inCombat == 1 then
if name and count=3 then RunMacro("arc2") else RunMacro("arc1")
end
end
end
CreateFrame("Frame", "arcanefre")
arcanefre:SetScript("OnUpdate", arcanee)

function arcanee(self, elapsed)
local name, _, _, count, _, _, _, _, _, _, _, _, _, _, _, _ = UnitDebuff("player", "Чародейская вспышка")
local prok = UnitBuff("player", "Ясность мысли")
local inCombat = UnitAffectingCombat("target")
if inCombat == 1 then
if name and count==3 and prok==0 then RunMacro("arc2") else RunMacro("arc1")
end
end
end
CreateFrame("Frame", "arcanefre")
arcanefre:SetScript("OnUpdate", arcanee)

local name, _, _, count, _, _, _, _, _, _, _, _, _, _, _, _ = UnitDebuff("player", "Чародейская вспышка")

function arcanee(self, elapsed)
local name, _, _, count, _, _, _, _, _, _, _, _, _, _, _, _ = UnitDebuff("player", "Чародейская вспышка")
local name, _, _, _, _, _, _, _, _, _, _, _, _, _, _, _ = UnitBuff("player", "Ясность мысли")
local inCombat = UnitAffectingCombat("target")
if inCombat == 1 then
if name and count==3 then RunMacro("arc2") else RunMacro("arc1")
end
end
end
CreateFrame("Frame", "arcanefre")
arcanefre:SetScript("OnUpdate", arcanee)

function Kick(self, elapsed)
local spell, _, _, _, startTime, _, _, _, interrupt = UnitCastingInfo("target")
local enabled = GetSpellCooldown("Заморозка разума")
local inRange = IsSpellInRange("Заморозка разума", "target")
if spell then
if interrupt == false and enabled == 0 and inRange == 1 then
local startcast = startTime/1000
if startcast>= 0.2 then
RunMacroText("/cast Заморозка разума")
end
end
end
end
CreateFrame("Frame", "KickFrame")
KickFrame:SetScript("OnUpdate", Kick)