Infection - Phasor 2.0+

--[[ Infection script for Phasor 2.0+ ]]--
--[[ By: Skylace, AElite, & Wizard]]--
--[[ Thanks to the people who helped me make this script]]--

-- Fixed a rare bug that caused the camouflage when crouch to not work.

-- Notes: I did not remove any useless or redundant code due to the fact that I didn't have people to test my re-write and the game might hang if a player quits as last man (not sure if I fixed this or not.)

-- Infection Settings
killtimer = {}
-- Global Variable
default_script_prefix = "" -- Its recommended that you DO NOT CHANGE THIS
human_team = 0 -- 0 is red, 1 is blue
join_team = zombie_team -- the team that people will join if a game is currently running
max_zombie_count = 2 -- this caps what the zombie count would be w/ ratio (nil is disable)
time_invis = 0.5 -- In seconds, how long the zombie/human should be invis when they crouch.
zombie_count = 1 -- if value is less than 1 is it used as a percentage, more than or equal to one is absolute count
zombie_team = 1 -- 0 is red, 1 is blue
speed_boost = 2.5 -- time extra speed lasts
boost_amount = 0.5 -- Speed added to players current speed when the flashlight is activated.

    -- Alpha Zombie Variables
alphazombie_frag_count = 0 -- number of frag nades they spawn with
alphazombie_plasma_count = 0 -- number of plasma nades they spawn with
alphazombie_clip_count = 0 -- number of shots in clip (loaded ammo)
alphazombie_ammo_count = 0 -- backpack ammo they get (unloaded ammo)
alphazombie_battery_count = 0 -- stored as a percent (0 to 1, do NOT go over or under)

    -- Zombie Variables
zombie_ammo_count = 0 -- backpack ammo zombies once there are not only alpha zombies (unloaded ammo)
zombie_clip_count = 0 -- number of shots in clip for zombies once there are not only alpha zombies (loaded ammo)
zombie_battery_count = 0 -- stored as a percent (0 to 1, do NOT go over or under)
zombie_frag_count = 0 -- number of frag nades they spawn with
zombie_plasma_count = 0 -- number of plasma nades they spawn with
zombie_spawn_time = 2 -- spawn time for zombies in seconds. Leave "default" for default spawn time of gametype
zombie_speed = 1.75 -- zombie speed
small_zombie_speed = 1.5 -- for small maps
large_zombie_speed = 2.0 -- for large maps
only_zombie_speed = 2.25 -- only zombie speed
human_again = 4 -- kills zombies have to get to become a human again

--Zombie weapons.
-- Note: If you decide the player holds a flag or a ball, make sure the secondary, tertiary, and quarternary fields are "".
-- DO NOT make zombies hold multiple weapons if you want them to hold an oddball or a flag. If you do it will not work right, and it's entirely your fault.
zombie_weapon = {} -- don't touch this
zombie_weapon[1] = "weapons\\ball\\ball" -- Primary weapon for zombies
zombie_weapon[2] = "" -- Secondary weapon for zombies.
zombie_weapon[3] = "" -- Tertiary weapon for zombies.
zombie_weapon[4] = "" -- Quarternary weapon for zombies.

-- Human Weapons
-- Do not set human weapons to ball or flag!
human_weapon = {} -- don't touch this
human_weapon[1] = "weapons\\assault rifle\\assault rifle" -- Primary weapon for humans
human_weapon[2] = "" -- Secondary weapon for humans.
human_weapon[3] = "" -- Tertiary weapon for humans
human_weapon[4] = "" -- Quarternary weapon for humans.

    -- Human Variables
human_dmgmodifier = 1.55 -- damage modifier for humans.
human_speed = 1.0 -- speed when not infected
human_spawn_time = 2 -- spawn time for humans in seconds. Leave "default" for default spawn time of gametype

    -- Last Man Variables
lastman_dmgmodifier = 1.75 -- damage modifier for the last man
lastman_invistime = 20 -- in seconds
lastman_invulnerable = 10 -- time (in seconds) the last man is invulnerable for: replace with nil to disable
lastman_speed = 1.5 -- last man speed
small_lastman_speed = 1.25 -- for small maps
large_lastman_speed = 2.0 -- for large maps

    -- Booleans
humans_allowed_in_vehis = false -- if this is set to false then humans cannot enter vehicles
humans_invisible_on_crouch = false -- if this is set to true then humans will become invisible when they crouch.
infect_on_fall = true -- if this is set to true then people who die from fall damage will become zombies.
infect_on_guardians = true -- if this is set to true then people who get killed by the guardians will become zombies.
infect_on_suicide = true -- if this is set to true then people who kill themselves will become a zombie.
infect_on_betray = false -- if this is set to true then people who betray their teammates will become a zombie.
last_man_next_zombie = true -- if this value is true the last man standing becomes the next zombie, if not it's random
zombies_allowed_in_vehis = false -- if this is set to false then zombies cannot enter vehicles.
zombies_invisible_on_crouch = true -- if this is set to true then zombies will be invisible when they crouch.
kill_humanss_in_water = true -- for deathisland

-- Death / Infect messages
blockteamchange_message = "Autobalance: You're not allowed to change team."
falling_infected_message = " fell..."
falling_death_message = " fell..."
kill_infected_message = " infected "
suicide_infected_message = " lost the will to live..."
suicide_message = " made mistakes..."
teammate_infected_message = " was infected for betraying "
guardian_infected_message = " was infected by nothing?!?!?"
in_hill_too_long_msg = " was infected because they were in the hill too long!"
human_kill_message = " killed "
killed_in_water_msg = " died from going into the water!"

--Hint Messages
teamkill_message = "Don't team kill..."
nozombiesleftmessage = "There are no zombies left. Someone needs to change team or be forced to."
lastman_message = "%s is the last human alive and is invisible for %.0f seconds!"
rejoin_message = "Please don't leave and rejoin. You've been put back onto your last team."
zombieinvis_message = "The zombies are invisible for 30 seconds!"

-- Complement Messages
timer_team_change_msg = "Thank you. The game will now continue!"
--zombie_backtap_message = "Nice backtap!"

-- New Team Messages
human_message = "YOUR A HUMAN!!! KILL THE FILTHY ZOMBIES!"
zombie_message = "YOUR A ZOMBIE!!! KILL ALL HUMANS!"

--Additional Messages
welcome_message = "Welcome to Zombie Zone Infection!"
koth_additional_welcome_msg = "The hill is a safezone! Use it for quick getaways!"

-- Don't modify below variables unless you know what you're doing
cur_zombie_count = 0
cur_zombie_count = 0
cur_human_count = 0
alpha_zombie_count = 0
human_time = {}
cur_players = 0
cur_last_man = nil
last_man_name = 0
processid = 0
game_started = false
allow_change = false
map_reset_boolean = false
flagball_weap = {}
last_hill_time = {}
name_table = {}
inhill_time = {}
outsidemap = {}
zkills = {}
deathcoords = {}
usedFlashlight = {}
warned = {}
last_damage = {}
cur_map = ""



phasor_say = say
phasor_privatesay = privatesay

function GetRequiredVersion()
    return 200
end

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

function OnScriptUnload()
    writedword(ctf_score_patch, 0xFFFDE9E8)
    writebyte(ctf_score_patch1, 0xFF)
    writebyte(slayer_score_patch, 0x74)
    writebyte(slayer_score_patch2, 0x75)
    writedword(koth_score_patch, 0xDA850F)
    writebyte(koth_score_patch2, 0x75)
    killtimer = false
end

