function MoveTimer takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer th = GetHandleId(t)
    local unit u = LoadUnitHandle(udg_H,th,1)
    local real x = GetUnitX(u)
    local real y = GetUnitY(u)
    local real x1 = LoadReal(udg_H,th,2)
    local real y1 = LoadReal(udg_H,th,3)
    local real x2 = LoadReal(udg_H,th,4)
    local real y2 = LoadReal(udg_H,th,5)
    local real d = LoadReal(udg_H,th,6)
    local real z
    local real a = x - x1
    local real b = y - y1
    local real d1 = SquareRoot(a * a + b * b)
    call SetUnitFlyHeight(u, (d - d1) * (d1 / d), 0.00)
    if (d - d1) > 30 then
        set z = bj_RADTODEG * Atan2(y2 - y, x2 - x)
        call SetUnitPosition(u, x + 20 * Cos(z * bj_DEGTORAD), y + 20 * Sin(z * bj_DEGTORAD))
    else
        call SetUnitPosition(u, x2, y2)
        call SetUnitFlyHeight(u, 0.00, 0.00)
        call SetUnitPathing(u, true)
        call PauseUnit(u, false)
        set u = CreateUnit(Player(PLAYER_NEUTRAL_PASSIVE), 'h001', x2, y2, 0.00)
        call UnitApplyTimedLife(u, 'BTLF', 0.80)
        call DestroyTimer(t)
        call FlushChildHashtable(udg_H,th)
    endif
    set u = null
    set t = null
endfunction

function Move takes unit u, rect r returns nothing
    local real x = GetRectCenterX(r)
    local real y = GetRectCenterY(r)
    local real xu = GetUnitX(u)
    local real yu = GetUnitY(u)
    local real a = xu - x
    local real b = yu - y
    local real d = SquareRoot(a * a + b * b)
    local timer t = CreateTimer()
    local integer th = GetHandleId(t)
    call SaveUnitHandle(udg_H,th,1,u)
    call SaveReal(udg_H,th,2,xu)
    call SaveReal(udg_H,th,3,yu)
    call SaveReal(udg_H,th,4,x)
    call SaveReal(udg_H,th,5,y)
    call SaveReal(udg_H,th,6,d)
    call SetUnitPathing(u, false)
    call PauseUnit(u, true)
    call TimerStart(t,0.02,true,function MoveTimer)
    set t = null
endfunction