Release 1.8.3

Adds ability to block a slot using optional other script
Extra fix for rescue to FARP to work around DCS Bug

csarSlotBlockGameGUI.lua

@@ -0,0 +1,152 @@
+local csarSlotBlock = {} -- DONT REMOVE!!!
+--[[
+
+   CSAR Slot Blocking - V1.8.3
+   
+   Put this file in C:/Users/<YOUR USERNAME>/DCS/Scripts for 1.5 or C:/Users/<YOUR USERNAME>/DCS.openalpha/Scripts for 2.0
+   
+   This script will use flags to disable and enable slots when a pilot is shot down and ejects.
+
+   *** NOTE: if you're using FLAGS in your mission, pick high values, above 1000 for flag numbers so this script doesn't interfere
+   with your mission flags ***
+
+ ]]
+
+csarSlotBlock.showEnabledMessage = true -- if set to true, the player will be told that the slot is enabled when switching to it
+csarSlotBlock.version = "1.8.3"
+
+-- Logic for determining if player is allowed in a slot
+function csarSlotBlock.shouldAllowSlot(_playerID, _slotID) -- _slotID == Unit ID unless its multi aircraft in which case slotID is unitId_seatID
+
+
+    local _unitId = csarSlotBlock.getUnitId(_slotID);
+
+    local _status,_error  = net.dostring_in('server', " return trigger.misc.getUserFlag(".._unitId.."); ")
+
+    if not _status and _error then
+        net.log("error getting flag: ".._error)
+        return true
+    else
+      --  net.log("flag value ".._unitId.." value: ".._status)
+
+        --disabled
+        if tonumber(_status) == 100 then
+            return false
+        else
+            return true
+        end
+    end
+
+end
+
+-- _slotID == Unit ID unless its multi aircraft in which case slotID is unitId_seatID
+function csarSlotBlock.getUnitId(_slotID)
+    local _unitId = tostring(_slotID)
+    if string.find(tostring(_unitId),"_",1,true) then
+        --extract substring
+        _unitId = string.sub(_unitId,1,string.find(_unitId,"_",1,true))
+        net.log("Unit ID Substr ".._unitId)
+    end
+
+    return tonumber(_unitId)
+end
+
+
+
+--DOC
+-- onGameEvent(eventName,arg1,arg2,arg3,arg4)
+--"friendly_fire", playerID, weaponName, victimPlayerID
+--"mission_end", winner, msg
+--"kill", killerPlayerID, killerUnitType, killerSide, victimPlayerID, victimUnitType, victimSide, weaponName
+--"self_kill", playerID
+--"change_slot", playerID, slotID, prevSide
+--"connect", id, name
+--"disconnect", ID_, name, playerSide
+--"crash", playerID, unit_missionID
+--"eject", playerID, unit_missionID
+--"takeoff", playerID, unit_missionID, airdromeName
+--"landing", playerID, unit_missionID, airdromeName
+--"pilot_death", playerID, unit_missionID
+--
+csarSlotBlock.onGameEvent = function(eventName,playerID,arg2,arg3,arg4) -- This stops the user flying again after crashing or other events
+
+    if  DCS.isServer() and DCS.isMultiplayer() then
+        if DCS.getModelTime() > 1 then  -- must check this to prevent a possible CTD by using a_do_script before the game is ready to use a_do_script. -- Source GRIMES :)
+
+            if eventName ~= "connect"
+                    and eventName ~= "disconnect"
+                    and eventName ~= "mission_end"
+                    and eventName ~=  "change_slot" then
+
+                -- is player in a slot and valid?
+                local _playerDetails = net.get_player_info(playerID)
+
+                if _playerDetails ~=nil and _playerDetails.side ~= 0 and _playerDetails.slot ~= "" and _playerDetails.slot ~= nil then
+
+                    local _allow = csarSlotBlock.shouldAllowSlot(playerID, _playerDetails.slot)
+
+                    if not _allow then
+                        csarSlotBlock.rejectPlayer(playerID)
+                    end
+
+                end
+            end
+        end
+    end
+end
+
+csarSlotBlock.onPlayerTryChangeSlot = function(playerID, side, slotID)
+
+  	if  DCS.isServer() and DCS.isMultiplayer() then
+        if  (side ~=0 and  slotID ~='' and slotID ~= nil)  then
+
+            local _allow = csarSlotBlock.shouldAllowSlot(playerID,slotID)
+
+            if not _allow then
+                csarSlotBlock.rejectPlayer(playerID)
+
+                return false
+            else
+
+            	local _playerName = net.get_player_info(playerID, 'name')
+
+	            if _playerName ~= nil and csarSlotBlock.showEnabledMessage then
+	                --Disable chat message to user
+	                local _chatMessage = string.format("*** %s - Aircraft Enabled! If you eject you will need to be rescued by CSAR. Protect the Helis! ***",_playerName)
+	                net.send_chat_to(_chatMessage, playerID)
+	            end
+
+            end
+            
+        end
+
+        net.log("CSAR - allowing -  playerid: "..playerID.." side:"..side.." slot: "..slotID)
+	end
+
+    return true
+
+end
+
+csarSlotBlock.rejectPlayer = function(playerID)
+    net.log("Reject Slot - force spectators - "..playerID)
+
+    -- put to spectators
+    net.force_player_slot(playerID, 0, '')
+
+    local _playerName = net.get_player_info(playerID, 'name')
+
+    if _playerName ~= nil then
+        --Disable chat message to user
+        local _chatMessage = string.format("*** Sorry %s - Slot DISABLED, Pilot has been shot down and needs to be rescued by CSAR ***",_playerName)
+        net.send_chat_to(_chatMessage, playerID)
+    end
+end
+
+csarSlotBlock.trimStr = function(_str)
+
+    return  string.format( "%s", _str:match( "^%s*(.-)%s*$" ) )
+end
+
+DCS.setUserCallbacks(csarSlotBlock)
+
+net.log("Loaded - CSAR SLOT BLOCK k v"..csarSlotBlock.version.. " by Ciribob")