function Trig_Debug_Actions takes nothing returns nothing
    local unit u = GetTriggerUnit()
    local location loc = GetUnitLoc(u)
    local unit u1
    if (GetUnitState(u, UNIT_STATE_LIFE) <= 0) then
        // start
        call BJDebugMsg("TRIGSTR_001" )
        // end
        call CreateUnitAtLoc(Player(10), GetUnitTypeId(u), loc, 270)
        call RemoveLocation(loc)
    endif
    set u = null
    set loc = null
endfunction

//===========================================================================
function InitTrig_Debug takes nothing returns nothing
    set gg_trg_Debug = CreateTrigger(  )
    call TriggerRegisterPlayerUnitEvent( gg_trg_Debug, Player(10), EVENT_PLAYER_UNIT_ATTACKED, null )
    call TriggerAddAction( gg_trg_Debug, function Trig_Debug_Actions )
endfunction

function Trig_Debug_Actions takes nothing returns nothing
    call CreateUnit( GetTriggerPlayer(), GetUnitTypeId(GetTriggerUnit()), GetUnitX(GetTriggerUnit()), GetUnitY(GetTriggerUnit()), 0 )
endfunction

function InitTrig_Debug takes nothing returns nothing
    set gg_trg_Debug = CreateTrigger(  )
    call TriggerRegisterPlayerUnitEvent( gg_trg_Debug, Player(10), EVENT_PLAYER_UNIT_DEATH, null )
    call TriggerAddAction( gg_trg_Debug, function Trig_Debug_Actions )
endfunction

set count = count + 1
set Unit[count] = GetFilterUnit()
set X[count] = GetUnitX(GetFilterUnit())
set Y[count] = GetUnitY(GetFilterUnit())

function Trig_InitUnits_Func001A takes nothing returns nothing
    if ((GetOwningPlayer(GetEnumUnit()) == Player(10)) or (GetOwningPlayer(GetEnumUnit()) == Player(11))) then
    set udg_count = udg_count + 1
    set udg_u[udg_count] = GetEnumUnit()
    set udg_X[udg_count] = GetUnitX(GetEnumUnit())
    set udg_Y[udg_count] = GetUnitY(GetEnumUnit())
    endif
endfunction

function Trig_InitUnits_Actions takes nothing returns nothing
    call ForGroupBJ( GetUnitsInRectAll(GetPlayableMapRect()), function Trig_InitUnits_Func001A )
endfunction

//===========================================================================
function InitTrig_InitUnits takes nothing returns nothing
    set gg_trg_InitUnits = CreateTrigger(  )
    call TriggerAddAction( gg_trg_InitUnits, function Trig_InitUnits_Actions )
endfunction

function Trig_Repic_3_Conditions takes nothing returns boolean
    return (GetTriggerUnit() == udg_u[udg_count])
endfunction

function Trig_Repic_3_Actions takes nothing returns nothing
    local unit u
    local real x
    local real y
    set u = udg_u[udg_count]
    set x = udg_x[udg_count]
    set y = udg_y[udg_count]
    call CreateUnit(Player(10), GetUnitTypeId(u), x, y, 270)
    set x = 0
    set y = 0
    set u = null
endfunction

//===========================================================================
function InitTrig_Repic_3 takes nothing returns nothing
    local trigger t = CreateTrigger()
    call TriggerRegisterPlayerUnitEvent(t, Player(10), EVENT_PLAYER_UNIT_DEATH, null)
    //call TriggerRegisterAnyUnitEventBJ( gg_trg_Repic_3, EVENT_PLAYER_UNIT_ATTACKED )
    call TriggerAddAction( t, function Trig_Repic_3_Actions )
    set t = null
endfunction

function Trig_Repic_3_Actions takes nothing returns nothing
    local unit u = GetTriggerUnit()
    local integer i = 1
    local boolean b = false
    loop
        exitwnen b or i > udg_count
        if u = udg_u[i] then
            call CreateUnit(Player(10), GetUnitTypeId(udg_u[i]), udg_x[i],udg_y[i], 270)
            set b = true
        endif
        set i = i + 1
    endloop
    set u = null
