ShieldWallInAction = false  
c=CastSpellByName  
shieldwall = "Глухая оборона"  
reflect = "Отражение заклинания"  
defstance = "Оборонительная стойка"  
battlestance = "Боевая стойка"  
me = "player"  

-- проверяет можно ли юзать спелл  
function CanUse(spell)  
      if IsUsableSpell(spell) and GetSpellCooldown(spell) == 0 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 HasBuff(spell, mine)  
      if BuffInfo(spell, me, mine) then  
          return true  
      else  
          return false  
      end  
end  

-- получает хп в процентах  
function UnitHP(unit)  
      return UnitHealth(unit) / UnitHealthMax(unit) * 100  
end  

-- запоминает названия пух в наборах  
local itemArray = {}  
function RememberItemNames()  
      GetEquipmentSetItemIDs("twohand", itemArray)  
      twohand = GetItemInfo(itemArray[16])  
      wipe(itemArray)  
      GetEquipmentSetItemIDs("onehand", itemArray)  
      mainhand = GetItemInfo(itemArray[16])  
      offhand = GetItemInfo(itemArray[17])  
      wipe(itemArray)  
end  

-- получает наборы шмота  
function GetEquipmentSets()  
      if GetEquipmentSetInfoByName("twohand") and GetEquipmentSetInfoByName("onehand") then  
          RememberItemNames()  
      else  
          print("can't find required item sets")  
      end  
end  

GetEquipmentSets()  

-- одевает щит и одноручку  
function EquipShield()  
      UIErrorsFrame:UnregisterEvent("UI_ERROR_MESSAGE")  
      RunMacroText('/equip '..mainhand)  
      RunMacroText('/equip '..offhand)  
      UIErrorsFrame:RegisterEvent("UI_ERROR_MESSAGE")  
end  

-- одевает двуручку  
function EquipTwoHand()  
      UIErrorsFrame:UnregisterEvent("UI_ERROR_MESSAGE")  
      RunMacroText('/equip '..twohand)             
      UIErrorsFrame:RegisterEvent("UI_ERROR_MESSAGE")  
end  

-- прыгает в деф стойку  
function SwitchToDefence()  
      if GetShapeshiftForm() ~= 2 and CanUse(defstance) then  
          c(defstance)  
          print("used def stance")  
      end  
end  

-- основной цикл  
function DoDefenceStuff()  
      -- наше условие, т.е. когда юзать  
      -- в данном случае если ХП опустилось ниже 30% и нет кд  
      if UnitHP(me) < 30 and CanShieldWall() then  
          RunShieldWall()  
      end  
      -- если запущен процесс  
      if ShieldWallInAction then  
          -- приступаем к касту  
          CastShieldWall()  
      -- процесс не запущен, возврат в стойку и одевание двуручки  
      elseif not HasBuff(reflect) and not HasBuff(shieldwall) then  
          -- переодевание щита на двуруч  
          if IsEquippedItemType("Щиты") then  
              EquipTwoHand()  
          end  
          -- переход в обычную стойку из деф стойки  
          if GetShapeshiftForm() == 2 and CanUse(battlestance) then  
              c(battlestance)  
          end  
      -- раскомментируй код и убери аналогичный кусок сверху,  
      -- чтобы не дожидаясь окончания бафа глухой обороны был прыжок в обычную стойку  
      -- ведь баф не слетает от переключения стоек, по крайней мере на большинстве серверов  
      --else  
      --    if not HasBuff(reflect) and not HasBuff(shieldwall) and IsEquippedItemType("Щиты") then  
      --        EquipTwoHand()  
      --    end  
      --    if GetShapeshiftForm() == 2 and CanUse(battlestance) then  
      --        c(battlestance)  
      --    end  
      --end  
end  

-- проверка на кд  
function CanShieldWall()  
      if not ShieldWallInAction and GetSpellCooldown(shieldwall) == 0 then  
          return true  
      else  
          return false  
      end  
end  

-- запуск процесса  
function RunShieldWall()             
      ShieldWallInAction = true  
      -- засекает 3 секунды от запуска  
      WhenRefuseShieldWall = GetTime() + 3  
      print("run RunShieldWall()")  