function OnNewGame(map)
    killtimer = true

    if Persistent then ScriptLoad() end
    LoadTags()
    -- reset our variables
    cur_zombie_count = 0
    cur_human_count = 0
    cur_players = 0
    resptime = 5
    cur_map = map
    name_table = {}
    -- the game hasn't started yet, will once timer runs down
    game_started = false
    if new_game_timer == nil then
        new_game_timer = registertimer(7500, "NewGameTimer")
    end
    if map == "putput" or map == "longest" or map == "beavercreek" or map == "carousel" or map == "wizard" or map == "ratrace" then
        zombie_speed = small_zombie_speed
        lastman_speed = small_lastman_speed
    elseif map == "gephyrophobia" or map == "infinity" or map == "icefields" then
        zombie_speed = large_zombie_speed
        lastman_speed = large_lastman_speed
    end
end

function OnGameEnd(stage)
    killtimer = false
    game_started = false
    if stage == 1 then
        if humantimer then
            removetimer(humantimer)
            humantimer = nil
        end
        if new_game_timer then
            removetimer(new_game_timer)
            new_game_timer = nil
        end
        if speedtimer then
            removetimer(speedtimer)
            speedtimer = nil
        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" or (cmd[1] == "sv_script_reload" and cmd[2] == "infection") then
            map_reset_boolean = true
            for i = 0,15 do
                if getplayer(i) then
                    local m_objectId = getplayerobjectid(i)
                    if m_objectId and getteam(i) == zombie_team then
                        destroyobject(m_objectId)
                    end
                end
            end
        end
    end
    return allow
end

