--[[ ###  Gun-Game/Arms Race v5 'UP'  ###]]--
--[[ ###  by H® Shaft for Phasor v2   ###]]-- 

-- GUN GAME: Based on the Counter Strike game called 'Gun Game.' Also, derivatives known as 'Global Offensive' & 'Arsenal: Arms Race' by Valve
-- Compatible with CTF & Slayer gametypes only! Pre-fabricated gametypes for both PC and CE: http://www.mediafire.com/download/2jtch51nba7cmcs/gungame_gametypes.zip

-- GAME PLAY:
-- Each time you kill with a weapon, you will be given a new weapon. (oddball and flag: excluded weapons)
-- The first person to kill with each weapon in the game - wins!
-- There are 10 weapons. You can only use the weapon you are given. All weapons have infinite ammo.
-- When you kill another player, you will only advance if you survive the kill.  If you die during the kill, you don't advance.
-- Melee is instant kill and will advance your level.
-- If you are on level 10 (final level), and get killed by another player, betray or suicide, you are demoted one level.
-- Beserk Mode: When reaching level 10, you activate 'Beserk Mode' which temporarily speeds up all other players and heals the injured.
-- Your player speed is based on your weapon: With a strong weapon, you move slower than you will with a weaker weapon.

-- SERVER SETUP - USAGE: --- scroll to very bottom for additional info

-- edit --
logging = false			-- | true enable full script game logging: false = disable, true = enable, see also line 92 - can be spammy to the log, best used for tournaments/scrims/debugging
autobal_delay = 15  	-- | Time in seconds to delay balancing teams during the game and when players join or leave, you should not go lower than 10 seconds
-- don't edit --
team_play = false
map_reset = false
beserk = false
weapons = {}
level = {}
last_damage = {}
team_change = {}
mybattery = {}
playerscore = {}
teamscore = {}
needler_clip = 40
shotgun_clip = 12
assault_clip = 60
flame_clip = 200
pistol_clip = 12
rocket_clip = 2
sniper_clip = 4
battery = 0
cur_players = 0
timerCount = 0
game_autobal = nil
showtargets = nil
roaming_targets = true

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

function GetRequiredVersion()
	return 200
end

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

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

function OnNewGame(map)	
	ScriptLoad()	
	team_play = getteamplay()
	gametype = readbyte(gametype_base + 0x30)
	game_started = false
	
	if not new_game_timer then
    	new_game_timer = registertimer(0, "NewGameTimer")
	end	
end

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

function ScriptLoad()
	if Persistent then
		-- edit -- 
		logging = false			-- | true enable full script game logging: false = disable, true = enable, see also line 22 - can be spammy to the log, best used for tournaments/scrims/debugging
		autobal_delay = 15  	-- | Time in seconds to delay balancing teams during the game and when players join or leave, you should not go lower than 10 seconds
		-- don't edit --
		game_started = false
		team_play = false
		beserk = false		
		weapons = {}
		level = {}
		last_damage = {}
		team_change = {}
		mybattery = {}
		playerscore = {}
		teamscore = {}
		needler_clip = 20
		shotgun_clip = 12
		assault_clip = 60
		flame_clip = 100
		pistol_clip = 12
		rocket_clip = 2
		sniper_clip = 4
		battery = 0
		cur_players = 0
		timerCount = 0
		game_autobal = nil
		roaming_targets = false		

		if new_game_timer == nil then
			new_game_timer = registertimer(0, "NewGameTimer")
		end			
	end
	
	GetGameAddresses(game)
	showtargets = nil
	ApplyPatches()
	game_started = false
	team_play = false	
	team_play = getteamplay()
	beserk = false
	gametype = readbyte(gametype_base + 0x30)
	cur_players = readword(network_base, 0x1A0)
	
	for i = 0,15 do
		if getplayer(i) then
			local hash = gethash(i)
			last_damage[hash] = nil
			mybattery[i] = 1
			weapons[i] = "weapons\\plasma pistol\\plasma pistol"
			level[i] = 1
			playerscore[i] = 0
			team_change[i] = false
			cur_players = cur_players + 1
		end
	end	

	if gametype ~= 5 and cur_players > 2 then
		roaming_targets = true		-- | true enable roaming target/navs to appear over heads of all players. false = disable
		showtargets = registertimer(250, "ShowTargets")
	end		
	
	if team_play and game_autobal == nil then
		game_autobal = registertimer(autobal_delay * 1000, "AutoBalance") 
	end		
	
	if gametype == 3 or gametype == 4 or gametype == 5 then
		for i=0,15 do
			if getplayer(i) then
				privatesay(i, "Koth, Oddball & Race gametypes are not compatible with Gun-Game. ", false)
			end
		end		
		log_msg(4, "#GUN-GAME# Koth, Oddball & Race gametypes are NOT compatible with Gun-Game: try CTF or Slayer.") -- log in scripts log
		log_msg(1, "#GUN-GAME# Koth, Oddball & Race gametypes are NOT compatible with Gun-Game: try CTF or Slayer.") -- log in game log
	else
		game_started = false
		if new_game_timer == nil then
			new_game_timer = registertimer(0, "NewGameTimer")
		end		
	end	
		
end	

function OnPlayerJoin(player)
	if getplayer(player) then
		local name = getname(player)
		cur_players = cur_players + 1
		mybattery[player] = 1
		weapons[player] = "weapons\\plasma pistol\\plasma pistol"
		level[player] = 1
		playerscore[player] = 0
		team_change[player] = false
		welcome = registertimer(9000, "Welcome", player)
		if game_started and team_play and cur_players > 3 then 
			join_autobal = registertimer(autobal_delay * 1000, "AutoBalance")
		end
		if game_started and cur_players > 2 and roaming_targets and not showtargets then
			if gametype ~= 5 then
				showtargets = registertimer(250, "ShowTargets")
			end	
		end			
		if team_play and cur_players > 3 and not game_autobal then
			game_autobal = registertimer(autobal_delay * 1000, "AutoBalance") 
		end	
		if logging then log_msg(1, name .. " given plasma pistol on spawn.") end	
	end
end

function Welcome(id, count, player)
	if count == 1 then
		if getplayer(player) then
			privatesay(player, "Welcome to Gun-Game Arms Race!")
			privatesay(player, "Each time you kill with a weapon, you will be given a new weapon.")
			privatesay(player, "The first person to kill with every weapon in the game - wins!")
			privatesay(player, "This version is 'UP': Start with Plasma Pistol, end with Plasma Cannon.")
			privatesay(player, "type @help for more info.")
		end
	end	
	return false	
end

function OnPlayerLeave(player)
	if getplayer(player) then
		cur_players = cur_players - 1
		if level[player] == 10 then
			beserk = false
		end		
		mybattery[player] = {}
		team_change[player] = {}
		weapons[player] = {}
		level[player] = {}
		playerscore[player] = 0
		if game_started and team_play and cur_players > 3 then 
			leave_autobal = registertimer(autobal_delay * 1000, "AutoBalance")
		end		
		if team_play and cur_players < 4 and game_autobal then
			game_autobal = nil
		elseif team_play and cur_players > 3 and not game_autobal then	
			game_autobal = registertimer(autobal_delay * 1000, "AutoBalance") 
		end
		if cur_players < 3 and showtargets then
			showtargets = nil
		end			
	end
end	

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

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

function NewGameTimer(id, count)
	if map_reset == true then
		if team_play and cur_players > 3 then Balance_Teams() end
		map_reset = false
	end
	
	game_started = true
	team_play = getteamplay()
	
	if team_play then
		teamscore[0] = 0
		teamscore[1] = 0
		for i=0,15 do
			if getplayer(i) then
				cur_players = cur_players + 1
			end
		end			
		if not game_autobal and game_started and cur_players > 3 then
			game_autobal = registertimer(autobal_delay * 1000, "AutoBalance")
		end			
	end		
	
	if Persistent then
		if logging then log_msg(1, "Gun-Game has begun on " .. map_name .. " and running as a persistent script.") end
	else
		if logging then log_msg(1, "Gun-Game has begun on " .. map_name .. " and running as a non-persistent script.") end
	end	
	
	for x = 0,15 do	
		if getplayer(x) then
			local hash = gethash(x)
			local name = getname(x)
			local m_objectId = getplayerobjectid(x)
			last_damage[hash] = nil
			team_change[x] = false
			beserk = false
			mybattery[x] = 0	
			weapons[x] = "weapons\\plasma pistol\\plasma pistol"
			level[x] = 1
			playerscore[x] = 0
			speedtimer = registertimer(0, "SpeedTimer", x)
			
			if m_objectId ~= nil then
				local m_object = getobject(m_objectId)
				if m_object then
					for i = 0,3 do
						local weapID = readdword(getobject(m_objectId), 0x2F8 + i*4)
						if weapID ~= 0xFFFFFFFF then
							destroyobject(weapID)
						end
					end
					writebyte(m_object + 0x31E, 0)
					writebyte(m_object + 0x31F, 0)	
				end
				
				if level[x] == 1 then
					battery = 0
					weapons[x] = "weapons\\plasma pistol\\plasma pistol"
					sendconsoletext(x, "Plasma Pistol - Level 1", 4, 0)
					if m_object then
						writebyte(m_object + 0x31E, 2)
						writebyte(m_object + 0x31F, 0)	
					end	
				end
				
				local m_weaponId = createobject(gettagid("weap", weapons[x]), 0, 20, false, 0, 0, 0)
				
				if m_weaponId then
					local m_weapon = getobject(m_weaponId)
					if m_weapon then
						assignweapon(x, m_weaponId)
						if logging then log_msg(1, name .. " given plasma pistol on new game.")	end
						if m_weapon then
							mybattery[x] = 1
						end
					end		
				end
				
			end	
		end
	end
	
	if updatescores == nil and game_started then
		updatescores = registertimer(500, "Update_Scores")
	end	
	
	if checkbattery == nil and game_started then
		checkbattery = registertimer(1000, "CheckBattery")	
	end
	
	new_game_timer = nil	
	return false
end

function AssignGameWeapons(id, count, player)
	if map_reset == true then
		map_reset = false
	end
	
	local clip = 0
	local ammo = 9999
	
	if game_started then	
		if getplayer(player) then		
			local m_objectId = getplayerobjectid(player)
			local name = getname(player)
			local lvl = level[player]
			local team = getteam(player)
			
			if m_objectId ~= nil then
				if gametype == 1 or gametype == 2 then
					speedtimer = registertimer(0, "SpeedTimer", player)
				end	
				
				local m_object = getobject(m_objectId)
				if m_object then
					for i = 0,3 do
						local weapID = readdword(getobject(m_objectId), 0x2F8 + i*4)
						if weapID ~= 0xFFFFFFFF then
							destroyobject(weapID)
						end
					end
					writebyte(m_object + 0x31E, 0)
					writebyte(m_object + 0x31F, 0)	
				end	
				
				if logging then log_msg(1, name .. " weapon assignment initiated - weapons & nades removed. Is level: " .. lvl) end	
				
				if level[player] == nil then 
					level[player] = 1
					weapons[player] = "weapons\\plasma pistol\\plasma pistol"
					sendconsoletext(player, "Level 1:   Plasma Pistol", 4, 0)	
					if m_object then
						writebyte(m_object + 0x31E, 1)
						writebyte(m_object + 0x31F, 1)	
					end
					if logging then log_msg(1, name .. " given plasma pistol, 1 frag, 1 plasma. Is level: " .. lvl) end
					
				elseif level[player] == 1 then
					weapons[player] = "weapons\\plasma pistol\\plasma pistol"
					sendconsoletext(player, "Level 1:   Plasma Pistol", 4, 0)
					if m_object then
						writebyte(m_object + 0x31E, 1)
						writebyte(m_object + 0x31F, 1)	
					end	
					
					if logging then log_msg(1, name .. " given plasma pistol, 1 frag, 1 plasma. Is level: " .. lvl) end	
					
				elseif level[player] == 2 then
					clip = needler_clip
					weapons[player] = "weapons\\needler\\mp_needler"
					sendconsoletext(player, "Level 2:   Needler", 4, 0)
					if m_object then
						writebyte(m_object + 0x31E, 0)
						writebyte(m_object + 0x31F, 2)	
					end
					if logging then log_msg(1, name .. " given needler, active camouflage, 2 plasmas. Is level: " .. lvl) end	
					
				elseif level[player] == 3 then
					clip = shotgun_clip
					weapons[player] = "weapons\\shotgun\\shotgun"
					sendconsoletext(player, "Level 3:   Shotgun", 4, 0)
					health = registertimer(0, "ApplyHP", player)
					if m_object then
						writebyte(m_object + 0x31E, 1)
						writebyte(m_object + 0x31F, 0)
					end					
					if logging then log_msg(1, name .. " given shotgun, 1 frag, active camouflage removed. Is level: " .. lvl) end
					
				elseif level[player] == 4 then
					weapons[player] = "weapons\\plasma rifle\\plasma rifle"
					sendconsoletext(player, "Level 4:   Plasma Rifle", 4, 0)
					if m_object then
						writebyte(m_object + 0x31E, 0)
						writebyte(m_object + 0x31F, 2)
					end	
					if logging then log_msg(1, name .. " given plasma rifle, 2 plasmas. Is level: " .. lvl)	end
					
				elseif level[player] == 5 then
					clip = assault_clip
					weapons[player] = "weapons\\assault rifle\\assault rifle"
					sendconsoletext(player, "Level 5:   Assault Rifle", 4, 0)
					if m_object then
						writebyte(m_object + 0x31E, 1)
						writebyte(m_object + 0x31F, 0)
					end					
					if logging then log_msg(1, name .. " given assault rifle, 1 frag. Is level: " .. lvl) end
					
				elseif level[player] == 6 then
					clip = flame_clip
					weapons[player] = "weapons\\flamethrower\\flamethrower"
					sendconsoletext(player, "Level 6: Flamethrower", 4, 0)
					health = registertimer(0, "ApplyHP", player)	
					if logging then log_msg(1, name .. " given flamethrower. Is level: " .. lvl) end	
					
				elseif level[player] == 7 then
					clip = pistol_clip
					weapons[player] = "weapons\\pistol\\pistol"
					sendconsoletext(player, "Level 7:   Pistol", 4, 0)					
					if logging then log_msg(1, name .. " given pistol. Is level: " .. lvl) end
					
				elseif level[player] == 8 then
					clip = rocket_clip
					weapons[player] = "weapons\\rocket launcher\\rocket launcher"
					sendconsoletext(player, "Level 8:   Rocket Launcher", 4, 0)
					health = registertimer(0, "ApplyHP", player)					
					if logging then log_msg(1, name .. " given rocket launcher. Is level: " .. lvl) end
					
				elseif level[player] == 9 then
					clip = sniper_clip
					weapons[player] = "weapons\\sniper rifle\\sniper rifle"
					sendconsoletext(player, "Level 9:   Sniper Rifle", 4, 0)	
					health = registertimer(0, "ApplyHP", player)		
					if logging then log_msg(1, name .. " given sniper rifle. Is level: " .. lvl) end	
					
				elseif level[player] == 10 then
					weapons[player] = "weapons\\plasma_cannon\\plasma_cannon"
					beserk = true
					sendconsoletext(player, "Level 10:   Plasma Cannon --- FINAL LEVEL! ---", 4, 0)
					say(name .. " has reached level 10! Beserk mode activated! Kill 'em!")				
					if logging then log_msg(1, name .. " given plasma cannon and booster function called. Is level: " .. lvl) end

					--Health Booster call for all but level 10
					for i=0,15 do
						if getplayer(i) then
							local name = getname(i)
							local lvl = level[i]
							local p_objectId = getplayerobjectid(i)
							if p_objectId ~= nil then 
								if lvl <= 9 then
									local p_object = getobject(p_objectId)
									local obj_health = readfloat(p_object + 0xE0)
									if obj_health < 1 then
										p_objectId = registertimer(6000, "Booster", {i, m_objectId})
									end
								end	
							end	
						end
					end	
					
				end
				
				local m_weaponId = createobject(gettagid("weap", weapons[player]), 0, 20, false, 0, 0, 0)
				
				if m_weaponId then
					local m_weapon = getobject(m_weaponId)
					assignweapon(player, m_weaponId)
					if m_weapon then
						if (level[player] == 1) or (level[player] == 4) or (level[player] == 10) then
							mybattery[player] = 1
						else
							mybattery[player] = 0
							writeword(m_weapon + 0x2B6, ammo)
							writeword(m_weapon + 0x2B8, clip)
							updateammo(m_weaponId)
						end
					end	
				end
				
			end	
		end
	end		
	return false
end

function OnWeaponReload(player, weapon)
	local reload = nil
		if getplayer(player) then
			local m_player = getplayer(player)
			local m_objectId = readdword(m_player + 0x34)
			local m_object = getobject(m_objectId)
			if m_object then
				local m_weaponId = readdword(m_object + 0x118)
				if m_weaponId then
					local m_weapon = getobject(m_weaponId)			
					local weapname = gettaginfo(readdword(m_weapon))
					if m_weapon then
						if weapname == "weapons\\needler\\mp_needler" then 
							writeword(getobject(weapon) + 0x2B8, needler_clip)
							updateammo(weapon)
							reload = false
						elseif weapname == "weapons\\flamethrower\\flamethrower" then 
							writeword(getobject(weapon) + 0x2B8, flame_clip)
							updateammo(weapon)
							reload = false	
						else
							reload = true
						end
					end		
				end
			end	
		end
	return reload
end

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

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

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

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

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

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

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

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

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

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

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

function Booster(id, count, arg)
	-- heals all players level 9 and below when any other player reaches level 10
	if count == 1 and game_started then
		local player = arg[1]
		if getplayer(player) then
			local name = getname(player)
			local lvl = level[player]		
			local m_playerObjId = getplayerobjectid(player)
			if m_playerObjId ~= nil and lvl <= 9 then 
				local m_object = getobject(m_playerObjId)
				local obj_health = readfloat(m_object + 0xE0)
				if obj_health < 1 then
					writefloat(m_object + 0xE0, 1)
					sendconsoletext(player, "Bonus! Health restored!", 4, 0)
					if logging then log_msg(1, name .. " health restored from booster function. Is level: " .. lvl) end
				end
			end
		end	
	end
	return false
end

function SpeedTimer(id, count, player)
	-- monitors player levels, and sets player speed accordingly. Also sets Beserk Mode speed.
	if player then
		local name = getname(player)
		local lvl = level[player]	
		if level[player] == 1 then
			if beserk then
				setspeed(player, 1.5)
				sendconsoletext(player, "BESERK MODE!", 4, 1)
			else	
				setspeed(player, 1.45) -- plasma pistol
			end	
			if logging then log_msg(1, name .. " speed set at 1.45. Is level: " .. lvl) end
		elseif level[player] == 2 then
			if beserk then
				setspeed(player, 1.5)
				sendconsoletext(player, "BESERK MODE!", 4, 1)
			else		
				setspeed(player, 1.35) -- needler
			end	
			if logging then log_msg(1, name .. " speed set at 1.35. Is level: " .. lvl) end
		elseif level[player] == 3 then
			if beserk then
				setspeed(player, 1.5)
				sendconsoletext(player, "BESERK MODE!", 4, 1)
			else
				setspeed(player, 1.25) -- shotgun
			end	
			if logging then log_msg(1, name .. " speed set at 1.25. Is level: " .. lvl) end
		elseif level[player] == 4 then
			if beserk then
				setspeed(player, 1.5)
				sendconsoletext(player, "BESERK MODE!", 4, 1)
			else		
				setspeed(player, 1.15) -- plasma rifle
			end	
			if logging then log_msg(1, name .. " speed set at 1.15. Is level: " .. lvl) end
		elseif level[player] == 5 then
			if beserk then
				setspeed(player, 1.5)
				sendconsoletext(player, "BESERK MODE!", 4, 1)
			else		
				setspeed(player, 1.15) -- assault rifle
			end	
			if logging then log_msg(1, name .. " speed set at 1.15. Is level: " .. lvl) end
		elseif level[player] == 6 then
			if beserk then
				setspeed(player, 1.5)
				sendconsoletext(player, "BESERK MODE!", 4, 1)
			else		
				setspeed(player, 1) -- flamethrower
			end	
			if logging then log_msg(1, name .. " speed set at 1. Is level: " .. lvl) end
		elseif level[player] == 7 then
			if beserk then
				setspeed(player, 1.5)
				sendconsoletext(player, "BESERK MODE!", 4, 1)
			else		
				setspeed(player, 0.85) -- pistol
			end	
			if logging then log_msg(1, name .. " speed set at 0.85. Is level: " .. lvl) end
		elseif level[player] == 8 then
			if beserk then
				setspeed(player, 1.5)
				sendconsoletext(player, "BESERK MODE!", 4, 1)
			else		
				setspeed(player, 0.65) -- rocket launcher
			end	
			if logging then log_msg(1, name .. " speed set at 0.65. Is level: " .. lvl) end
		elseif level[player] == 9 then
			if beserk then
				setspeed(player, 1.5)
				sendconsoletext(player, "BESERK MODE!", 4, 1)
			else		
				setspeed(player, 0.75) -- sniper rifle
			end	
			if logging then log_msg(1, name .. " speed set at 0.75. Is level: " .. lvl) end
		elseif level[player] == 10 then
			setspeed(player, 0.65) -- plasma cannon
			if logging then log_msg(1, name .. " speed set at 0.65. Is level: " .. lvl) end
		end	
	end
	return false
end	

function OnServerChat(player, type, message)
	local response = nil
	
	if player then
		local name = getname(player)
		
		if string.lower(message) == "help" or string.lower(message) == "@help" or string.lower(message) == "/help" then
			local response = false
			privatesay(player, "Each time you kill with a weapon, you will be given a new weapon.")
			privatesay(player, "The first person to kill with each weapon in the game - wins!")
			privatesay(player, "There are 10 weapons. Starting with plasma pistol and ending with plasma cannon.")
			privatesay(player, "Other weapons, grenades & powerups are blocked. Killing with vehicles blocked.")
			privatesay(player, "If you are on level 10, and get killed, suicide or betray you're demoted one level.")
			say(name .. " is reading the @help menu. ")	
			return response				
		end
		
		if string.lower(message) == "balance" then
			Balance_Teams()
			response = false			
		end
		
	end
	return response
end	

function OnPlayerKill(killer, victim, mode)
	local response = false
		
	if game_started then
		mybattery[victim] = 0
		
		if mode == 0 then -- player was killed by server
			if getplayer(victim) then
				if team_change[victim] then
					response = false	
				else
					vlvl = level[victim]
					vname = getname(victim)
					privatesay(victim, vname .. " - you were killed by the server.")
					if logging then log_msg(1, vname .. " was killed by the server. Is level: " .. vlvl) end
					response = false						
				end	
				response = false
			end	
			
		elseif mode == 1 then -- player was killed by falling or team-change
				if getplayer(victim) then
					vlvl = level[victim]
					vname = getname(victim)
					vhash = gethash(victim)	
					if not team_change[victim] and not map_reset then
						if last_damage[vhash] == "globals\\distance" or last_damage[vhash] == "globals\\falling" then 
							say(vname .. " fell and died.")
							if logging then log_msg(1, vname .. " was killed by fall damage. Is level: " .. vlvl) end
							response = false
						end	
					elseif team_change[victim] and map_reset then
						team_change[victim] = false	
						if logging then log_msg(1, vname .. " was killed by team change. Is level: " .. vlvl) end
						response = false						
					end
				end	
			
		elseif mode == 2 then -- player was killed by the guardians
			if getplayer(victim) then
				vlvl = level[victim]
				vname = getname(victim)	
				say(vname .. " was killed by the guardians. ", false)
				if logging then log_msg(1, vname .. " was killed by guardians. Is level: " .. vlvl) end
				response = false
			end	
			
		elseif mode == 3 then -- player was killed by vehicle
			if getplayer(victim) then
				vlvl = level[victim]
				vname = getname(victim)
				say(vname .. " was killed by a vehicle. ")
				if logging then log_msg(1, vname .. " was killed by a vehicle. Is level: " .. vlvl) end
				response = false
			end
			
		elseif mode == 4 then -- player was killed by another player
			-- killer is not always valid, setup values to prevent error
			if getplayer(killer) then
				klvl = level[killer]
				kname = getname(killer)
				khash = gethash(killer)
				kteam = getteam(killer)	
			else	
				kname = "NULL"
				klvl = NULL
				kteam = -1
				khash = "00000"
			end	
			
			if getplayer(victim) then
				vlvl = level[victim]
				vname = getname(victim)
				vhash = gethash(victim)
				vteam = getteam(victim)
				if vlvl == 10 then
					beserk = false
					sendconsoletext(victim, "Demoted to Level 9! Ain't that a bitch?!", 4, 0)
					say(vname .. " demoted to Level 9 for getting killed.")
					weapons[victim] = "weapons\\sniper rifle\\sniper rifle"
					level[victim] = 9
					playerscore[victim] = 8
					if team_play then if (teamscore[vteam] - 1) >= 0 then teamscore[vteam] = teamscore[vteam] - 1 end end
					if logging then log_msg(1, vname .. " level 10 demoted to 9 for being killed by another player.") end
					response = false
				end

				if last_damage[vhash] then
					if getplayer(killer) then
						klvl = level[killer]
						kname = getname(killer)
						khash = gethash(killer)
						kteam = getteam(killer)						
						local k_objectId = getplayerobjectid(killer)
						if k_objectId ~= nil then -- sets condition that killer must be alive for the following	
							if team_play then kteam = getteam(killer) teamscore[kteam] = teamscore[kteam] + 1 end
									
							if last_damage[vhash] == "weapons\\plasma pistol\\bolt" or last_damage[vhash] == "weapons\\plasma rifle\\charged bolt" or last_damage[vhash] == "weapons\\plasma pistol\\melee" or last_damage[vhash] == "weapons\\plasma pistol\\rw charged bolt" then
								if weapons[killer] == "weapons\\plasma pistol\\plasma pistol" then
									level[killer] = 2
									playerscore[killer] = 1
									if string.find(last_damage[vhash], "melee") then
										say(kname .. " melee'd " .. vname .. " with a plasma pistol")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. "'s melee who is level: " .. klvl) end
									else
										say(kname .. " killed " .. vname .. " with a plasma pistol")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
									end										
									gameweap = registertimer(0, "AssignGameWeapons", killer)
									response = false
								end
								
							elseif last_damage[vhash] == "weapons\\needler\\detonation damage" or last_damage[vhash] == "weapons\\needler\\explosion" or last_damage[vhash] == "weapons\\needler\\impact damage" or last_damage[vhash] == "weapons\\needler\\melee" then
								if weapons[killer] == "weapons\\needler\\mp_needler" then
									level[killer] = 3
									playerscore[killer] = 2
									if string.find(last_damage[vhash], "melee") then
										say(kname .. " melee'd " .. vname .. " with a needler")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. "'s melee who is level: " .. klvl) end
									else
										say(kname .. " killed " .. vname .. " with a needler")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
									end	
									gameweap = registertimer(0, "AssignGameWeapons", killer)
									response = false
								end
								
							elseif last_damage[vhash] == "weapons\\shotgun\\pellet" or last_damage[vhash] == "weapons\\shotgun\\melee" then
								if weapons[killer] == "weapons\\shotgun\\shotgun" then
									level[killer] = 4
									playerscore[killer] = 3
									if string.find(last_damage[vhash], "melee") then
										say(kname .. " melee'd " .. vname .. " with a shotgun")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. "'s melee who is level: " .. klvl) end
									else
										say(kname .. " killed " .. vname .. " with a shotgun")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
									end	
									gameweap = registertimer(0, "AssignGameWeapons", killer)
									response = false
								end
								
							elseif last_damage[vhash] == "weapons\\plasma rifle\\bolt" or last_damage[vhash] == "weapons\\plasma rifle\\melee" then								
								if weapons[killer] == "weapons\\plasma rifle\\plasma rifle" then
									level[killer] = 5
									playerscore[killer] = 4
									if string.find(last_damage[vhash], "melee") then
										say(kname .. " melee'd " .. vname .. " with a plasma rifle")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. "'s melee who is level: " .. klvl) end
									else									
										say(kname .. " killed " .. vname .. " with a plasma rifle")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
									end	
									gameweap = registertimer(0, "AssignGameWeapons", killer)
									response = false
								end
								
							elseif last_damage[vhash] == "weapons\\assault rifle\\bullet" or last_damage[vhash] == "weapons\\assault rifle\\melee" then
								if weapons[killer] == "weapons\\assault rifle\\assault rifle" then
									level[killer] = 6
									playerscore[killer] = 5
									if string.find(last_damage[vhash], "melee") then
										say(kname .. " melee'd " .. vname .. " with an assault rifle")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. "'s melee who is level: " .. klvl) end
									else									
										say(kname .. " killed " .. vname .. " with an assault rifle")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
									end	
									gameweap = registertimer(0, "AssignGameWeapons", killer)
									response = false
								end
								
							elseif last_damage[vhash] == "weapons\\flamethrower\\burning" or last_damage[vhash] == "weapons\\flamethrower\\explosion" or last_damage[vhash] == "weapons\\flamethrower\\impact damage" or last_damage[vhash] == "weapons\\flamethrower\\melee" then
								if weapons[killer] == "weapons\\flamethrower\\flamethrower" then
									level[killer] = 7
									playerscore[killer] = 6
									if string.find(last_damage[vhash], "melee") then
										say(kname .. " melee'd " .. vname .. " with a flamethrower")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. "'s melee who is level: " .. klvl) end
									else									
										say(kname .. " killed " .. vname .. " with a flamethrower")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
									end	
									gameweap = registertimer(0, "AssignGameWeapons", killer)
									response = false
								end
								
							elseif last_damage[vhash] == "weapons\\pistol\\bullet" or last_damage[vhash] == "weapons\\pistol\\melee" then
								if weapons[killer] == "weapons\\pistol\\pistol" then
									level[killer] = 8
									playerscore[killer] = 7
									if string.find(last_damage[vhash], "melee") then
										say(kname .. " melee'd " .. vname .. " with a pistol")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. "'s melee who is level: " .. klvl) end
									else									
										say(kname .. " killed " .. vname .. " with a pistol")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
									end	
									gameweap = registertimer(0, "AssignGameWeapons", killer)
									response = false
								end	
									
							elseif last_damage[vhash] == "weapons\\rocket launcher\\explosion" or last_damage[vhash] == "weapons\\rocket launcher\\melee" then
								if weapons[killer] == "weapons\\rocket launcher\\rocket launcher" then
									if isinvehicle(killer) then
										say(kname .. " killed " .. vname .. " with a warthog rocket")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl .. " was vehicle rocket, no advance.") end
									else
										level[killer] = 9
										playerscore[killer] = 8
										if string.find(last_damage[vhash], "melee") then
											say(kname .. " melee'd " .. vname .. " with a rocket launcher")
											if logging then log_msg(1, vname .. " was killed by " .. kname .. "'s melee who is level: " .. klvl) end
										else										
											say(kname .. " killed " .. vname .. " with a rocket launcher")
											if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
										end	
										gameweap = registertimer(0, "AssignGameWeapons", killer)
										response = false
									end
								end
								
							elseif last_damage[vhash] == "weapons\\sniper rifle\\sniper bullet" or last_damage[vhash] == "weapons\\sniper rifle\\melee" then
								if weapons[killer] == "weapons\\sniper rifle\\sniper rifle" then
									level[killer] = 10
									playerscore[killer] = 9
									beserk = true
									for i=0,15 do
										if getplayer(i) then
											speedtimer = registertimer(0, "SpeedTimer", i)
										end
									end		
									if string.find(last_damage[vhash], "melee") then
										say(kname .. " melee'd " .. vname .. " with a sniper rifle, advanced to Level 10!")
									else									
										say(kname .. " killed " .. vname .. " with a sniper rifle, advanced to Level 10!")
									end	
									if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
									gameweap = registertimer(0, "AssignGameWeapons", killer)
									response = false								
								end
								
							elseif last_damage[vhash] == "weapons\\plasma_cannon\\effects\\plasma_cannon_explosion" or last_damage[vhash] == "weapons\\plasma_cannon\\effects\\plasma_cannon_melee" then
								if weapons[killer] == "weapons\\plasma_cannon\\plasma_cannon" then
									level[killer] = 11
									playerscore[killer] = playerscore[killer] + 11
									if team_play then kteam = getteam(killer) teamscore[kteam] = teamscore[kteam] + 11 end
									beserk = false
									if string.find(last_damage[vhash], "melee") then
										say(kname .. " melee'd " .. vname .. " with a plasma cannon, advanced to WIN! +10 Points")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. "'s melee who is level: " .. klvl) end
									else									
										say(kname .. " killed " .. vname .. " with a plasma cannon, advanced to WIN! +10 Points")
										if logging then log_msg(1, vname .. " was killed by " .. kname .. " who is level: " .. klvl) end
									end	
									response = false
								end
								
							elseif last_damage[vhash] == "weapons\\plasma grenade\\explosion" or last_damage[vhash] == "weapons\\frag grenade\\explosion" then
								say(kname .. " killed " .. vname .. " with a grenade.")
								sendconsoletext(killer, "No level advancement for grenade kills.", 4, 0)
								if logging then log_msg(1, vname .. " was killed by " .. kname .. "'s grenade who is level: " .. klvl) end
								response = false							
							end
						else
							response = false
						end	
					end	
				end
			end	
			
		elseif mode == 5 then -- player was killed/betrayed by teammate
			if getplayer(killer) then
				klvl = level[killer]
				kname = getname(killer)
				khash = gethash(killer)
				kteam = getteam(killer)					
			else	
				kname = "NULL"
				klvl = NULL
				kteam = -1	
			end
			
			if getplayer(victim) then
				vlvl = level[victim]
				vname = getname(victim)
				vhash = gethash(victim)
				vteam = getteam(victim)	
				if getplayer(killer) then
					klvl = level[killer]
					kname = getname(killer)
					khash = gethash(killer)
					kteam = getteam(killer)
					if vlvl == 10 then
						level[killer] = 9
						playerscore[killer] = 8
						beserk = false
						weapons[killer] = "weapons\\sniper rifle\\sniper rifle"
						sendconsoletext(killer, "Demoted to Level 9! Ain't that a bitch?!", 4, 0)
						say(vname .. " demoted to Level 9 for betrayal.")
						beserk = false
					else		
						if level[killer] ~= nil and level[killer] > 1 then
							if (level[killer] - 1) >= 1 then level[killer] = level[killer] - 1 end
							if (playerscore[killer] - 1) >= 0 then playerscore[killer] = playerscore[killer] - 1 end
							if team_play then if (teamscore[kteam] - 1) >= 0 then teamscore[kteam] = teamscore[kteam] - 1 end end
							mybattery[killer] = 0
							kill(killer)
							say(kname .. " was demoted one level and killed for betraying " .. vname)
							if logging then log_msg(1, kname .. " was killed by server for betrayal of " .. vname) end
							response = false
						else
							kill(killer)
							say(kname .. " was killed for betraying " .. vname)
							if logging then log_msg(1, kname .. " was killed by server for betrayal of " .. vname) end
							response = false
						end
						response = false		
					end
					response = false	
				end	
			end		
			
		elseif mode == 6 then --suicides - killer is self/victim
			if getplayer(victim) then
				vlvl = level[victim]
				vname = getname(victim)
				vhash = gethash(victim)
				vteam = getteam(victim)	
				if vlvl == 10 then
					level[victim] = 9
					playerscore[victim] = 8
					beserk = false
					weapons[victim] = "weapons\\sniper rifle\\sniper rifle"
					sendconsoletext(victim, "Demoted to Level 9! Ain't that a bitch?!", 4, 0)
					say(vname .. " demoted to Level 9 for suicide.")
					if logging then log_msg(1, vname .. " demoted from level 10 to 9 for suicide. Is level: " .. vlvl) end
					response = false
				else
					if level[victim] ~= nil and level[victim] > 1 then
						if (level[victim] - 1) >= 1 then level[victim] = level[victim] - 1 end
						if (playerscore[victim] - 1) >= 0 then playerscore[victim] = playerscore[victim] - 1 end
						if team_play then if (teamscore[vteam] - 1) >= 0 then teamscore[vteam] = teamscore[vteam] - 1 end end
						say(vname .. " committed suicide and was demoted one level.")
						if logging then log_msg(1, vname .. " demoted one level for suicide. Is level: " .. vlvl) end
						response = false
					else
						say(vname .. " committed suicide.")
						response = false
					end
					response = false
				end	
			end	
		end
	end
	
	return response
