From fdcad2dd9347325415f3d00e4656a9cb79b946b9 Mon Sep 17 00:00:00 2001 From: FlightControl_Master Date: Sun, 30 Jul 2017 07:31:23 +0200 Subject: [PATCH] Fixed the landing bug When using A2A GCICAP, the planes would land, but not dissapear. --- Moose Development/Moose/AI/AI_A2A_Dispatcher.lua | 9 ++++++++- Moose Development/Moose/Core/Event.lua | 2 +- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/Moose Development/Moose/AI/AI_A2A_Dispatcher.lua b/Moose Development/Moose/AI/AI_A2A_Dispatcher.lua index f3926e824..0a7ca809c 100644 --- a/Moose Development/Moose/AI/AI_A2A_Dispatcher.lua +++ b/Moose Development/Moose/AI/AI_A2A_Dispatcher.lua @@ -1,5 +1,5 @@ --BASE:TraceClass("AI_A2A_DISPATCHER") -BASE:TraceClass("AI_A2A_GCICAP") +--BASE:TraceClass("AI_A2A_GCICAP") --- **AI** - The AI_A2A_DISPATCHER creates an automatic A2A defense system based on an EWR network targets and coordinating CAP and GCI. -- @@ -818,6 +818,7 @@ do -- AI_A2A_DISPATCHER --- @param #AI_A2A_DISPATCHER self -- @param Core.Event#EVENTDATA EventData function AI_A2A_DISPATCHER:OnEventLand( EventData ) + self:F( "Landed" ) local DefenderUnit = EventData.IniUnit local Defender = EventData.IniGroup local Squadron = self:GetSquadronFromDefender( Defender ) @@ -2945,6 +2946,12 @@ do self:__Start( 5 ) + self:HandleEvent( EVENTS.Crash, self.OnEventCrashOrDead ) + self:HandleEvent( EVENTS.Dead, self.OnEventCrashOrDead ) + + self:HandleEvent( EVENTS.Land ) + self:HandleEvent( EVENTS.EngineShutdown ) + return self end diff --git a/Moose Development/Moose/Core/Event.lua b/Moose Development/Moose/Core/Event.lua index 1fe2db710..46fdeebb1 100644 --- a/Moose Development/Moose/Core/Event.lua +++ b/Moose Development/Moose/Core/Event.lua @@ -872,7 +872,7 @@ function EVENT:onEvent( Event ) for EventClass, EventData in pairs( self.Events[Event.id][EventPriority] ) do if Event.IniObjectCategory ~= Object.Category.STATIC then - --self:E( { "Evaluating: ", EventClass:GetClassNameAndID() } ) + self:E( { "Evaluating: ", EventClass:GetClassNameAndID() } ) end Event.IniGroup = GROUP:FindByName( Event.IniDCSGroupName )