//Для примера полечим всех живых юнитов в области 300
local location loc=GetSpellTargetLoc()
local group g=GetUnitsInRangeOfLocMatching(300, loc, null)
local unit u
local player p=GetOwningPlayer(GetSpellAbilityUnit())
 loop
  set u=FirstOfGroup(g)
  exitwhen u==null
  call GroupRemoveUnit(g,u)
//Три операции выше и характеризуют описываемый метод, мы берем каждого юнита из группы по порядку
  if (not (IsUnitEnemy(u,p))) and (IsUnitType(u,UNIT_TYPE_STRUCTURE)) then
   call SetWidgetLife(u,GetWidgetLife(u)+100)
  endif
 endloop
 call RemoveLocation(loc)
 call DestroyGroup(g)
set loc=null
set u=null

loop
  ...
  call GroupAddUnit(g2,u)
 endloop

globals
 integer udg_StackN=0
 integer array udg_Stack
endglobals
...
//Custom Code Section
function H2I takes handle h returns integer
 return h
 return 0
endfunction

function I2Loc takes integer i returns location
 return i
 return null
endfunction

function Push takes integer i returns nothing
 set udg_StackN=udg_StackN+1
 set udg_Stack[udg_StackN]=i
endfunction 

function Pop takes nothing returns integer
 set udg_StackN=udg_StackN-1
 return udg_Stack[udg_StackN+1]
endfunction
//End of Custom Code Section
function MyFunc takes params returns integer //params - аргументы функции
local integer i
local integer j=0
local location array locs
 ...
 //Вот мы получили массив locs и знаем, что всего элементов в нем i
 loop
  exitwhen j>=i
  call Push(H2I(locs[j]))
  set j=j+1
 endloop
 return i
endfunction

function GetArray takes nothing returns nothing
local integer i=MyFunc() //Получаем кол-во аргументов в стеке
local integer j=0
local location array locs
 loop
  exitwhen j>=i
  set locs[j]=I2Loc(Pop())
  set j=j+1
 endloop
 //Вуаля! Мы получили массив точек из функции MyFunc
endfunction

call SetUnitExploded(caster, true)
call UnitApplyTimedLife(caster, 'X000', 10илискольковамнадомаксимум)