end	

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

function OnDamageApplication(receiving, causing, tagid, hit, backtap)
	-- sets the last damage value for all players, used to determine how a player was damaged and with which weapon
	if receiving then
		local r_object = getobject(receiving)
		if r_object then
			local receiver = objectaddrtoplayer(r_object)
			if receiver then
				local hash = gethash(receiver)
				local tagname,tagtype = gettaginfo(tagid)
				last_damage[hash] = tagname
				--say("Damage: " .. tagname)
			end
		end
	end
	return nil
end

function OnDamageLookup(receiving, causing, tagid)
	-- looks up and sets damage variables
	if receiving and causing and receiving ~= causing then
		local tagname, tagtype = gettaginfo(tagid)
		local melee = string.find(tagname, "melee")
		local ppistolc = string.find(tagname, "weapons\\plasma rifle\\charged bolt")
		local ppistolb = string.find(tagname, "weapons\\plasma pistol\\bolt")
		local needlerd = string.find(tagname, "weapons\\needler\\detonation damage")
		local plasrifle = string.find(tagname, "weapons\\plasma rifle\\bolt")
		local deltappcharge = string.find(tagname, "weapons\\plasma pistol\\rw charged bolt")
		local c_player = objectidtoplayer(causing)
		local r_player = objectidtoplayer(receiving)
		-- block vehicle and vehicle gun damage
		if c_player and isinvehicle(c_player) then
			local m_vehicleId = getplayervehicleid(c_player)
			if m_vehicleId then
				local m_vehicle = getobject(m_vehicleId)
				local gunner = readdword(m_vehicle + 0x328)
				local driver = readdword(m_vehicle + 0x324)
				if gunner == causing then
					return false
				elseif driver == causing then
					return false
				end				
			end
		end
		-- increase damage of melee to instant kill, increase plasma pistol, needler and plasma rifle to balance game play
    	if c_player and r_player then
			if melee then odl_multiplier(9999) end
			if ppistolc then odl_multiplier(1.85) end
			if ppistolb then odl_multiplier(1.85) end
			if needlerd then odl_multiplier(1.75) end
			if plasrifle then odl_multiplier(1.35) end
			if map_name == "deltaruins" then
				if deltappcharge then return ppistolb end
				if ppistolb then odl_multiplier(1.8) end
			end	
		end
	end
	return nil
