function Move takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer i = GetHandleId(t)
local unit u1 = LoadUnitHandle(udg_Hash,i,0)
local unit u2 = LoadUnitHandle(udg_Hash,i,1)
local location point=GetUnitLoc(u2)
local boolean b = LoadBooleanBJ(2, i, udg_Hash)
local real time=LoadReal(udg_Hash, i, 3)
local real time_dmg=LoadReal(udg_Hash, i, 5)
local real d = SquareRoot((GetUnitX(u1) - GetUnitX(u2)) * (GetUnitX(u1) - GetUnitX(u2)) + (GetUnitY(u1) - GetUnitY(u2)) * (GetUnitY(u1) - GetUnitY(u2)))
local real x = GetUnitX(u1)
local real y = GetUnitY(u1)
local real z = GetUnitFlyHeight(u1)
local real x1 = GetUnitX(u2)
local real y1 = GetUnitY(u2)
local real z1 = GetUnitFlyHeight(u1)
local real a = Atan2(y1-y,x1-x)
local real a2 = LoadReal(udg_Hash, i, 4)
     if (b==true) then
        if ( IsTerrainPathableBJ(point, PATHING_TYPE_WALKABILITY) == true ) then // если цель куда то врезалась, т.е уехала за пределы карты и т.д
           call PauseUnit( u1, false )
           call PauseUnit( u2, false )
           call FlushChildHashtable(udg_Hash, i)
        endif
          call SetUnitX(u2, x1-15.00*Cos(a2))  //скорость юнита когда цель прицеплена к нему
          call SetUnitY(u2, y1-15.00*Sin(a2))  //скорость юнита когда цель прицеплена к нему
          if (d>100) then
               call SetUnitX(u1, x+25.00*Cos(a))  //скорость присоединенного юнита
               call SetUnitY(u1, y+25.00*Sin(a))  //скорость присоединенного юнита
               call PauseUnit( u1, true ) // запаузили цель
               call PauseUnit( u2, true ) // запаузили кастера
          endif
              if (time< 5) then //длятельность захвата (щас 5сек)
                  call SaveReal(udg_Hash, i, 3, time+0.035)
                  if (time_dmg < 1) then
                        call SaveReal(udg_Hash, i, 5, time_dmg+0.035)
                  else
                        call UnitDamageTargetBJ( u2, u1, 50.00, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL ) //урон (щас 50)
                        call SaveReal(udg_Hash, i, 5, 0)
                  endif
              else
                  call PauseUnit( u1, false )
                  call PauseUnit( u2, false )
                  call FlushChildHashtable(udg_Hash, i)
              endif
     else
          if (d>50) then
               call SetUnitX(u2, x1-30.00*Cos(a)) //скорость юнита когда бежит к целе
               call SetUnitY(u2, y1-30.00*Sin(a)) //скорость юнита когда бежит к целе
          else
               call SaveBoolean( udg_Hash, i, 2, true )
               call SaveReal(udg_Hash, i, 4, a)
          endif
     endif
set u1 = null
set u2 = null
set t = null
endfunction