Gun-Game v2 for Pit V2 for Phasor v2+

--[[ ### Gun-Game v2 for Pit V2   ###]]--
--[[ ###  by H® Shaft for Phasor v2    ###]]--


-- Script designed specifically and only for the Halo CE map Pit V2: Link: http://hce.halomaps.org/index.cfm?fid=6751
-- GUN GAME: Based on the Counter Strike game called 'Gun Game.' Also, derivatives known as 'Global Offensive' & 'Arsenal: Arms Race'

-- Each time you kill with a weapon, you will be given a new weapon. (oddball and flag excluded weapons)
-- The first person to kill with each weapon in the game - wins!
-- There are 15 weapons. Starting with Spike Bat and ending with a Pistol. All weapons have infinite ammo.
-- When you kill another player, you will only advance if you survive the kill.  If you die during the kill, you don't advance.
-- Other weapons, grenades are blocked.  Vehicle gun and collision damage are blocked.
-- Melee is instant kill, and WILL advance your level.
-- If you are on level 15, and get killed by another player, betray or suicide, you go down one level.
-- Beserk Mode: When reaching level 15, you activate 'Beserk Mode' which temporarily speeds up all other players and heals the injured.
-- Your player speed is based on your weapon: With a strong weapon, you move slower than you will with a weaker weapon.

-- edit --
logging = false             -- | true enable full script game logging, false to disable and on function ScriptLoad() - can be spammy to the log, best used for tournaments/scrims/debugging
-- don't edit --
team_play = false
map_reset = false
showtargets = nil
roaming_targets = true
weapons = {}
level = {}
last_damage = {}
team_change = {}
mybattery = {}
meleekills = {}
playerscore = {}
teamscore = {}
shotgun_clip = 12
spiker_clip = 40
sniper_clip = 4
smg_clip = 60
arifle_clip = 32
flamer_clip = 200
bruteshot_clip = 6
needler_clip = 40
pistol_clip = 10
rocket_clip = 2
pistol_clip = 12
battery = 0
timerCount = 0
to_win = 1000
cur_players = 0

-- prefix globals
default_script_prefix = "\171GunGame\187  "
phasor_privatesay = privatesay
phasor_say = say

function GetRequiredVersion()
    return 200
end

function OnScriptLoad(process, game, persistent)
    GAME = game
    GetGameAddresses(game)
    processid = process
    Persistent = persistent
    ScriptLoad()
    LoadTags()
end

function OnScriptUnload()
    writedword(ctf_score_patch, 0xFFFDE9E8)
    writebyte(ctf_score_patch1, 0xFF)
    writebyte(slayer_score_patch, 0x74)
    writebyte(slayer_score_patch2, 0x75)
end

function OnNewGame(map)
    ScriptLoad()
    team_play = getteamplay()
    gametype = readbyte(gametype_base + 0x30)
    game_started = false
    LoadTags()
    spawnhp = registertimer(90000, "SpawnHP") -- update coordinates
    if not new_game_timer then
        new_game_timer = registertimer(0, "NewGameTimer")
    end
end

function ApplyPatches()
    writedword(ctf_score_patch, 0x90909090)
    writebyte(ctf_score_patch1, 0x90)
    writebyte(slayer_score_patch, 0xEB)
    writebyte(slayer_score_patch2, 0xEB)
end

function ScriptLoad()
    if Persistent then
        -- edit --
        logging = false             -- | true enable full script game logging, false to disable - can be spammy to the log, best used for tournaments/scrims/debugging
        -- don't edit --
        game_started = false
        team_play = false
        beserk = false
        weapons = {}
        level = {}
        last_damage = {}
        team_change = {}
        mybattery = {}
        meleekills = {}
        playerscore = {}
        teamscore = {}
        shotgun_clip = 12
        spiker_clip = 40
        sniper_clip = 4
        smg_clip = 60
        arifle_clip = 32
        flamer_clip = 200
        bruteshot_clip = 6
        needler_clip = 40
        pistol_clip = 10
        rocket_clip = 2
        pistol_clip = 12
        battery = 0
        timerCount = 0
        to_win = 1000
        cur_players = 0
        roaming_targets = false

        if new_game_timer == nil then
            new_game_timer = registertimer(0, "NewGameTimer")
        end
    end

    GetGameAddresses(game)
    showtargets = nil
    game_started = false
    team_play = false
    team_play = getteamplay()
    gametype = readbyte(gametype_base + 0x30)
    LoadTags()

    for i = 0,15 do
        if getplayer(i) then
            local hash = gethash(i)
            last_damage[hash] = nil
            mybattery[i] = 1
            weapons[i] = "weapons\\spikebat\\spikebat" -- Spike Bat Home Wrecker
            level[i] = 1
            playerscore[i] = 0
            team_change[i] = false
            cur_players = cur_players + 1
        end
    end

    if gametype ~= 5 and cur_players > 2 then
        roaming_targets = true
        showtargets = registertimer(250, "ShowTargets")
    end

    if gametype == 3 or gametype == 5 then
        for i=0,15 do
            if getplayer(i) then
                privatesay(i, "Race and Oddball are not compatible with Gun-Game. ", false)
            end
        end
        log_msg(4, "##GUN-GAME## Race and Oddball are NOT compatible with Gun-Game: try CTF, Slayer & KOTH.") -- log error in scripts log
        log_msg(1, "##GUN-GAME## Race and Oddball are NOT compatible with Gun-Game: try CTF, Slayer & KOTH.") -- log error in game log
    else
        game_started = false
        if new_game_timer == nil then
            new_game_timer = registertimer(0, "NewGameTimer")
        end
    end

end

function OnPlayerJoin(player)
    if getplayer(player) then
        local name = getname(player)
        cur_players = cur_players + 1
        mybattery[player] = 1
        weapons[player] = "weapons\\spikebat\\spikebat" -- Spike Bat Home Wrecker
        level[player] = 1
        playerscore[player] = 0
        team_change[player] = false
        welcome = registertimer(9000, "Welcome", player)
        if game_started and team_play and cur_players > 3 then Balance_Teams() end
        if game_started and cur_players > 2 and roaming_targets and not showtargets then
            if gametype ~= 5 then
                showtargets = registertimer(250, "ShowTargets")
            end
        end
        if logging then log_msg(1, name .. " given Spike Bat on spawn.") end
    end
end

function Welcome(id, count, player)
    if count == 1 then
        if getplayer(player) then
            sendconsoletext(player, "Welcome to Gun-Game Arms Race for The Pit V2!", 8, 0)
            sendconsoletext(player, "Each time you kill with a weapon, you will be given a new weapon.", 8, 0)
            sendconsoletext(player, "The first person to kill with every weapon in the game - wins!", 8, 0)
            sendconsoletext(player, "There are 15 weapons, good luck!  type @help for more info.", 8, 0)
        end
    end
    return false
end

function SpawnHP(id, count)
    if game_started then
        if count == 1 or count == 5 or count == 15 then
            local hp_1 = createobject(gettagid("eqip", "powerups\\health pack"), 0, 90, true, -10.44, -102.58, 1.10)
            local hp_2 = createobject(gettagid("eqip", "powerups\\health pack"), 0, 90, true, 23.60, -115.62, 0.70)
            local hp_3 = createobject(gettagid("eqip", "powerups\\health pack"), 0, 90, true, 7.915, -132.47, 0.70)
            local hp_4 = createobject(gettagid("eqip", "powerups\\health pack"), 0, 90, true, -27.17, -108.94, 3.80)
        end
    end
    return true
end

function OnPlayerLeave(player)
    if getplayer(player) then
        cur_players = cur_players - 1
        if level[player] == 9 then
            beserk = false
        end
        mybattery[player] = {}
        team_change[player] = {}
        weapons[player] = {}
        level[player] = {}
        playerscore[player] = 0
        if game_started and team_play and cur_players > 3 then Balance_Teams() end
        if cur_players < 3 and showtargets then
            showtargets = nil
        end
    end
end

function OnPlayerSpawn(player, m_objectId)
    if getplayer(player) then
        local hash = gethash(player)
        last_damage[hash] = nil
        team_change[player] = false
        ChangeFFAColor(player)
        if game_started then
            gameweap = registertimer(0, "AssignGameWeapons", player)
        end
    end
end

function ChangeFFAColor(player)
    if getplayer(player) then
        local m_objectId = getplayerobjectid(player)
        if m_objectId then
            local m_object = getobject(m_objectId)
            if m_object then
                local m_player = getplayer(player)
                local color = getrandomnumber(1, 18)
                writeword(m_player + 0x60, color)
            end
        end
    end
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
            showtargets = nil
            ScriptLoad()
            privatesay(player, "**RESET** The game has been reset and scripts reloaded. ")
            if logging then log_msg(1, getname(player) .. " used sv_map_reset command.") end
            for i=0,15 do
                if getplayer(i) then
                    kill(i)
                    privatesay(i, "The game has been reset. ")
                end
            end
            allow = true

        elseif cmd[1] == "sv_script_reload" then
            map_reset = true
            showtargets = nil
            writedword(gametime_base + 0x10, 0)
            ScriptLoad()
            privatesay(player, "**RELOAD** The game has been reset and scripts reloaded. ")
            if logging then log_msg(1, getname(player) .. " used sv_script_reload command.") end
            for i=0,15 do
                if getplayer(i) then
                    kill(i)
                    privatesay(i, "The game has been reset. ")
                end
            end
            allow = true
        end

    end
    return allow
end

function NewGameTimer(id, count)
    if map_reset == true then
        if team_play and cur_players > 3 then Balance_Teams() end
        map_reset = false
    end

    game_started = true
    team_play = getteamplay()
    cur_players = readword(network_base, 0x1A0)

    if team_play then
        teamscore[0] = 0
        teamscore[1] = 0
        for i=0,15 do
            if getplayer(i) then
                cur_players = cur_players + 1
            end
        end
        if not autobalance and game_started and cur_players > 3 then
            autobalance = registertimer(60000, "AutoBalance")
        end
    end

    if Persistent then
        log_msg(1, "Gun-Game has begun on " .. map_name .. " and running as a persistent script.")
    else
        log_msg(1, "Gun-Game has begun on " .. map_name .. " and running as a non-persistent script.")
    end

    for x = 0,15 do
        if getplayer(x) then
            local hash = gethash(x)
            local name = getname(x)
            local m_objectId = getplayerobjectid(x)
            last_damage[hash] = nil
            team_change[x] = false
            mybattery[x] = 0
            weapons[x] = "weapons\\spikebat\\spikebat" -- Spike Bat Home Wrecker
            level[x] = 1
            playerscore[x] = 0
            speedtimer = registertimer(2000, "SpeedTimer", x)

            if m_objectId ~= nil then
                local m_object = getobject(m_objectId)
                if m_object then
                    for i = 0,3 do
                        local weapID = readdword(getobject(m_objectId), 0x2F8 + i*4)
                        if weapID ~= 0xFFFFFFFF then
                            destroyobject(weapID)
                        end
                    end
                    writebyte(m_object + 0x31E, 0)
                    writebyte(m_object + 0x31F, 0)
                end

                if level[x] == 1 then
                    battery = 0
                    weapons[x] = "weapons\\spikebat\\spikebat" -- Spike Bat Home Wrecker
                    sendconsoletext(x, "Level 1:   Spike Bat - Speed: 150%", 5, 0)
                    if m_object then
                        writebyte(m_object + 0x31E, 2)
                        writebyte(m_object + 0x31F, 0)
                    end
                end

                local m_weaponId = createobject(gettagid("weap", weapons[x]), 0, 20, false, 0, 0, 0)

                if m_weaponId then
                    local m_weapon = getobject(m_weaponId)
                    if m_weapon then
                        assignweapon(x, m_weaponId)
                        if logging then log_msg(1, name .. " given Spike Bat, 2 plasma on new game.")   end
                        if m_weapon then
                            mybattery[x] = 1
                        end
                    end
                end

            end
        end

        if not updatescores and game_started then
            updatescores = registertimer(500, "Update_Scores")
        end

        if not checkbattery then
            checkbattery = registertimer(1000, "CheckBattery")
        end

    end

    new_game_timer = nil
    return false
end

function AssignGameWeapons(id, count, player)
    if map_reset == true then
        map_reset = false
    end

    local clip = 0
    local ammo = 9999

    if game_started then
        if getplayer(player) then
            local m_objectId = getplayerobjectid(player)
            local name = getname(player)
            local lvl = level[player]
            local id = resolveplayer(player)

            if m_objectId ~= nil then
                if gametype == 1 or gametype == 2 or gametype == 4 or gametype == 5 then
                    speedtimer = registertimer(0, "SpeedTimer", player)
                end

                local m_object = getobject(m_objectId)
                if m_object then
                    for i = 0,3 do
                        local weapID = readdword(getobject(m_objectId), 0x2F8 + i*4)
                        if weapID ~= 0xFFFFFFFF then
                            destroyobject(weapID)
                        end
                    end
                    writebyte(m_object + 0x31E, 0)
                    writebyte(m_object + 0x31F, 0)
                end
                if logging then log_msg(1, name .. " weapon assignment initiated - weapons & nades removed. Is level: " .. lvl) end

                if level[player] == nil then
                    level[player] = 1
                    weapons[player] = "weapons\\spikebat\\spikebat" -- Spike Bat Home Wrecker
                    sendconsoletext(player, "Level 1:   Spike Bat - Speed: 150%", 4, 0)
                    if m_object then
                        writebyte(m_object + 0x31E, 0)
                        writebyte(m_object + 0x31F, 0)
                    end
                    if logging then log_msg(1, name .. " given Needler. Is level: " .. lvl) end

                elseif level[player] == 1 then
                    weapons[player] = "weapons\\spikebat\\spikebat" -- Spike Bat Home Wrecker
                    sendconsoletext(player, "Level 1:  Spike Bat - Speed: 150%", 4, 0)
                    if m_object then
                        writebyte(m_object + 0x31E, 0)
                        writebyte(m_object + 0x31F, 0)
                    end
                    if logging then log_msg(1, name .. " given Spike Bat. Is level: " .. lvl) end

                elseif level[player] == 2 then
                    clip = shotgun_clip
                    weapons[player] = "cmt\\weapons\\human\\shotgun\\shotgun" -- Shotgun
                    sendconsoletext(player, "Level 2:   Shotgun - Speed: 110%", 4, 0)
                    health = registertimer(0, "ApplyHP", player)
                    if m_object then
                        writebyte(m_object + 0x31E, 2)
                        writebyte(m_object + 0x31F, 0)
                    end
                    if logging then log_msg(1, name .. " given Shotgun, 2 frag. Health bonus. Is level: " .. lvl) end

                elseif level[player] == 3 then
                    clip = spiker_clip
                    weapons[player] = "cmt\\weapons\\covenant\\spiker\\spiker" -- Brute Spiker
                    sendconsoletext(player, "Level 3:   Brute Spiker - Speed: 100%", 4, 0)
                    if m_object then
                        writebyte(m_object + 0x31E, 0)
                        writebyte(m_object + 0x31F, 2)
                    end
                    if logging then log_msg(1, name .. " given Brute Spiker, 2 plasma. Is level: " .. lvl)  end

                elseif level[player] == 4 then
                    weapons[player] = "cmt\\weapons\\covenant\\plasma_rifle\\plasma rifle" -- Plasma Rifle
                    sendconsoletext(player, "Level 4:   Plasma Rifle - Speed: 130%", 4, 0)
                    if m_object then
                        writebyte(m_object + 0x31E, 0)
                        writebyte(m_object + 0x31F, 0)
                    end
                    if logging then log_msg(1, name .. " given Plasma Rifle. Is level: " .. lvl) end

                elseif level[player] == 5 then
                    clip = sniper_clip
                    weapons[player] = "cmt\\weapons\\human\\sniper_v2\\sniper_v2" -- Sniper Rifle
                    sendconsoletext(player, "Level 5:   Sniper Rifle - Speed: 75%", 4, 0)
                    health = registertimer(0, "ApplyHP", player)
                    if m_object then
                        writebyte(m_object + 0x31E, 0)
                        writebyte(m_object + 0x31F, 0)
                    end
                    if logging then log_msg(1, name .. " given Sniper Rifle. Is level: " .. lvl) end

                elseif level[player] == 6 then
                    clip = smg_clip
                    weapons[player] = "cmt\\weapons\\human\\smg\\smg" -- SMG
                    sendconsoletext(player, "Level 6:   SMG - Speed: 100%", 4, 0)
                    if m_object then
                        writebyte(m_object + 0x31E, 2)
                        writebyte(m_object + 0x31F, 0)
                    end
                    if logging then log_msg(1, name .. " given SMG, 2 frags. Is level: " .. lvl) end

                elseif level[player] == 7 then
                    clip = arifle_clip
                    weapons[player] = "cmt\\weapons\\human\\assault_rifle\\assault rifle cc" -- Assault Rifle
                    sendconsoletext(player, "Level 7:   Assault Rifle - Speed: 110%", 4, 0)
                    if m_object then
                        writebyte(m_object + 0x31E, 1)
                        writebyte(m_object + 0x31F, 1)
                    end
                    if logging then log_msg(1, name .. " given Assault Rifle, 1 frag, 1 plasma. Is level: " .. lvl) end

                elseif level[player] == 8 then
                    clip = flamer_clip
                    weapons[player] = "cmt\\weapons\\human\\flamethrower\\flamethrower" -- Flamethrower
                    sendconsoletext(player, "Level 8:   Flamethrower - Speed: 85%", 4, 0)
                    if m_object then
                        writebyte(m_object + 0x31E, 0)
                        writebyte(m_object + 0x31F, 0)
                    end
                    health = registertimer(0, "ApplyHP", player)
                    if logging then log_msg(1, name .. " given Flamethrower Is level: " .. lvl) end

                elseif level[player] == 9 then
                    clip = pistol_clip
                    weapons[player] = "reach\\weapons\\magnum\\magnum" -- Magnum Pistol
                    sendconsoletext(player, "Level 9:   Magnum Pistol - Speed: 125%", 4, 0)
                    if m_object then
                        writebyte(m_object + 0x31E, 0)
                        writebyte(m_object + 0x31F, 0)
                    end
                    if logging then log_msg(1, name .. " given Magnum Pistol Is level: " .. lvl) end

                elseif level[player] == 10 then
                    clip = bruteshot_clip
                    weapons[player] = "cmt\\weapons\\covenant\\brute_shot\\brute_shot_6" -- Brute Shot
                    sendconsoletext(player, "Level 10:   Brute Shot - Speed: 100%", 4, 0)
                    if m_object then
                        writebyte(m_object + 0x31E, 0)
                        writebyte(m_object + 0x31F, 0)
                    end
                    if logging then log_msg(1, name .. " given Brute Shot Is level: " .. lvl) end

                elseif level[player] == 11 then
                    weapons[player] = "weapons\\energy_sword\\energy_sword" -- Energy Sword
                    sendconsoletext(player, "Level 11:   Energy Sword - Speed: 150%", 4, 0)
                    if m_object then
                        writebyte(m_object + 0x31E, 0)
                        writebyte(m_object + 0x31F, 0)
                    end
                    if logging then log_msg(1, name .. " given Energy Sword Is level: " .. lvl) end
                    health = registertimer(0, "ApplyHP", player)
                    applycamo(player, 180)
                    sendconsoletext(player, "You are Invisible!", 5, 0)

                elseif level[player] == 12 then
                    clip = needler_clip
                    weapons[player] = "cmt\\weapons\\covenant\\needler\\needler blue" -- Needler
                    sendconsoletext(player, "Level 12:   Needler - Speed: 85%", 4, 0)
                    if m_object then
                        writebyte(m_object + 0x31E, 1)
                        writebyte(m_object + 0x31F, 1)
                    end
                    applycamo(player, 1)
                    if logging then log_msg(1, name .. " given Needler, 1 frag, 1 plasma. Is level: " .. lvl) end

                elseif level[player] == 13 then
                    clip = rocket_clip
                    weapons[player] = "cmt\\weapons\\human\\rocket_launcher\\rocket launcher mp" -- Rocket Launcher
                    sendconsoletext(player, "Level 13:   Rocket Launcher - Speed: 75%", 4, 0)
                    if m_object then
                        writebyte(m_object + 0x31E, 0)
                        writebyte(m_object + 0x31F, 0)
                    end
                    if logging then log_msg(1, name .. " given Rocket Launcher Is level: " .. lvl) end

                elseif level[player] == 14 then
                    clip = pistol_clip
                    weapons[player] = "cmt\\weapons\\human\\spec pistol\\spec_pistol" -- Spec Pistol
                    sendconsoletext(player, "Level 14:    Spec Pistol - Speed: 95%", 4, 0)
                    sendconsoletext(player, "Final Level, Either win the game, or get demoted!", 4, 0)
                    say(name .. " has reached Final Level! Gang-up on 'em before it's too late!")
                    if m_object then
                        writebyte(m_object + 0x31E, 0)
                        writebyte(m_object + 0x31F, 0)
                    end
                    if logging then log_msg(1, name .. " given Spec Pistol, and booster function called. Is level: " .. level[player]) end
                end
                --Health Booster call for all but level 13
                for i=0,15 do
                    if getplayer(i) then
                        local name = getname(i)
                        local lvl = level[i]
                        local p_objectId = getplayerobjectid(i)
                        if p_objectId ~= nil then
                            if lvl <= 13 then
                                local p_object = getobject(p_objectId)
                                local obj_health = readfloat(p_object + 0xE0)
                                if obj_health < 1 then
                                    p_objectId = registertimer(0, "Booster", {i, m_objectId})
                                end
                            end
                        end
                    end
                end

                local m_weaponId = createobject(gettagid("weap", weapons[player]), 0, 20, false, 0, 0, 0)

                if m_weaponId then
                    local m_weapon = getobject(m_weaponId)
                    assignweapon(player, m_weaponId)
                    if m_weapon then
                        if (level[player] == 4) then
                            mybattery[player] = 1
                        else
                            writeword(m_weapon + 0x2B6, ammo)
                            writeword(m_weapon + 0x2B8, clip)
                            updateammo(m_weaponId)
                        end
                    end
                end
            end
        end
    end
    return false
end

function OnWeaponReload(player, weapon)
    local reload = nil
        if getplayer(player) then
            local m_player = getplayer(player)
            local m_objectId = readdword(m_player + 0x34)
            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)
                    local weapname = gettaginfo(readdword(m_weapon))
                    if m_weapon then
                        if weapname == "cmt\\weapons\\covenant\\spiker\\spiker" then
                            writeword(getobject(weapon) + 0x2B8, spiker_clip)
                            updateammo(weapon)
                            reload = false
                        elseif weapname == "cmt\\weapons\\covenant\\needler\\needler blue" then
                            writeword(getobject(weapon) + 0x2B8, needler_clip)
                            updateammo(weapon)
                            reload = false
                        else
                            reload = true
                        end
                    end
                end
            end
        end
    return reload
end

function CheckBattery(id, count, player)
    -- checks battery level for plasma weapons and assigns replacement if low battery: plasma pistol, plasma rifle and plasma cannon
    for i = 0,15 do
        if getplayer(i) then
            if mybattery[i] == 1 then
                local name = getname(i)
                local lvl = level[i]
                local m_objectId = getplayerobjectid(i)
                if m_objectId ~= nil 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
                                if readfloat(m_weapon + 0x240) >= 0.84 then
                                    destroyplayerweaps(i)
                                    replaceplasmaweap = registertimer(0, "ReplacePlasmaWeap", i)
                                    if logging then log_msg(1, name .. " has a low battery on battery check. Is level: " .. lvl) end
                                end
                            end
                        end
                    end
                end
            end
        end
    end
    return true
end

function ReplacePlasmaWeap(id, count, player)
    -- replaces low battery plasma weapons
    if count == 1 then
        if player ~= nil and game_started then
            local name = getname(player)
            local lvl = level[player]
            if mybattery[player] == 1 then
                local m_weaponId = registertimer(0, "AssignGameWeapons", player)
                if logging then log_msg(1, name .. " was given assigment to replace plasma weapon. Is level: " .. lvl) end
                privatesay(player, "Battery recharged.")
                mybattery[player] = 0
            end
        end
    end
    return false
end

function Update_Scores(id, count)
    -- continuous score updating, not conditioned to game_started, updates negative values to 0 to prevent sabotage
    if not team_play then
        for i = 0,15 do
            if getplayer(i) then
                if playerscore[i] == nil or playerscore[i] < 0 then playerscore[i] = 0 end
                Write_Player_Score(i, playerscore[i])
            end
        end
    else
        for i = 0,15 do
            if getplayer(i) then
                if playerscore[i] == nil or playerscore[i] < 0 then playerscore[i] = 0 end
                Write_Player_Score(i, playerscore[i])
            end
        end
        if teamscore[0] == nil or teamscore[0] < 0 then teamscore[0] = 0 end
        if teamscore[1] == nil or teamscore[1] < 0 then teamscore[1] = 0 end
        Write_Team_Score(0, teamscore[0])
        Write_Team_Score(1, teamscore[1])
    end
    return true
end

function Write_Player_Score(player, score)
    -- writes the players score
    if gametype == 1 then
        if player then
            local m_player = getplayer(player)
            writeword(m_player + 0xC8, score)
        end
    elseif gametype == 2 then
        if player then
            local m_player = getplayer(player)
            writedword(slayer_globals + 0x40 + player*4, score)
        end
    elseif gametype == 5 then
        if player then
            local m_player = getplayer(player)
            writeword(m_player + 0xC6, 0x0, score)
        end
    end
end

function Write_Team_Score(team, score)
    -- writes the team score
    if gametype == 1 then
        writedword(ctf_globals + team*4 + 0x10, score)
    elseif gametype == 2 then
        writedword(slayer_globals + team*4, score)
    elseif gametype == 5 then
        if team == 0 then
            writedword(team_race_scores + 0x0, score)
        elseif team == 1 then
            writedword(team_race_scores + 0x4, score)
        end
    end
end

function GetGameAddresses(game)
    if game == "PC" or GAME == "PC" then
        map_name = readstring(0x698F21)
        gametype_base = 0x671340
        network_base = 0x745BA8
        gametime_base = 0x671420
        gametype_name = readwidestring(gametype_base)
        team_race_scores = 0x63A028
        race_globals = 0x639FA0
        ctf_globals = 0x639B98
        ctf_score_patch = 0x488602
        ctf_score_patch1 = 0x488606
        slayer_globals = 0x63A0E8
        slayer_score_patch = 0x48F428
        slayer_score_patch2 = 0x48F23E
    else
        map_name = readstring(0x61D151)
        gametype_base = 0x5F5498
        network_base = 0x6C7988
        gametime_base = 0x5F55BC
        gametype_name = readwidestring(gametype_base)
        team_race_scores = 0x5BD028
        race_globals = 0x5BDFC0
        ctf_globals = 0x5BDBB8
        ctf_score_patch = 0x463472
        ctf_score_patch1 = 0x463476
        slayer_globals = 0x5BE108
        slayer_score_patch = 0x469CF8
        slayer_score_patch2 = 0x4691CE
    end
end

function getteamplay()
    if readbyte(gametype_base + 0x34) == 1 then
        to_win = 75
        return true
    else
        to_win = 50
        return false
    end
end

function privatesay(player, message, script_prefix)
    if GAME == "PC" then
        phasor_privatesay(player, (script_prefix or default_script_prefix) .. " " .. message, false)
    else
        phasor_privatesay(player, message, false)
    end
end

function say(message, script_prefix)
    if GAME == "PC" then
        phasor_say((script_prefix or default_script_prefix) .. " " .. message, false)
    else
        phasor_say(message, false)
    end
end

function getweaponobjectid(player, slot)
    local m_objectId = getplayerobjectid(player)
    if m_objectId then return readdword(getobject(m_objectId) + 0x2F8 + slot*4) end
end

function destroyplayerweaps(player)
    for i=0,3 do
        local weap_id = getweaponobjectid(player, i)
        if weap_id ~= 0xFFFFFFFF then destroyobject(weap_id) end
    end
end

function Booster(id, count, arg)
    if count == 1 and game_started then
        local player = arg[1]
        if getplayer(player) then
            local name = getname(player)
            local lvl = level[player]
            local m_playerObjId = getplayerobjectid(player)
            if m_playerObjId ~= nil and lvl <= 14 then
                local m_object = getobject(m_playerObjId)
                local obj_health = readfloat(m_object + 0xE0)
                if obj_health < 1 then
                    writefloat(m_object + 0xE0, 1)
                    sendconsoletext(player, "Bonus! Health restored!", 5, 0)
                    if logging then log_msg(1, name .. " health restored from booster function. Is level: " .. lvl) end
                end
            end
        end
    end
    return false
end

function SpeedTimer(id, count, player)
    if player then
        local name = getname(player)
        local lvl = level[player]
        if level[player] == 1 then
            if beserk then
                setspeed(player, 1.5)
                sendconsoletext(player, "BESERK MODE!", 4, 1)
            else
                setspeed(player, 1.5) -- Spike Bat
            end
            if logging then log_msg(1, name .. " speed set at 1.5. Is level: " .. lvl) end
        elseif level[player] == 2 then
            if beserk then
                setspeed(player, 1.5)
                sendconsoletext(player, "BESERK MODE!", 4, 1)
            else
                setspeed(player, 1.10) -- Shotgun
            end
            if logging then log_msg(1, name .. " speed set at 1.25. Is level: " .. lvl) end
        elseif level[player] == 3 then
            if beserk then
                setspeed(player, 1.5)
                sendconsoletext(player, "BESERK MODE!", 4, 1)
            else
                setspeed(player, 1) -- Brute Spiker
            end
            if logging then log_msg(1, name .. " speed set at 1. Is level: " .. lvl) end
        elseif level[player] == 4 then
            if beserk then
                setspeed(player, 1.5)
                sendconsoletext(player, "BESERK MODE!", 4, 1)
            else
                setspeed(player, 1.3) -- Plasma Rifle
            end
            if logging then log_msg(1, name .. " speed set at 1.3. Is level: " .. lvl) end
        elseif level[player] == 5 then
            if beserk then
                setspeed(player, 1.5)
                sendconsoletext(player, "BESERK MODE!", 4, 1)
            else
                setspeed(player, 0.75) -- Sniper Rifle
            end
            if logging then log_msg(1, name .. " speed set at 0.75. Is level: " .. lvl) end
        elseif level[player] == 6 then
            if beserk then
                setspeed(player, 1.5)
                sendconsoletext(player, "BESERK MODE!", 4, 1)
            else
                setspeed(player, 1) -- SMG
            end
            if logging then log_msg(1, name .. " speed set at 1. Is level: " .. lvl) end
        elseif level[player] == 7 then
            if beserk then
                setspeed(player, 1.5)
                sendconsoletext(player, "BESERK MODE!", 4, 1)
            else
                setspeed(player, 1.1) -- Assault Rifle
            end
            if logging then log_msg(1, name .. " speed set at 1.1. Is level: " .. lvl) end
        elseif level[player] == 8 then
            if beserk then
                setspeed(player, 1.5)
                sendconsoletext(player, "BESERK MODE!", 4, 1)
            else
                setspeed(player, 0.85) -- Flamethrower
            end
            if logging then log_msg(1, name .. " speed set at 0.85. Is level: " .. lvl) end
        elseif level[player] == 9 then
            if beserk then
                setspeed(player, 1.5)
                sendconsoletext(player, "BESERK MODE!", 4, 1)
            else
                setspeed(player, 1.25) -- Magnum Pistol
            end
            if logging then log_msg(1, name .. " speed set at 1.25. Is level: " .. lvl) end
        elseif level[player] == 10 then
            if beserk then
                setspeed(player, 1.5)
                sendconsoletext(player, "BESERK MODE!", 4, 1)
            else
                setspeed(player, 1) -- Brute Shot
            end
            if logging then log_msg(1, name .. " speed set at 1. Is level: " .. lvl) end
        elseif level[player] == 11 then
            if beserk then
                setspeed(player, 1.5)
                sendconsoletext(player, "BESERK MODE!", 4, 1)
            else
                setspeed(player, 1.5) -- Energy Sword
            end
            if logging then log_msg(1, name .. " speed set at 1.5. Is level: " .. lvl) end
        elseif level[player] == 12 then
            if beserk then
                setspeed(player, 1.5)
                sendconsoletext(player, "BESERK MODE!", 4, 1)
            else
                setspeed(player, 1.10) -- Needler
            end
            if logging then log_msg(1, name .. " speed set at 0.85. Is level: " .. lvl) end
        elseif level[player] == 13 then
            if beserk then
                setspeed(player, 1.5)
                sendconsoletext(player, "BESERK MODE!", 4, 1)
            else
                setspeed(player, 0.75) -- Rocket Launcher
            end
            if logging then log_msg(1, name .. " speed set at 0.75. Is level: " .. lvl) end
        elseif level[player] == 4 then
            if beserk then
                setspeed(player, 1.5)
                sendconsoletext(player, "BESERK MODE!", 4, 1)
            else
                setspeed(player, 0.95) -- Spec Pistol
            end
            if logging then log_msg(1, name .. " speed set at 0.95. Is level: " .. lvl) end
        end
    end
    return false
end

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

    if player then
        name = getname(player)

        if string.lower(message) == "help" or string.lower(message) == "@help" or string.lower(message) == "/help" then
            privatesay(player, "Each time you kill with a weapon, you will be given a new weapon.")
            privatesay(player, "The first person to kill with each weapon in the game - wins!")
            privatesay(player, "There are 15 weapons. Starting with Spike Bat and ending with Spec Pistol.")
            privatesay(player, "Other weapons & grenades are blocked, vehicle damage and vehicle guns are blocked")
            privatesay(player, "If you are on level 15, and get killed, you go down one level.")
            say(name .. " is reading the @help menu. ")
            response =  false
        end

        if string.lower(message) == "balance" then
            if isadmin(player) then
                balance = registertimer(50, "Balance_Teams")
            end
            response = false
        end

    end
    return response
end

function OnPlayerKill(killer, victim, mode)
    local response = false

    if game_started then
        mybattery[victim] = 0

        if mode == 0 then -- player was killed by server
            if getplayer(victim) then
                if team_change[victim] then
                    response = false
                else
                    vlvl = level[victim]
                    vname = getname(victim)
                    vhash = gethash(victim)
                    privatesay(victim, "You were killed by the server.")
                    if logging then log_msg(1, vname .. " was killed by the server. Is level: " .. vlvl) end
                    response = false
                end
                response = false
            end

        elseif mode == 1 then -- player was killed by falling or team-change
            if getplayer(victim) then
                vlvl = level[victim]
                vname = getname(victim)
                vhash = gethash(victim)
                if not team_change[victim] and not map_reset then
                    if last_damage[vhash] == "globals\\falling" or last_damage[vhash] == "globals\\distance" then
                        say(vname .. " fell and died.")
                        if logging then log_msg(1, vname .. " was killed by fall damage. Is level: " .. vlvl) end
                        response = false
                    end
                elseif team_change[victim] and map_reset then
                    team_change[victim] = false
                    if logging then log_msg(1, vname .. " was killed by team change. Is level: " .. vlvl) end
                    response = false
                end
            end

        elseif mode == 2 then -- player was killed by the guardians
            if getplayer(victim) then
                vlvl = level[victim]
                vname = getname(victim)
                vhash = gethash(victim)
                say(vname .. " was killed by the guardians. ", false)
                if logging then log_msg(1, vname .. " was killed by guardians. Is level: " .. vlvl) end
                response = false
            end

        elseif mode == 3 then -- player was killed by vehicle
            if getplayer(victim) then
                vlvl = level[victim]
                vname = getname(victim)
                if logging then log_msg(1, vname .. " was killed by a vehicle. Is level: " .. vlvl) end
                response = false
            end

        elseif mode == 4 then -- player was killed by another player
            if getplayer(killer) then
                klvl = level[killer]
                kname = getname(killer)
                khash = gethash(killer)
            else
                kname = "NULL"
                klvl = NULL
            end

            if getplayer(victim) then
                vlvl = level[victim]
                vname = getname(victim)
                vhash = gethash(victim)

                if vlvl == 14 then
                    privatesay(victim, "Demoted one level! Ain't that a bitch?!")
                    say(vname .. " demoted to Level 13 for getting killed.")
                    weapons[victim] = "cmt\\weapons\\human\\rocket_launcher\\rocket launcher mp" -- Rocket Launcher
                    level[victim] = 13
                    playerscore[victim] = 12
                    if logging then log_msg(1, vname .. " level 15 demoted to 14 for being killed by another player.") end
                    response = false
                end

                if last_damage[vhash] then
                    if getplayer(killer) then
                        klvl = level[killer]
                        kname = getname(killer)
                        khash = gethash(killer)
                        local k_objectId = getplayerobjectid(killer)
                        if k_objectId ~= nil then

                            -- Spike Bat
                            if weapons[killer] == "weapons\\spikebat\\spikebat" then
                                if last_damage[vhash] == "weapons\\unarmed\\melee" or last_damage[vhash] == "weapons\\energy_sword\\lunge" or last_damage[vhash] == "weapons\\unarmed\\melee" then
                                    say(kname .. " knocked out " .. vname .. " with a Spike Bat.")
                                end
                                level[killer] = 2
                                playerscore[killer] = 1
                                gameweap = registertimer(0, "AssignGameWeapons", killer)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
                                response = false

                            -- Shotgun
                            elseif weapons[killer] == "cmt\\weapons\\human\\shotgun\\shotgun" then
                                if last_damage[vhash] == "weapons\\shotgun\\pellet" then
                                    say(kname .. " killed " .. vname .. " with a Shotgun. ")
                                elseif last_damage[vhash] == "weapons\\shotgun\\melee" then
                                    say(kname .. " melee'd " .. vname .. " with a Shotgun.")
                                end
                                level[killer] = 3
                                playerscore[killer] = 2
                                gameweap = registertimer(0, "AssignGameWeapons", killer)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
                                response = false

                            -- Brute Spiker
                            elseif weapons[killer] == "cmt\\weapons\\covenant\\spiker\\spiker" then
                                if last_damage[vhash] == "cmt\\weapons\\covenant\\spiker\\projectile\\nail" then
                                    say(kname .. " killed " .. vname .. " with a Brute Spiker. ")
                                elseif last_damage[vhash] == "cmt\\weapons\\covenant\\spiker\\melee" then
                                    say(kname .. " melee'd " .. vname .. " with a Brute Spiker.")
                                end
                                level[killer] = 4
                                playerscore[killer] = 3
                                gameweap = registertimer(0, "AssignGameWeapons", killer)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
                                response = false

                            -- Plasma Rifle
                            elseif weapons[killer] == "cmt\\weapons\\covenant\\plasma_rifle\\plasma rifle" then
                                if last_damage[vhash] == "weapons\\plasma rifle\\bolt" then
                                    say(kname .. " killed " .. vname .. " with a Plasma Rifle. ")
                                elseif last_damage[vhash] == "weapons\\plasma rifle\\melee" then
                                    say(kname .. " melee'd " .. vname .. " with a Plasma Rifle.")
                                end
                                level[killer] = 5
                                playerscore[killer] = 4
                                gameweap = registertimer(0, "AssignGameWeapons", killer)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
                                response = false

                            -- Sniper Rifle
                            elseif weapons[killer] == "cmt\\weapons\\human\\sniper_v2\\sniper_v2" then
                                if last_damage[vhash] == "weapons\\sniper rifle\\sniper bullet" then
                                    say(kname .. " killed " .. vname .. " with a Sniper Rifle. ")
                                elseif last_damage[vhash] == "weapons\\sniper rifle\\melee" then
                                    say(kname .. " melee'd " .. vname .. " with a Sniper Rifle.")
                                end
                                level[killer] = 6
                                playerscore[killer] = 5
                                gameweap = registertimer(0, "AssignGameWeapons", killer)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
                                response = false

                            -- SMG
                            elseif weapons[killer] == "cmt\\weapons\\human\\smg\\smg" then
                                if last_damage[vhash] == "cmt\\weapons\\human\\smg\\bullet" then
                                    say(kname .. " killed " .. vname .. " with an SMG. ")
                                elseif last_damage[vhash] == "weapons\\assault rifle\\melee" then
                                    say(kname .. " melee'd " .. vname .. " with an SMG.")
                                end
                                level[killer] = 7
                                playerscore[killer] = 6
                                gameweap = registertimer(0, "AssignGameWeapons", killer)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
                                response = false

                            -- Assault Rifle
                            elseif weapons[killer] == "cmt\\weapons\\human\\assault_rifle\\assault rifle cc" then
                                if last_damage[vhash] == "weapons\\assault rifle\\bullet" then
                                    say(kname .. " killed " .. vname .. " with an Assault Rifle. ")
                                elseif last_damage[vhash] == "weapons\\assault rifle\\melee" then
                                    say(kname .. " melee'd " .. vname .. " with an Assault Rifle.")
                                end
                                level[killer] = 8
                                playerscore[killer] = 7
                                gameweap = registertimer(0, "AssignGameWeapons", killer)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
                                response = false

                            -- Flamethrower
                            elseif weapons[killer] == "cmt\\weapons\\human\\flamethrower\\flamethrower" then
                                if last_damage[vhash] == "weapons\\flamethrower\\effects\\flame detonation" or last_damage[vhash] == "weapons\\flamethrower\\impact damage" or last_damage[vhash] == "weapons\\flamethrower\\explosion" then
                                    say(kname .. " killed " .. vname .. " with a Flamethrower. ")
                                elseif last_damage[vhash] == "weapons\\flamethrower\\melee" then
                                    say(kname .. " melee'd " .. vname .. " with a Flamethrower.")
                                end
                                level[killer] = 9
                                playerscore[killer] = 8
                                gameweap = registertimer(0, "AssignGameWeapons", killer)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
                                response = false

                            -- Magnum Pistol
                            elseif weapons[killer] == "reach\\weapons\\magnum\\magnum" then
                                if last_damage[vhash] == "weapons\\pistol\\bullet" then
                                    say(kname .. " killed " .. vname .. " with a Magnum Pistol. ")
                                elseif last_damage[vhash] == "weapons\\pistol\\melee" then
                                    say(kname .. " melee'd " .. vname .. " with a Magnum Pistol.")
                                end
                                level[killer] = 10
                                playerscore[killer] = 9
                                gameweap = registertimer(0, "AssignGameWeapons", killer)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
                                response = false

                            -- Brute Shot
                            elseif weapons[killer] == "cmt\\weapons\\covenant\\brute_shot\\brute_shot_6" then
                                if last_damage[vhash] == "cmt\\weapons\\covenant\\brute_shot\\projectile\\effects\\explosion" or last_damage[vhash] == "cmt\\weapons\\covenant\\brute_shot\\projectile\\effects\\shockwave" or
                                last_damage[vhash] == "cmt\\weapons\\covenant\\brute_shot\\projectile\\effects\\impact" then
                                    say(kname .. " killed " .. vname .. " with a Brute Shot. ")
                                elseif last_damage[vhash] == "cmt\\weapons\\covenant\\brute_shot\\melee" then
                                    say(kname .. " melee'd " .. vname .. " with a Brute Shot.")
                                end
                                level[killer] = 11
                                playerscore[killer] = 10
                                gameweap = registertimer(0, "AssignGameWeapons", killer)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
                                response = false

                            -- Energy Sword
                            elseif weapons[killer] == "weapons\\energy_sword\\energy_sword" then
                                if last_damage[vhash] == "weapons\\unarmed\\melee" or last_damage[vhash] == "weapons\\energy_sword\\lunge" or last_damage[vhash] == "weapons\\energy_sword\\melee" then
                                    say(kname .. " gutted " .. vname .. " with an Energy Sword. ")
                                end
                                level[killer] = 12
                                playerscore[killer] = 11
                                gameweap = registertimer(0, "AssignGameWeapons", killer)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
                                response = false

                            -- Needler
                            elseif weapons[killer] == "cmt\\weapons\\covenant\\needler\\needler blue" then
                                if last_damage[vhash] == "cmt\\weapons\\covenant\\needler\\blue\\effects\\explosion" or last_damage[vhash] == "cmt\\weapons\\covenant\\needler\\impact damage"
                                or last_damage[vhash] == "cmt\\weapons\\covenant\\needler\\detonation damage" then
                                    say(kname .. " killed " .. vname .. " with a Needler. ")
                                elseif last_damage[vhash] == "cmt\\weapons\\covenant\\needler\\melee" then
                                    say(kname .. " killed " .. vname .. " with a Needler.")
                                end
                                level[killer] = 13
                                playerscore[killer] = 12
                                gameweap = registertimer(0, "AssignGameWeapons", killer)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
                                response = false

                            -- Rocket Launcher
                            elseif weapons[killer] == "cmt\\weapons\\human\\rocket_launcher\\rocket launcher mp" then
                                if last_damage[vhash] == "cmt\\weapons\\human\\rocket_launcher\\effects\\rocket_explosion" or last_damage[vhash] == "cmt\\weapons\\human\\rocket_launcher\\explosion"
                                or last_damage[vhash] == "weapons\\frag grenade\\shock wave" then
                                    say(kname .. " killed " .. vname .. " with a Rocket Launcher. ")
                                elseif last_damage[vhash] == "weapons\\rocket launcher\\melee" then
                                    say(kname .. " killed " .. vname .. " with a Rocket Launcher.")
                                end
                                beserk = true
                                level[killer] = 14
                                playerscore[killer] = 13
                                gameweap = registertimer(0, "AssignGameWeapons", killer)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
                                response = false

                            -- Spec Pistol
                            elseif weapons[killer] == "cmt\\weapons\\human\\spec pistol\\spec_pistol" then
                                if last_damage[vhash] == "weapons\\pistol\\bullet" then
                                    say(kname .. " killed " .. vname .. " with a Spec Pistol, advanced to WIN! +15 Points!")
                                elseif last_damage[vhash] == "weapons\\pistol\\melee" then
                                    say(kname .. " melee'd " .. vname .. " with a Spec Pistol, advanced to WIN! +15 Points!")
                                end
                                level[killer] = 15
                                playerscore[killer] = playerscore[killer] + 14
                                if team_play then kteam = getteam(killer) teamscore[kteam] = teamscore[kteam] + 14 end
                                gameweap = registertimer(0, "AssignGameWeapons", killer)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
                                response = false

                            -- grenades
                            elseif last_damage[vhash] == "halo3\\weapons\\frag-grenade\\spike projectile\\grenade-spike" or last_damage[vhash] == "h2\\weapons\\grenade\\fragmentation_grenade\\explosion_shock_wave"
                            or last_damage[vhash] == "weapons\\frag grenade\\explosion" or last_damage[vhash] == "weapons\\plasma grenade\\attached" or last_damage[vhash] == "weapons\\plasma grenade\\stick"
                            or last_damage[vhash] == "halo3\\weapons\\plasma-grenade\\effects\\explosion" or last_damage[vhash] == "halo3\\weapons\\plasma-grenade\\effects\\explosion_shock_wave"
                            or last_damage[vhash] == "halo3\\weapons\\plasma-grenade\\effects\\explosion_shield_skip" then
                                say(kname .. " killed " .. vname .. " with a grenade.")
                                sendconsoletext(killer, "No level advancement for grenade kills.", 4, 0)
                                if logging then log_msg(1, vname .. " was killed by " .. kname .. "'s grenade who is level: " .. klvl) end
                                response = false
                            end
                        else
                            response = false
                        end
                    end
                end
            end

        elseif mode == 5 then -- player was killed/betrayed by teammate
            if getplayer(killer) then
                klvl = level[killer]
                kname = getname(killer)
                khash = gethash(killer)
            else
                kname = "NULL"
                klvl = NULL
            end

            if getplayer(victim) then
                vlvl = level[victim]
                vname = getname(victim)
                vhash = gethash(victim)
                if getplayer(killer) then
                    klvl = level[killer]
                    kname = getname(killer)
                    khash = gethash(killer)
                    mybattery[killer] = 0

                    if klvl == 14 then
                        weapons[killer] = "cmt\\weapons\\human\\rocket_launcher\\rocket launcher mp" -- Rocket Launcher
                        privatesay(killer, "Demoted! Betrayal Karma is a bitch!")
                        say(kname .. " demoted to Level 14 for betrayal.")
                        level[victim] = 13
                        playerscore[victim] = 12
                        beserk = false
                        if logging then log_msg(1, kname .. " demoted from level 9 to 8 for betrayal. Is level: " .. klvl) end
                        response = false
                        --goto FINISHED
                    else
                        if level[killer] ~= nil and level[killer] > 1 then
                            if (level[killer] - 1) >= 1 then level[killer] = level[killer] - 1 end
                            if (playerscore[killer] - 1) >= 0 then playerscore[killer] = playerscore[killer] - 1 end
                            if team_play then if (teamscore[kteam] - 1) >= 0 then teamscore[kteam] = teamscore[kteam] - 1 end end
                            mybattery[killer] = 0
                            kill(killer)
                            say(kname .. " was killed and demoted 1 level for betraying " .. vname)
                            if logging then log_msg(1, kname .. " was killed by server for betrayal of " .. vname) end
                            response = false
                        else
                            kill(killer)
                            say(kname .. " was killed for betraying " .. vname)
                            if logging then log_msg(1, kname .. " was killed by server for betrayal of " .. vname) end
                            response = false
                        end
                        --::FINISHED::
                    end
                    response = false
                end
                response = false
            end

        elseif mode == 6 then --suicides - killer is self/victim
            if getplayer(victim) then
                vlvl = level[victim]
                vname = getname(victim)
                vhash = gethash(victim)
                vteam = getteam(victim)
                if klvl == 14 then
                    weapons[victim] = "cmt\\weapons\\human\\rocket_launcher\\rocket launcher mp" -- Rocket Launcher
                    level[victim] = 13
                    playerscore[victim] = 12
                    beserk = false
                    privatesay(victim, "Demoted a level! Ain't that a bitch?!")
                    say(kname .. " demoted to Level 13 for suicide.")
                    if logging then log_msg(1, kname .. " demoted from level 15 to 14 for suicide. Is level: " .. klvl) end
                    response = false
                else -- one level drop here
                    if level[victim] ~= nil and level[victim] > 1 then
                        if (level[victim] - 1) >= 1 then level[victim] = level[victim] - 1 end
                        if (playerscore[victim] - 1) >= 0 then playerscore[victim] = playerscore[victim] - 1 end
                        if team_play then if (teamscore[vteam] - 1) >= 0 then teamscore[vteam] = teamscore[vteam] - 1 end end
                        say(vname .. " committed suicide.")
                        if logging then log_msg(1, vname .. " demoted one level for suicide. Is level: " .. vlvl) end
                        response = false
                    end
                    response = false
                end
            end
        end
    end

    return response
end

function OnDamageApplication(receiving, causing, tagid, hit, backtap)
    if receiving then
        local r_object = getobject(receiving)
        local r_player = objectidtoplayer(receiving)
        local c_player = objectidtoplayer(causing)
        if r_object then
            local receiver = objectaddrtoplayer(r_object)
            if receiver then
                local rhash = gethash(receiver)
                local tagname,tagtype = gettaginfo(tagid)
                last_damage[rhash] = tagname
                if logging then log_msg(1, "dmg tag: " .. tagname .. " to player: " .. getname(r_player)) end
            end
        end
    end
    return nil
end

function OnDamageLookup(receiving, causing, tagid)

    if receiving and causing and receiving ~= causing then
        local player = objectidtoplayer(causing)
        local tagname, tagtype = gettaginfo(tagid)
        local spikerd = string.find(tagname, "cmt\\weapons\\covenant\\spiker\\spiker")
        local esword = string.find(tagname, "weapons\\unarmed\\melee") or string.find(tagname, "weapons\\energy_sword\\lunge")
        local ppistol1 = string.find(tagname, "cmt\\weapons\\covenant\\plasma_pistol\\bolt\\bolt") or string.find(tagname, "cmt\\weapons\\covenant\\plasma_pistol\\overcharge\\charged bolt")
        local plasrifle = string.find(tagname, "weapons\\plasma rifle\\bolt")
        local spikeb = string.find(tagname, "weapons\\spikebat\\spikebat")
        local melee = string.find(tagname, "melee")
        local needler = string.find(tagname, "cmt\\weapons\\covenant\\needler\\blue\\effects\\explosion") or string.find(tagname, "cmt\\weapons\\covenant\\needler\\impact damage") or string.find(tagname, "cmt\\weapons\\covenant\\needler\\detonation damage")
        local beam = string.find(tagname, "cmt\\characters\\sentinel\\minor\\beam")
        local beam_m = string.find(tagname, "cheddars\\weapons\\h3_senitial_beam\\effects\\jpt!1063")

        local c_player = objectidtoplayer(causing)
        local r_player = objectidtoplayer(receiving)
        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 gunner = readdword(m_vehicle + 0x328)
                local driver = readdword(m_vehicle + 0x324)
                if gunner == causing then
                    return false
                elseif driver == causing then
                    return false
                end
            end
        end

        --log_msg(1, "tag: " .. tagname)
        if c_player and r_player then
            if melee then odl_multiplier(9999) end
            if ppistol1 then odl_multiplier(1.9) end
            if plasrifle then odl_multiplier(1.25) end
            if spikerd then odl_multiplier(1.8) end
            if needler then odl_multiplier(1.5) end
            if spikeb then odl_multiplier(9999) end
            if esword then odl_multiplier(9999) end
            if beam then odl_multiplier(1.25) end
            if beam_m then odl_multiplier(9999) end
        end
    end

    return nil
end

function OnVehicleEntry(player, veh_id, seat, mapid, relevant)
    if getplayer(player) then
        privatesay(player, getname(player) .. " NOTE: You can't kill players with vehicle or vehicle guns.")
    end
    return nil
end

function getplayervehicleid(player)
    local m_objectId = getplayerobjectid(player)
    if m_objectId then return readdword(getobject(m_objectId) + 0x11C) end
end

function ApplyHP(id, count, player)
    if count == 1 then
        if player and game_started then
            local name = getname(player)
            local lvl = level[player]
            local m_playerObjId = getplayerobjectid(player)
            if m_playerObjId ~= nil then
                local m_object = getobject(m_playerObjId)
                local obj_health = readfloat(m_object + 0xE0)
                if obj_health < 1 then
                    writefloat(m_object + 0xE0, 1)
                    sendconsoletext(player, "Bonus: Your health has been restored.", 5, 0)
                    log_msg(1, name .. " Health Bonus applied. Is Level: " .. lvl)
                end
            end
        end
    end
    return false
end

function OnClientUpdate(player)
    if getplayer(player) then
        local lvl = level[player]
        if lvl ~= nil then
            -- monitors and initiates game win announcement
            if lvl == 15 and game_started then
                game_started = false
                announcewin = registertimer(0, "AnnounceWin", player)
                if logging then log_msg(1, "Game win detected - Announcement called.") end
            end
        end
    end
end

function AnnounceWin(id, count, player)
    -- announces game winner
    if player and game_started == false then
        local name = getname(player)
        svcmd("sv_map_next")
        if not team_play then
            say(name .. " WINS THE GAME! ")
        else
            local team = getteam(player)
            if team == 0 then team = "RED TEAM" elseif team == 1 then team = "BLUE TEAM" end
            say(team .. " WINS THE GAME! ")
        end
        log_msg(1, name .. " has won the Gun-Game on " .. map_name .. "!")
    end
    return false
end

function OnTeamChange(player, old_team, new_team, relevant)
    -- prevent unbalancing teams by team change
    local response = nil
    if getplayer(player) then
        if not team_play then response = false return response end

        if relevant == true or relevant == 1 then
            if getteamsize(old_team) == getteamsize(new_team) then
                privatesay(player, "You cannot change teams.")
                response = false
            elseif getteamsize(old_team) + 1 == getteamsize(new_team) then
                privatesay(player, "You cannot change teams.")
                response = false
            elseif getteamsize(old_team) == getteamsize(new_team) + 1 then
                privatesay(player, "You cannot change teams.")
                response = false
            elseif getteamsize(old_team) > getteamsize(new_team) then
                team_change[player] = true
                -- transfer player score to new team score, and deduct new player score from old team score
                if team_play then
                    teamscore[new_team] = teamscore[new_team] + playerscore[player]
                    teamscore[old_team] = teamscore[old_team] - playerscore[player]
                end
                mybattery[player] = 0
                say(getname(player) .. " switched teams.")
                response = true
            elseif getteamsize(old_team) < getteamsize(new_team) then
                team_change[player] = true
                -- transfer player score to new team score, and deduct new player score from old team score
                if team_play then
                    teamscore[new_team] = teamscore[new_team] + playerscore[player]
                    teamscore[old_team] = teamscore[old_team] - playerscore[player]
                end
                mybattery[player] = 0
                say(getname(player) .. " switched teams.")
                response = true
            end
        elseif relevant == false or relevant == 0 then
            team_change[player] = true
            -- transfer player score to new team score, and deduct new player score from old team score
            if team_play then
                teamscore[new_team] = teamscore[new_team] + playerscore[player]
                teamscore[old_team] = teamscore[old_team] - playerscore[player]
            end
            mybattery[player] = 0
            say(getname(player) .. " was team-switched by autobalance.")
            response = true
        end

    end
    return response
end

function OnObjectInteraction(player, objId, mapId)
    local Pass = nil
    local name, type = gettaginfo(mapId)
    if type == "weap" then
        if gametype == 1 or gametype == 3 then
            if name == "weapons\\flag\\flag" or name == "cmt\\weapons\\multiplayer\\ball\\ball" then
                Pass = true
            elseif weapons[player] ~= nil then
                if name ~= weapons[player] then
                    Pass = false
                end
            end
        else
            if weapons[player] ~= nil then
                if name ~= weapons[player] then
                    Pass = false
                end
            end
        end
    elseif type == "eqip" then
        if name == "powerups\\health pack" or name == "powerups\\over shield" then
            Pass = true
        else
            Pass = false
        end
    end
    return Pass
end

function OnObjectCreationAttempt(mapId, parentId, player)
    local response = nil
    local name, type = gettaginfo(mapId)
    if game_started then
        -- block
        if mapId == gettagid("weap", "cmt\\weapons\\multiplayer\\ball\\ball") or -- oddball
            mapId == gettagid("eqip", "weapons\\frag grenade\\frag grenade") or -- frags
            mapId == gettagid("eqip", "weapons\\plasma grenade\\plasma grenade") then -- plasma
            response = false
        end
        -- replace
        if mapId == gettagid("weap", "weapons\\flag\\flag") then -- flag
            return gettagid("weap", "cmt\\weapons\\covenant\\plasma_pistol\\plasma pistol") -- ppistol
        end

        if team_play then
            if mapId == gettagid("vehi", "h3_brutechopper\\brute_chopper") or mapId == gettagid("vehi", "h3_mongoose\\h3_mongoose") or mapId == gettagid("vehi", "vehicles\\rwarthog\\new_rwarthog") or mapId == gettagid("vehi", "h2\\vehicles\\hogs\\warthog\\warthog_fast") then
                return gettagid("vehi", "h2\\vehicles\\hogs\\warthog\\warthog")
            end
        else
            if mapId == gettagid("vehi", "h3_mongoose\\h3_mongoose") or mapId == gettagid("vehi", "vehicles\\rwarthog\\new_rwarthog") or mapId == gettagid("vehi", "h2\\vehicles\\hogs\\warthog\\warthog_fast") or mapId == gettagid("vehi", "h2\\vehicles\\hogs\\warthog\\warthog") then
                return gettagid("vehi", "h3_brutechopper\\brute_chopper")
            end
        end

    elseif not game_started then
        -- allow
        if mapId == gettagid("bipd", "h3_cyborg\\h3_cyborg_mp") or -- mpbiped
            mapId == gettagid("bipd", "h3_cyborg\\h3_cyborg_sp") then -- cpbiped
            response = true
        end
        -- block
        if mapId == gettagid("weap", "cmt\\weapons\\multiplayer\\ball\\ball") or -- oddball
            mapId == gettagid("eqip", "weapons\\frag grenade\\frag grenade") or -- frags
            mapId == gettagid("eqip", "weapons\\plasma grenade\\plasma grenade") then -- plasma
            response = false
        end
        -- replace
        if mapId == gettagid("weap", "weapons\\flag\\flag") then -- flag
            return gettagid("weap", "cmt\\weapons\\covenant\\plasma_pistol\\plasma pistol") -- ppistol
        end
        if team_play then
            if mapId == gettagid("vehi", "h3_brutechopper\\brute_chopper") or mapId == gettagid("vehi", "h3_mongoose\\h3_mongoose") or mapId == gettagid("vehi", "vehicles\\rwarthog\\new_rwarthog") or mapId == gettagid("vehi", "h2\\vehicles\\hogs\\warthog\\warthog_fast") then
                return gettagid("vehi", "h2\\vehicles\\hogs\\warthog\\warthog")
            end
        else
            if mapId == gettagid("vehi", "h3_mongoose\\h3_mongoose") or mapId == gettagid("vehi", "vehicles\\rwarthog\\new_rwarthog") or mapId == gettagid("vehi", "h2\\vehicles\\hogs\\warthog\\warthog_fast") or mapId == gettagid("vehi", "h2\\vehicles\\hogs\\warthog\\warthog") then
                return gettagid("vehi", "h3_brutechopper\\brute_chopper")
            end
        end

    else
        response = false
    end
    return response
end

function LoadTags()
    --weapons
    spikebat = gettagid("weap", "weapons\\spikebat\\spikebat")
    ppistol = gettagid("weap", "cmt\\weapons\\covenant\\plasma_pistol\\plasma pistol")
    shotgun = gettagid("weap", "cmt\\weapons\\human\\shotgun\\shotgun")
    spiker = gettagid("weap", "cmt\\weapons\\covenant\\spiker\\spiker")
    prifle = gettagid("weap", "cmt\\weapons\\covenant\\plasma_rifle\\plasma rifle")
    sniper = gettagid("weap", "cmt\\weapons\\human\\sniper_v2\\sniper_v2")
    smg = gettagid("weap", "cmt\\weapons\\human\\smg\\smg")
    arifle = gettagid("weap", "cmt\\weapons\\human\\assault_rifle\\assault rifle cc")
    flamer = gettagid("weap", "cmt\\weapons\\human\\flamethrower\\flamethrower")
    sbeam = gettagid("weap", "cheddars\\weapons\\h3_senitial_beam\\sentinel beam")
    mpistol = gettagid("weap", "reach\\weapons\\magnum\\magnum")
    bshot = gettagid("weap", "cmt\\weapons\\covenant\\brute_shot\\brute_shot_6")
    esword = gettagid("weap", "weapons\\energy_sword\\energy_sword")
    needler = gettagid("weap", "cmt\\weapons\\covenant\\needler\\needler blue")
    rlaunch = gettagid("weap", "cmt\\weapons\\human\\rocket_launcher\\rocket launcher mp")
    spistol = gettagid("weap", "cmt\\weapons\\human\\spec pistol\\spec_pistol")
    frag = gettagid("eqip", "weapons\\frag grenade\\frag grenade")
    plasma = gettagid("eqip", "weapons\\plasma grenade\\plasma grenade")
    flag = gettagid("weap", "weapons\\flag\\flag")
    ball = gettagid("weap", "cmt\\weapons\\multiplayer\\ball\\ball")

    -- fall/dist
    Fall = gettagid("jpt!", "globals\\falling")
    Dist = gettagid("jpt!", "globals\\distance")
    Veh_dmg = gettagid("jpt!", "globals\\vehicle_collision")
    -- others
    biped1 = gettagid("bipd", "h3_cyborg\\h3_cyborg_mp")
    biped2 = gettagid("bipd", "h3_cyborg\\h3_cyborg_sp")
    Healthp = gettagid("eqip", "powerups\\health pack")
    Oshield = gettagid("eqip", "powerups\\over shield")
    Acamo = gettagid("eqip", "powerups\\active camouflage")

    -- vehicles
    whog = gettagid("vehi", "h2\\vehicles\\hogs\\warthog\\warthog")
    bchopper = gettagid("vehi", "h3_brutechopper\\brute_chopper")
    rhog = gettagid("vehi", "vehicles\\rwarthog\\new_rwarthog")
    whog2 = gettagid("vehi", "h2\\vehicles\\hogs\\warthog\\warthog_fast")
    mong = gettagid("vehi", "h3_mongoose\\h3_mongoose")
end

function AutoBalance(id, count)
    if game_started and team_play and cur_players > 3 and TeamsAreUneven then
        Balance_Teams()
        return true
    elseif game_started and team_play and cur_players < 4 then
        return false
    else
        return false
    end
end

-- inspired by 002's team balance for Sapp
function Balance_Teams()
    if game_started and team_play then
        local redteam = getteamsize(0)
        local blueteam = getteamsize(1)
        if redteam > blueteam then
            while TeamsAreUneven() do
                while (getteamsize(0) > getteamsize(1)+1) do
                    local randomred = SelectPlayer(0)
                    if randomred ~= nil then
                        changeteam(randomred, true)
                    end
                end
            end
        elseif blueteam > redteam then
            while TeamsAreUneven() do
                while (getteamsize(1) > getteamsize(0)+1) do
                    local randomblu = SelectPlayer(1)
                    if randomblu ~= nil then
                        changeteam(randomblu, true)
                    end
                end
            end
        end
    end
end

-- inspired by 002's team balance for Sapp
function TeamsAreUneven()
    local red = getteamsize(0)
    local blue = getteamsize(1)
    if (red > blue + 1 or blue > red + 1) then return true end
    return false
end

function SelectPlayer(team)
    local t = {}
    for i=0,15 do
        if getplayer(i) and getteam(i) == team then
            table.insert(t, i)
        end
    end
    if #t > 0 then
        local r = getrandomnumber(1, #t+1)
        return t[r]
    end
    return nil
end

function ShowTargets(id, count)
    -- timer to repeatedly call roaming targets function while game is started and players > 0
    Roaming_Targets()
    return true
end

function Roaming_Targets(id, count)
    if game_started and cur_players > 2 and gametype ~= 5 then
        if team_play then
            local target = SelectRoamingPlayer(player)
            if target then
                local team = getteam(target)
                for i = 0,15 do
                    if getplayer(i) and getplayer(i) ~= getplayer(target) and getteam(i) ~= team then
                        writeword(getplayer(i) + 0x88, target)
                    end
                end
                return true
            else
                return false
            end
        else
            local target = SelectRoamingPlayer(player)
            if target then
                for i = 0,15 do
                    if getplayer(i) and getplayer(i) ~= getplayer(target) then
                        writeword(getplayer(i) + 0x88, target)
                    end
                end
                return true
            else
                return false
            end
        end
    end
end

function SelectRoamingPlayer(player)
    local t = {}
    for i=0,15 do
        if getplayer(i) then
            table.insert(t, i)
        end
    end
    if #t > 0 then
        if (timerCount > #t) then
            timerCount = 0
        else
            timerCount = timerCount + 1
        end
        return t[timerCount]
    end
end

function OnGameEnd(stage)
    if stage == 1 then
        game_started = false
        beserk = false
        if gameweap then
            gameweap = nil
        end
        if announcewin then
            announcewin = nil
        end
        if m_weaponId then
            m_weaponId = nil
        end
        if replaceplasmaweap then
            replaceplasmaweap = nil
        end
        if p_objectId then
            p_objectId = nil
        end
        if health then
            health = nil
        end
        if welcome then
            welcome = nil
        end
        if speedtimer then
            speedtimer = nil
        end
        if checkbattery then
            checkbattery = nil
        end
        if updatescores then
            updatescores = nil
        end
        if autobalance then
            autobalance = nil
        end
        if consoletimer then
            consoletimer = nil
        end
        if spawnhp then
            spawnhp = nil
        end
    elseif stage == 3 then
        for i = 0, 15 do
            if getplayer(i) then
                privatesay(i, "Thank you for playing the Gun-Game Arms Race for Pit v2!")
                privatesay(i, "by H\174 Shaft")
            end
        end
    end
end

-- Start sendconsoletext overloaded by Nugget
console = {}
console.__index = console
consoletimer = registertimer(100, "ConsoleTimer")
phasor_sendconsoletext = sendconsoletext

function sendconsoletext(player, message, time, order, align, height, func)
    if player then
        console[player] = console[player] or {}
        local temp = {}
        temp.player = player
        temp.id = nextid(player, order)
        temp.message = message or ""
        temp.time = time or 0.7
        temp.remain = temp.time
        temp.align = align or "left"
        temp.height = height or 0
        if type(func) == "function" then
            temp.func = func
        elseif type(func) == "string" then
            temp.func = _G[func]
        end
        console[player][temp.id] = temp
        setmetatable(console[player][temp.id], console)
        return console[player][temp.id]
    end
end

function nextid(player, order)
    if not order then
        local x = 0
        for k,v in pairs(console[player]) do
            if k > x + 1 then
                return x + 1
            end
            x = x + 1
        end
        return x + 1
    else
        local original = order
        while console[player][order] do
            order = order + 0.001
            if order == original + 0.999 then break end
        end
        return order
    end
end

function getmessage(player, order)
    if console[player] then
        if order then
            return console[player][order]
        end
    end
end

function getmessages(player)
    return console[player]
end

function getmessageblock(player, order)
    local temp = {}
    for k,v in opairs(console[player]) do
        if k >= order and k < order + 1 then
            table.insert(temp, console[player][k])
        end
    end
    return temp
end

function console:getmessage()
    return self.message
end

function console:append(message, reset)
    if console[self.player] then
        if console[self.player][self.id] then
            if getplayer(self.player) then
                if reset then
                    if reset == true then
                        console[self.player][self.id].remain = console[self.player][self.id].time
                    elseif tonumber(reset) then
                        console[self.player][self.id].time = tonumber(reset)
                        console[self.player][self.id].remain = tonumber(reset)
                    end
                end
                console[self.player][self.id].message = message or ""
                return true
            end
        end
    end
end

function console:shift(order)
    local temp = console[self.player][self.id]
    console[self.player][self.id] = console[self.player][order]
    console[self.player][order] = temp
end

function console:pause(time)
    console[self.player][self.id].pausetime = time or 5
end

function console:delete()
    console[self.player][self.id] = nil
end

function ConsoleTimer(id, count)
    for i,_ in opairs(console) do
        if tonumber(i) then
            if getplayer(i) then
                for k,v in opairs(console[i]) do
                    if console[i][k].pausetime then
                        console[i][k].pausetime = console[i][k].pausetime - 0.1
                        if console[i][k].pausetime <= 0 then
                            console[i][k].pausetime = nil
                        end
                    else
                        if console[i][k].func then
                            if not console[i][k].func(i) then
                                console[i][k] = nil
                            end
                        end
                        if console[i][k] then
                            console[i][k].remain = console[i][k].remain - 0.1
                            if console[i][k].remain <= 0 then
                                console[i][k] = nil
                            end
                        end
                    end
                end
                if table.len(console[i]) > 0 then
                    local paused = 0
                    for k,v in pairs(console[i]) do
                        if console[i][k].pausetime then
                            paused = paused + 1
                        end
                    end
                    if paused < table.len(console[i]) then
                        local str = ""
                        for i = 0,30 do
                            str = str .. " \n"
                        end
                        phasor_sendconsoletext(i, str)
                        for k,v in opairs(console[i]) do
                            if not console[i][k].pausetime then
                                if console[i][k].align == "right" or console[i][k].align == "center" then
                                    phasor_sendconsoletext(i, consolecenter(string.sub(console[i][k].message, 1, 78)))
                                else
                                    phasor_sendconsoletext(i, string.sub(console[i][k].message, 1, 78))
                                end
                            end
                        end
                    end
                end
            else
                console[i] = nil
            end
        end
    end

    return true
end

function consolecenter(text)
    if text then
        local len = string.len(text)
        for i = len + 1, 78 do
            text = " " .. text
        end
        return text
    end
end

function opairs(t)
    local keys = {}
    for k,v in pairs(t) do
        table.insert(keys, k)
    end
    table.sort(keys,
    function(a,b)
        if type(a) == "number" and type(b) == "number" then
            return a < b
        end
        an = string.lower(tostring(a))
        bn = string.lower(tostring(b))
        if an ~= bn then
            return an < bn
        else
            return tostring(a) < tostring(b)
        end
    end)
    local count = 1
    return function()
        if table.unpack(keys) then
            local key = keys[count]
            local value = t[key]
            count = count + 1
            return key,value
        end
    end
end

function table.len(t)
    local count = 0
    for k,v in pairs(t) do
        count = count + 1
    end
    return count
end
-- Stop sendconsoletext overloaded

-- 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
-- Special thanks to AelitePrime, as this was an attempt to script patterned after his style similar to his Zombie script 4.1, and other scripts we have mutually developed.
-- Note: This was written and developed by H® Shaft prior to the release of any other similar script with similar names. Any claims of duplication of concept/script are 100% bullpucky.