function Move takes nothing returns nothing
local timer t=GetExpiredTimer()
local integer h = GetHandleId(t)
local unit u=LoadUnitHandle(udg_Hash,h,1)
local integer dis=LoadInteger(udg_Hash,h,2)
local integer i=LoadInteger(udg_Hash,h,3)+1
local real a=LoadReal(udg_Hash,h,4)
local real x = GetUnitX(u)+50.*Cos(a)
local real y = GetUnitY(u)+50.*Sin(a)
//
    if RectContainsCoords(bj_mapInitialPlayableArea,x,y) then
     call SetUnitX(u,x)
     call SetUnitY(u,y)
      if i == dis then
       call PauseTimer(t)
       call FlushChildHashtable(udg_Hash,h)
       call DestroyTimer(t)
      else
       call SaveInteger(udg_Hash,h,3,i)
     endif
    else
set i = dis
endif
set t = null
set u = null
endfunction
//===========================================================================
function Trig_Spell_Actions takes nothing returns nothing
local timer t = CreateTimer()
local integer h=GetHandleId(t)
local unit u = GetSpellAbilityUnit()
local real x = GetUnitX(u)
local real y = GetUnitY(u)
local real x2 = GetSpellTargetX()
local real y2 = GetSpellTargetY()
local real dis = SquareRoot((x-x2)*(x-x2)+(y-y2)*(y-y2))
local real a = Atan2(y2-y,x2-x)
//
     call SaveUnitHandle(udg_Hash,h,1,u)
     call SaveInteger(udg_Hash,h,2,R2I(dis)/50)
     call SaveInteger(udg_Hash,h,3,0)
     call SaveReal(udg_Hash,h,4,a)
     call TimerStart(t,0.03,true,function Move)
//
set t = null
set u = null
endfunction