function OnPlayerJoin(player)
    spawnonspot[player] = false
    local team = getteam(player)
    outsidemap[player] = true
    -- update the player counts
    cur_players = cur_players + 1
    local team = getteam(player)
    -- onteamdecision isn't called for ffa gametypes
    if not team_play then
        -- initialize the destination team as the join team
        local dest_team = join_team
        -- make sure the game is started
        if game_started then
            -- if no zombies make them human
            if cur_human_count == 0 then
                dest_team = human_team
            end
        end
        -- we need to overwrite the 'team' variable being passed to onplayerjoin
        team = dest_team
    end
    local thisTeamSize = 0 -- used so we don't create empty teams for rejoining players
    local thisTeamSize = 0 -- used so we don't create empty teams for rejoining players
    if team == zombie_team then
        cur_zombie_count = cur_zombie_count + 1
        thisTeamSize = cur_zombie_count
    else
        cur_human_count = cur_human_count + 1
        thisTeamSize = cur_human_count
    end
    alpha_zombie_count = getalphacount()
    local thisNAME = getname(player)
    local alreadyExists = false
    -- add team entry for this ip
    if alreadyExists == false then
        name_table[thisNAME] = team
    end
    -- make sure the game is started
    if game_started == true then
        -- check if the player is a zombie
        if team == zombie_team then
            --we don't need to update the counters since they're already on the zombieteam
            makezombie(player, false, true)
            --send them the zombie message
            privatesay(player, zombie_message)
        else
            -- if we're at last man, make this player a zombie
            if cur_last_man then
                --make this person a zombie (they're currently a human)
                makezombie(player, true)
                --send them the zombie message
                privatesay(player, zombie_message)
            else
                --make this person a human (they're currently a zombie)
                makehuman(player, false, true)
                --send them the human message
                privatesay(player, human_message)
            end
        end
        --send the player the welcome message
        privatesay(player, welcome_message)
        if gametype == "KOTH" then
            privatesay(player, koth_additional_welcome_msg)
        elseif gametype == "Slayer" and gametype_indicator == 1 then
        end
        registertimer(200,"checkgamestate",-1)
    else
        registertimer(10000, "MsgTimer", player)
    end
end

function OnPlayerLeave(player)
    local team = getteam(player)
    --check if they're a zombie
    if game_started and team == zombie_team then
        -- gets rid of any weapons a zombie is holding
        --destroyweapons(player)
        --take one away from the current zombie count
        cur_zombie_count = cur_zombie_count - 1
    elseif game_started and team ~= zombie_team then
        --take one away from the current human count
        cur_human_count = cur_human_count - 1
    end
    -- if last man is leaving, reset it
    if cur_last_man == player then
        cur_last_man = nil
    end
    --minus one from current players
    cur_players = cur_players - 1
    --check the current game state (the player that left might have been the last man or the only zombie)
    registertimer(1000,"checkgamestate",-1)
    -- update team within table
    local thisNAME = getname(player)
    name_table[thisNAME] = team
end

function protect(idk, id1, objId)
    local m_object = getobject(objId)
    writebit(m_object + 0x10, 0, 1)
    registertimer(1000, "RemoveLastmanProtection", m_object)
end

spawnonspot = {}

function OnPlayerSpawn(player)

    if killtimer then
        local m_player = getplayer(player)
        local objId = readdword(m_player, 0x34)
        movobjectcoords(objId, 0, 0, -1500)
        outsidemap[player] = true
        spawnonspot[player] = false
    end

    if outsidemap[player] ~= true then
        if spawnonspot[player] ~= false then
            spawnonspot[player] = false
            outsidemap[player] = false
            said[player] = false
            local m_player = getplayer(player)
            local objId = readdword(m_player, 0x34)
            if deathcoords[player] then
                sendconsoletext(player, "You will spawn were you last died!")
                movobjectcoords(objId, deathcoords[player].x, deathcoords[player].y, deathcoords[player].z)
                registertimer(0, "protect", objId)
            end
        end
    end

    usedFlashlight[player] = false
    local team = getteam(player)
    --get the player's team

    local team = getteam(player)
    --check if the player is a zombie
    if team == zombie_team then

        --get the player's object ID
        --make sure the player is alive (off chance that there's a glitch in phasor)
        local m_objectId = getplayerobjectid(player)
        if m_objectId == nil then
            return
        end

        --get the player's object struct
        local m_object = getobject(m_objectId)

        -- set nade counts
        writebyte(m_object + 0x31E, zombie_frag_count)
        writebyte(m_object + 0x31F, zombie_plasma_count)

        -- set the ammo
        local clipcount = alphazombie_clip_count
        local ammocount = alphazombie_ammo_count
        local batterycount = alphazombie_battery_count

        -- set ammo counts for zombies when others have been infected
        if cur_zombie_count > alpha_zombie_count then
            clipcount = zombie_clip_count
            ammocount = zombie_ammo_count
            batterycount = zombie_battery_count
        else -- set alpha nades
            writebyte(m_object + 0x31E, alphazombie_frag_count)
            writebyte(m_object + 0x31F, alphazombie_plasma_count)
        end

        table1 = {player, clipcount, ammocount, batterycount}
        registertimer(0, "AssignZombieWeapons", table1)
    elseif team == human_team then

        local m_objectId = getplayerobjectid(player)
        if m_objectId == nil then
            return
        end

        setspeed(player, human_speed)

        local m_object = getobject(m_objectId)

        -- set nade counts
        writebyte(m_object + 0x31E, 0)
        writebyte(m_object + 0x31F, 2)

        local clipcount = 60
        local ammocount = 120
        local batterycount = 1
        registertimer(0, "AssignHumanWeapons", player)
    end

    --check if the type is slayer
    if gametype == "Slayer" then

        local m_player = getplayer(player)
        --check if we're at the last_man
        if m_player == nil then
            return
        end

        if cur_last_man then --write the navpoint to the current last man
            writeword(m_player, 0x88, cur_last_man)
        else
            writeword(m_player, 0x88, player) --there is no last man so put a nav above this player's head
        end

    end

end

function OnObjectCreationAttempt(mapId, parentId, player)
    if gametype == "CTF" and mapId == flag_tag_id and parentId == nil then
        registertimer(0, "PutUnderMap", readdword(ctf_globals + 0x8))
    end
    return nil
end

invimsg = false

function setfalse()
    invimsg = false
end

function OnObjectInteraction(player, objId, mapId)
    local response = false
    if game_started == true then
        if mapId ~= oddball_tag_id and mapId ~= flag_tag_id then
            if getteam(player) == zombie_team then
                if mapId == camouflage_tag_id  then
                    response = nil
                    if getplayer(player) then
                        local m_playerObjId = getplayerobjectid(player)
                        if m_playerObjId then
                            if readdword(getobject(m_playerObjId) + 0x204) ~= 0x51 then
                                local doInvis = getrandomnumber(1, 11)
                                if doInvis > 5 then
                                    -- make the whole zombie team invis for 30 seconds
                                    for x = 0,15 do
                                        if getplayer(x) and getteam(x) == zombie_team then
                                            applycamo(x, 30.00)
                                            registertimer(30000, "setfalse")
                                        end
                                    end
                                    if not invimsg then
                                        invimsg = true
                                        say(zombieinvis_message)
                                    end
                                end
                            end
                        end
                    end
                elseif mapId == overshield_tag_id or mapId == healthpack_tag_id then
                    response = nil
                elseif mapId == fragnade_tag_id or mapId == plasmanade_tag_id then
                    response = false
                end
            else
                response = nil
            end
        end
    end
    return response
end

function OnKillMultiplier(player, multiplier)

    local name = getname(player)

    if multiplier == 7 or multiplier == 16 then
        human_time[name] = tonumber(human_time[name]) + 5
    elseif multiplier == 9 or multiplier == 17 then
        human_time[name] = tonumber(human_time[name]) + 10
    elseif multiplier == 10 or multiplier == 14 then
        human_time[name] = tonumber(human_time[name]) + 15
    end

end

died = {}

function OnPlayerKill(killer, victim, mode)

    if victim and mode ~= 6 then
        local m_victim = getplayer(victim)
        local objId = readdword(m_victim, 0x34)
        local x, y, z = getobjectcoords(objId)
        deathcoords[victim] = {}
        deathcoords[victim].x = x
        deathcoords[victim].y = y
        deathcoords[victim].z = z
    end

    local response = false
    -- make sure this kill doesn't add to the score so that the game won't end prematurely
    if gametype == "Slayer" and killer and getplayer(killer) then writedword(slayer_globals + 0x40 + killer*4, 0) end
    -- make sure the game is started
    if game_started then
        -- get the victim's team
        local team = getteam(victim)
        if victim and team == zombie_team then
            -- gets rid of any weapons a zombie is holding
            destroyweapons(victim)
        end
        if victim then
            if resptime then
                writedword(getplayer(victim) + 0x2c, resptime * 33)
            elseif tonumber(human_spawn_time) and team ~= zombie_team then
                writedword(getplayer(victim) + 0x2C, tonumber(human_spawn_time) * 33)
            elseif tonumber(zombie_spawn_time) and team == zombie_team then
                writedword(getplayer(victim) + 0x2C, tonumber(zombie_spawn_time) * 33)
            end
        end
        if mode == 0 then -- server kill
            spawnonspot[victim] = false
            return false
        elseif mode == 1 and not map_reset_boolean then -- fall damage
            spawnonspot[victim] = false
            -- if this is true then a person who dies from falling will be infected
            if infect_on_fall then
                if tonumber(team) and team ~= zombie_team then
                    response = false
                    say(tostring(getname(victim)) .. falling_infected_message)
                    registertimer(100, "makezombiedelay", {victim, true})
                elseif tonumber(team) and team ~= human_team then
                    response = false
                    say(tostring(getname(victim)) .. falling_death_message)
                end
                responce = false
            else
                response = false
                say(tostring(getname(victim)) .. falling_death_message)
            end
        elseif mode == 2 then -- killed by guardians
            spawnonspot[victim] = true
            if infect_on_guardians then
                if tonumber(team) and team ~= zombie_team then
                    response = false
                    say(tostring(getname(victim)) .. guardian_infected_message)
                    registertimer(100, "makezombiedelay", {victim, true})
                end
            else
                response = false
                say(tostring(getname(victim)) .. guardian_infected_message)
            end
        elseif mode == 3 then -- killed by vehicle
            spawnonspot[victim] = false
        elseif mode == 4 then -- killed by another player
            local killer_team = getteam(killer)
            if tonumber(killer_team) and killer_team == zombie_team and tonumber(team) and team ~= zombie_team then
                response = false

                for i = 0,15 do
                    if getplayer(i) ~= nil then
                        if i ~= killer then
                            privatesay(i, tostring(getname(killer)) .. kill_infected_message .. tostring(getname(victim)))
                        end
                    end
                end

                spawnonspot[victim] = true
                registertimer(100, "makezombiedelay", {victim, true})
                privatesay(victim, zombie_message)

                local name = getname(killer)
                human_time[name] = tonumber(human_time[name]) + 10

                countupzombiekils(killer)

            elseif killer_team ~= zombie_team and team == zombie_team then
                response = false
                spawnonspot[victim] = false

                for i = 0,15 do
                    if getplayer(i) ~= nil then
                        if i ~= killer then
                            privatesay(i, tostring(getname(killer)) .. human_kill_message .. tostring(getname(victim)))
                        end
                    end
                end

                local name = getname(killer)
                human_time[name] = tonumber(human_time[name]) + 5
                dropammoforhumans(victim)
            end
        elseif mode == 5 then -- betrayed
            if infect_on_betray then
                local killer_team = getteam(killer)
                if tonumber(killer_team) and killer_team ~= zombie_team then
                    response = false
                    for i = 0,15 do
                        if getplayer(i) ~= nil then
                            if i ~= killer then
                                privatesay(i, tostring(getname(killer)) .. teammate_infected_message .. tostring(getname(victim)))
                            end
                        end
                    end
                    registertimer(100, "makezombiedelay", {killer, true})
                elseif tonumber(killer_team) and killer_team ~= human_team then
                    response = false
                    for i = 0,15 do
                        if getplayer(i) ~= nil then
                            if i ~= killer then
                                privatesay(i, tostring(getname(killer)) .. " betrayed " .. tostring(getname(victim)))
                            end
                        end
                    end
                end
            elseif infect_on_betray == false then
                response = false
                for i = 0,15 do
                    if getplayer(i) ~= nil then
                        if i ~= killer then
                            privatesay(i, tostring(getname(killer)) .. " betrayed " .. tostring(getname(victim)))
                        end
                    end
                end
            end

        elseif mode == 6 then -- suicide
            if infect_on_suicide then
                if tonumber(team) and team ~= zombie_team then
                    response = false
                    say(tostring(getname(victim)) .. suicide_infected_message)
                    registertimer(100, "makezombiedelay", {victim, true})
                elseif tonumber(team) and team ~= human_team then
                    say(tostring(getname(victim)) .. " found himself tasty...")
                end
            elseif infect_on_suicide == false then
                response = false
                say(tostring(getname(victim)) .. suicide_message)
            end
        end
        -- this next block of code gets rid of any weapons a zombie is holding
        if tonumber(team) and team == zombie_team then
            destroyweapons(victim)
        end
    end
    registertimer(200,"checkgamestate", victim)
    return response
end

function countupzombiekils(killer)
    if zkills[killer] then
        zkills[killer] = zkills[killer] + 1
        if zkills[killer] >= human_again then
            spawnonspot[killer] = true
            sendconsoletext(killer, "You are to full and have become a human again!")
            registertimer(100, "makehumandelay", {killer, true})
            kill(killer)
            zkills[killer] = 0
        end
    else
        zkills[killer] = 1
    end
end

function dropammoforhumans(victim)

    local x = readfloat(getplayer(victim) + 0xF8)
    local y = readfloat(getplayer(victim) + 0xFC)
    local z = readfloat(getplayer(victim) + 0x100)

    if last_damage[gethash(victim)] == "weapons\\assault rifle\\bullet" then
        createobject(gettagid("eqip", "powerups\\assault rifle ammo\\assault rifle ammo"), 0, 30, false, x, y, z + 0.5)
    elseif last_damage[gethash(victim)] == "weapons\\flamethrower\\burning" or last_damage[gethash(victim)] == "weapons\\flamethrower\\explosion" or last_damage[gethash(victim)] == "weapons\\flamethrower\\impact damage" then
        createobject(gettagid("eqip", "powerups\\flamethrower ammo\\flamethrower ammo"), 0, 30, false, x, y, z + 0.5)
    elseif last_damage[gethash(victim)] == "weapons\\needler\\detonation damage" or last_damage[gethash(victim)] == "weapons\\needler\\explosion" or last_damage[vhash] == "weapons\\needler\\impact damage" then
        createobject(gettagid("eqip", "powerups\\needler ammo\\needler ammo"), 0, 30, false, x, y, z + 0.5)
    elseif last_damage[gethash(victim)] == "weapons\\pistol\\bullet" then
        createobject(gettagid("eqip", "powerups\\pistol ammo\\pistol ammo"), 0, 30, false, x, y, z + 0.5)
    elseif last_damage[gethash(victim)] == "weapons\\rocket launcher\\explosion" then
        createobject(gettagid("eqip", "powerups\\rocket launcher ammo\\rocket launcher ammo"), 0, 30, false, x, y, z + 0.5)
    elseif last_damage[gethash(victim)] == "weapons\\shotgun\\pellet" then
        createobject(gettagid("eqip", "powerups\\shotgun ammo\\shotgun ammo"), 0, 30, false, x, y, z + 0.5)
    elseif last_damage[gethash(victim)] == "weapons\\sniper rifle\\sniper bullet" then
        createobject(gettagid("eqip", "powerups\\sniper rifle ammo\\sniper rifle ammo"), 0, 30, false, x, y, z + 0.5)
    end
end

function OnTeamDecision(team)
    local dest_team = join_team
    if game_started then
        if cur_players == 0  then -- if no zombies make them human
            dest_team = human_team
        elseif cur_zombie_count > 0 and cur_human_count == 0 then
            dest_team = human_team
        end
    end
    return dest_team
end

function OnTeamChange(player, old_team, dest_team, voluntary)
    if voluntary then
        if not allow_change then
            privatesay(player, blockteamchange_message)
        elseif allow_change and old_team == zombie_team then
            -- this is so memory is updated for processing
            -- when voluntary is 0 OnTeamChange is called once the changes
            -- have been committed
            setspeed(player, zombie_speed)
            changeteam(player, true)
        end
        -- we don't let people change team
    elseif not voluntary then -- we can't stop the person changing teams, bein done by an admin
        -- update team counts
        if dest_team == zombie_team then
            cur_human_count = cur_human_count - 1
            cur_zombie_count = cur_zombie_count + 1
        elseif dest_team ~= zombie_team then
            cur_human_count = cur_human_count + 1
            cur_zombie_count = cur_zombie_count - 1
        end
        -- they're allowed to change if the timer is active, if it is disable it
        if allow_change == true and dest_team == zombie_team then
            allow_change = false
            --remove change timer
            if player_change_timer then
                removetimer(player_change_timer)
                player_change_timer = nil
            end
            say(timer_team_change_msg)
        end
        -- check if the game has started yet
        if game_started == true then
            -- set attributes
            if dest_team == zombie_team then
                makezombie(player, true)
            elseif dest_team ~= zombie_team then
                makehuman(player, true)
            end
            registertimer(200,"checkgamestate",player)
        end
        -- update team
        local thisNAME = getname(player)
        name_table[thisNAME] = team

    end
    registertimer(200,"checkgamestate",-1)
    return allow_change
end

function OnDamageApplication(receiving, causing, tagid, hit, backtap)
    if receiving then
        local player = objidtoplayer(receiving)
        if player then
            if not backtap then
                local tagname,tagtype = gettaginfo(tagid)
                last_damage[gethash(player)] = tagname
            else
                last_damage[gethash(player)] = "backtap"
            end
        end
    end
end

function OnDamageLookup(receiving, causing, mapId, tagdata)
    if causing and receiving then
        local causer = objidtoplayer(causing)
        local receiver = objidtoplayer(receiving)
        if causer and receiver then
            local c_team = getteam(causer)
            local r_team = getteam(receiver)
            if not team_play and r_team == c_team and causer ~= receiver then
                return false
            end
            -- if it's a human causing the damage
            if c_team ~= zombie_team then
                if cur_last_man then
                    modifier = lastman_dmgmodifier
                else
                    modifier = human_dmgmodifier
                end
                odl_multiplier(modifier)
            -- It's a zombie causing the damage
            elseif c_team == zombie_team then
                local tagname, tagtype = gettaginfo(mapId)
                -- check if it is melee damage
                if string.find(tagname, "melee", -5) then
                    odl_multiplier(9999)
                end
            end
        end
    end
end

function objidtoplayer(objectId)
    local m_object = getobject(objectId)
    if m_object then
        local playerId = readword(m_object + 0xC0)
        local m_player = getplayer(playerId)
        if m_player then
            return playerId
        end
    end
end

function OnVehicleEntry(player, m_vehicleId, seat, mapId, relevant)
    if game_started and relevant == true then
        local team = getteam(player)
        if (team == zombie_team and zombies_allowed_in_vehis) or (team ~= zombie_team and humans_allowed_in_vehis) then
            return true
        end
    end
    return false
end

function haveSpeedTimer(useless1, useless2, player)
    if getplayer(player) ~= nil then
        local team = getteam(player)
        sendconsoletext(player, "Your speed boost has been removed.")
        if team == zombie_team then
            setspeed(player, zombie_speed)
        else
            setspeed(player, human_speed)
        end
    else
        say("reset_spd_failed " .. player .. " is nil")
    end
    return 0
end

said = {}

function OnClientUpdate(player)
    local m_objectId = getplayerobjectid(player)
    if m_objectId == nil then return end
    local m_object = getobject(m_objectId)
    local team = getteam(player)

    local flashlight = readbyte(m_object, 0x206)
    if flashlight == 8 and not usedFlashlight[player] then
        usedFlashlight[player] = true
        warned[player] = false
        registertimer(speed_boost * 1000, "haveSpeedTimer", player)
        if team ~= human_team then
            setspeed(player, boost_amount + zombie_speed)
        elseif team ~= zombie_team and not cur_last_man then
            setspeed(player, boost_amount + human_speed)
        elseif team ~= zombie_team and cur_last_man then
            setspeed(player, boost_amount + lastman_speed)
        end
    elseif flashlight == 8 and usedFlashlight[player] and not warned[player] then
        sendconsoletext(player, "You have been given a speed boost!")
        warned[player] = true
    end

    if readbyte(m_object + 0x2A0) == 3 then
        if getteam(player) == zombie_team then
            applycamo(player, 1)
        end
    end

    -- this block of code disables them the ability to drop the oddball_or_flag
    if oddball_or_flag and team == zombie_team and flagball_weap[player] then
        if game_started and readbit(m_object + 0x209, 3) == true or readbit(m_object + 0x209, 4) == true then
            assignweapon(player, flagball_weap[player])
        end
    end

    local name = getname(player)
    -- this block of code sets the player's score according to what it should be.
    if tonumber(human_time[name]) then
        local m_player = getplayer(player)
        if gametype == "KOTH" then
            writewordsigned(m_player, 0xC4, human_time[name]*30)
        elseif gametype == "CTF" then
            writedwordsigned(m_player, 0xC8, human_time[name])
        elseif gametype == "Slayer" then
            writedwordsigned(slayer_globals, 0x40 + player * 4, human_time[name])
        end
    else
        human_time[name] = 0
    end
    --this makes sure that people won't camp in unreachable places. and doesnt work
    local x,y,z = getobjectcoords(m_objectId)

    outsidemap[player] = false

    if kill_humanss_in_water then
        if not isinvehicle(player) then
            if z < 1.65 and cur_map == "deathisland" then
                outsidemap[player] = true
                if m_objectId then
                    if team ~= zombie_team then
                            kill(player)
                        if not said[player] then
                            said[player] = true
                            say(getname(player) .. killed_in_water_msg, false)
                        end
                        if team == human_team and not cur_last_man then
                            registertimer(100, "makezombiedelay", {player, true})
                            registertimer(200,"checkgamestate", player)
                        end
                    end
                end
            elseif z < -22 and cur_map == "gephyrophobia" then
                outsidemap[player] = true
                if m_objectId then
                    if game_started then
                        if team ~= zombie_team then
                            kill(player)
                            if not said[player] then
                                say(getname(player) .. falling_infected_message, false)
                            end
                            if team == human_team and not cur_last_man then
                                registertimer(100, "makezombiedelay", {player, true})
                                registertimer(200,"checkgamestate", player)
                            end
                        elseif team == zombie_team then
                            kill(player)
                            say(getname(player) .. falling_death_message, false)
                            registertimer(200,"checkgamestate", player)
                        end
                    end
                end
            elseif z < -6 and cur_map == "boardingaction" then
                outsidemap[player] = true
                if m_objectId then
                    if game_started then
                        if team ~= zombie_team then
                            kill(player)
                            if not said[player] then
                                say(getname(player) .. falling_infected_message, false)
                            end
                            if team == human_team and not cur_last_man then
                                registertimer(100, "makezombiedelay", {player, true})
                                registertimer(200,"checkgamestate", player)
                            end
                        elseif team == zombie_team then
                            kill(player)
                            say(getname(player) .. falling_death_message, false)
                            registertimer(200,"checkgamestate", player)
                        end
                    end
                end
            elseif z < -1 and cur_map == "damnation" then
                outsidemap[player] = true
                if m_objectId then
                    if game_started then
                        if team ~= zombie_team then
                            kill(player)
                            if not said[player] then
                                say(getname(player) .. falling_infected_message, false)
                            end
                            if cur_last_man ~= nil then
                                registertimer(100, "makezombiedelay", {player, true})
                                registertimer(200,"checkgamestate", player)
                            end
                        elseif team == zombie_team then
                            kill(player)
                            say(getname(player) .. falling_death_message, false)
                            registertimer(200,"checkgamestate", player)
                        end
                    end
                end
            end
        end
    end

    if cur_map == "damnation" and team ~= zombie_team then

    elseif cur_map == "sidewinder" and team ~= zombie_team then
        if object_in_sphere(m_objectId,  -4.76, -7.51, 2.96, 1.5) or object_in_sphere(m_objectId, -4.78, -5.07, 2.96, 1.5) or object_in_sphere(m_objectId, 3.11, -7.31, 2.96, 2) or object_in_sphere(m_objectId, 3.11, 7.31, 2.96, 2) then -- DP Entrances
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, 2.93, -13.03, 2.56, 1.5) or object_in_sphere(m_objectId, 5.56, -13.03, 2.56, 1.5) or object_in_sphere(m_objectId, -7.36, -13.02, 2.56, 1.5) or object_in_sphere(m_objectId, -4.72, -13.02, 2.56, 1.5) then -- tun exits tp dp
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, -5.8, -33.46, 2.29, 5) then -- vents cur only red side
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, -32.2, -32.48, 3, 1.25) then -- ledge above red base
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        end

    elseif cur_map == "dangercanyon" and team ~= zombie_team then
        if object_in_sphere(m_objectId,  3.78, 32.84, 4.05, 1.5) or object_in_sphere(m_objectId, 9.94, -9.93, 0.03, 1.5) or object_in_sphere(m_objectId, -9.92, 9.95, 0.03, 1.5) or object_in_sphere(m_objectId,  -9.95, -9.92, 0.03, 1.5) then -- Ledges inside of blue base
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, 3.78, 32.66, 4.05, 1.25) then -- ledge above red base
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        end

    -- These are finished.
    elseif cur_map == "wizard" and team ~= zombie_team then
        if object_in_sphere(m_objectId,  9.94, -9.93, 0.03, 1.5) or object_in_sphere(m_objectId, 9.94, -9.93, 0.03, 1.5) or object_in_sphere(m_objectId, -9.92, 9.95, 0.03, 1.5) or object_in_sphere(m_objectId,  -9.95, -9.92, 0.03, 1.5) then -- Ledges inside of blue base
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        end

    elseif cur_map == "gephyrophobia" and team ~= zombie_team then
        if object_in_sphere(m_objectId,  74.78, -73.89, 7.43, 9) then -- Cliff Hanger
            sendconsoletext(player, "You are not allowed to go here...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, 26.9, -129.32, -5.19, 1.5) or object_in_sphere(m_objectId, 26.8, -15.32, -5.26, 1.5)then -- Above wires
            sendconsoletext(player, "You are not allowed to go here...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        end

    elseif cur_map == "boardingaction" and team ~= zombie_team then
        if object_in_sphere(m_objectId,  3, -21.37, 7.22, 1.5) or object_in_sphere(m_objectId, 16.67, 21.19, 7.22, 1.5) then -- Ledges inside of blue base
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        end
    elseif cur_map == "deathisland" and team ~= zombie_team then
        if object_in_sphere(m_objectId, 29.89, 15.29, 10.28, 2) or object_in_sphere(m_objectId, 29.89, 16.76, 10.28, 2.5) then -- Ledges inside of blue base
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, -26.51, -7.72, 11.65, 2) or object_in_sphere(m_objectId, -26.51, -6.25, 11.65, 2.5) then -- Ledges inside of red base
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, 16.82, -22.79, 8.72, 7) then -- Hole in the wall
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, 20.83, 50.92, 7.49, 5) then -- Island (the one not connected to the portal) (this only covers the landing!)
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        end

    elseif cur_map == "infinity" and team ~= zombie_team then
        if object_in_sphere(m_objectId, 1.11, -141.68, 20.49, 1.5) or object_in_sphere(m_objectId, 0.09, -141.68, 20.49, 1.5) then -- Tower on red side
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, -2.33, 24.78, 18.61, 1.5) or object_in_sphere(m_objectId, -1.3, 24.78, 18.61, 1.5) then -- Tower on blue side
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, -52.73, -19.67, 17.4, 2) then
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, -53.29, -8.32, 21.01, 6) then
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        end

    elseif cur_map == "bloodgulch" and team ~= zombie_team then
        if object_in_sphere(m_objectId, 80.96, -149.33, 3.1, 4) or object_in_sphere(m_objectId, 39.21, -96.36, 1.76, 4) then -- Trees
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, 92.38, -93.65, 9.33, 6) then -- Rock Tower (by os cave)
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        end

    elseif cur_map == "icefields" and team ~= zombie_team then
        if object_in_sphere(m_objectId, 77.91, 98.62, 3.81, 1.5) or object_in_sphere(m_objectId, 24.83, -34.22, 3.82, 1.5) then -- Top of teleporters
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, 19.42, -8.84, 3.63, 4) or object_in_sphere(m_objectId, -72.18, 74.3, 3.15, 2) then -- Clifs infront of bases
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, 32.81, -32.56, 5.67, 5) or object_in_sphere(m_objectId, -85.74, 96.96, 5.62, 5) then -- Clifs behind of bases (by portal)
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        elseif object_in_sphere(m_objectId, -17.66, 19.91, 11.58, 4) then -- Clif at bridge (unreachable one)
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        end

    elseif cur_map == "hangemhigh" and team ~= zombie_team then
        if object_in_sphere(m_objectId, 7.38, 2.02, -3.16, 3) then  -- Back room and shotgun room
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        end

    elseif cur_map == "putput" and team ~= zombie_team then
        if object_in_sphere(m_objectId, -4.59, -20.67, 3.3, 1.5) or object_in_sphere(m_objectId, -2.78, -20.84, 3.3, 1.5) then -- Above power up spawn
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        end

    elseif cur_map == "chillout" and team ~= zombie_team then
        if object_in_sphere(m_objectId, 11.26, 8.82, 3.16, 2) or object_in_sphere(m_objectId, -7.16, 7.8, 4.34, 3) then  -- Back room and shotgun room
            sendconsoletext(player, "You are not allowed to go there...")
            say(getname(player) .. " found a blocked spot...", false)
            kill(player)
        end
    end