end
	
function getplayervehicleid(player)
    local m_objectId = getplayerobjectid(player)
    if m_objectId then return readdword(getobject(m_objectId) + 0x11C) end
end
	
function OnObjectInteraction(player, objId, mapId)
	-- blocks players from picking up weapons and nades
	local Pass = nil
	local name, type = gettaginfo(mapId)
	if type == "weap" then
		if weapons[player] ~= nil then
			if name ~= weapons[player] then
				Pass = false
			end
		end
	elseif type == "eqip" then
		if name == "powerups\\over shield" or name == "powerups\\health pack" then
			Pass = true
		else	
			Pass = false
		end	
	end
	return Pass
end

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

function OnObjectCreationAttempt(mapId, parentId, player)
	local response = nil
	if game_started then
		-- blocks creation of these items when game starts, only if game_started is valid (after script load, after new game)
		if mapId == gettagid("weap", "weapons\\ball\\ball") or
			mapId == gettagid("eqip", "weapons\\frag grenade\\frag grenade") or
			mapId == gettagid("eqip", "weapons\\plasma grenade\\plasma grenade") then
			response = false
		end
		if mapId == gettagid("weap", "weapons\\flag\\flag") then
			return gettagid("weap", "weapons\\plasma pistol\\plasma pistol")
		end			
		if mapId == gettagid("eqip", "powerups\\active camouflage") then
			return gettagid("eqip", "powerups\\over shield")
		end			
	elseif not game_started then
		-- allows creation of these items when game starts or on script load
		if mapId == gettagid("eqip", "powerups\\full-spectrum vision") or 
			mapId == gettagid("eqip", "powerups\\health pack") or
			mapId == gettagid("bipd", "characters\\cyborg_mp\\cyborg_mp") or
			mapId == gettagid("vehi", "vehicles\\warthog\\mp_warthog") or
			mapId == gettagid("vehi", "vehicles\\rwarthog\\rwarthog") or
			mapId == gettagid("vehi", "vehicles\\ghost\\ghost_mp") or
			mapId == gettagid("vehi", "vehicles\\c gun turret\\c gun turret_mp") or
			mapId == gettagid("vehi", "vehicles\\scorpion\\scorpion_mp") then
			response = true
		end
		-- blocks creation of these items when game starts, when game is restarted, or scripts reloaded
		if mapId == gettagid("weap", "weapons\\ball\\ball") or
			mapId == gettagid("eqip", "weapons\\frag grenade\\frag grenade") or
			mapId == gettagid("eqip", "weapons\\plasma grenade\\plasma grenade") then
			response = false
		end
		if mapId == gettagid("weap", "weapons\\flag\\flag") then
			return gettagid("weap", "weapons\\plasma pistol\\plasma pistol")
		end			
		if mapId == gettagid("eqip", "powerups\\active camouflage") then
			return gettagid("eqip", "powerups\\over shield")
		end	
	else
		response = false
	end
	return response	
