function Kj_loop takes nothing returns nothing
local integer i = 0
call DisplayTextToPlayer( Player(0), 0., 0., "Начало цикла" )
loop
set i = i + 1
call DisplayTextToPlayer( Player(0), 0., 0., "count: " + I2S(i) )
if i == 17 then
call DisplayTextToPlayer(Player(0), 0., 0., "Лавс, ты крутой!" )
endif
exitwhen i==19
call TriggerSleepAction( 1. )
endloop
call DisplayTextToPlayer(Player(0), 0., 0., "Конец цикла" )
endfunсtion  

function FUNC takes loop integer returns array
            local unit array massiv
            local integer i = loop
            set massiv = FUNC(GetRandomInt(0, loop))
            loop
            exitwhen loop <= 0
             set massiv[i - (loop - 1)] = CreateUnit()
             call TriggerSleepAction( 1. )
             set loop = loop - 1
            endloop
            return massiv
endfunction