Gunner-is-Driver for Gametype Hogs for Phasor v2+

--[[ ###  Gunner-is-Driver for Gametype Hogs ###]]--
--[[ ###      by H® Shaft for Phasor v2+     ###]]--

-- This version allows use of hogs spawned by gametype
-- When a player attempts to enter a warthog, it will put them in the "Gunner-is-Driver" position
-- 2 teammates may share a hog (Gunner and Passenger), drivers seat is blocked
-- Only works with warthogs

function GetRequiredVersion()
    return 200
end

function OnScriptLoad(process, game, persistent)

end

function OnVehicleEntry(player, m_vehicleId, seat, mapid, relevant)
    local m_vehicle = getobject(m_vehicleId)
    local driver = readdword(m_vehicle + 0x324)

    if validvehicle(m_vehicle) then
        if seat == 1 and driver == 0xFFFFFFFF then
            registertimer(0, "GunnerIsDriver", {player, m_vehicleId})
        elseif seat == 1 and driver ~= 0xFFFFFFFF then
            return true
        elseif seat == 0 and driver == 0xFFFFFFFF then
            registertimer(0, "GunnerIsDriver", {player, m_vehicleId})
        elseif seat == 0 and driver ~= 0xFFFFFFFF then
            return false -- return true if you want to enable drivers seat (glitchy)
        elseif seat == 2 and driver == 0xFFFFFFFF then
            registertimer(0, "GunnerIsDriver", {player, m_vehicleId})
        elseif seat == 2 and driver ~= 0xFFFFFFFF then
            return false
        end
    end

    return nil
end

function GunnerIsDriver(id, count, arg)
    local player = arg[1]
    local m_vehicleId = arg[2]
    if player then
        local m_object = getobject(getplayerobjectid(player))
        if m_object and m_vehicleId then
            entervehicle(player, m_vehicleId, 0)
            entervehicle(player, m_vehicleId, 2)
        end
    end
    return false
end

function validvehicle(m_vehicle)
    local name = gettaginfo(readdword(m_vehicle))
    if string.find(name, "warthog") then
        return true
    end
    return false
end