Отследить разложения юнита.

/**
    * Событие с юнитам
    ***/
    
    private function InitStatus takes nothing returns nothing
        local unit u = GetTriggerUnit()
        local integer i = GetUnitIndex(u)
        
        if not(i == 0) then
            if IsUnitType(u, UNIT_TYPE_DEAD) then
                if xe_deadIDs[i] then
                    set xe_deadIDs[i] = false // удаляем труп
                    call RemoveUnit(u)
                else
                    set xe_deadIDs[i] = true // умер но осталось труп
                endif
            endif
            // и другие проверки на воскрешение...
        endif
        
        set u = null
    endfunction
    
    private function InitEnter takes nothing returns nothing
        local integer i = GetUnitIndex(GetFilterUnit())
        
        if i == 0 then
            set i = CreateUnitIndex(GetFilterUnit())
            set xe_deadIDs[i] = IsUnitType(GetFilterUnit(), UNIT_TYPE_DEAD)
            call UnitAddAbility(GetFilterUnit(), ABILITY_ID) 
            call UnitMakeAbilityPermanent(GetFilterUnit(), true, ABILITY_ID)
        endif
    endfunction

    private function FilterOrder takes nothing returns boolean
        return GetIssuedOrderId() == 852056
    endfunction
    
    private function FilterUnit takes nothing returns boolean
        local integer handleID = GetHandleId(GetFilterUnit())
        local integer typeID = GetUnitTypeId(GetFilterUnit())
        
        if GetUnitOption(typeID, AUTO_DISABLE_INDEX) == 1 or GetUnitOption(handleID, AUTO_DISABLE_INDEX) == 1 then
            return false
        endif

        return GetUnitOption(0, AUTO_DISABLE_INDEX) == 0
    endfunction
    
    private function Init takes nothing returns nothing
        local region r = CreateRegion()
        local rect w = GetWorldBounds()
        local group g = CreateGroup()
        local integer n = 0
        
        loop
            exitwhen n == bj_MAX_PLAYER_SLOTS
            call SetPlayerAbilityAvailable(Player(n), ABILITY_ID, false)
            call TriggerRegisterPlayerUnitEvent(tStatus, Player(n), EVENT_PLAYER_UNIT_ISSUED_ORDER, function FilterUnit)
            call GroupEnumUnitsOfPlayer(g, Player(n), And(function FilterUnit, function InitEnter))
            set n = n + 1
        endloop
        
        call RegionAddRect(r, w)
        call TriggerRegisterEnterRegion(tEnter, r, And(function FilterUnit, function InitEnter))
        call TriggerAddCondition(tStatus, And(function FilterOrder, function InitStatus))
        
        call GroupClear(g)
        call DestroyGroup(g)
        call RemoveRect(w)
        set g = null
        set w = null
    endfunction