end

function all_players_zombies(player)
    if player ~= nil and player ~= -1 and getplayer(player) then
        last_man_name = getname(player)
        local file = io.open("lastname_" .. processid .. ".tmp", "w")
        if (file ~= nil) then
            file:write(tostring(last_man_name))
            file:close()
        end
    end
    svcmd("sv_map_next")
end

function AssignZombieWeapons(id, count, table)
    local player = table[1]
    local clipcount = table[2]
    local ammocount = table[3]
    local batterycount = table[4]
    if getplayer(player) == nil then
        return
    end
    local m_objectId = getplayerobjectid(player)
    if m_objectId then
        local m_object = getobject(m_objectId)
        --count is increased everytime the timer is called
        if count == 1 then
            -- gets rid of any weapons a zombie is holding
            destroyweapons(player)
        end
        local i = count
        if zombie_weapon and zombie_weapon[i] and zombie_weapon[i] ~= "" then
            local m_weaponId = createobject(gettagid("weap", zombie_weapon[i]), 0, 0, false, 1, 1, 1)
            if m_weaponId and m_weaponId ~= 0xFFFFFFFF then
                assignweapon(player, m_weaponId)
                if oddball_or_flag == readdword(getobject(m_weaponId)) then
                    flagball_weap[player] = m_weaponId
                else
                    local m_weapon = getobject(m_weaponId)
                    if m_weapon then
                        -- set the ammo
                        writeword(m_weapon, 0x2B6, ammocount)
                        writeword(m_weapon, 0x2B8, clipcount)
                        writefloat(m_weapon, 0x240, 1)
                        -- force it to sync
                        updateammo(m_weaponId)
                    end
                end
            end
        end
        if count < 4 then return true else return false end
    end
    return false
