globals
hashtable hasan = InitHashtable()
endglobals

function Hakke_Act takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local unit a = LoadUnitHandle(hasan,GetHandleId(t),1)
    local unit b = LoadUnitHandle(hasan,GetHandleId(t),2)    
    call SetUnitPosition(b,GetUnitX(b) + 40 * Cos(GetUnitFacing(a) * bj_DEGTORAD),GetUnitY(b) + 40* Sin(GetUnitFacing(a) * bj_DEGTORAD))    
    call UnitApplyTimedLife(CreateUnit(GetOwningPlayer(a), 'h0AR',GetUnitX(b),GetUnitY(b),90),'BTLF',3)
    call UnitApplyTimedLife(CreateUnit(GetOwningPlayer(a), 'h0AS',GetUnitX(b),GetUnitY(b),90),'BTLF',3)
    call DestroyEffect((AddSpecialEffect("Abilities\\Spells\\Human\\ThunderClap\\ThunderClapCaster.mdl",GetUnitX(b),GetUnitY(b))))
    set a = null
    set b = null 
endfunction

function Hakke takes nothing returns nothing
    local unit a = GetSpellAbilityUnit()
    local unit b = GetSpellTargetUnit()
    local timer t = CreateTimer()
    call SaveUnitHandle(hasan,GetHandleId(t),1,a)
    call SaveUnitHandle(hasan,GetHandleId(t),2,b)
    call PauseUnit(a,true)
    call PauseUnit(b,true) 
    call SetUnitX(a,GetUnitX(b) - 150 * Cos(GetUnitFacing(a) * bj_DEGTORAD))
    call SetUnitY(a,GetUnitY(b) - 150 * Sin(GetUnitFacing(a) * bj_DEGTORAD))
    call SetUnitTimeScale(a, 50 * 0.01)
    call SetUnitAnimation(a,"Spell two")//sound
    call SetUnitTimeScale(a, 50 * 0.01)
    call TimerStart(t,0.05,true,function Hakke_Act)
    call UnitDamageTarget(a,b,2500,false,false,null,null,null)
    call UnitApplyTimedLife(CreateUnit(GetOwningPlayer(a), 'h0AQ',GetUnitX(a) + 250 * Cos(GetUnitFacing(a) * bj_DEGTORAD),GetUnitY(a) + 250 * Sin(GetUnitFacing(a) * bj_DEGTORAD),GetUnitFacing(a)-180),'BTLF',3)
    call TriggerSleepAction(0.60)
    call PauseTimer(t)
    call FlushChildHashtable(hasan,GetHandleId(t))
    call DestroyTimer(t)
    call SetUnitTimeScale(a, 100 * 0.01)
    call PauseUnit(b,false)
    call PauseUnit(a,false)
    set a = null
    set b = null
    set t = null
endfunction 

function Hakke_Cond takes nothing returns boolean
    return GetSpellAbilityId() == 'A098'
endfunction

//===========================================================================
function InitTrig_Hakke takes nothing returns nothing
    local trigger t = CreateTrigger()
    local integer index
    set index = 0
    loop
    call TriggerRegisterPlayerUnitEvent(t, Player(index), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    set index = index + 1
    exitwhen index == 14
    endloop
    call TriggerAddCondition( t, Condition( function Hakke_Cond ) )
    call TriggerAddAction( t, function Hakke )
    set t = null
endfunction