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 = RunMacroText("/stopcasting")
        if enabled == 0 then   
         RunMacroText("/stopcasting")
        end   
       end   
       end   
end
end)

if not SWDFrame then
SWD = CreateFrame("Frame", "SWD", UIParent);
SWDFrame:Hide()
end

--SWD = CreateFrame("Frame", "SWD", UIParent);        
SWD:RegisterEvent("UNIT_SPELLCAST_SUCCEEDED")        
SWD:SetScript("OnEvent", function(self, event, arg1, arg2)        
SpellBase = {"Покаяние","Молот правосудия","Лик смерти","Смерч","Ошеломление","Ослепление","Выброс лавы","Страх","Глубокая заморозка","Кольцо льда"}   
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(48707)   
if enabled == 0 then   
CastSpellByID(48707)
end    
end        
end        
end

-- создаем пустую таблицу
local members = { } 

-- создаем префикс
local prefix = (IsInRaid() and 'raid') or 'party'
   
-- цикл 
   for i=1, GetNumGroupMembers() do
    
    -- создаем переменные в которых объявляем нужные нам значения
    local unit = prefix..i -- получится 'raid'+i = raid1, raid2, ... raidn думаю понятно.
          local health = 100*UnitHealth(unit )/UnitHealthMax(unit) -- определяем уровень здоровья
     
    -- добавляем в таблицу юнит и его здоровье
    table.insert(members, {unit = unit, health = health})

end

-- сортируем таблицу по уровню здоровья
table.sort(members,function(x,y) return x.health < y.health end)

-- Как использовать?
-- т.к таблица уже отсортирована то цикл больше не нужен. Для использования заклинания в юнит с наименьшим здоровьем достаточно использовать первую ячейку таблицы(она и будет содержать юнит с наименьшим здоровьем после сортировки).

-- заранее объявляем переменную с нужной ячейкой из таблицы, для удобства и скорости работы.

local lowest_unit = members[1]

if lowest_unit.health <= 50 then -- 'lowest_unit.health' это тоже самое что и 'members[1].health'

    CastSpellByName('', lowest_unit .unit) -- здесь аналогично, 'lowest_unit .unit' тоже самое что и 'members[1].unit'

end

function REFL(self, elapsed)
if UnitExists and UnitCastingInfo("arena1") then
local spell, _, _, _, _, endTime, _, _, interrupt = UnitCastingInfo("arena1")
local finish = endTime/1000 - GetTime()
local enabled = GetSpellCooldown("Отражение заклинания")
local enabled2 = GetSpellCooldown("Боевой крик")
local power = UnitPower("player")
local SpellBase = {"Сглаз","Стрела Хаоса","Смерч","Превращение","Страх","Выброс лавы"}  
for v=1,#SpellBase do                
if spell == SpellBase [v]and finish <= 0.6 then
if power < 15 and enabled2 == 0 then
CastSpellByName("Боевой крик")
elseif power > 15 then
if GetShapeshiftForm() ~= 1 and index ~= 2 then
CastSpellByName("Оборонительная стойка")
end  
if enabled == 0 then
if GetInventorySlotInfo("MainHandSlot") ~= 71362 then  -- здесь вместо 71362 вписываешь id своего однорука
EquipItemByName(71362)         -- здесь вместо 71362 вписываешь id своего однорука
EquipItemByName(67061)         -- здесь вместо 67061 вписываешь id своего щита
end
CastSpellByName("Отражение заклинания")
end  
end  
end  
end   
end    
end             
CreateFrame("Frame", "REFLFrame")
REFLFrame:SetScript("OnUpdate", REFL)

function REFL(self, elapsed)
if UnitExists and UnitCastingInfo("arena2") then
local spell, _, _, _, _, endTime, _, _, interrupt = UnitCastingInfo("arena2")
local finish = endTime/1000 - GetTime()
local enabled = GetSpellCooldown("Отражение заклинания")
local enabled2 = GetSpellCooldown("Боевой крик")
local power = UnitPower("player")
local SpellBase = {"Сглаз","Стрела Хаоса","Смерч","Превращение","Страх","Выброс лавы"}  
for v=1,#SpellBase do                
if spell == SpellBase [v]and finish <= 0.6 then
if power < 15 and enabled2 == 0 then
CastSpellByName("Боевой крик")
elseif power > 15 then
if GetShapeshiftForm() ~= 1 and index ~= 2 then
CastSpellByName("Оборонительная стойка")
end  
if enabled == 0 then
if GetInventorySlotInfo("MainHandSlot") ~= 71362 then  -- здесь вместо 71362 вписываешь id своего однорука
EquipItemByName(71362)         -- здесь вместо 71362 вписываешь id своего однорука
EquipItemByName(67061)         -- здесь вместо 67061 вписываешь id своего щита
end
CastSpellByName("Отражение заклинания")
end  
end  
end  
end   
end    
end             
CreateFrame("Frame", "REFLFrame")
REFLFrame:SetScript("OnUpdate", REFL)

function REFL(self, elapsed)
if UnitExists and UnitCastingInfo("arena3") then
local spell, _, _, _, _, endTime, _, _, interrupt = UnitCastingInfo("arena3")
local finish = endTime/1000 - GetTime()
local enabled = GetSpellCooldown("Отражение заклинания")
local enabled2 = GetSpellCooldown("Боевой крик")
local power = UnitPower("player")
local SpellBase = {"Сглаз","Стрела Хаоса","Смерч","Превращение","Страх","Выброс лавы"}  
for v=1,#SpellBase do                
if spell == SpellBase [v]and finish <= 0.6 then
if power < 15 and enabled2 == 0 then
CastSpellByName("Боевой крик")
elseif power > 15 then
if GetShapeshiftForm() ~= 1 and index ~= 2 then
CastSpellByName("Оборонительная стойка")
end  
if enabled == 0 then
if GetInventorySlotInfo("MainHandSlot") ~= 71362 then  -- здесь вместо 71362 вписываешь id своего однорука
EquipItemByName(71362)         -- здесь вместо 71362 вписываешь id своего однорука
EquipItemByName(67061)         -- здесь вместо 67061 вписываешь id своего щита
end
CastSpellByName("Отражение заклинания")
end  
end  
end  
end   
end    
end             
CreateFrame("Frame", "REFLFrame")
REFLFrame:SetScript("OnUpdate", REFL)

function REFL(self, elapsed)
if UnitExists("target") and UnitCastingInfo("target") then
local spell, _, _, _, _, endTime, _, _, interrupt = UnitCastingInfo("target")
local finish = endTime/1000 - GetTime()
local enabled = GetSpellCooldown("Отражение заклинания")
local SpellBase = {"Сглаз","Стрела Хаоса","Смерч","Превращение","Страх","Выброс лавы"}  
for v=1,#SpellBase do                
if spell == SpellBase [v]and finish <= 0.6 then
if GetShapeshiftForm() ~= 1 and index ~= 2 then
CastSpellByName("Отражение заклинания")
end  
end  
end  
end
end

CreateFrame("Frame", "REFLFrame")
REFLFrame:SetScript("OnUpdate", REFL)

if SpellIsTargeting() then
   CameraOrSelectOrMoveStart()
   CameraOrSelectOrMoveStop()
end