killtimer = {}

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_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_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

 

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!"

 

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!"

 

timer_team_change_msg = "Thank you. The game will now continue!"

 

human_message = "YOUR A HUMAN!!! KILL THE FILTHY ZOMBIES!"

zombie_message = "YOUR A ZOMBIE!!! KILL ALL HUMANS!"

 

welcome_message = "Welcome to Zombie Zone Infection!"

koth_additional_welcome_msg = "The hill is a safezone! Use it for quick getaways!"

 

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

 

function OnScriptLoad(process, game, persistent)

    GAME = game

        GetGameAddresses(game)

        processid = process

        Persistent = persistent

    ScriptLoad()

 

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

 

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

 

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

 

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

 

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

 

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

 

function protect(idk, id1, objId)

        local m_object = getobject(objId)

        writebit(m_object + 0x10, 0, 1)

        registertimer(1000, "RemoveLastmanProtection", m_object)

 

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

 

 

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

 

invimsg = false

 

function setfalse()

        invimsg = false

 

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

 

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

 

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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")

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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, ",")

 

function getteamplay()

    local team_play = readbyte(gametype_base + 0x34)

    if team_play == 1 then

        return true

        else

        return false

        end

 

function getteamsizes()

    local human_size = 0

        local zombie_size = 0

        human_size = getteamsize(0)

        zombie_size = getteamsize(1)

        return human_size,zombie_size

 

function getweaponobjectid(player, slot)

    local m_objectId = getplayerobjectid(player)

    if m_objectId then return readdword(getobject(m_objectId) + 0x2F8 + slot*4) 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