globals
hashtable Hash = InitHashtable()
endglobals

function CreepMove takes nothing returns nothing
local timer t = GetExpiredTimer()
local group g = LoadGroupHandle(Hash, GetHandleId(t), 0)
call GroupPointOrder(g, "attack", GetRectCenterX(LoadRectHandle(Hash, GetHandleId(t)), 1), GetRectCenterY(LoadRectHandle(Hash, GetHandleId(t)), 1))
if (FirstOfGroup(g) == null) then
call DestroyGroup(g)
call FlushChildHashtable(Hash, GetHandleId(t))
call DestroyTimer(t)
endif
set t = null
set g = null
endfunction

function UnitMoveTo takes integer id, integer n, rect s, rect t, integer p returns nothing
local group g = CreateGroup()
local timer k = CreateTimer()
loop
exitwhen n == 0
call GroupAddUnit(g, CreateUnit(Player(p - 1), id, GetRectCenterX(s), GetRectCenterY(s), 0))
set n = n - 1
endloop
call GroupPointOrder(g, "attack", GetRectCenterX(t), GetRectCenterY(t))
call TimerStart(k, 5, true, function CreepMove)
call SaveGroupHandle(Hash, GetHandleId(k), 0, g)
call SaveRectHandle(Hash, GetHandleId(k), 1, t)
set g = null
set k = null
set s = null
set t = null
endfunction