ffunction JTKTimerMove takes nothing returns nothing
local timer t=GetExpiredTimer()
local integer i = GetHandleId(t)
local unit Dummy = LoadUnitHandle(udg_Hash,i,2)
local group gr = CreateGroup()
local real XC = LoadReal(udg_Hash,i,0)
local real YC = LoadReal(udg_Hash,i,1)
local real Angle = LoadReal(udg_Hash,i,3)
local real XN = GetUnitX(Dummy)
local real YN = GetUnitY(Dummy)
local effect e=AddSpecialEffect("Abilities\\Spells\\Human\\FlameStrike\\FlameStrike1.mdl",XN+20*Cos(Angle),YN+20*Cos(Angle))
local unit tr
call SetUnitX(Dummy, XN+30*Cos(Angle))
call SetUnitY(Dummy,YN+30*Sin(Angle))
call SaveReal(udg_Hash,i,4,XN)
call SaveReal(udg_Hash,i,5,YN)
call GroupEnumUnitsInRange(gr,XN,YN,300,null)
loop
set tr = FirstOfGroup(gr)
exitwhen tr == null
if IsUnitEnemy(tr,Player(0)) then
call UnitDamageTarget(Dummy,tr,5,true,false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_MAGIC, null)
call GroupRemoveUnit (gr, tr)
else
call GroupRemoveUnit (gr, tr)
endif
endloop
if SquareRoot((XN-XC)*(XN-XC)+(YN-YC)*(YN-YC))>3000 then
call DestroyEffect(e)
set e = null
call KillUnit(Dummy)
call DestroyGroup(gr)
set gr = null
call FlushChildHashtable(udg_Hash, i)
call PauseTimer(t)
call DestroyTimer(t)
set t = null
endif
call TriggerSleepAction(1)
call DestroyEffect(e)
set e = null
endfunction