Taxi v4 for Phasor v2

--[[ ###            Taxi v4 for Phasor v2            ###]]--
--[[ ###      by H® Shaft, AElitePrime & H® BugZ     ###]]--

-- Intended to be used as a Persistent Script
-- Version 4: Anti Hog Camping, Hog Spawn, Passenger Weapon, Show Players in Vehicle (type 'whois'), Per-Map Toggle
-- What is Taxi?  A script used in Halo PC servers, running the server application 'Phasor v2' created by Oxide/Urbanyoung.
-- What does it do? If your team are in warthogs, taxi will insert you a seat into one of their hogs.
-- Why use it? Taxi reduces effort & improves teamplay for faster-paced team games with warthogs:

-- edit --
taxi_limit = 20             -- | Number of times a player can call taxi during one game.  You can go as high as you want, it won't affect gameplay or lag.
crouch_to_taxi = true       -- | Toggle on/off the crouching taxi call. On = true, Off = false.
text_to_taxi = true         -- | Toggle on/off the typed taxi call. On = true, Off = false.
passenger_taxi = false      -- | Toggle on/off the passenger seat.  If off, the Taxi/Gun Me calls will not use passenger seats. On = true, Off = false.
gunme_active = true         -- | Toggle on/off the typed 'gun me' call which when typed by a player in a vehicle, inserts gunners/passengers. On = true, Off = false.
gunner_damage = false       -- | Toggle on/off damage from a vehicle gunner which has no driver (a.k.a. Hog Camper) If false, they cannot kill without a driver.
hog_limit = 3               -- | Number of times a player can call a hog during one game.
max_time = 2.5              -- | amount of time in seconds before a camper is ejected
call_time = 0.1             -- | minimum of time before timer to eject is initiated

-- don't edit --
taxi, calls, crouch, hails, hogs, map_ids, vehicles = {}, {}, {}, {}, {}, {}, {}
crouch_time = 2

-- | Toggle on/off script spawn hog on server chat - edit:
hog_spawn = {}
--              Map:                        Boolean:
hog_spawn.      beavercreek         =       false -- battle creek
hog_spawn.      bloodgulch          =       true
hog_spawn.      boardingaction      =       true
hog_spawn.      carousel            =       false -- derelict
hog_spawn.      chillout            =       false
hog_spawn.      damnation           =       false
hog_spawn.      dangercanyon        =       true
hog_spawn.      deathisland         =       true
hog_spawn.      gephyrophobia       =       true
hog_spawn.      hangemhigh          =       false
hog_spawn.      icefields           =       true
hog_spawn.      infinity            =       true
hog_spawn.      longest             =       false
hog_spawn.      prisoner            =       false
hog_spawn.      putput              =       false -- chiron tl34
hog_spawn.      ratrace             =       false
hog_spawn.      sidewinder          =       true
hog_spawn.      timberland          =       true
hog_spawn.      wizard              =       false

function GetRequiredVersion()
    return 200
end

function OnScriptLoad(process, game, persistent)
    if game == true or game == "PC" then
        GAME = "PC"
        map_name = readstring(0x698F21)
    else
        GAME = "CE"
        map_name = readstring(0x61D151)
    end
    LoadTags()
    for i=0,15 do
        calls[i], hails[i], taxi[i], hogs[i] = 0, 0, {}, 0
        if getplayer(i) then
            local player_obj_id = getplayerobjectid(i)
            if player_obj_id then
                local m_object = getobject(player_obj_id)
                if readbyte(m_object + 0x2A0) == 2 then
                    taxi[i].seat = 1
                    taxi[i].vehicle = getobject(readdword(m_object + 0x11C))
                end
            end
        end
    end
    registertimer(call_time*1000, "ejection")
end

function OnNewGame(map)
    if GAME == "PC" then
        map_name = readstring(0x698F21)
    elseif GAME == "CE" then
        map_name = readstring(0x61D151)
    end
    LoadTags()
end

function ejection(id, c)
    for k, v in pairs(vehicles) do
        if vehicles[k] ~= {} then
            for key, value in pairs(vehicles[k]) do
                if vehicles[k].players and vehicles[k].players ~= {} then
                    vehicles[k].count = (vehicles[k].count or 0) + call_time
                    if vehicles[k].count >= max_time then
                        for i=1, #vehicles[k].players do
                            local player = vehicles[k].players[i]
                            if player and getplayer(player) and isinvehicle(player) then
                                sendconsoletext(player, "**Taxi** Ejected! Please don't hog camp.")
                                exitvehicle(player)
                                if taxi[player].seat == 1 then resetpassenger(player, getobject(getplayerobjectid(player))) end
                            end
                        end
                        vehicles[k] = {}
                    end
                else
                    vehicles[k] = {}
                end
            end
        end
    end
    return true
end

function OnServerChat(player, type, message)
    local response = nil
    if player then
        if string.lower(message) == "taxi" then
            response = false
            if text_to_taxi then
                if not isinvehicle(player) then
                    if taxi_limit == false or calls[player] < taxi_limit then
                        if getplayerobjectid(player) then
                            getTaxi(player)
                        else
                            sendconsoletext(player, "**Taxi** You are dead. Try again after you respawn.")
                        end
                    else
                        sendconsoletext(player, "**Taxi** You have reached the max amount of taxi calls for this game.")
                    end
                else
                    sendconsoletext(player, "**Taxi** You are already in a vehicle.")
                end
            else
                sendconsoletext(player, "**Taxi** This feature is currently disabled.")
            end
        elseif string.lower(message) == "gunme" or string.lower(message) == "gun me" then
            response = false
            if gunme_active then
                if isinvehicle(player) then
                    getWalker(player)
                else
                    sendconsoletext(player, "**Gun Me** You must be in a vehicle to use this feature.")
                end
            else
                sendconsoletext(player, "**Gun Me** This feature is currently disabled.")
            end
        elseif string.lower(message) == "hog" then
            local m_player = getplayer(player)
            if m_player then
                if hog_spawn[map_name] then
                    if not isinvehicle(player) then
                        local m_player = getplayerobjectid(player)
                        local x,y,z = getobjectcoords(m_player)
                        if not hog_limit or hogs[player] < hog_limit then
                            local m_vehicleId = createobject(map_ids[map_name], 0, 15, false, x,y,z+1)
                            entervehicle(player, m_vehicleId, 0)
                            hogs[player] = hogs[player] + 1
                            sendconsoletext(player, "**Hogs** You have " .. hog_limit - hogs[player] .. " hog calls remaining.")
                        else
                            sendconsoletext(player, "**Hogs** You have reached the max amount of hog calls for this game.")
                        end
                    else
                        sendconsoletext(player, "**Hogs** You already have a hog, dumbass.")
                    end
                else
                    sendconsoletext(player, "**Hogs** That feature has been disabled for this map.")
                end
            return false
            end
        elseif string.lower(message) == "whois" then
            local m_vehicleId = getplayervehicleid(player)
            if isinvehicle(player) and m_vehicleId then
                local m_vehicle = getobject(m_vehicleId)
                local driver = getdriverplayer(m_vehicle)
                local gunner = getgunnerplayer(m_vehicle)
                local passenger = getpassengerplayer(m_vehicle)
                local driver = getdriverplayer(m_vehicle)
                local gunner = getgunnerplayer(m_vehicle)
                local passenger = getpassengerplayer(m_vehicle)
                message_players(driver, gunner, passenger)
            else
                sendconsoletext(player, "**WhoIs** You must be in a vehicle to use this feature.")
            end
            return false
        end
    end
    return response
end

function OnPlayerJoin(player)
    calls[player], hails[player], taxi[player], hogs[player] = 0, 0, {}, 0
    announce = registertimer(4000, "timedannounce", player)
end

function timedannounce(id, count, player)
    if count == 1 then
        if getplayer(player) then
            if crouch_to_taxi then
                sendconsoletext(player, "Crouch-Taxi is Enabled.")
            end
            if gunme_active then
                sendconsoletext(player, "Gun Me is Enabled.")
            end
            sendconsoletext(player, "Pistol Entry is Enabled.") -- was in pistol entry, moved here for convenience
        end
    end
    return true
end

function OnGameEnd(stage)
    if stage == 1 then
        if announce then
            removetimer(announce)
            announce = nil
        end
    end
end

function OnPlayerLeave(player)
    if taxi[player].vehicle then
        if taxi[player].seat == 1 then writedword(taxi[player].vehicle + 0x32C, 0xFFFFFFFF) end
    end
    --checkplayer(player) -- causes nil error as it cannot read the players vehicle
    taxi[player] = nil
end

function OnPlayerKill(killer, victim, mode)
    local m_vehicleId = getplayervehicleid(victim)
    if taxi[victim].seat == 1 then resetpassenger(victim ,getobject(getplayerobjectid(victim))) end
    if victim and isinvehicle(victim) then checkplayer(victim) end
    taxi[victim] = {}
end

function OnVehicleEntry(player, m_vehicleId, seat, mapId, relevant)
    taxi[player].seat = seat
    if seat == 1 then
        local player_obj_id = getplayerobjectid(player)
        local m_object = getobject(player_obj_id)
        taxi[player].vehicle = getobject(readdword(m_object + 0x11C))
        if readdword(getobject(m_vehicleId) + 0x324) ~= 0xFFFFFFFF then
            local x,y,z = getobjectcoords(player_obj_id)
            local r = getrandomnumber(0, 11)
            local pass_weap
            if r >= 0 and r <= 4 then
                pass_weap = createobject(gettagid("weap", "weapons\\rocket launcher\\rocket launcher"), 0, 1, false, x, y, z+1.0)
            elseif r >= 5 and r <= 10 then
                pass_weap = createobject(gettagid("weap", "weapons\\plasma_cannon\\plasma_cannon"), 0, 1, false, x, y, z+1.0)
            end
            if pass_weap then assignweapon(player, pass_weap) end
        end
        registertimer(0, "assignpassenger", {player_obj_id, getobject(m_vehicleId)})
    end

    if seat == 0 then
        vehicles[m_vehicleId] = {}
        registertimer(20, "setnil", m_vehicleId)
    elseif not getdriverplayer(getobject(m_vehicleId)) then
        registertimer(0, "setupseattable", {m_vehicleId, player})
    end

    local player_obj_id = getplayerobjectid(player)
    if player_obj_id then
        local m_object = getobject(player_obj_id)
        taxi[player].vehicle = getobject(readdword(m_object + 0x11C))
    end

    registertimer(0, "showPlayers", getobject(m_vehicleId))
    return nil
end

function OnVehicleEject(player, relevant)
    local m_vehicleId = getplayervehicleid(player)
    if taxi[player].seat == 1 then resetpassenger(player, getobject(getplayerobjectid(player))) end
    checkplayer(player)
    taxi[player] = {}
    return nil
end

function showPlayers(id, count, m_vehicle)
    message_players(getdriverplayer(m_vehicle), getgunnerplayer(m_vehicle), getpassengerplayer(m_vehicle))
    return false
end

function checkplayer(player)
    local m_vehicleId = getplayervehicleid(player)
    if getdriverplayer(getobject(m_vehicleId)) == player then
        setupdrivertable(m_vehicleId, player)
    end
    return false
end

function setupdrivertable(m_vehicleId, driver)
    vehicles[m_vehicleId] = {}
    vehicles[m_vehicleId].players = {}
    vehicles[m_vehicleId].count = 0
    local team = getteam(driver)
    for player=0,15 do
        if getplayer(player) and getteam(player) == team and isinvehicle(player) and getplayervehicleid(player) == m_vehicleId and driver ~= player then
            table.insert(vehicles[m_vehicleId].players, player)
        end
    end
end

function setupseattable(id, count, arg)
    local m_vehicleId = arg[1]
    vehicles[m_vehicleId] = {}
    vehicles[m_vehicleId].players = {}
    vehicles[m_vehicleId].count = 0
    local driver = getdriverplayer(getobject(m_vehicleId))
    local team = getteam(arg[2])
    for player=0,15 do
        if getplayer(player) and getteam(player) == team and isinvehicle(player) and getplayervehicleid(player) == m_vehicleId and driver ~= player then
            table.insert(vehicles[m_vehicleId].players, player)
        end
    end
    return false
end

function setnil(id, count, m_vehicleId)
    if count >= 20 then return false end
    if vehicles[m_vehicleId] ~= {} then
        vehicles[m_vehicleId] = {}
    end
    return true
end

function getplayervehicleid(player) -- returns vehicle object id player is in
    local m_objectId = getplayerobjectid(player)
    if m_objectId then return readdword(getobject(m_objectId) + 0x11C) end
end

function getdriverobjid(m_vehicle)
    return readdword(m_vehicle + 0x324)
end

function getgunnerobjid(m_vehicle)
    return readdword(m_vehicle + 0x328)
end

function getpassengerobjid(m_vehicle)
    return readdword(m_vehicle + 0x32C)
end

function getdriverplayer(m_vehicle) -- returns the driver of vehicle
    local obj_id = readdword(m_vehicle + 0x324)
    if obj_id and obj_id ~= 0xFFFFFFFF then return objectidtoplayer(obj_id) end
end

function getgunnerplayer(m_vehicle) -- returns the gunner of vehicle
    local obj_id = readdword(m_vehicle + 0x328)
    if obj_id ~= 0xFFFFFFFF then return objectidtoplayer(obj_id) end
end
function getpassengerplayer(m_vehicle)
    local obj_id = getpassengerobjid(m_vehicle)
    if obj_id ~= 0xFFFFFFFF then return objectidtoplayer(obj_id) end
end

function message_players(driver, gunner, passenger)
    local t,n = {}, {}
    if driver then
        table.insert(t, driver)
        table.insert(n, "Driver")
    end
    if gunner then
        table.insert(t, gunner)
        table.insert(n, "Gunner")
    end
    if passenger then
        table.insert(t, passenger)
        table.insert(n, "Passenger")
    end
    for k, v in pairs(t) do
        for key, value in pairs(t) do
            if v ~= value then
                sendconsoletext(v, n[key] .. " : " .. getname(value))
            end
        end
    end
end

function OnClientUpdate(player)
    if hails[player] > 0 then hails[player] = hails[player] - 1 end
    if crouch_to_taxi then
        if not isinvehicle(player) then
            local m_objectId = getplayerobjectid(player)
            if m_objectId then
                local obj_crouch = readbyte(getobject(m_objectId) + 0x2A0)
                local id = resolveplayer(player)
                if obj_crouch == 3 and crouch[id] == nil then
                    crouch[id] = OnPlayerCrouch(player)
                elseif obj_crouch ~= 3 and crouch[id] ~= nil then
                    crouch[id] = nil
                end
            end
        end
    end
end

function OnPlayerCrouch(player)
    if hails[player] == 0 then
        if taxi_limit == false or calls[player] < taxi_limit then
            getTaxi(player)
            hails[player] = (crouch_time*30)
        else
            sendconsoletext(player, "**Taxi** You have reached the max amount of taxi calls for this game.")
        end
    end
    return true
end

function assignpassenger(id, count, arg)
    taxi[objectidtoplayer(arg[1])].vehicle = arg[2]
    writedword(arg[2] + 0x32C, arg[1])
    return false
end

function checkSpaces(player, team, m_vehicleId)
    local seats = getseats(m_vehicleId)
    if seats > 0 and m_vehicleId then
        for i=0,15 do
            if player ~= i and getplayer(i) and getteam(i) == team and isinvehicle(i) then
                if getplayervehicleid(i) == m_vehicleId then
                    seats = seats - 1
                end
            end
        end
    end
    return seats
end

function getseats(m_vehicleId) -- return the number of vehicle seats not including the driver
    local name = gettaginfo(readdword(getobject(m_vehicleId)))
    local seats = 0
    if string.find(name, "ghost") or string.find(name, "banshee") or string.find(name, "turret") then
        seats = 0
    elseif string.find(name, "hog") then
        seats = 2
    elseif string.find(name, "scorpion") then
        seats = 4
    end
    return seats
end

function getTaxi(player)
    local player2
    for i=0,15 do
        if player ~= i and getplayer(i) and getteam(i) == getteam(player) and isinvehicle(i) and checkSpaces(i, getteam(i), getplayervehicleid(i)) > 0 then
            player2 = i
            break
        end
    end
    if player2 then
        InjectPlayer(player, getplayervehicleid(player2), true)
    else
        sendconsoletext(player, "**Taxi** Sorry no taxi is available at the moment. Please try again later.")
    end
end

function getWalker(player)
    local m_vehicleId = getplayervehicleid(player)
    if m_vehicleId then
        if checkSpaces(player, getteam(player), m_vehicleId) > 0 then
            local player2
            for i=0,15 do
                if player ~= i and getplayer(i) and getteam(i) == getteam(player) and not isinvehicle(i) and getplayerobjectid(i) then
                    player2 = i
                    break
                end
            end
            if player2 then
                InjectPlayer(player2, m_vehicleId, false)
            else
                sendconsoletext(player, "**Gun Me** No teammates, or no available teammates.")
            end
        else
            sendconsoletext(player, "**Gun Me** No available seats in your vehicle.")
        end
    end
end

function InjectPlayer(player, m_vehicleId, count)
    local bool = false
    if m_vehicleId then
        local m_vehicle = getobject(m_vehicleId)
        local driver = readdword(m_vehicle + 0x324)
        local gunner = readdword(m_vehicle + 0x328)
        local passenger = readdword(m_vehicle + 0x32C)
        if driver == 0xFFFFFFFF then
            entervehicle(player, m_vehicleId, 0)
            bool = true
        elseif gunner == 0xFFFFFFFF then
            entervehicle(player, m_vehicleId, 2)
            bool = true
        elseif passenger_taxi and (passenger == 0xFFFFFFFF or passenger  == 0) then
            entervehicle(player, m_vehicleId, 1)
            bool = true
        end
        if bool and taxi_limit and count then
            calls[player] = calls[player] + 1
            sendconsoletext(player, "**Taxi** You have " .. taxi_limit - calls[player] .. " taxi calls left.")
        elseif not count then
            sendconsoletext(player, "**Gun Me** You have been put into the vehicle by a teammate.")
        end
    end
end

function resetpassenger(player, m_object)
    local tertiary = readdword(m_object + 0x300)
    local quarternary = readdword(m_object + 0x304)
    if tertiary then
        if getobject(tertiary) then
            destroyobject(tertiary)
        end
    end
    if quarternary then
        if getobject(quarternary) then
            destroyobject(quarternary)
        end
    end
    if taxi[player].vehicle then
        writedword(taxi[player].vehicle + 0x32C, 0xFFFFFFFF)
    end
end

function OnDamageLookup(receiving, causing, tagid)
    if not gunner_damage and causing then
        local c_player = objectidtoplayer(causing)
        if c_player and isinvehicle(c_player) then
            local m_vehicleId = getplayervehicleid(c_player)
            if m_vehicleId then
                local m_vehicle = getobject(m_vehicleId)
                local driver = readdword(m_vehicle + 0x324)
                local gunner = readdword(m_vehicle + 0x328)
                if driver == 0xFFFFFFFF and gunner == causing then
                    return false
                end
            end
        end
    end
end

-- sets the default vehicles to spawn on player calling for "hog"
function LoadTags()
    map_ids["beavercreek"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["bloodgulch"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["boardingaction"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["carousel"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["chillout"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["damnation"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["dangercanyon"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["deathisland"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["gephyrophobia"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["hangemhigh"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["icefields"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["infinity"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["longest"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["prisoner"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["putput"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["ratrace"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["sidewinder"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["timberland"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    map_ids["wizard"] = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
end

-- Created by H® Shaft thank you 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