From fbabc54e03cc180168bf4b66c7ea3de551f6b516 Mon Sep 17 00:00:00 2001
From: FlightControl_Master <sven.van.de.velde@telenet.be>
Date: Wed, 11 Oct 2017 11:22:17 +0200
Subject: [PATCH] Created a logic using flags to kick layers using the extended
 slot blocker from Ciribob

---
 .../Moose/Functional/AirbasePolice.lua          | 17 +++--------------
 Moose Development/Moose/Wrapper/Object.lua      |  3 ++-
 2 files changed, 5 insertions(+), 15 deletions(-)

diff --git a/Moose Development/Moose/Functional/AirbasePolice.lua b/Moose Development/Moose/Functional/AirbasePolice.lua
index ac7d1d0ba..85282eff9 100644
--- a/Moose Development/Moose/Functional/AirbasePolice.lua	
+++ b/Moose Development/Moose/Functional/AirbasePolice.lua	
@@ -108,6 +108,8 @@ function AIRBASEPOLICE_BASE:New( SetClient, Airbases )
   )
 
   self.AirbaseMonitor = SCHEDULER:New( self, self._AirbaseMonitor, {}, 0, 2, 0.05 )
+  
+  trigger.action.setUserFlag("SSB",100)
 
   return self
 end
@@ -183,20 +185,7 @@ function AIRBASEPOLICE_BASE:_AirbaseMonitor()
                     else
                       MESSAGE:New( "Player " .. Client:GetPlayerName() .. " is being damaged at the airbase, due to a speeding violation ...", 10, "Airbase Police" ):ToAll()
                       --- @param Wrapper.Client#CLIENT Client
-                      local function DestroyUntilHeavilyDamaged( Client )
-                        local ClientCoord = Client:GetCoordinate()
-                        ClientCoord:Explosion( 100 )
-                        local Damage = Client:GetLife()
-                        local InitialLife = Client:GetLife0()
-                        MESSAGE:New( "Player " .. Client:GetPlayerName() .. " Damage ... " .. Damage, 5, "Airbase Police" ):ToAll()
-                        if ( Damage / InitialLife ) * 100 < 80 then
-                          Client:ScheduleStop( DestroyUntilHeavilyDamaged )
-                        end
-                      end
-                      Client:ScheduleOnce( 1, DestroyUntilHeavilyDamaged, Client )
-                      --Client:ScheduleRepeat( 1, 1, 0, nil, DestroyUntilHeavilyDamaged, Client )
-                      --Client:Destroy()
-                      trigger.action.setUserFlag( "AIRCRAFT_"..Client:GetID(), 100)
+                      Client:Destroy()
                       Client:SetState( self, "Speeding", false )
                       Client:SetState( self, "Warnings", 0 )
                     end
diff --git a/Moose Development/Moose/Wrapper/Object.lua b/Moose Development/Moose/Wrapper/Object.lua
index 5e4a236f1..140c94006 100644
--- a/Moose Development/Moose/Wrapper/Object.lua	
+++ b/Moose Development/Moose/Wrapper/Object.lua	
@@ -79,7 +79,8 @@ function OBJECT:Destroy()
   local DCSObject = self:GetDCSObject()
   
   if DCSObject then
-  
+    USERFLAG:New( self:GetGroup():GetName() ):Set( 100 )
+    --BASE:CreateEventCrash( timer.getTime(), DCSObject )
     DCSObject:destroy()
   end