globals
 group gr_temp=CreateGroup()
 real r_temp=0.
 integer i_temp=0x00
endglobals

function Trig_BallanceLife_Conditions takes nothing returns boolean
 return GetSpellAbilityId() == 'САМ_СКИЛЛ'
endfunction

function XxX takes nothing returns nothing
 call SetWidgetLife(GetEnumUnit(), r_temp)
endfunction

function xXx takes nothing returns boolean
 set i_temp=i_temp+0x01
 set r_temp=r_temp+GetWidgetLife(GetFilterUnit())
 return true
endfunction

function Trig_Ballance_Life_Actions takes nothing returns nothing
 set r_temp=0.
 set i_temp=0x00
 call GroupEnumUnitsInRange(gr_temp, GetUnitX(GetTriggerUnit()), GetUnitY(GetTriggerUnit()), 300., Condition(xXx))
 set r_temp=r_temp/i_temp
 call ForGroup(gr_temp, function XxX)
 call GroupClear(gr_temp)
endfunction

globals
 group gr_temp=CreateGroup()
 real r_temp=0. //временные переменные используются только в одном потоке
 integer i_temp=0x00 // все они глобальны т.е. область видимости весь код
endglobals

function Trig_BallanceLife_Conditions takes nothing returns boolean
 return GetSpellAbilityId() == 'САМ_СКИЛЛ' // просто записал условие в правильной форме
endfunction

function XxX takes nothing returns nothing
 call SetWidgetLife(GetEnumUnit(), r_temp) // устанавливает жизнь
endfunction

function xXx takes nothing returns boolean
 set i_temp=i_temp+0x01 // счетчик юнитов в группе
 set r_temp=r_temp+GetWidgetLife(GetFilterUnit()) // общее хп
 return true // возращает бул добавлять ли юнита в группу
endfunction

function Trig_Ballance_Life_Actions takes nothing returns nothing
 set r_temp=0. // ставлю им значение 0 что бы при каждом касте они насчитывали заново
 set i_temp=0x00
 call GroupEnumUnitsInRange(gr_temp, GetUnitX(GetTriggerUnit()), GetUnitY(GetTriggerUnit()), 300., Condition(xXx)) // заноси в группу гр_темп всех юнитов ис точки юнита в радиусе 300., причем
// для каждого юнита вызывается функция хХх, в ней доступ к юниту 
//можно получить черех ГетФилтерЮнит()
 set r_temp=r_temp/i_temp // получаю значение сколько надо поставить жизни каждому юниту
 call ForGroup(gr_temp, function XxX) // опять же цикл по группе, в ней к каждому юниту который 
// находиться в группе применяется ХхХ, причем доступ к нему через ГетЕнумЮнит(), ему и ставлю хп из переменной
 call GroupClear(gr_temp) // удаляю всех из группы что бы она снова была чиста
endfunction

function GetUnitsInRangeOfLocMatching takes real radius, location whichLocation, boolexpr filter returns group
    local group g = CreateGroup()
    call GroupEnumUnitsInRangeOfLoc(g, whichLocation, radius, filter)
    call DestroyBoolExpr(filter)
    return g
endfunction

function GetUnitsInRangeOfLocAll takes real radius, location whichLocation returns group
    return GetUnitsInRangeOfLocMatching(radius, whichLocation, null)
endfunction