#SET - include checking functional filters in all sub-classes

Moose Development/Moose/Core/Set.lua

@@ -4072,6 +4072,11 @@ do -- SET_STATIC
       MStaticInclude = MStaticInclude and MStaticZone
     end
     
+    if self.Filter.Functions and MStaticInclude then
+      local MClientFunc = self:_EvalFilterFunctions(MStatic)
+      MStaticInclude = MStaticInclude and MClientFunc
+    end
+    
     --self:T(2( MStaticInclude )
     return MStaticInclude
   end
@@ -4508,7 +4513,7 @@ do -- SET_CLIENT
       self:UnHandleEvent(EVENTS.Dead)
       self:UnHandleEvent(EVENTS.Crash)
       --self:UnHandleEvent(EVENTS.PlayerEnterUnit)
-      --self:UnHandleEvent(EVENTS.PlayerLeaveUnit)
+      self:UnHandleEvent(EVENTS.PlayerLeaveUnit)
       
       if self.Filter.Zones and self.ZoneTimer and self.ZoneTimer:IsRunning() then
         self.ZoneTimer:Stop()
@@ -4528,7 +4533,7 @@ do -- SET_CLIENT
       self:HandleEvent( EVENTS.Dead, self._EventOnDeadOrCrash )
       self:HandleEvent( EVENTS.Crash, self._EventOnDeadOrCrash )
       --self:HandleEvent( EVENTS.PlayerEnterUnit, self._EventPlayerEnterUnit)
-      --self:HandleEvent( EVENTS.PlayerLeaveUnit, self._EventPlayerLeaveUnit)
+      self:HandleEvent( EVENTS.PlayerLeaveUnit, self._EventPlayerLeaveUnit)
       --self:SetEventPriority(1)
       if self.Filter.Zones then
         self.ZoneTimer = TIMER:New(self._ContinousZoneFilter,self)
@@ -4567,7 +4572,7 @@ do -- SET_CLIENT
   function SET_CLIENT:_EventPlayerLeaveUnit(Event)
     --self:I( "_EventPlayerLeaveUnit" )
     if Event.IniDCSUnit then
-      if Event.IniObjectCategory == Object.Category.UNIT and Event.IniGroup and Event.IniGroup:IsGround() then
+      if Event.IniObjectCategory == Object.Category.UNIT and Event.IniGroup then --and Event.IniGroup:IsGround() then
         -- CA Slot left
         local ObjectName, Object = self:FindInDatabase( Event )
         if ObjectName then
@@ -5115,6 +5120,7 @@ do -- SET_PLAYER
       self:HandleEvent( EVENTS.Birth, self._EventOnBirth )
       self:HandleEvent( EVENTS.Dead, self._EventOnDeadOrCrash )
       self:HandleEvent( EVENTS.Crash, self._EventOnDeadOrCrash )
+      self:HandleEvent( EVENTS.PlayerLeaveUnit, self._EventOnDeadOrCrash )
     end
 
     return self
@@ -5300,6 +5306,11 @@ do -- SET_PLAYER
       MClientInclude = MClientInclude and MClientZone
     end
     
+    if self.Filter.Functions and MClientInclude then
+      local MClientFunc = self:_EvalFilterFunctions(MClient)
+      MClientInclude = MClientInclude and MClientFunc
+    end
+    
     --self:T(2( MClientInclude )
     return MClientInclude
   end
@@ -5644,6 +5655,11 @@ do -- SET_AIRBASE
       end
     end
     
+    if self.Filter.Functions and MAirbaseInclude then
+      local MClientFunc = self:_EvalFilterFunctions(MAirbase)
+      MAirbaseInclude = MAirbaseInclude and MClientFunc
+    end
+
     --self:T(2( MAirbaseInclude )
     return MAirbaseInclude
   end
@@ -6033,6 +6049,11 @@ do -- SET_CARGO
       end
     end
     
+    if self.Filter.Functions and MCargoInclude then
+      local MClientFunc = self:_EvalFilterFunctions(MCargo)
+      MCargoInclude = MCargoInclude and MClientFunc
+    end
+
     --self:T(2( MCargoInclude )
     return MCargoInclude
   end
@@ -6387,6 +6408,11 @@ do -- SET_ZONE
       end
     end
     
+    if self.Filter.Functions and MZoneInclude then
+      local MClientFunc = self:_EvalFilterFunctions(MZone)
+      MZoneInclude = MZoneInclude and MClientFunc
+    end
+
     --self:T(2( MZoneInclude )
     return MZoneInclude
   end
@@ -6880,6 +6906,11 @@ do -- SET_ZONE_GOAL
       end
     end
     
+    if self.Filter.Functions and MZoneInclude then
+      local MClientFunc = self:_EvalFilterFunctions(MZone)
+      MZoneInclude = MZoneInclude and MClientFunc
+    end
+
     --self:T(2( MZoneInclude )
     return MZoneInclude
   end
@@ -7288,6 +7319,11 @@ do -- SET_OPSZONE
     
     end    
     
+    if self.Filter.Functions and MZoneInclude then
+      local MClientFunc = self:_EvalFilterFunctions(MZone)
+      MZoneInclude = MZoneInclude and MClientFunc
+    end
+    
     --self:T(2( MZoneInclude )
     return MZoneInclude
   end
@@ -8051,6 +8087,11 @@ do -- SET_OPSGROUP
       MGroupInclude = MGroupInclude and MGroupPrefix
     end
     
+    if self.Filter.Functions and MGroupInclude then
+      local MClientFunc = self:_EvalFilterFunctions(MGroup)
+      MGroupInclude = MGroupInclude and MClientFunc
+    end
+    
     return MGroupInclude
   end
   
@@ -8406,6 +8447,11 @@ do -- SET_SCENERY
       end
     end
     
+    if self.Filter.Functions and MSceneryInclude then
+      local MClientFunc = self:_EvalFilterFunctions(MScenery)
+      MSceneryInclude = MSceneryInclude and MClientFunc
+    end
+    
     --self:T(2( MSceneryInclude )
     return MSceneryInclude
   end
@@ -8657,6 +8703,11 @@ do -- SET_DYNAMICCARGO
       DCargoInclude = DCargoInclude and DCargoZone
     end
     
+    if self.Filter.Functions and DCargoInclude then
+      local MClientFunc = self:_EvalFilterFunctions(DCargo)
+      DCargoInclude = DCargoInclude and MClientFunc
+    end
+    
     --self:T2( DCargoInclude )
     return DCargoInclude
   end