library DamageEventLib
globals
    private constant hashtable H     = InitHashtable( )
    private constant timer TempTimer = CreateTimer( )
    private constant group TempGroup = CreateGroup( )
endglobals

private struct UnitStruct
    integer attacker
    integer damaged
    integer count
    timer t
endstruct

private function RemoveStacks takes nothing returns nothing
    local timer t = GetExpiredTimer( )
    local UnitStruct A = LoadInteger( H, GetHandleId( t ), 0 )
    
    call RemoveSavedInteger( H, A.attacker, A.damaged )
    call FlushChildHashtable( H, GetHandleId( t ) )
    call DestroyTimer( t )
    
    set A.t = null
    set A.count    = 0
    set A.attacker = 0
    set A.damaged  = 0
    call A.destroy( )
    
    set t = null
endfunction

private function DamageEvent_Actions takes nothing returns nothing
    local UnitStruct A
    
    set udg_damaged = GetTriggerUnit( )
    
    if GetUnitAbilityLevel( udg_damaged, 'Bssd' ) > 0 then // заклинания яда
        call UnitRemoveAbility( udg_damaged, 'Bssd' )
        
        set udg_damage = GetEventDamage( )
        set udg_attacker = GetEventDamageSource( )
        set A = LoadInteger( H, GetHandleId( udg_attacker ), GetHandleId( udg_damaged ) )
        
        if A == 0 then
            set A = UnitStruct.create( )
            set A.t = CreateTimer( )
            set A.attacker = GetHandleId( udg_attacker )
            set A.damaged = GetHandleId( udg_damaged )
            
            call SaveInteger( H, A.attacker, A.damaged, A )
            call SaveInteger( H, GetHandleId( A.t ), 0, A )
        endif
            
        call TimerStart( A.t, 3.00, false, function RemoveStacks ) // через какое время удалить стаки ( 3.00 сек )
        
        set A.count = A.count + 1
        set udg_count = A.count
        
        call TriggerExecute( gg_trg_DamageEventGUI )
        
        set A.count = udg_count
    endif
endfunction

//===========================================================================
private function Regist_2 takes nothing returns boolean
    call TriggerRegisterUnitEvent( gg_trg_DamageEvent, GetTriggerUnit( ), EVENT_UNIT_DAMAGED )
    
    return false
endfunction

private function Regist_1 takes nothing returns boolean
    call TriggerRegisterUnitEvent( gg_trg_DamageEvent, GetFilterUnit( ), EVENT_UNIT_DAMAGED )
    
    return false
endfunction

private function Regist takes nothing returns nothing
    if gg_trg_DamageEvent != null then
        call DestroyTrigger( gg_trg_DamageEvent )
    endif
    
    set gg_trg_DamageEvent = CreateTrigger(  )
    
    call GroupEnumUnitsInRect( TempGroup, bj_mapInitialPlayableArea, Condition( function Regist_1 ) )
    call TriggerAddAction( gg_trg_DamageEvent, function DamageEvent_Actions )
    
    call TimerStart( TempTimer, 600.00, false, function Regist )
endfunction

function InitTrig_DamageEvent takes nothing returns nothing
    local region rectRegion = CreateRegion( )
    local trigger trg = CreateTrigger( )
    
    call RegionAddRect( rectRegion, bj_mapInitialPlayableArea )
    call TriggerRegisterEnterRegion( trg, rectRegion, null )
    call TriggerAddCondition( trg, Condition( function Regist_2 ) )
    call TimerStart( TempTimer, 0.00, false, function Regist )
    
    set trg = null
    set rectRegion = null
endfunction
endlibrary