Block flag/ball holders from driving/gunning Phasor v2+

--[[ ### Block flag/ball holders from driving/gunning ###]]--
--[[ ###          for Phasor v2+ by H® Shaft          ###]]--

-- This script will prevent flag and ball holders from entering the driver or gunner seat of a vehicle (only passenger seats allowed)

-- Standard Ball and Flag tag names:
ball_tag = "weapons\\ball\\ball"
flag_tag = "weapons\\flag\\flag"

-- Enter custom tag names here (within quotes, see instructions)
ball_tag2 = "weapons\\ball\\ball"
flag_tag2 = "weapons\\ball\\ball"

-- Blocked gunner or driver seat message (you can edit):
blocked_message = "BLOCKED! Ball and Flag holders cannot gun or drive!"

-- Instructions for retrieving the ball and flag tag names for unprotected custom maps:
-- Ball and Flag tag names (above): You won't need to change this for all PC maps and MOST CE maps.
-- However, you can customize the script so it works for your custom map.
-- Load the script and map, grab the flag or oddball, then type "weapon" it will tell you the tag name on the screen
-- then enter that tag name above. Example: The tag name for the ball returned would be: weapons\ball\ball
-- then scripted above as:  weapons\\ball\\ball, or - for the flag: weapons\\flag\\flag, etc. (add the additionional "\")

-- don't edit below --
game_started = false
holders = {}

function GetRequiredVersion()
        return 200
end

function OnScriptLoad(process, game, persistent)
        game_started = true
        holdingtimer = registertimer(0, "holding")
        --[[
        if not delayholding and game_started then
                delayholding = registertimer(2000, "delayholding")
        end]]
        for i = 0,15 do
                if getplayer(i) then
                        holders[i] = false
                end
        end
end

function OnNewGame(map)
        game_started = true
        if not holdingtimer and game_started then
                holdingtimer = registertimer(0, "holding")
        end
        for i = 0,15 do
                if getplayer(i) then
                        holders[i] = false
                end
        end
end

function delayholding(id, count)
        if not holdingtimer and game_started then
                holdingtimer = registertimer(0, "holding")
        end
        return false
end

function OnPlayerJoin(player)
        if getplayer(player) then
                holders[player] = false
        end
end

function OnPlayerLeave(player)
        if getplayer(player) then
                holders[player] = false
        end
end

function OnPlayerKill(killer, victim, mode)
        if getplayer(victim) then
                holders[victim] = false
        end
end

function holding(id, count)
        for i = 0, 15 do
                if getplayer(i) then
                        local m_objectId = getplayerobjectid(i)
                        if m_objectId then
                                local m_object = getobject(m_objectId)
                                if m_object then
                                        local m_weaponId = readdword(m_object + 0x118)
                                        if m_weaponId then
                                                local m_weapon = getobject(m_weaponId)
                                                if m_weapon then
                                                        local weapname = gettaginfo(readdword(m_weapon))
                                                        if weapname == ball_tag or weapname == flag_tag or weapname == ball_tag2 or weapname == flag_tag2 then
                                                                holders[i] = true
                                                        else
                                                                holders[i] = false
                                                        end
                                                end
                                        end
                                end
                        end
                end
        end
        return true
end

function OnServerChat(player, type, message)
        local response = nil
        if player then

                --will tell you the tagname of the primary weapon you are holding if you are not in a vehicle
                if string.lower(message) == "weapon" and not isinvehicle(player) then
                        response = true
                        local m_objectId = getplayerobjectid(player)
                        if m_objectId then
                                local m_object = getobject(m_objectId)
                                if m_object then
                                        local m_weaponId = readdword(m_object + 0x118)
                                        if m_weaponId then
                                                local m_weapon = getobject(m_weaponId)
                                                if m_weapon then
                                                        local weapname = gettaginfo(readdword(m_weapon))
                                                        privatesay(player, "Weapon tag name: " .. weapname)
                                                end
                                        end
                                end
                        end
                end

        end
        return response
end

function OnVehicleEntry(player, m_vehicleId, seat, mapId, relevant)
        local response = nil
        if getplayer(player) then
                if holders[player] then
                        if seat ~= 1 then
                                response = false
                                privatesay(player, blocked_message)
                        else
                                response = true
                        end
                end
        end
        return response
end

function OnGameEnd(stage)
        if stage == 1 then
                game_started = false
                if delayholding then
                        delayholding = nil
                end
                if holdingtimer then
                        holdingtimer = nil
                end
                if holding then
                        holding = nil
                end
        end
end

--[[ Created by H® Shaft.
Thanks to Oxide, AelitePrime, Nugget & Wizard.
Visit http://halorace.org/forum/index.php?topic=514.0 or
Visit http://pastebin.com/u/HR_Shaft for more phasor scripts
]]--