globals
hashtable hs = InitHashtable()
endglobals

function ac2 takes nothing return nothing
local timer t = GetExperedTimer()
local timer t2 = LoadHandleTimer(hs, GetHandleId(t),1)

call DestroyTimer(t2)
call DestroyTimer(t)

set t = null
set t2 = null
endfunction

function ac1 takes nothing return nothing
local timer t = GetExperedTimer()
local unit u = LoadHandleUnit(hs, GetHandleId(t),2)
local integer i = LoadHandleInt(hs, GetHandleId(t),1)
local player p = LoadHandlePlayer(hs, GetHandleId(t),3)

call DamageUnit(p,i,u)

set u = null
set t = null
endfunction

function DamagePerSecond takes unit u, integer damag, integer sec, integer period, player p return timer
local timer t = CreateTimer()
local timer t2 = CreateTimer()

call SaveHandleInt(hs, GetHandleId(t),damag,1)
call SaveHandleUnit(hs, GetHandleId(t),u,2)
call SaveHandleTimer(hs, GetHandleId(t2),t,1)
call SaveHandlePlayer(hs, GetHandleId(t),p,3)

call TimerStart(t, true, period, function ac1)
call TimerStart(t2, false, sec, function ac2)

set t = null
set t2 = null
return t
endfunction