endfunction

//===========================================================================
function InitTrig_Repic_3 takes nothing returns nothing
    local trigger t = CreateTrigger()
    call TriggerRegisterPlayerUnitEvent(t, Player(10), EVENT_PLAYER_UNIT_DEATH, null)
    //call TriggerRegisterAnyUnitEventBJ( gg_trg_Repic_3, EVENT_PLAYER_UNIT_ATTACKED )
    call TriggerAddAction( t, function Trig_Repic_3_Actions )
    set t = null
endfunction

library ResetUnit initializer Init

globals
    ///
    private constant boolean InitReset = true
    private constant real Period = 1.0
    ///
    private resun array Allun
    private integer Countun = 0
    private group GG = CreateGroup()
endglobals
  
struct resun
    private integer idx
         
    unit u
    private integer t
    private player p
    
    private real sX
    private real sY
    private real sA
                                             
    method Create takes nothing returns nothing
        set .u = CreateUnit(.p, .t, .sX, .sY, .sA)
        call SetUnitUserData(.u, this)
    endmethod       
                                     
    method Delete takes nothing returns nothing
        set Countun = Countun - 1
        set Allun[.idx] = Allun[Countun]     
        set Allun[.idx].idx = .idx
        call .destroy()
    endmethod
        
    static method New takes unit u returns nothing
        local resun this = resun.create()
        set .u = u
        set .t = GetUnitTypeId(u)
        set .p = GetOwningPlayer(u)                               
        set .sX = GetUnitX(u)
        set .sY = GetUnitY(u)
        set .sA = GetUnitFacing(u)
        set Allun[Countun] = this     
        set Allun[Countun].idx = Countun
        set Countun = Countun + 1
        call SetUnitUserData(u, this) 
    endmethod
        
endstruct

public function UnitAdd takes unit u returns nothing
    local resun un = GetUnitUserData(u) 
    if (un.u != u) then
        call resun.New(u)
    endif
endfunction

public function UnitRemove takes unit u returns nothing
    local resun un = GetUnitUserData(u) 
    if (un.u == u) then
        call un.Delete()
    endif
endfunction
     
private function ResetUnit_ForAllUnit takes nothing returns boolean
    local player pf = GetOwningPlayer(GetFilterUnit())
    if (pf == Player(10) or pf == Player(11)) then
        call UnitAdd(GetFilterUnit())
    endif
    return false
endfunction
             
private function ResetUnit_Action_Timer takes nothing returns nothing
    local resun un = R2I(TimerGetRemaining(GetExpiredTimer())+0.5)
    call un.Create()
    call DestroyTimer(GetExpiredTimer())
endfunction

private function ResetUnit_Action takes nothing returns nothing
    local unit u = GetTriggerUnit()
    local timer t
    local resun un = GetUnitUserData(u) 
    if (un.u == u) then
        set t = CreateTimer()
        call TimerStart(t, un, false, null)
        call PauseTimer(t)
        call TimerStart(t, Period, false, function ResetUnit_Action_Timer)
        set t = null
    endif
    set u = null
endfunction
    
private function Init takes nothing returns nothing
    local trigger trig = CreateTrigger()
    if (InitReset) then
        call GroupEnumUnitsInRect(GG, bj_mapInitialPlayableArea, Filter(function ResetUnit_ForAllUnit))
    endif
    call TriggerRegisterPlayerUnitEvent(trig, Player(10), EVENT_PLAYER_UNIT_DEATH, null)
    call TriggerRegisterPlayerUnitEvent(trig, Player(11), EVENT_PLAYER_UNIT_DEATH, null)
    call TriggerAddAction(trig, function ResetUnit_Action)
    set trig = null
endfunction
 
endlibrary