library MoveUnit

    globals
    private timer array Timer
    private unit array Unit
    private integer array Nost
    private real array dist
    private real array angle
    private integer N = 0
    endglobals
    
        // пример //
    // angle = bj_RADTODEG * Atan2(GetUnitY(GetSpellTargetUnit()) - GetUnitY(GetTriggerUnit()), GetUnitX(GetSpellTargetUnit()) - GetUnitX(GetTriggerUnit()))
    // call MoveUnit ( GetSpellTargetUnit(), angle, 1500.0, 800.0 ) - применяемая функция
    // дальность 1500, скорость 800
    
private function MoveUnit_Timer takes nothing returns nothing
    local real x
    local real y
    local integer i = 1
    whilenot (GetExpiredTimer()==Timer[i])or(i>N) { i++ }
    set x = GetUnitX(Unit[i]) + dist[i] * Cos(angle[i] * bj_DEGTORAD)
    set y = GetUnitY(Unit[i]) + dist[i] * Sin(angle[i] * bj_DEGTORAD)
    call SetUnitPosition ( Unit[i], x, y )
    if Nost[i] == 0 then
        call DestroyTimer (Timer[i])
        set Timer[i] = Timer[N]
        set Unit[i] = Unit[N]
        set Nost[i] = Nost[N]
        set dist[i] = dist[N]
        set angle[i] = angle[N]
        set Timer[N] = null
        set Unit[N] = null
        set Nost[N] = 0
        set dist[N] = 0.
        set angle[N] = 0.
        N--
    else
        Nost[i]--
    endif
endfunction

function MoveUnit takes unit u, real a, real distancion, real speed returns nothing
    N++
    set Timer[N] = CreateTimer ()
    set Unit[N] = u
    set Nost[N] = R2I(distancion/speed*33)
    set dist[N] = distancion/Nost[N]
    set angle[N] = a
    call TimerStart ( Timer[N], 0.03, true, function MoveUnit_Timer )
endfunction
    
endlibrary