end  

-- запуск каста и обработчик  
function CastShieldWall()  
      -- проверяет сколько времени уже прошло  
      if GetTime() > WhenRefuseShieldWall then  
          print("shield wall finished")  
          ShieldWallInAction = false  
          return  
      end  
      -- прыгает в деф стойку  
      SwitchToDefence()  
      -- одевает щит если ещё не одет  
      if not IsEquippedItemType("Щиты") then  
          EquipShield()  
      end  
      -- если может юзать ШВ  
      if CanUse(shieldwall) then  
          -- дополнительно Блок щитом  
          if CanUse("Блок щитом") then  
              c("Блок щитом")  
          end  
          -- юзает ШВ  
          c(shieldwall)  
      end  
end  

-- старт бесконечного цикла с основной функцией  
-- для этого нужен аддон Repeater  
RunMacroText("/rep 0.1 /run DoDefenceStuff()")  
print("DefenceModule loaded")

function Inter(self, elapsed)          
              local inRange = IsSpellInRange("Вмешательство", "party1")              
              local party = "party1"          
              if inRange == 1 then          
               if UnitDebuff(party, "Дезориентирующий выстрел") then          
               RunMacro("intervine")        
               end          
              end          
end          
CreateFrame("Frame", "InterFrame")          
InterFrame:SetScript("OnUpdate", Inter)

function Leap(self, elapsed)           
               local inRange = IsSpellInRange("Прыжок", "party1")               
               local party = "party1"           
               if inRange == 1 then           
                if UnitDebuff(party, "Дезориентирующий выстрел") then           
                RunMacro("Прыжок")         
                end           
               end           
end           
CreateFrame("Frame", "LeapFrame")           
LeapFrame:SetScript("OnUpdate", Leap)

function Dispel(self, elapsed)            
                local plRange = IsSpellInRange("Рассеивание заклинаний", "player")   
                local oneRange = IsSpellInRange("Рассеивание заклинаний", "party1")
                local pl = "player"     
                local one = "party1"    
                local plhealth = UnitHealth("player", 0)
                local onehealth = UnitHealth("party1", 0)       
                if plRange == 1 and plhealth  >= 15000 and onehealth  >= 15000 then
                 if UnitDebuff(pl, "Превращение") then            
                 CastSpellByName("Рассеивание заклинаний", "player")   
                end            
               end  

function BuffSrc(self)
for i = 1, 5 do
enabled = GetSpellCooldown("Разоружение")
inRange = IsSpellInRange("Разоружение", "focus")
if UnitBuff("arena"..i, "Вихрь клинков") and enabled == 0 and inRange == 1 then
RunMacro("Disarm")
end
end
end

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

function BuffSrc(self)  
enabled = GetSpellCooldown("Разоружение")  
inRange = IsSpellInRange("Разоружение", "target")  
if UnitBuff("target", "Вихрь клинков") and enabled == 0 and inRange == 1 then  
RunMacro("Disarm")  
end  
end  
end  

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

function BuffSrc(self)  
enabled = GetSpellCooldown("Разоружение")  
inRange = IsSpellInRange("Разоружение", "focus")  
if UnitBuff("focus", "Вихрь клинков") and enabled == 0 and inRange == 1 then  
RunMacro("Disarmfocus")  
end  
end  
end  

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

function BufSrc(self)   
enabled = GetSpellCooldown("Разоружение")   
inRange = IsSpellInRange("Разоружение", "focus")   
if UnitBuff("focus", "Вихрь клинков") and enabled == 0 and inRange == 1 then   
RunMacro("Disarmfocus")   
end   
end   
end   

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

3/3 21:05:18.388  SPELL_CAST_FAILED,0x000000000000DC68,"qwerty",0x511,0x0000000000000000,nil,0x80000000,48125,"Слово Тьмы: Боль",0x20,"Цель вне поля зрения."

function BuffSrc(self)  
            enabled = GetSpellCooldown("Разоружение")  
            inRange = IsSpellInRange("Разоружение", "target")  
            if UnitBuff("target", "Вихрь клинков") and enabled == 0 and inRange == 1 then            
           RunMacro("dis")
            end  
end  

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