function MoveU takes unit u, real dist, real angle returns nothing
call SetUnitPosition(u,GetWidgetX(u)+dist*Cos(angle*bj_DEGTORAD),GetWidgetY(u)+dist*Sin(angle*bj_DEGTORAD))
call SetUnitFacing(u,angle)
set u=null
endfunction

function MoveUex takes unit u, real dist, real angle returns nothing
call SetUnitX(u,GetWidgetX(u)+dist*Cos(angle*bj_DEGTORAD))
call SetUnitY(u,GetWidgetY(u)+dist*Sin(angle*bj_DEGTORAD))
set u=null
endfunction

function StunLoop takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer th = GetHandleId(t)
local unit u = LoadUnitHandle(udg_Data, th, 1)
local integer ui=GetHandleId(u)

if LoadReal(udg_Data, ui, 15) < 0.05 then
call PauseUnit(u, false)
call DestroyTimer(t)
call DestroyEffect(LoadEffectHandle(udg_Data, ui, 16))
call FlushChildHashtable(udg_Data, th)
call SaveReal(udg_Data, ui, 15, 0)

else
call PauseUnit(u, true)
call SaveReal(udg_Data,ui, 15, LoadReal(udg_Data, ui, 15)-.03)
endif

set t = null
set u = null
endfunction

function StunUnit takes unit u, unit v, real time, real bonusdmg returns nothing
local timer t = CreateTimer()
local integer vi=GetHandleId(v)
if u!=null and bonusdmg != null and bonusdmg > 0 then
call UnitDamageTarget(u,v,bonusdmg, true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS)
endif

if LoadReal(udg_Data,vi), 15) > 0 then
if LoadReal(udg_Data, vi, 15)<time then
call SaveReal(udg_Data, vi,15, time)
endif
else
call PauseUnit(v, true)
call SaveUnitHandle(udg_Data, GetHandleId(t), 1, v)
call SaveReal(udg_Data, vi,15, time)
call SaveEffectHandle(udg_Data,vi, 16, AddSpecialEffectTarget("Abilities\\Spells\\Human\\Thunderclap\\ThunderclapTarget.mdl", v, "overhead"))     
call TimerStart(t, 0.02, true, function StunLoop)
endif

set t = null
set u=null
set v=null
endfunction

function UnitGetItemById takes unit whichUnit, integer itemId returns item
        local integer l=1
        local item it=null
            
        loop
        exitwhen l>6
        if GetItemTypeId(UnitItemInSlot(whichUnit,l))==itemId then
        set it=UnitItemInSlot(whichUnit,l)
        endif
        set l=l+1
        endloop

        return it

endfunction

function GATcb takes nothing returns nothing     
local timer t=GetExpiredTimer()     
local integer ti=GetHandleId(t)     
local unit u=LoadUnitHandle(udg_Data,ti,0)     
local integer ui=GetHandleId(u)     
local integer abilcode=LoadInteger(udg_Data,ti,1)     
local real time=LoadReal(udg_Data,ui,abilcode)     

if time>0 then     
set time=time-0.1     
call SaveReal(udg_Data,ui,abilcode,time)     
else     
call UnitRemoveAbility(u,abilcode)     
call SaveReal(udg_Data,ui,abilcode,0)     
call FlushChildHashtable(udg_Data,GetHandleId(t))     
call DestroyTimer(t)     
set t=null     
endif     

endfunction     

function GiveAbilityTimed takes unit u, integer abilcode, integer lvl, real duration returns nothing     
local timer t     
local integer ui =GetHandleId(u)     
local integer ti     
if LoadReal(udg_Data,ui,abilcode) == null or LoadReal(udg_Data,ui,abilcode)<=0 then     
set t=CreateTimer()     
set ti=GetHandleId(t)     
call UnitAddAbility(u,abilcode)     
call SetUnitAbilityLevel(u,abilcode,lvl)     
call SaveInteger(udg_Data,ti,1,abilcode)     
call SaveUnitHandle(udg_Data,ti,0,u)     
call SaveReal(udg_Data,GetHandleId(u),abilcode,duration)     
call TimerStart(t,0.1,true,function GATcb)     
set t=null     
else     
call SaveReal(udg_Data,ui,abilcode,duration)     
if GetUnitAbilityLevel(u,abilcode) != lvl then
call SetUnitAbilityLevel(u,abilcode,lvl)
endif     
endif
endfunction

function IALcb takes nothing returns nothing
local timer t=GetExpiredTimer()
call DecUnitAbilityLevel(LoadUnitHandle(udg_Data,GetHandleId(t),0),LoadInteger(udg_Data,GetHandleId(t),1))
call FlushChildHashtable(udg_Data,GetHandleId(t))
call DestroyTimer(t)
set t=null
endfunction

function IncAblLvlTimed takes unit u, integer abilcode, real duration returns nothing
local timer t=CreateTimer()
call UnitAddAbility(u,abilcode)
call IncUnitAbilityLevel(u,abilcode)
call SaveInteger(udg_Data,GetHandleId(t),1,abilcode)
call SaveUnitHandle(udg_Data,GetHandleId(t),0,u)
call TimerStart(t,duration,true,function IALcb)
set t=null
endfunction

function GetInvItemCount takes unit whichUnit, integer itemId returns integer
        local integer index
        local integer i=0

        set index = 1
        loop

            if  GetItemTypeId(UnitItemInSlot(whichUnit, index)) == itemId then
                set i =i+ 1
            endif

            set index = index + 1
            exitwhen index > bj_MAX_INVENTORY
        endloop
        return i
endfunction

function CooldownSlotLoop takes nothing returns nothing
local timer t=GetExpiredTimer()
local unit u=LoadUnitHandle(udg_Data,GetHandleId(t),0)
local integer checkslot =LoadInteger(udg_Data,GetHandleId(t),1)
local real timeleft=LoadReal(udg_Data,GetHandleId(u),checkslot)

if timeleft <= 0 then
call FlushChildHashtable(udg_Data,GetHandleId(t))
call DestroyTimer(t)
call SaveReal(udg_Data,GetHandleId(u),checkslot,0)
else
call SaveReal(udg_Data,GetHandleId(u),checkslot,timeleft-0.1)
endif

set t=null
set u=null
endfunction

function CooldownSlot takes unit u, integer checkslot, real duration returns nothing
local timer t
local integer ti=GetHandleId(u)
local boolean b=LoadReal(udg_Data,ti,checkslot)!=null and LoadReal(udg_Data,ti,checkslot)>0

call SaveReal(udg_Data,GetHandleId(u),checkslot,duration)

if b==false then
set t=CreateTimer()
call SaveUnitHandle(udg_Data,GetHandleId(t),0,u)
call SaveInteger(udg_Data,GetHandleId(t),1,checkslot)
call TimerStart(t,0.1,true,function CooldownSlotLoop)
set t=null
endif

endfunction

function CheckCDSlot takes unit u, integer checkslot returns boolean
return LoadReal(udg_Data,GetHandleId(u),checkslot) == null or LoadReal(udg_Data,GetHandleId(u),checkslot)==0
endfunction