globals
    integer array udg_int     // Массив
    integer udg_int_ua        // Количество используемых ячеек
    integer array udg_int_ui  // Индексы неиспользуемых ячеек
endglobals 

// Примечание: В udg_int[0] хранится значение максимального индекса!

// Изменяет значение ячейки массива
function ChangeInt takes integer i, integer val returns nothing
    if udg_int[i] != 0 then
        set udg_int[i] = val
    endif
endfunction

// Возвращает значение ячейки массива
function GetInt takes integer i returns integer
    return udg_int[i]
endfunction

// Устанавливает значение в свободную ячейку массива(И возвращает индекс)
function SetInt takes integer val returns integer
    local integer i = 1
    if udg_int_ua == 0 then
        set udg_int[0] = udg_int[0] + 1
        set i = udg_int[0]
    else
        set i = udg_int_ui[udg_int_ua]
        set udg_int_ua = udg_int_ua - 1
    endif
    set udg_int[i] = val
    return i
endfunction

// Освобождает ячейку массива
function FlushInt takes integer i returns nothing
    set udg_int_ua = udg_int_ua + 1
    set udg_int_ui[udg_int_ua] = i
endfunction

function fts_CreateFadingText takes string s, widget o, integer r, integer g, integer b, real size, real fade, real life, real speed, real angle, boolean flag returns nothing
 local texttag tt=CreateTextTag()
 if flag then
  call SetTextTagText(tt,s,size*0.023/10)
 else
  call SetTextTagText(tt,s,size)
 endif
 call SetTextTagPos(tt,GetWidgetX(o),GetWidgetY(o),0.)
 call SetTextTagVisibility(tt,true)
 call SetTextTagPermanent(tt,false)
 call SetTextTagColor(tt,r,g,b,255)
 if flag then
  call SetTextTagVelocity(tt,speed*0.071/128.*Cos(angle*(3.14159/180.)),speed*0.071/128.*Sin(angle*(3.14159/180.)))
 else
  call SetTextTagVelocity(tt,speed,angle)
 endif
 call SetTextTagFadepoint(tt,fade)
 call SetTextTagLifespan(tt,life)
 set s=null
 set o=null
 set tt=null
endfunction

Пример:

call fts_CreateFadingText("text",udg_u,255,0,0,0.023,2.,5.,0.,0.03,false)
call fts_CreateFadingText("text",udg_u,255,255,0,10.,2.,5.,60,90,true)

function RespawnCreeps_Call takes nothing returns nothing
 call RemoveUnit(GetEnumUnit())
endfunction
function RespawnCreeps takes nothing returns nothing
 local group g=CreateGroup()
 call GroupEnumUnitsOfPlayer(g,Player(12),null)
 call ForGroup(g,function RespawnCreeps_Call)
 call CreateNeutralHostile()
 call DestroyGroup(g)
 set g=null
endfunction