end

function AssignHumanWeapons(id, count, player)

    if getplayer(player) == nil then
        return
    end
    local m_objectId = getplayerobjectid(player)
    if m_objectId then
        local m_object = getobject(m_objectId)
        --count is increased everytime the timer is called
        if count == 1 then
            -- gets rid of any weapons a zombie is holding
            destroyweapons(player)
        end
        local i = count
        if human_weapon and human_weapon[i] and human_weapon[i] ~= "" then
            local m_weaponId = createobject(gettagid("weap", human_weapon[i]), 0, 0, false, 1, 1, 1)
            if m_weaponId and m_weaponId ~= 0xFFFFFFFF then
                assignweapon(player, m_weaponId)
            end
        end
        if count < 4 then return true else return false end
    end
    return false
end

function checkgamestate(id, count, player)
    -- check if the game has started yet
    if game_started == true then
        local human_count, zombie_count = getteamsizes()
        -- if no humans, but there are zombies, end the game
        if human_count == 0 and zombie_count > 0 then
            all_players_zombies(player)
        elseif human_count > 1 and zombie_count == 0 then
            noZombiesLeft()
        elseif human_count == 1 and zombie_count > 0 and not cur_last_man then
            onlastman()
        elseif cur_last_man and zombie_count == 0 then
            if getplayer(cur_last_man) then
                makehuman(cur_last_man, false)
            end
            cur_last_man = nil
        elseif cur_last_man and human_count > 1 then
            if gametype == "Slayer" then takenavsaway(cur_last_man) end
            if getplayer(cur_last_man) then
                makehuman(cur_last_man, false)
            end
            cur_last_man = nil
        end
    end
    return false
