function Trig_Melee_Initialization_Actions takes nothing returns nothing
    local group g = CreateGroup( )
    local unit u
    local real x = GetOrderPointX( )
    local real y = GetOrderPointY( )
    
    call BJDebugMsg( "order: " + OrderId2String( GetIssuedOrderId( ) ) )
    call BJDebugMsg( "unit: " + GetUnitName( GetOrderTargetUnit( ) ) )
    
    if GetOrderTargetUnit( ) == null and not IsVisibleToPlayer( x, y, GetOwningPlayer( GetTriggerUnit( ) ) ) then
        call GroupEnumUnitsInRange( g, x, y, 200.00, null )
        
        loop
            set u = FirstOfGroup( g )
            exitwhen u == null
            call GroupRemoveUnit( g, u )
            
            if IsUnitType( u, UNIT_TYPE_STRUCTURE ) and IsUnitInRangeXY( u, x, y, 0.00 ) then
                call BJDebugMsg( "unit from loop: " + GetUnitName( u ) )
            endif
        endloop
    endif
    
    call DestroyGroup( g )
    
    set g = null
endfunction

//===========================================================================
function InitTrig_Melee_Initialization takes nothing returns nothing
    set gg_trg_Melee_Initialization = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Melee_Initialization, EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Melee_Initialization, EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER )
    //call TriggerRegisterAnyUnitEventBJ( gg_trg_Melee_Initialization, EVENT_PLAYER_UNIT_ISSUED_ORDER )
    call TriggerAddAction( gg_trg_Melee_Initialization, function Trig_Melee_Initialization_Actions )
endfunction