v2+ Gun Game 5.0 - Halonet.net

LUA 179

V2+ Gun Game 5.0 By xdedeone on 26th February 2019 04:27:27 PM

--[[ ### 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
]]

Recent Pastes

Zombies One 057[...]

V2+ Commands[...]

MAC address code[...]

V1+ 3 Weapons 2.0

V1+ Death Kill[...]

V1+ Afk Detect 1.0

V1+ Killing Spree[...]

V1+ Tea bag Loving[...]

V1+ Blank Script[...]

V1+ Stock Pile 1.0

Raw Paste

--[[ ###  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
]]