function a takes nothing retunrs nothing
call b()
endfunction

function b takes nothing retunrs nothing
call c()
endfunction

function c takes nothing retunrs nothing
call d()
endfunction

function d takes nothing retunrs nothing
call BjDebugMsg("LAL")
endfunction

function call takes nothing retunrs nothing
call a()
endfunction

function call takes nothing retunrs nothing
call BjDebugMsg("LAL")
endfunction

globals
timer t = CreateTimer()
integer max = -1
unit array u
integer array int
integer array c
endglobals

function proc takes nothing returns nothing
local integer i = 0
loop
  exitwhen i > max
  call BjDebugMsg(I2S(GetHangleId(u[i]) +  I2S(int[i]) + I2S(c[i])))
  set c[i]=c[i]+1
  if c[i]==3
    set u[i]=u[max]
    set u[max]=null
    set int[i]=int[max]
    set int[max]=0
    set c[i]=c[max]
    set c[max]=0
    set max = max - 1
    set i = i - 1
  then
 set i = i + 1
endloop
if max == -1 then
  call PauseTimer(t)
endif
endfunction

function act takes nothing returns nothing
set max = max + 1
set u[max]=какой-то юнит
set int[max]=какое-то число
set c[max]=0
if max == 0 then
  call TimerStart(t, 1, true, function proc)
endif
endfunction