end

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

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

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

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

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

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

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

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

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

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

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

function OnGameEnd(stage)
	-- terminate or nil timers, set game values.  Some timers cannot be removed, instead they are nil'd
	if stage == 1 then
		game_started = false
		beserk = false	
		if gameweap then
			gameweap = nil
		end	
		if announcewin then
			announcewin = nil
		end
		if m_weaponId then
			m_weaponId = nil
		end
		if replaceplasmaweap then
			replaceplasmaweap = nil
		end
		if p_objectId then
			p_objectId = nil
		end
		if health then
			health = nil
		end
		if welcome then
			welcome = nil
		end
		if speedtimer then
			speedtimer = nil
		end
		if checkbattery then
			checkbattery = nil
		end
		if updatescores then
			updatescores = nil
		end	
		if consoletimer then
			consoletimer = nil
		end
		if game_autobal then
			game_autobal = nil
		end	
		if join_autobal then
			join_autobal = nil
		end
		if leave_autobal then
			leave_autobal = nil
		end		
	elseif stage == 3 then
		for i = 0, 15 do
			if getplayer(i) then
				privatesay(i, "Thank you for playing the Gun-Game Arms Race!")
				privatesay(i, "This and other scripts available on HaloRace.org")
			end
		end		
	end
end

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

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

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

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

