globals
    location Uloc
    integer i=1
endglobals
function MoveKunay takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local integer i=GetHandleId(t)
    local unit d=LoadUnitHandle(udg_Hash,i,28)
    local unit u
    local real Xd=GetUnitX(d)
    local real Yd=GetUnitY(d)
    local real ang=LoadReal(udg_Hash,i,29)
    local group gr=CreateGroup()
    local location loc=LoadLocationHandle(udg_Hash,i,30)
    call SetUnitX(d,Xd+50*Cos(ang))
    call SetUnitY(d,Yd+50*Sin(ang))
    call GroupEnumUnitsInRange(gr,Xd,Yd,80,null)
    loop
        set u = FirstOfGroup(gr)
        exitwhen u == null
    if IsUnitEnemy(u,Player(0)) and GetWidgetLife(u) > .405 then
            call UnitDamageTarget(d,u,100,true,false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, null)
            call GroupRemoveUnit (gr, u)
            call KillUnit(d)
            set gr = null
            set i=0
        call FlushChildHashtable(udg_Hash,i)
            call PauseTimer(t)
            call DestroyTimer(t)
            set t = null      
    else
            call GroupRemoveUnit(gr,u)
    endif
    endloop
    if SquareRoot((Xd-GetLocationX(loc))*(Xd-GetLocationX(loc))+(Yd-GetLocationY(loc))*(Yd-GetLocationY(loc)))>=3000 then
    set i=0
    call KillUnit(d)
    call DestroyGroup(gr)
    set gr = null
    call FlushChildHashtable(udg_Hash, i)
    call PauseTimer(t)
    call DestroyTimer(t)
    set t = null
    endif
endfunction
function TimerEffect_Destroy takes nothing returns nothing
local timer t2=GetExpiredTimer()
local real X=GetLocationX(Uloc)
local real Y=GetLocationY(Uloc)
local effect e
if i>1 then
call DestroyEffect(e)
set i=i-1
endif
if i==0 then
call DestroyEffect(e)
call PauseTimer(t2)
call DestroyTimer(t2)
set t2 = null
endif
set e=AddSpecialEffect("Abilities\\Spells\\Human\\ThunderClap\\ThunderClapCaster.mdl",X,Y)
set i=i+1
endfunction
function KunayActions takes nothing returns nothing
    local timer t=CreateTimer()
    local timer t2=CreateTimer()
    local integer i=GetHandleId(t)
    local unit c=GetSpellAbilityUnit()
    local location loc=GetUnitLoc(c)
    local location loct=GetSpellTargetLoc()
    local real Xc=GetUnitX(c)
    local real Yc=GetUnitY(c)
    local real Xt=GetLocationX(loct)
    local real Yt=GetLocationY(loct)
    local real ang=Atan2(Yt-Yc,Xt-Xc)
    local unit d=CreateUnit(GetOwningPlayer(c),'h005',Xc+100*Cos(ang),Yc+100*Sin(ang),ang*bj_RA  DTODEG)
    set loc=Uloc
    call SetUnitFacing(d,ang*bj_RADTODEG)
    call SetUnitPathing(d,false)
    call RemoveLocation(loct)
    call SaveLocationHandle(udg_Hash,i,30,loc)
    call SaveReal(udg_Hash,i,25,Xc)
    call SaveReal(udg_Hash,i,26,Yc)
    call SaveUnitHandle(udg_Hash,i,28,d)
    call SaveReal(udg_Hash,i,29,ang)
    call TimerStart(t,0.05,true,function MoveKunay)
    call TimerStart(t2,1,true,function TimerEffect_Destroy)
    set c=null
endfunction

globals
    integer itorrent=0
    effect egl
endglobals   

function Timer takes nothing returns nothing
local timer t=GetExpiredTimer()
local integer i=GetHandleId(t)
local real X=LoadReal(udg_Hash,i,31)
local real Y=LoadReal(udg_Hash,i,32)
if itorrent>0 then
set itorrent=0
call DestroyEffect(egl)
call PauseTimer(t)
call DestroyTimer(t)
set t = null
endif
set itorrent=1
set egl=AddSpecialEffect("Abilities\\Spells\\Human\\ThunderClap\\ThunderClapCaster.mdl",X,Y)
endfunction
function Torrent_Actions takes nothing returns nothing
local timer t=CreateTimer()
local integer i=GetHandleId(t)
local location l=GetSpellTargetLoc()
local real X=GetLocationX(l)
local real Y=GetLocationY(l)
call SaveReal(udg_Hash,i,31,X)
call SaveReal(udg_Hash,i,32,Y)
call TimerStart(t,2,true, function Timer)
endfunction