DCS-CSAR/csarSlotBlockGameGUI.lua

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")