function getmessages(player)
	return console[player]
end

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

function console:getmessage()
	return self.message
end

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

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

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

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

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

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

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

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

--[[ Created by H® Shaft.
Thanks to Oxide, AelitePrime, Nugget & Wizard. 
Visit http://halorace.org/forum/index.php?topic=514.0 or
Visit http://pastebin.com/u/HR_Shaft for more phasor scripts
Special thanks to AelitePrime, as this was an attempt to script patterned after his style similar to his Zombie script 4.1, and other scripts we have mutually developed.
Note: This was written and developed by H® Shaft prior to the release of any other similar script with similar names. Any claims of duplication of concept/script are 100% bullpucky.

Special thanks to our beta testers, server hosts & contributors: 
H® HUMMER, H® BugZ, H® Monkey, H® Wingnut, H® LoLLi, H® Stone, H® RUDE, H® Outage, H® Griff, -JR- Mumbler, -JR- RAVIN, 
-JR-Hollypaw, -JR- Slayer, -JR- Falx, -JR- Spec4, -JR- Slayer, -JR-wraith, AR~Dvs_One, -JR-ÄÐhè®é,  AR~Hazy, 
AR~Un¡t»Zero, AR~Hanabal, AR~DSPFlag, AR~HiroP, AR~Archon, Forseti, Mastermind, [x] fisk, ²MõD²Wrath, ²MõD²Corvair, 
²MõD²Bear, ²MõD²Buster, «§H»Kennan, Telyx, Lobo, Awesome, Nugget, Wizard, particleboy, PÕQ clan, {ØZ} clan, Skylace, 
A§H» clan, Ponyboy and the Ousiders, PÕQ~Technut, smiley, Btcc22, Roger W, sehé°°, kornman00, Geomitar]]

--[[ SERVER SETUP - USAGE:
Compatible with CTF & Slayer gametypes only - 'Standard' PC & CE Maps and custom maps with classic weapon sets. Not compatible with race, oddball or koth gametypes, or custom named weapons CE maps.
Gametype should set weapons to normal/generic, infinite nades off.
Place in your cg/scripts/persistent folder.  Intended to be used as a persisitent script, but not required.
DO NOT combine with other death message/player kill scripts during this game.
Use of server rcon commands sv_map_reset and sv_script_reload are allowed, and function well with no errors.  Reloading will behave similar to resetting.
Extended game logging best used for tournaments/scrims/ or debugging.  If you choose to customize this script, set logging to true to help you.
This script has been rigorously tested and believed to be error free. If you get errors, try running the script by itself, it could conflict with other scripts. Set logging to true on lines 29 and 98 to help you debug then read the logs
If help is needed, message me on phasor.proboards.com, or on www.HaloRace.org, or xfire: nervebooger2012
Thank you, I hope you enjoy this as much as we have on our PC and CE servers. 
Visit us at http://halorace.org/forum/index.php
]]