end

function ChooseRandomPlayer(excludeTeam)
    -- loop through all 16 possible spots and add to table
    local t = getplayertable(excludeTeam)
    if #t > 0 then
        -- generate a random number that we will use to select a player
        local r = getrandomnumber(1, #t+1)
        return tonumber(t[r])
    else
        return nil
    end
end

function destroyweapons(player)
    for i = 0,3 do -- loop through the player's weapons (primary to quartenary)
        local m_weaponId = getweaponobjectid(player, i)
        if m_weaponId ~= 0xFFFFFFFF then destroyobject(m_weaponId) end
    end
end

function DelayWriteCoords(id, count)
    writefloat(readdword(ctf_globals + 0x0), 0x8, readfloat(readdword(ctf_globals + 0x0), 0x8) - 100)
    writefloat(readdword(ctf_globals + 0x4), 0x8, readfloat(readdword(ctf_globals + 0x4), 0x8) - 100)
    return false
end

function getalphacount()
    -- recalculate how many "alpha" zombies there are
    if zombie_count < 1 then
        alpha_zombie_count = round((cur_players * zombie_count) + 0.5)
    else
        alpha_zombie_count = zombie_count
    end
    if alpha_zombie_count > max_zombie_count then
        alpha_zombie_count = max_zombie_count
    end
    return alpha_zombie_count
end

function GetGameAddresses(game)
    if game == "PC" then
        map_pointer = 0x63525c
        ctf_globals = 0x639B98
        flag_respawn_addr = 0x488A7E
        gametype_base = 0x671340
        slayer_globals = 0x63A0E8
        team_koth_score_array = 0x639BD0

        ctf_score_patch = 0x488602
        ctf_score_patch1 = 0x488606

        slayer_score_patch = 0x48F428
        slayer_score_patch2 = 0x48F23E

        koth_score_patch = 0x48A798
        koth_score_patch2 = 0x48A76D
    else
        map_pointer = 0x5B927C
        ctf_globals = 0x5BDBB8
        flag_respawn_addr = 0x4638EE
        gametype_base = 0x5F5498
        slayer_globals = 0x5BE108
        team_koth_score_array = 0x5BDBF0

        ctf_score_patch = 0x463472
        ctf_score_patch1 = 0x463476

        slayer_score_patch = 0x469CF8
        slayer_score_patch2 = 0x4691CE

        koth_score_patch = 0x465458
        koth_score_patch2 = 0x46542D
    end
end

function getplayertable(excludeTeam)
    local players = ""
    for i=0,15 do
        if getplayer(i) and getteam(i) ~= excludeTeam then
            if players == nil then
                players = i .. ","
            else
                players = players .. i .. ","
            end
        end
    end
    return tokenizestring(players, ",")
end

function getteamplay()
    local team_play = readbyte(gametype_base + 0x34)
    if team_play == 1 then
        return true
    else
        return false
    end
end

function getteamsizes()
    local human_size = 0
    local zombie_size = 0
    human_size = getteamsize(0)
    zombie_size = getteamsize(1)
    return human_size,zombie_size
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 HumanTimer(id, count)
    if map_reset_boolean == true then
        map_reset_boolean = false
    end
    if game_started == true then
        for i = 0,15 do
            if getplayer(i) then
                local m_player = getplayer(i)
                local name = getname(i)
                local team = getteam(i)
                local m_objectId = getplayerobjectid(i)
                if m_objectId then
                    local m_object = getobject(m_objectId)
                    if m_object then
                        if tonumber(human_time[name]) then
                            human_time[name] = tonumber(human_time[name]) + 0.1
                        else
                            human_time[name] = 1
                        end
                    end
                end
                if gametype == "KOTH" then
                    local m_objectId = getplayerobjectid(i)
                    if m_objectId then
                        local m_object = getobject(m_objectId)
                        if PlayerInHill(i) == true and m_object then
                            if inhill_time[name] == nil then
                                inhill_time[name] = 0
                                writebit(m_object + 0x10, 0, 1)
                                if team ~= zombie_team then
                                    say(getname(i) .. " must leave the hill in 10 seconds or they will be infected!")
                                else
                                    say(getname(i) .. " must leave the hill in 10 seconds or they will be killed!")
                                end
                            elseif inhill_time[name] >= 10 then
                                if team ~= zombie_team then
                                    makezombie(i, true)
                                    say(getname(i) .. in_hill_too_long_msg)
                                else
                                    kill(i)
                                    say(getname(i) .. " has been killed because they were in the hill too long!")
                                end
                                inhill_time[name] = nil
                            elseif team ~= zombie_team then
                                privatesay(i, "You have " .. math.abs(inhill_time[name] - 10) .. " seconds to leave the hill!")
                                inhill_time[name] = inhill_time[name] + 1
                            end
                        elseif m_object then
                            inhill_time[name] = nil
                            writebit(m_object + 0x10, 0, 0)
                        end
                    end
                end
            end
        end
    end
    return true
end

function LoadTags()
    for i = 1,4 do
        if zombie_weapon[i] == "weapons\\ball\\ball" or zombie_weapon[i] == "weapons\\flag\\flag" then
            oddball_or_flag = gettagid("weap", zombie_weapon[i])
        end
    end
    camouflage_tag_id = gettagid("eqip", "powerups\\active camouflage")
    healthpack_tag_id = gettagid("eqip", "powerups\\health pack")
    overshield_tag_id = gettagid("eqip", "powerups\\over shield")
    fragnade_tag_id = gettagid("eqip", "weapons\\frag grenade\\frag grenade")
    plasmanade_tag_id = gettagid("eqip", "weapons\\plasma grenade\\plasma grenade")
    fragnade_tag_id = gettagid("eqip", "weapons\\frag grenade\\frag grenade")
    plasmanade_tag_id = gettagid("eqip", "weapons\\plasma grenade\\plasma grenade")
    oddball_tag_id = gettagid("weap", "weapons\\ball\\ball")
    flag_tag_id = gettagid("weap", "weapons\\flag\\flag")
end

function makehuman(player, forcekill, updatecounters)
    if getplayer(player) then
        if gametype == "Slayer" then
            writebyte(getplayer(player) + 0x20, human_team)
        end
        -- change the player's speed
        setspeed(player, human_speed)
        if getteam(player) == zombie_team then
            changeteam(player, forcekill)
            if not team_play then
                OnFFATeamChange(player, getteam(player), updatecounters)
            end
        end
    end
end

function makezombie(player, forcekill, updatecounters)
    if getplayer(player) ~= nil then
        if gametype == "Slayer" then
            writebyte(getplayer(player) + 0x20, zombie_team)
        end
        -- change the player's speed
        setspeed(player, zombie_speed)
        if getteam(player) ~= zombie_team then
            changeteam(player, forcekill)
            if not team_play then
                OnFFATeamChange(player, getteam(player), updatecounters)
            end
        end
    else
        say("Makezombie got nil")
    end
end

function makezombiedelay(id, count, arg)
    makezombie(arg[1], arg[2])
end

function makehumandelay(id, count, arg)
    makehuman(arg[1], arg[2])
end

function MsgTimer(id, count, player)
    if getplayer(player) then
        privatesay(player, welcome_message)
        if gametype == "KOTH" then
            privatesay(player, koth_additional_welcome_msg)
        elseif gametype == "Slayer" then
            --local msg = tokenizestring(slayer_additional_welcome_msg, "\n")
            --privatesay(player, msg[1])
            --privatesay(player, msg[2])
        end
    end
    return false
end

function NewGameTimer(id, count)
    if cur_players ~= 0 then
        local newgame_zombie_count = 0
        -- by default make all players human
        for x=0,15 do
            if getplayer(x) then
                local thisTeam = getteam(x)
                local name = getname(x)
                if thisTeam then
                    if thisTeam == zombie_team then
                        changeteam(x, 0)
                    end
                    human_time[name] = 0
                end
            end
        end
        local possible_count = cur_players
        -- make players zombie until the count has been met
        local finalZombies = 0
        if zombie_count >= 1 then
            finalZombies = zombie_count
        else
            finalZombies = round((possible_count * zombie_count) + 0.5)
        end
        -- make last man zombie
        local last_man_index = -1
        -- check if the last man is to be made a zombie
        -- if so find who was last man
        if last_man_next_zombie == true and cur_players > 1 then
            -- loop through all IP's and check if any match the last man
            readlastman()
            for i=0,15 do
                if getplayer(i) then
                    local name = getname(i)
                    if last_man_name == name then
                        -- make them a zombie and save their info
                        makezombie(i, true)
                        newgame_zombie_count = 1
                        last_man_index = i
                        break
                    end
                end
            end
        end
        -- reset last man
        last_man_name = 0
        if finalZombies == cur_players then -- if 0 players they will be human
            finalZombies = finalZombies - 1
        elseif finalZombies > possible_count then -- fix the count
            finalZombies = possible_count
        elseif max_zombie_count and finalZombies > max_zombie_count then -- cap the zombie count
            finalZombies = max_zombie_count
        elseif finalZombies < 0 then
            finalZombies = 0
        end
        -- set counters such that ChangeTeam wont end the game
        cur_zombie_count = 16
        cur_human_count = 16
        -- loop through the players, randomly selecting ones to become
        -- zombies
        while (newgame_zombie_count < finalZombies) do
            -- randomly choose a player
            local newzomb = ChooseRandomPlayer(zombie_team)
            if newzomb == nil then
                break
            elseif newzomb ~= last_man_index then
                makezombie(newzomb, true)
                newgame_zombie_count = newgame_zombie_count + 1
            end
        end
        -- fix the team counters
        cur_zombie_count = newgame_zombie_count
        cur_human_count = cur_players - finalZombies
        -- reset the map
        killtimer = false
        svcmd("sv_map_reset")
        hprintf("Game started")
        say("The game has started")
        -- loop through and tell players which team they're on
        for i=0,15 do
            if getplayer(i) then
                local pteam = getteam(i)
                if pteam then
                    -- check if they're a zombie
                    if pteam == zombie_team then
                        privatesay(i, zombie_message)
                    else
                        if not team_play then makehuman(i) end
                        privatesay(i, human_message)
                    end
                end
            end
        end
    end
    game_started = true
    killtimer = false
    new_game_timer = nil
    resptime = nil
    return false -- remove timer
end

function noZombiesLeft()
    if team_play then
        if player_change_timer == nil then
            allow_change = true
            say(nozombiesleftmessage)
            player_change_timer = registertimer(1000, "PlayerChangeTimer")
        end
    else
        -- pick a human and make them zombie.
        local newZomb = ChooseRandomPlayer(zombie_team)
        if newZomb then
            makezombie(newZomb, true)
            privatesay(newZomb, zombie_message)
        end
    end
end

function object_in_sphere(m_objectId, X, Y, Z, R)
    local Pass = false
    if getobject(m_objectId) then
        local x,y,z = getobjectcoords(m_objectId)
        if (X - x)^2 + (Y - y)^2 + (Z - z)^2 <= R then
            Pass = true
        end
    end
    return Pass
end

function OnFFATeamChange(player, dest_team, updatecounters)
    -- update team counts
    if not updatecounters then
        if dest_team == zombie_team then
            cur_human_count = cur_human_count - 1
            cur_zombie_count = cur_zombie_count + 1
        elseif dest_team ~= zombie_team then
            cur_human_count = cur_human_count + 1
            cur_zombie_count = cur_zombie_count - 1
        end
    end
    -- check if the game has started yet
    if game_started == true then
        registertimer(200,"checkgamestate",player)
    end
    -- update team with
    local thisNAME = getname(player)
    name_table[thisNAME] = team
end

function onlastman()
    -- lookup the last man
    for x=0,15 do
        if getplayer(x) then
            local team = getteam(x)
            if team ~= zombie_team and team then
                cur_last_man = x
                if gametype == "Slayer" then WriteNavsToZombies(x) end
                -- give the last man speed and extra ammo
                setspeed(x, lastman_speed)
                -- find the last man's weapons
                local m_player = getplayer(x)
                if m_player then
                    local m_ObjId = readdword(m_player + 0x34)
                    if m_ObjId then
                        -- find the player's object
                        local m_object = getobject(m_ObjId)
                        if m_object then
                            if lastman_invulnerable and lastman_invulnerable > 0 then
                                -- setup the invulnerable timer
                                writebit(m_object + 0x10, 0, 1)
                                registertimer(lastman_invulnerable * 1000, "RemoveLastmanProtection", m_object)
                            end
                            -- give all weapons 600 ammo
                            for i=0,3 do
                                local m_weaponId = readdword(m_object + 0x2F8 + (i*4))
                                if m_weaponId ~= 0xffffffff then
                                    -- get the weapons memory address
                                    local m_weapon = getobject(m_weaponId)
                                    if m_weapon then
                                        -- set the ammo
                                        writeword(m_weapon, 0x2B6, 132)
                                        writeword(m_weapon, 0x2B8, 100) --lastman clipcount
                                        updateammo(m_weaponId)
                                    end
                                end
                            end
                        end
                    end
                end
            end
        end
    end
    if cur_last_man then
        local lastman_name = getname(cur_last_man)
        local msg = string.format(lastman_message, tostring(lastman_name), lastman_invistime)
        say(msg)
        applycamo(cur_last_man, lastman_invistime)
    end
end

function PlayerChangeTimer(id, count)
    if count ~= 6 and team_play then
        local zombsize = cur_zombie_count
        if allow_change == false or zombsize > 0 then
            allow_change = false
            say("Thank you, the game can continue.")
            player_change_timer = nil
            return false
        end
        say("In " .. 6 - count .. " seconds a player will be forced to become a zombie.")
        return true
    else -- timer up, force team change
        allow_change = false
        -- pick a human and make them zombie.
        local newZomb = ChooseRandomPlayer(zombie_team)
        if newZomb ~= nil then
            makezombie(newZomb, true)
            kill(newZomb)
            say(getname(newZomb) .. " is now the new zombie!", false)
            privatesay(newZomb, zombie_message)
        else
            say("PlayerChangeTimer got nil")
        end
        player_change_timer = nil
        return false
    end
end

function PlayerInHill(player)
    player = tonumber(player)
    local bool = false
    local m_player = getplayer(player)
    if m_player then
        local InHill = readbyte(team_koth_score_array + player + 0x80)
        if InHill == 1 then
            bool = true
        end
    end
    return bool
end

function PutUnderMap(id, count, m_objectId)
    local m_object = getobject(m_objectId)
    if m_object then
        local x,y,z = getobjectcoords(m_objectId)
        movobjectcoords(m_objectId, x, y, z - 20)
    end
    return false
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 sendresponse(message, player)
    if message == "" then
        return
    end
    player = tonumber(player)
    if tonumber(player) and player ~= nil and player ~= -1 and player >= 0 and player < 16 then
        sendconsoletext(player, message)
    else
        hprintf(message)
    end
end

function ScriptLoad()
    if Persistent then
        cur_zombie_count = 0
        cur_human_count = 0
        alpha_zombie_count = 0
        human_time = {}
        cur_players = 0
        cur_last_man = nil
        last_man_name = 0
        processid = 0
        game_started = false
        allow_change = false
        flagball_weap = {}
        last_hill_time = {}
        name_table = {}
        inhill_time = {}
    end
    gametype = readbyte(gametype_base + 0x30)
    gametype_indicator = readbyte(gametype_base + 0x3C)
    writedword(ctf_score_patch, 0x90909090)
    writebyte(ctf_score_patch1, 0x90)
    writebyte(slayer_score_patch, 0xEB)
    writebyte(slayer_score_patch2, 0xEB)
    writedword(koth_score_patch, 0xF3E9)
    writebyte(koth_score_patch2, 0xEB)

    -- recalculate team counters
    cur_human_count, cur_zombie_count = getteamsizes()
    cur_players = cur_zombie_count + cur_human_count

    -- recalculate how many "alpha" zombies there are
    alpha_zombie_count = getalphacount()
    team_play = getteamplay()

    if gametype == 1 then
        gametype = "CTF"
        writedword(flag_respawn_addr + 0x0, 0xFFFFFFFF)
        registertimer(0, "DelayWriteCoords")
        join_team = zombie_team
    elseif gametype == 2 then
        gametype = "Slayer"
        join_team = zombie_team
        if speedtimer == nil then
            speedtimer = registertimer(750, "SpeedTimer")
        end
        for player=0,15 do
            if getplayer(player) then
                cur_players = cur_players + 1
                local team = getteam(player)
                -- onteamdecision isn't called for ffa gametypes
                if not team_play then
                    -- initialize the destination team as the join team
                    local dest_team = join_team
                    -- if no zombies make them human
                    if cur_human_count == 0 then
                        dest_team = human_team
                    end
                    -- we need to overwrite the 'team' variable being passed to onplayerjoin
                    team = dest_team
                end
                if team == zombie_team then
                    cur_zombie_count = cur_zombie_count + 1
                    --we don't need to update the counters since they're already on the zombieteam
                    makezombie(player, false, true)
                    --send them the zombie message
                    privatesay(player, zombie_message)
                else
                    cur_human_count = cur_human_count + 1
                    --make this person a human (they're currently a zombie)
                    makehuman(player, false, true)
                    --send them the human message
                    privatesay(player, human_message)
                end
            end
        end
    elseif gametype == 4 then
        gametype = "KOTH"
        join_team = zombie_team
    else
        join_team = zombie_team
        hprintf("Incompatible gametype!")
    end
    -- assume a game is running
    game_started = true

    if humantimer == nil then
        humantimer = registertimer(1000, "HumanTimer")
    end
    LoadTags()
    registertimer(200,"checkgamestate",-1)
end

function readlastman()
    local file = io.open("lastname_" .. processid .. ".tmp", "r")
    if file then
        -- read the ip
        last_man_name = file:read("*line")
        file:close()
        -- delete the file
        os.remove("lastname_" .. processid .. ".tmp")
    end
end

function SpeedTimer(id, count)
    if gametype == "Slayer" then
        for i = 0,15 do
            local m_player = getplayer(i)
                if m_player then
                local speed = readfloat(m_player, 0x6C)
                if getteam(i) == zombie_team and speed < zombie_speed then
                    setspeed(i, zombie_speed)
                elseif getteam(i) ~= zombie_team and cur_last_man and speed < lastman_speed then
                    setspeed(i, lastman_speed)
                elseif getteam(i) ~= zombie_team and not cur_last_man and speed < human_speed then
                    setspeed(i, human_speed)
                end
            end
        end
        return true
    end
    return false
end

function RemoveLastmanProtection(id, count, m_object)
    writebit(m_object + 0x10, 0, 0)
    return false
end

function round(val, decimal)
    return math.floor((val * 10^(tonumber(decimal) or 0) + 0.5)) / (10^(tonumber(decimal) or 0))
end

function takenavsaway(lastman)
    for i = 0,15 do
        local m_player = getplayer(i)
        if m_player then
            writeword(m_player, 0x88, i)
        end
    end
end

function WriteNavsToZombies(cur_last_man)
    for i = 0,15 do
        if getplayer(i) ~= nil then
            local team = getteam(i)
            if team == zombie_team then
                local m_player = getplayer(i)
                if m_player then
                    local slayer_target = readword(m_player, 0x88)
                    if slayer_target < 16 and slayer_target > -1 then
                        writeword(m_player, 0x88, cur_last_man)
                    end
                end
            end
        end
    end
end

function writewordsigned(address, offset, value)
    if tonumber(value) and value > 0x7FFF then
        local difference = 0xFFFF - value
        value = -1 - difference
    end
    writeword(address + offset, value)
end

function writedwordsigned(address, offset, value)
    if value and value > 0x7FFFFFFF then
        local difference = 0xFFFFFFFF - value
        value = -1 - difference
    end
    writedword(address + offset, value)
end