Rock-The-Vote v4 Map Skipping for Phasor v2+

--[[ ###    Rock-The-Vote v4 ###]]--
--[[ ###     by H® Shaft     ###]]--
--[[ ###    for Phasor v2+   ###]]--

-- changes: enabling rock the vote, and vote percentage required for skipping map is now editable per map, see lines 43 thru 82
-- re-formed to allow use as persistent or non-persistent and to be reloadable for compatibility with other scripts without error

function GetRequiredVersion()
    return 200
end

function OnScriptLoad(processId, game, persistent)
    GAME = game
    GetGameAddresses(game)
    ScriptLoad()
end

function ScriptLoad()

    -- don't edit ---
    GetGameAddresses(GAME)
    rockthevote = {}
    rtv_required = {}
    rtv_table = {}
    cur_players = 0
    rtv_timeout = 1
    rtv_initiated = 0
    game_started = false
    for i = 0,15 do
        if getplayer(i) then
            cur_players = cur_players + 1
        end
    end

    if map_reset == true then
        map_reset = false
        game_started = true
    end

    -- ------------------ Edit Below This Line --------------------------
    -- enable rtv on this map                           Edit Boolean: enable = true, disable = false
    rockthevote.            beavercreek         =       true
    rockthevote.            bloodgulch          =       true
    rockthevote.            boardingaction      =       true
    rockthevote.            carousel            =       true
    rockthevote.            chillout            =       true
    rockthevote.            damnation           =       true
    rockthevote.            dangercanyon        =       true
    rockthevote.            deathisland         =       true
    rockthevote.            gephyrophobia       =       true
    rockthevote.            hangemhigh          =       true
    rockthevote.            icefields           =       true
    rockthevote.            infinity            =       true
    rockthevote.            longest             =       true
    rockthevote.            prisoner            =       true
    rockthevote.            putput              =       true
    rockthevote.            ratrace             =       true
    rockthevote.            sidewinder          =       true
    rockthevote.            timberland          =       true
    rockthevote.            wizard              =       true

    -- vote % of players required to skip the map       Edit Percent Required (decimal value)
    rtv_required.           beavercreek         =       0.7
    rtv_required.           bloodgulch          =       0.8
    rtv_required.           boardingaction      =       0.6
    rtv_required.           carousel            =       0.7
    rtv_required.           chillout            =       0.7
    rtv_required.           damnation           =       0.7
    rtv_required.           dangercanyon        =       0.7
    rtv_required.           deathisland         =       0.6
    rtv_required.           gephyrophobia       =       0.8
    rtv_required.           hangemhigh          =       0.7
    rtv_required.           icefields           =       0.7
    rtv_required.           infinity            =       0.6
    rtv_required.           longest             =       0.7
    rtv_required.           prisoner            =       0.6
    rtv_required.           putput              =       0.7
    rtv_required.           ratrace             =       0.7
    rtv_required.           sidewinder          =       0.7
    rtv_required.           timberland          =       0.7
    rtv_required.           wizard              =       0.7
    -- ------------------ Edit Above This Line --------------------------

    -- don't edit ---
    if map_name then rockthevote[map_name] = rockthevote[map_name] or true end
    if map_name then rtv_required[map_name] = rtv_required[map_name] or 0.5 end

end

function OnNewGame(map)
    ScriptLoad()
    game_started = true
end

function OnServerCommand(player, command)
    local allow = nil
    local cmd = tokenizecmdstring(command)
    local tokencount = #cmd
    if tokencount > 0 then

        if cmd[1] == "sv_map_reset" then
            map_reset = true
            ScriptLoad()
            allow = true

        elseif cmd[1] == "sv_script_reload" then
            map_reset = true
            ScriptLoad()
            allow = true
        end

    end
    return allow
end

function GetGameAddresses(game)
    if game == "PC" or GAME == "PC" then
        map_name = readstring(0x698F21)
        network_base = 0x745BA8
    else
        map_name = readstring(0x61D151)
        network_base = 0x6C7988
    end
end

function OnPlayerJoin(player)
    if getplayer(player) then
        cur_players = cur_players + 1
        announce = registertimer(20000, "announcement", player)
    end
end

function OnPlayerLeave(player)
    if getplayer(player) then
        cur_players = cur_players - 1
    end
end

function announcement(id, count, player)
    if getplayer(player) and game_started then
        privatesay(player, "Map skip voting is enabled (Rock-the-Vote). Type SKIP or RTV to vote to skip the map.")
    end
    return false
end

function OnServerChat(player, type, message)
    if player then
        name = getname(player)
        hash = gethash(player)
    end

    local t = tokenizestring(message, " ")
    local count = #t
    if t[1] == nil then
        return true
    end

    if string.lower(t[1]) == "rtv" or string.lower(t[1]) == "skip" then
        if count == 1 and rockthevote[map_name] then
            if rtv_initiated >= 0 then
                local rtv_count = 0
                local rtv_number = round(cur_players * rtv_required[map_name], 0)
                for i = 0,15 do
                    if getplayer(i) then
                        if rtv_table[gethash(i)] == 1 then
                            rtv_count = rtv_count + 1
                        end
                    end
                end
                if rtv_count == 0 then
                    rtv_initiated = 1
                    rtv_table[hash] = 1
                    rtv_count = rtv_count + 1
                    say(name .. " has voted to skip this map! Type \"rtv\" or \"skip\" to join the vote to skip this map.")
                    say(rtv_count .. " of " .. rtv_number .. " votes required to skip this map.")
                    rtvtimer = registertimer(120000, "rtvTimer") -- two minutes before vote expires
                else
                    if rtv_table[hash] == 1 then
                        privatesay(player, "You have already voted.")
                    elseif rtv_table[hash] == nil then
                        rtv_table[hash] = 1
                        rtv_count = rtv_count + 1
                        say(name .. " has voted to skip this map! Type \"rtv\" or \"skip\" to join the vote to skip this map.")
                        say(rtv_count .. " of " .. rtv_number .. " votes required to skip this map.")
                    end
                end
                if rtv_count >= rtv_number then
                    removetimer(rtvtimer)
                    rtvtimer = nil
                    rtv_initiated = rtv_timeout
                    say("The number of required votes to skip this map has been reached. Skipping to next map.")
                    svcmd("sv_map_next")
                end
            else
                privatesay(player, "You cannot initiate a vote a this time.")
            end
            return false
        elseif count == 1 and not rockthevote[map_name] then
            privatesay(player, "Voting is disabled for this map.")
            return false
        end
    end

    return nil
end

function OnGameEnd(stage)
    if stage == 1 then
        game_started = false
        if rtvtimer then
            removetimer(rtvtimer)
            rtvtimer = nil
        end
        if announce then
            --removetimer(announce)
            announce = nil
        end
        rtv_initiated = -1
    end
end

function rtvTimer(id, count)
    if count == 1 then
        rtv_initiated = rtv_timeout
        rtv_table = {}
        say("The current vote to skip the map has expired!")
        return false
    else
        return true
    end
end

function round(num)
    under = math.floor(num)
    upper = math.floor(num) + 1
    underV = -(under - num)
    upperV = upper - num
    if (upperV > underV) then
        return under
    else
        return upper
    end
end

--[[ Created by H® Shaft. Original by various contributors, Wizard, Chalonic, CE=Chris
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
]]