private struct YYY
    unit Caster
    integer Level
    real Speed
 
      static method create takes unit u, integer level, real speed returns YYY
        local YYY n = YYY.allocate()
        set n.Caster = u
        set n.Speed = speed
        set n.Level = level
        return n
      endmethod
 
endstruct

function s__cord__allocate takes nothing returns integer
 local integer this=udg_si__cord_F
    if (this!=0) then
        set udg_si__cord_F=udg_si__cord_V[this]
    else
        set udg_si__cord_I=udg_si__cord_I+1
        set this=udg_si__cord_I
    endif
    if (this>8190) then
        return 0
    endif

    set udg_si__cord_V[this]=-1
 return this
endfunction

function s__cord_destroy takes integer this returns nothing
    if this==null then
        return
    elseif (udg_si__cord_V[this]!=-1) then
        return
    endif
    set udg_si__cord_V[this]=udg_si__cord_F
    set udg_si__cord_F=this
endfunction

function Go takes nothing returns nothing
// че нужно сделать здесь, чтоб совершить действо над приаттаченным юнитом?
endfunction

function Time takes nothing returns nothing
   local integer A=s__cord__allocate()
// и здесь, чтоб его аттачить?
   call TimerStart(CreateTimer(),3,false,function Go)
   call s__cord_destroy(A)
endfunction

function onTimer takes nothing returns nothing
  local integer i = 0
  local proj p = 0
  loop
    set i = i + 1
    // proj.index - макс. индекс занятого элемента в массиве
    exitwhen i > proj.index
    set p = proj(i)
    // действия с p
    set p.x = p.x + 1
    set p.y = p.y + 1
  endloop
endfunction

function onTimer takes nothing returns nothing
  local integer i = 0
  local integer p = 0
  loop
    set i = i + 1
    // p_index - макс. индекс занятого элемента в массиве
    exitwhen i > p_index
    // действия с p
    set p_x[i] = p_x[i] + 1
    set p_y[i] = p_y[i] + 1
  endloop
endfunction

function AlexKill takes nothing returns nothing
  call UnitApplyTimedLife(GetSpellAbilityUnit(), 'BTLF', 5.)
endfunction

// (tz) is integer array
function Go takes nothing returns nothing
  local timer t = GetExpiredTimer()
  local integer i = tz[H2I(t) - 0x100000]
  call SetUnitX(s__u[i], 0)
  call SetUnitY(s__u[i], 0)
  call s__cord_destroy(i)
  call DestroyTimer(t)
  set t = null
endfunction

function Time takes nothing returns nothing
  local timer t = CreateTimer()
  set tz[H2I(t) - 0x100000] = s__cord__allocate()
  call TimerStart(t, 3., false, function Go)
  set t = null
endfunction