function Move takes nothing returns nothing
local unit u = LoadUnitHandle(ht,GetHandleId(GetExpiredTimer()),1)
local unit t = LoadUnitHandle(ht,GetHandleId(GetExpiredTimer()),2)
local real dx = GetUnitX(t) - GetUnitX(u)
local real dy = GetUnitY(t) - GetUnitY(u)
local real range = SquareRoot(dx * dx + dy * dy)
local real angle = Angle(GetUnitX(u),GetUnitY(u), GetUnitX(t),GetUnitY(t))
call DisplayTextToForce( GetPlayersAll(), R2S(range) )
if range < 500 then
call SetUnitX(t,(GetUnitX(t) + ( Cos(angle)) * (500-range)/50 ) )
call SetUnitY(t,(GetUnitY(t) + ( Sin(angle)) * (500-range)/50 ) )
elseif range >= 500 then
call SetUnitX(t,(GetUnitX(t) - ( Cos(angle)) * ((range)/10) ) )
call SetUnitY(t,(GetUnitY(t) - ( Sin(angle)) * ((range)/10) ) )
endif
set u = null
set t = null
endfunction

function Trig_Untitled_Trigger_001_Actions takes nothing returns nothing
local unit u = GetTriggerUnit()
local unit t = GetSpellTargetUnit()
local timer tm = CreateTimer()
call SaveUnitHandle(ht,GetHandleId(tm),1,u)
call SaveUnitHandle(ht,GetHandleId(tm),2,u)
call TimerStart(tm,0.05,true,function Move)
set u = null
set t = null
set tm = null
endfunction