SHARE
TWEET

Infection - Phasor 2.0+

it300 Dec 15th, 2014 (edited) 184 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. --[[ Infection script for Phasor 2.0+ ]]--
  2. --[[ By: Skylace, AElite, & Wizard]]--
  3. --[[ Thanks to the people who helped me make this script]]--
  4.  
  5. -- Fixed a rare bug that caused the camouflage when crouch to not work.
  6.  
  7. -- Notes: I did not remove any useless or redundant code due to the fact that I didn't have people to test my re-write and the game might hang if a player quits as last man (not sure if I fixed this or not.)
  8.  
  9. -- Infection Settings
  10. killtimer = {}
  11. -- Global Variable
  12. default_script_prefix = "" -- Its recommended that you DO NOT CHANGE THIS
  13. human_team = 0 -- 0 is red, 1 is blue
  14. join_team = zombie_team -- the team that people will join if a game is currently running
  15. max_zombie_count = 2 -- this caps what the zombie count would be w/ ratio (nil is disable)
  16. time_invis = 0.5 -- In seconds, how long the zombie/human should be invis when they crouch.
  17. zombie_count = 1 -- if value is less than 1 is it used as a percentage, more than or equal to one is absolute count
  18. zombie_team = 1 -- 0 is red, 1 is blue
  19. speed_boost = 2.5 -- time extra speed lasts
  20. boost_amount = 0.5 -- Speed added to players current speed when the flashlight is activated.
  21.  
  22.         -- Alpha Zombie Variables
  23. alphazombie_frag_count = 0 -- number of frag nades they spawn with
  24. alphazombie_plasma_count = 0 -- number of plasma nades they spawn with
  25. alphazombie_clip_count = 0 -- number of shots in clip (loaded ammo)
  26. alphazombie_ammo_count = 0 -- backpack ammo they get (unloaded ammo)
  27. alphazombie_battery_count = 0 -- stored as a percent (0 to 1, do NOT go over or under)
  28.  
  29.         -- Zombie Variables
  30. zombie_ammo_count = 0 -- backpack ammo zombies once there are not only alpha zombies (unloaded ammo)
  31. zombie_clip_count = 0 -- number of shots in clip for zombies once there are not only alpha zombies (loaded ammo)
  32. zombie_battery_count = 0 -- stored as a percent (0 to 1, do NOT go over or under)
  33. zombie_frag_count = 0 -- number of frag nades they spawn with
  34. zombie_plasma_count = 0 -- number of plasma nades they spawn with
  35. zombie_spawn_time = 2 -- spawn time for zombies in seconds. Leave "default" for default spawn time of gametype
  36. zombie_speed = 1.75 -- zombie speed
  37. small_zombie_speed = 1.5 -- for small maps
  38. large_zombie_speed = 2.0 -- for large maps
  39. only_zombie_speed = 2.25 -- only zombie speed
  40. human_again = 4 -- kills zombies have to get to become a human again
  41.  
  42. --Zombie weapons.
  43. -- Note: If you decide the player holds a flag or a ball, make sure the secondary, tertiary, and quarternary fields are "".
  44. -- DO NOT make zombies hold multiple weapons if you want them to hold an oddball or a flag. If you do it will not work right, and it's entirely your fault.
  45. zombie_weapon = {} -- don't touch this
  46. zombie_weapon[1] = "weapons\\ball\\ball" -- Primary weapon for zombies
  47. zombie_weapon[2] = "" -- Secondary weapon for zombies.
  48. zombie_weapon[3] = "" -- Tertiary weapon for zombies.
  49. zombie_weapon[4] = "" -- Quarternary weapon for zombies.
  50.  
  51. -- Human Weapons
  52. -- Do not set human weapons to ball or flag!
  53. human_weapon = {} -- don't touch this
  54. human_weapon[1] = "weapons\\assault rifle\\assault rifle" -- Primary weapon for humans
  55. human_weapon[2] = "" -- Secondary weapon for humans.
  56. human_weapon[3] = "" -- Tertiary weapon for humans
  57. human_weapon[4] = "" -- Quarternary weapon for humans.
  58.  
  59.         -- Human Variables
  60. human_dmgmodifier = 1.55 -- damage modifier for humans.
  61. human_speed = 1.0 -- speed when not infected
  62. human_spawn_time = 2 -- spawn time for humans in seconds. Leave "default" for default spawn time of gametype
  63.  
  64.         -- Last Man Variables
  65. lastman_dmgmodifier = 1.75 -- damage modifier for the last man
  66. lastman_invistime = 20 -- in seconds
  67. lastman_invulnerable = 10 -- time (in seconds) the last man is invulnerable for: replace with nil to disable
  68. lastman_speed = 1.5 -- last man speed
  69. small_lastman_speed = 1.25 -- for small maps
  70. large_lastman_speed = 2.0 -- for large maps
  71.  
  72.         -- Booleans
  73. humans_allowed_in_vehis = false -- if this is set to false then humans cannot enter vehicles
  74. humans_invisible_on_crouch = false -- if this is set to true then humans will become invisible when they crouch.
  75. infect_on_fall = true -- if this is set to true then people who die from fall damage will become zombies.
  76. infect_on_guardians = true -- if this is set to true then people who get killed by the guardians will become zombies.
  77. infect_on_suicide = true -- if this is set to true then people who kill themselves will become a zombie.
  78. infect_on_betray = false -- if this is set to true then people who betray their teammates will become a zombie.
  79. last_man_next_zombie = true -- if this value is true the last man standing becomes the next zombie, if not it's random
  80. zombies_allowed_in_vehis = false -- if this is set to false then zombies cannot enter vehicles.
  81. zombies_invisible_on_crouch = true -- if this is set to true then zombies will be invisible when they crouch.
  82. kill_humanss_in_water = true -- for deathisland
  83.  
  84. -- Death / Infect messages
  85. blockteamchange_message = "Autobalance: You're not allowed to change team."
  86. falling_infected_message = " fell..."
  87. falling_death_message = " fell..."
  88. kill_infected_message = " infected "
  89. suicide_infected_message = " lost the will to live..."
  90. suicide_message = " made mistakes..."
  91. teammate_infected_message = " was infected for betraying "
  92. guardian_infected_message = " was infected by nothing?!?!?"
  93. in_hill_too_long_msg = " was infected because they were in the hill too long!"
  94. human_kill_message = " killed "
  95. killed_in_water_msg = " died from going into the water!"
  96.  
  97. --Hint Messages
  98. teamkill_message = "Don't team kill..."
  99. nozombiesleftmessage = "There are no zombies left. Someone needs to change team or be forced to."
  100. lastman_message = "%s is the last human alive and is invisible for %.0f seconds!"
  101. rejoin_message = "Please don't leave and rejoin. You've been put back onto your last team."
  102. zombieinvis_message = "The zombies are invisible for 30 seconds!"
  103.  
  104. -- Complement Messages
  105. timer_team_change_msg = "Thank you. The game will now continue!"
  106. --zombie_backtap_message = "Nice backtap!"
  107.  
  108. -- New Team Messages
  109. human_message = "YOUR A HUMAN!!! KILL THE FILTHY ZOMBIES!"
  110. zombie_message = "YOUR A ZOMBIE!!! KILL ALL HUMANS!"
  111.  
  112. --Additional Messages
  113. welcome_message = "Welcome to Zombie Zone Infection!"
  114. koth_additional_welcome_msg = "The hill is a safezone! Use it for quick getaways!"
  115.  
  116. -- Don't modify below variables unless you know what you're doing
  117. cur_zombie_count = 0
  118. cur_zombie_count = 0
  119. cur_human_count = 0
  120. alpha_zombie_count = 0
  121. human_time = {}
  122. cur_players = 0
  123. cur_last_man = nil
  124. last_man_name = 0
  125. processid = 0
  126. game_started = false
  127. allow_change = false
  128. map_reset_boolean = false
  129. flagball_weap = {}
  130. last_hill_time = {}
  131. name_table = {}
  132. inhill_time = {}
  133. outsidemap = {}
  134. zkills = {}
  135. deathcoords = {}
  136. usedFlashlight = {}
  137. warned = {}
  138. last_damage = {}
  139. cur_map = ""
  140.  
  141.  
  142.  
  143. phasor_say = say
  144. phasor_privatesay = privatesay
  145.  
  146. function GetRequiredVersion()
  147.         return 200
  148. end
  149.  
  150. function OnScriptLoad(process, game, persistent)
  151.     GAME = game
  152.         GetGameAddresses(game)
  153.         processid = process
  154.         Persistent = persistent
  155.     ScriptLoad()
  156. end
  157.  
  158. function OnScriptUnload()
  159.     writedword(ctf_score_patch, 0xFFFDE9E8)
  160.         writebyte(ctf_score_patch1, 0xFF)
  161.         writebyte(slayer_score_patch, 0x74)
  162.         writebyte(slayer_score_patch2, 0x75)
  163.         writedword(koth_score_patch, 0xDA850F)
  164.         writebyte(koth_score_patch2, 0x75)
  165.         killtimer = false
  166. end
  167.  
  168. function OnNewGame(map)
  169.         killtimer = true
  170.  
  171.         if Persistent then ScriptLoad() end
  172.         LoadTags()
  173.         -- reset our variables
  174.         cur_zombie_count = 0
  175.         cur_human_count = 0
  176.         cur_players = 0
  177.         resptime = 5
  178.         cur_map = map
  179.     name_table = {}
  180.         -- the game hasn't started yet, will once timer runs down
  181.         game_started = false
  182.         if new_game_timer == nil then
  183.         new_game_timer = registertimer(7500, "NewGameTimer")
  184.         end
  185.         if map == "putput" or map == "longest" or map == "beavercreek" or map == "carousel" or map == "wizard" or map == "ratrace" then
  186.                 zombie_speed = small_zombie_speed
  187.                 lastman_speed = small_lastman_speed
  188.         elseif map == "gephyrophobia" or map == "infinity" or map == "icefields" then
  189.                 zombie_speed = large_zombie_speed
  190.                 lastman_speed = large_lastman_speed
  191.         end
  192. end
  193.  
  194. function OnGameEnd(stage)
  195.         killtimer = false
  196.     game_started = false
  197.         if stage == 1 then
  198.                 if humantimer then
  199.                 removetimer(humantimer)
  200.                         humantimer = nil
  201.                 end
  202.                 if new_game_timer then
  203.                         removetimer(new_game_timer)
  204.                         new_game_timer = nil
  205.                 end
  206.         if speedtimer then
  207.             removetimer(speedtimer)
  208.             speedtimer = nil
  209.         end
  210.         end
  211. end
  212.  
  213. function OnServerCommand(player, command)
  214.         local allow = nil
  215.         local cmd = tokenizecmdstring(command)
  216.         local tokencount = #cmd
  217.         if tokencount > 0 then
  218.                 if cmd[1] == "sv_map_reset" or (cmd[1] == "sv_script_reload" and cmd[2] == "infection") then
  219.                         map_reset_boolean = true
  220.                         for i = 0,15 do
  221.                                 if getplayer(i) then
  222.                                         local m_objectId = getplayerobjectid(i)
  223.                                         if m_objectId and getteam(i) == zombie_team then
  224.                                                 destroyobject(m_objectId)
  225.                                         end
  226.                                 end
  227.                         end
  228.                 end
  229.         end
  230.         return allow
  231. end
  232.  
  233. function OnPlayerJoin(player)
  234.         spawnonspot[player] = false
  235.         local team = getteam(player)
  236.         outsidemap[player] = true
  237.     -- update the player counts
  238.         cur_players = cur_players + 1
  239.         local team = getteam(player)
  240.         -- onteamdecision isn't called for ffa gametypes
  241.         if not team_play then
  242.                 -- initialize the destination team as the join team
  243.                 local dest_team = join_team
  244.                 -- make sure the game is started
  245.                 if game_started then
  246.                         -- if no zombies make them human
  247.                         if cur_human_count == 0 then
  248.                                 dest_team = human_team
  249.                         end
  250.                 end
  251.                 -- we need to overwrite the 'team' variable being passed to onplayerjoin
  252.                 team = dest_team
  253.         end
  254.         local thisTeamSize = 0 -- used so we don't create empty teams for rejoining players
  255.         local thisTeamSize = 0 -- used so we don't create empty teams for rejoining players
  256.         if team == zombie_team then
  257.                 cur_zombie_count = cur_zombie_count + 1
  258.                 thisTeamSize = cur_zombie_count
  259.         else
  260.                 cur_human_count = cur_human_count + 1
  261.                 thisTeamSize = cur_human_count
  262.         end
  263.         alpha_zombie_count = getalphacount()
  264.         local thisNAME = getname(player)
  265.         local alreadyExists = false
  266.         -- add team entry for this ip
  267.         if alreadyExists == false then
  268.                 name_table[thisNAME] = team
  269.         end
  270.         -- make sure the game is started
  271.         if game_started == true then
  272.                 -- check if the player is a zombie
  273.                 if team == zombie_team then
  274.                         --we don't need to update the counters since they're already on the zombieteam
  275.                         makezombie(player, false, true)
  276.                         --send them the zombie message
  277.                         privatesay(player, zombie_message)
  278.                 else
  279.                         -- if we're at last man, make this player a zombie
  280.                         if cur_last_man then
  281.                                 --make this person a zombie (they're currently a human)
  282.                                 makezombie(player, true)
  283.                                 --send them the zombie message
  284.                                 privatesay(player, zombie_message)
  285.                         else
  286.                                 --make this person a human (they're currently a zombie)
  287.                                 makehuman(player, false, true)
  288.                                 --send them the human message
  289.                                 privatesay(player, human_message)
  290.                         end
  291.                 end
  292.                 --send the player the welcome message
  293.                 privatesay(player, welcome_message)
  294.                 if gametype == "KOTH" then
  295.                         privatesay(player, koth_additional_welcome_msg)
  296.                 elseif gametype == "Slayer" and gametype_indicator == 1 then
  297.                 end
  298.                 registertimer(200,"checkgamestate",-1)
  299.         else
  300.                 registertimer(10000, "MsgTimer", player)
  301.         end
  302. end
  303.  
  304. function OnPlayerLeave(player)
  305.     local team = getteam(player)
  306.         --check if they're a zombie
  307.         if game_started and team == zombie_team then
  308.                 -- gets rid of any weapons a zombie is holding
  309.                 --destroyweapons(player)
  310.                 --take one away from the current zombie count
  311.                 cur_zombie_count = cur_zombie_count - 1
  312.         elseif game_started and team ~= zombie_team then
  313.                 --take one away from the current human count
  314.                 cur_human_count = cur_human_count - 1
  315.         end
  316.         -- if last man is leaving, reset it
  317.         if cur_last_man == player then
  318.                 cur_last_man = nil
  319.         end
  320.         --minus one from current players
  321.         cur_players = cur_players - 1
  322.         --check the current game state (the player that left might have been the last man or the only zombie)
  323.         registertimer(1000,"checkgamestate",-1)
  324.         -- update team within table
  325.         local thisNAME = getname(player)
  326.     name_table[thisNAME] = team
  327. end
  328.  
  329. function protect(idk, id1, objId)
  330.         local m_object = getobject(objId)
  331.         writebit(m_object + 0x10, 0, 1)
  332.         registertimer(1000, "RemoveLastmanProtection", m_object)
  333. end
  334.  
  335. spawnonspot = {}
  336.  
  337. function OnPlayerSpawn(player)
  338.  
  339.         if killtimer then
  340.                 local m_player = getplayer(player)
  341.                 local objId = readdword(m_player, 0x34)
  342.                 movobjectcoords(objId, 0, 0, -1500)
  343.                 outsidemap[player] = true
  344.                 spawnonspot[player] = false
  345.         end
  346.  
  347.         if outsidemap[player] ~= true then
  348.                 if spawnonspot[player] ~= false then
  349.                         spawnonspot[player] = false
  350.                         outsidemap[player] = false
  351.                         said[player] = false
  352.                         local m_player = getplayer(player)
  353.                         local objId = readdword(m_player, 0x34)
  354.                         if deathcoords[player] then
  355.                                 sendconsoletext(player, "You will spawn were you last died!")
  356.                                 movobjectcoords(objId, deathcoords[player].x, deathcoords[player].y, deathcoords[player].z)
  357.                                 registertimer(0, "protect", objId)
  358.                         end
  359.                 end
  360.         end
  361.  
  362.         usedFlashlight[player] = false
  363.         local team = getteam(player)
  364.         --get the player's team
  365.  
  366.         local team = getteam(player)
  367.         --check if the player is a zombie
  368.         if team == zombie_team then
  369.  
  370.                 --get the player's object ID
  371.                 --make sure the player is alive (off chance that there's a glitch in phasor)
  372.                 local m_objectId = getplayerobjectid(player)
  373.         if m_objectId == nil then
  374.             return
  375.         end
  376.  
  377.                 --get the player's object struct
  378.                 local m_object = getobject(m_objectId)
  379.  
  380.                 -- set nade counts
  381.                 writebyte(m_object + 0x31E, zombie_frag_count)
  382.                 writebyte(m_object + 0x31F, zombie_plasma_count)
  383.  
  384.                 -- set the ammo
  385.                 local clipcount = alphazombie_clip_count
  386.                 local ammocount = alphazombie_ammo_count
  387.                 local batterycount = alphazombie_battery_count
  388.  
  389.                 -- set ammo counts for zombies when others have been infected
  390.                 if cur_zombie_count > alpha_zombie_count then
  391.                         clipcount = zombie_clip_count
  392.                         ammocount = zombie_ammo_count
  393.                         batterycount = zombie_battery_count
  394.                 else -- set alpha nades
  395.                         writebyte(m_object + 0x31E, alphazombie_frag_count)
  396.                         writebyte(m_object + 0x31F, alphazombie_plasma_count)
  397.                 end
  398.  
  399.                 table1 = {player, clipcount, ammocount, batterycount}
  400.                 registertimer(0, "AssignZombieWeapons", table1)
  401.         elseif team == human_team then
  402.  
  403.                 local m_objectId = getplayerobjectid(player)
  404.         if m_objectId == nil then
  405.             return
  406.         end
  407.  
  408.                 setspeed(player, human_speed)
  409.  
  410.                 local m_object = getobject(m_objectId)
  411.  
  412.                 -- set nade counts
  413.                 writebyte(m_object + 0x31E, 0)
  414.                 writebyte(m_object + 0x31F, 2)
  415.  
  416.                 local clipcount = 60
  417.                 local ammocount = 120
  418.                 local batterycount = 1
  419.                 registertimer(0, "AssignHumanWeapons", player)
  420.         end
  421.  
  422.         --check if the type is slayer
  423.         if gametype == "Slayer" then
  424.  
  425.                 local m_player = getplayer(player)
  426.                 --check if we're at the last_man
  427.         if m_player == nil then
  428.             return
  429.         end
  430.  
  431.                 if cur_last_man then --write the navpoint to the current last man
  432.                         writeword(m_player, 0x88, cur_last_man)
  433.                 else
  434.                         writeword(m_player, 0x88, player) --there is no last man so put a nav above this player's head
  435.                 end
  436.  
  437.         end
  438.  
  439. end
  440.  
  441. function OnObjectCreationAttempt(mapId, parentId, player)
  442.         if gametype == "CTF" and mapId == flag_tag_id and parentId == nil then
  443.                 registertimer(0, "PutUnderMap", readdword(ctf_globals + 0x8))
  444.         end
  445.         return nil
  446. end
  447.  
  448. invimsg = false
  449.  
  450. function setfalse()
  451.         invimsg = false
  452. end
  453.  
  454. function OnObjectInteraction(player, objId, mapId)
  455.         local response = false
  456.     if game_started == true then
  457.                 if mapId ~= oddball_tag_id and mapId ~= flag_tag_id then
  458.                         if getteam(player) == zombie_team then
  459.                                 if mapId == camouflage_tag_id  then
  460.                                         response = nil
  461.                                         if getplayer(player) then
  462.                                                 local m_playerObjId = getplayerobjectid(player)
  463.                                                 if m_playerObjId then
  464.                                                         if readdword(getobject(m_playerObjId) + 0x204) ~= 0x51 then
  465.                                                                 local doInvis = getrandomnumber(1, 11)
  466.                                                                 if doInvis > 5 then
  467.                                                                         -- make the whole zombie team invis for 30 seconds
  468.                                                                         for x = 0,15 do
  469.                                                                                 if getplayer(x) and getteam(x) == zombie_team then
  470.                                                                                         applycamo(x, 30.00)
  471.                                                                                         registertimer(30000, "setfalse")
  472.                                                                                 end
  473.                                                                         end
  474.                                                                         if not invimsg then
  475.                                                                                 invimsg = true
  476.                                                                                 say(zombieinvis_message)
  477.                                                                         end
  478.                                                                 end
  479.                                                         end
  480.                                                 end
  481.                                         end
  482.                                 elseif mapId == overshield_tag_id or mapId == healthpack_tag_id then
  483.                                         response = nil
  484.                                 elseif mapId == fragnade_tag_id or mapId == plasmanade_tag_id then
  485.                                         response = false
  486.                                 end
  487.                         else
  488.                                 response = nil
  489.                         end
  490.                 end
  491.         end
  492.         return response
  493. end
  494.  
  495. function OnKillMultiplier(player, multiplier)
  496.  
  497.         local name = getname(player)
  498.  
  499.         if multiplier == 7 or multiplier == 16 then
  500.                 human_time[name] = tonumber(human_time[name]) + 5
  501.         elseif multiplier == 9 or multiplier == 17 then
  502.                 human_time[name] = tonumber(human_time[name]) + 10
  503.         elseif multiplier == 10 or multiplier == 14 then
  504.                 human_time[name] = tonumber(human_time[name]) + 15
  505.         end
  506.  
  507. end
  508.  
  509. died = {}
  510.  
  511. function OnPlayerKill(killer, victim, mode)
  512.  
  513.         if victim and mode ~= 6 then
  514.                 local m_victim = getplayer(victim)
  515.                 local objId = readdword(m_victim, 0x34)
  516.                 local x, y, z = getobjectcoords(objId)
  517.                 deathcoords[victim] = {}
  518.                 deathcoords[victim].x = x
  519.                 deathcoords[victim].y = y
  520.                 deathcoords[victim].z = z
  521.         end
  522.  
  523.     local response = false
  524.         -- make sure this kill doesn't add to the score so that the game won't end prematurely
  525.         if gametype == "Slayer" and killer and getplayer(killer) then writedword(slayer_globals + 0x40 + killer*4, 0) end
  526.         -- make sure the game is started
  527.         if game_started then
  528.                 -- get the victim's team
  529.                 local team = getteam(victim)
  530.                 if victim and team == zombie_team then
  531.                         -- gets rid of any weapons a zombie is holding
  532.                         destroyweapons(victim)
  533.                 end
  534.                 if victim then
  535.                         if resptime then
  536.                                 writedword(getplayer(victim) + 0x2c, resptime * 33)
  537.                         elseif tonumber(human_spawn_time) and team ~= zombie_team then
  538.                                 writedword(getplayer(victim) + 0x2C, tonumber(human_spawn_time) * 33)
  539.                         elseif tonumber(zombie_spawn_time) and team == zombie_team then
  540.                                 writedword(getplayer(victim) + 0x2C, tonumber(zombie_spawn_time) * 33)
  541.                         end
  542.                 end
  543.                 if mode == 0 then -- server kill
  544.                         spawnonspot[victim] = false
  545.                         return false
  546.                 elseif mode == 1 and not map_reset_boolean then -- fall damage
  547.                         spawnonspot[victim] = false
  548.                         -- if this is true then a person who dies from falling will be infected
  549.                         if infect_on_fall then
  550.                                 if tonumber(team) and team ~= zombie_team then
  551.                                         response = false
  552.                                         say(tostring(getname(victim)) .. falling_infected_message)
  553.                                         registertimer(100, "makezombiedelay", {victim, true})
  554.                                 elseif tonumber(team) and team ~= human_team then
  555.                                         response = false
  556.                                         say(tostring(getname(victim)) .. falling_death_message)
  557.                                 end
  558.                                 responce = false
  559.                         else
  560.                                 response = false
  561.                                 say(tostring(getname(victim)) .. falling_death_message)
  562.                         end
  563.                 elseif mode == 2 then -- killed by guardians
  564.                         spawnonspot[victim] = true
  565.                         if infect_on_guardians then
  566.                                 if tonumber(team) and team ~= zombie_team then
  567.                                         response = false
  568.                                         say(tostring(getname(victim)) .. guardian_infected_message)
  569.                                         registertimer(100, "makezombiedelay", {victim, true})
  570.                                 end
  571.                         else
  572.                                 response = false
  573.                                 say(tostring(getname(victim)) .. guardian_infected_message)
  574.                         end
  575.                 elseif mode == 3 then -- killed by vehicle
  576.                         spawnonspot[victim] = false
  577.                 elseif mode == 4 then -- killed by another player
  578.                         local killer_team = getteam(killer)
  579.                         if tonumber(killer_team) and killer_team == zombie_team and tonumber(team) and team ~= zombie_team then
  580.                                 response = false
  581.  
  582.                                 for i = 0,15 do
  583.                                         if getplayer(i) ~= nil then
  584.                                                 if i ~= killer then
  585.                                                         privatesay(i, tostring(getname(killer)) .. kill_infected_message .. tostring(getname(victim)))
  586.                                                 end
  587.                                         end
  588.                                 end
  589.  
  590.                                 spawnonspot[victim] = true
  591.                                 registertimer(100, "makezombiedelay", {victim, true})
  592.                                 privatesay(victim, zombie_message)
  593.  
  594.                                 local name = getname(killer)
  595.                                 human_time[name] = tonumber(human_time[name]) + 10
  596.  
  597.                                 countupzombiekils(killer)
  598.  
  599.                         elseif killer_team ~= zombie_team and team == zombie_team then
  600.                                 response = false
  601.                                 spawnonspot[victim] = false
  602.  
  603.                                 for i = 0,15 do
  604.                                         if getplayer(i) ~= nil then
  605.                                                 if i ~= killer then
  606.                                                         privatesay(i, tostring(getname(killer)) .. human_kill_message .. tostring(getname(victim)))
  607.                                                 end
  608.                                         end
  609.                                 end
  610.  
  611.                                 local name = getname(killer)
  612.                                 human_time[name] = tonumber(human_time[name]) + 5
  613.                                 dropammoforhumans(victim)
  614.                         end
  615.                 elseif mode == 5 then -- betrayed
  616.                         if infect_on_betray then
  617.                                 local killer_team = getteam(killer)
  618.                                 if tonumber(killer_team) and killer_team ~= zombie_team then
  619.                                         response = false
  620.                                         for i = 0,15 do
  621.                                                 if getplayer(i) ~= nil then
  622.                                                         if i ~= killer then
  623.                                                                 privatesay(i, tostring(getname(killer)) .. teammate_infected_message .. tostring(getname(victim)))
  624.                                                         end
  625.                                                 end
  626.                                         end
  627.                                         registertimer(100, "makezombiedelay", {killer, true})
  628.                                 elseif tonumber(killer_team) and killer_team ~= human_team then
  629.                                         response = false
  630.                                         for i = 0,15 do
  631.                                                 if getplayer(i) ~= nil then
  632.                                                         if i ~= killer then
  633.                                                                 privatesay(i, tostring(getname(killer)) .. " betrayed " .. tostring(getname(victim)))
  634.                                                         end
  635.                                                 end
  636.                                         end
  637.                                 end
  638.                         elseif infect_on_betray == false then
  639.                                 response = false
  640.                                 for i = 0,15 do
  641.                                         if getplayer(i) ~= nil then
  642.                                                 if i ~= killer then
  643.                                                         privatesay(i, tostring(getname(killer)) .. " betrayed " .. tostring(getname(victim)))
  644.                                                 end
  645.                                         end
  646.                                 end
  647.                         end
  648.  
  649.                 elseif mode == 6 then -- suicide
  650.                         if infect_on_suicide then
  651.                                 if tonumber(team) and team ~= zombie_team then
  652.                                         response = false
  653.                                         say(tostring(getname(victim)) .. suicide_infected_message)
  654.                                         registertimer(100, "makezombiedelay", {victim, true})
  655.                                 elseif tonumber(team) and team ~= human_team then
  656.                                         say(tostring(getname(victim)) .. " found himself tasty...")
  657.                                 end
  658.                         elseif infect_on_suicide == false then
  659.                                 response = false
  660.                                 say(tostring(getname(victim)) .. suicide_message)
  661.                         end
  662.                 end
  663.                 -- this next block of code gets rid of any weapons a zombie is holding
  664.                 if tonumber(team) and team == zombie_team then
  665.                         destroyweapons(victim)
  666.                 end
  667.         end
  668.         registertimer(200,"checkgamestate", victim)
  669.     return response
  670. end
  671.  
  672. function countupzombiekils(killer)
  673.         if zkills[killer] then
  674.                 zkills[killer] = zkills[killer] + 1
  675.                 if zkills[killer] >= human_again then
  676.                         spawnonspot[killer] = true
  677.                         sendconsoletext(killer, "You are to full and have become a human again!")
  678.                         registertimer(100, "makehumandelay", {killer, true})
  679.                         kill(killer)
  680.                         zkills[killer] = 0
  681.                 end
  682.         else
  683.                 zkills[killer] = 1
  684.         end
  685. end
  686.  
  687. function dropammoforhumans(victim)
  688.  
  689.         local x = readfloat(getplayer(victim) + 0xF8)
  690.         local y = readfloat(getplayer(victim) + 0xFC)
  691.         local z = readfloat(getplayer(victim) + 0x100)
  692.  
  693.         if last_damage[gethash(victim)] == "weapons\\assault rifle\\bullet" then
  694.                 createobject(gettagid("eqip", "powerups\\assault rifle ammo\\assault rifle ammo"), 0, 30, false, x, y, z + 0.5)
  695.         elseif last_damage[gethash(victim)] == "weapons\\flamethrower\\burning" or last_damage[gethash(victim)] == "weapons\\flamethrower\\explosion" or last_damage[gethash(victim)] == "weapons\\flamethrower\\impact damage" then
  696.                 createobject(gettagid("eqip", "powerups\\flamethrower ammo\\flamethrower ammo"), 0, 30, false, x, y, z + 0.5)
  697.         elseif last_damage[gethash(victim)] == "weapons\\needler\\detonation damage" or last_damage[gethash(victim)] == "weapons\\needler\\explosion" or last_damage[vhash] == "weapons\\needler\\impact damage" then
  698.                 createobject(gettagid("eqip", "powerups\\needler ammo\\needler ammo"), 0, 30, false, x, y, z + 0.5)
  699.         elseif last_damage[gethash(victim)] == "weapons\\pistol\\bullet" then
  700.                 createobject(gettagid("eqip", "powerups\\pistol ammo\\pistol ammo"), 0, 30, false, x, y, z + 0.5)
  701.         elseif last_damage[gethash(victim)] == "weapons\\rocket launcher\\explosion" then
  702.                 createobject(gettagid("eqip", "powerups\\rocket launcher ammo\\rocket launcher ammo"), 0, 30, false, x, y, z + 0.5)
  703.         elseif last_damage[gethash(victim)] == "weapons\\shotgun\\pellet" then
  704.                 createobject(gettagid("eqip", "powerups\\shotgun ammo\\shotgun ammo"), 0, 30, false, x, y, z + 0.5)
  705.         elseif last_damage[gethash(victim)] == "weapons\\sniper rifle\\sniper bullet" then
  706.                 createobject(gettagid("eqip", "powerups\\sniper rifle ammo\\sniper rifle ammo"), 0, 30, false, x, y, z + 0.5)
  707.         end
  708. end
  709.  
  710. function OnTeamDecision(team)
  711.     local dest_team = join_team
  712.     if game_started then
  713.                 if cur_players == 0  then -- if no zombies make them human
  714.                         dest_team = human_team
  715.                 elseif cur_zombie_count > 0 and cur_human_count == 0 then
  716.                         dest_team = human_team
  717.                 end
  718.         end
  719.         return dest_team
  720. end
  721.  
  722. function OnTeamChange(player, old_team, dest_team, voluntary)
  723.         if voluntary then
  724.                 if not allow_change then
  725.                         privatesay(player, blockteamchange_message)
  726.                 elseif allow_change and old_team == zombie_team then
  727.                         -- this is so memory is updated for processing
  728.                         -- when voluntary is 0 OnTeamChange is called once the changes
  729.                         -- have been committed
  730.                 setspeed(player, zombie_speed)
  731.                         changeteam(player, true)
  732.                 end
  733.                 -- we don't let people change team
  734.         elseif not voluntary then -- we can't stop the person changing teams, bein done by an admin
  735.                 -- update team counts
  736.                 if dest_team == zombie_team then
  737.                         cur_human_count = cur_human_count - 1
  738.                         cur_zombie_count = cur_zombie_count + 1
  739.                 elseif dest_team ~= zombie_team then
  740.                         cur_human_count = cur_human_count + 1
  741.                         cur_zombie_count = cur_zombie_count - 1
  742.                 end
  743.                 -- they're allowed to change if the timer is active, if it is disable it
  744.                 if allow_change == true and dest_team == zombie_team then
  745.                         allow_change = false
  746.                         --remove change timer
  747.                         if player_change_timer then
  748.                         removetimer(player_change_timer)
  749.                                 player_change_timer = nil
  750.                         end
  751.                         say(timer_team_change_msg)
  752.                 end
  753.                 -- check if the game has started yet
  754.                 if game_started == true then
  755.                         -- set attributes
  756.                         if dest_team == zombie_team then
  757.                                 makezombie(player, true)
  758.                         elseif dest_team ~= zombie_team then
  759.                                 makehuman(player, true)
  760.                         end
  761.                         registertimer(200,"checkgamestate",player)
  762.                 end
  763.                 -- update team
  764.                 local thisNAME = getname(player)
  765.         name_table[thisNAME] = team
  766.  
  767.         end
  768.         registertimer(200,"checkgamestate",-1)
  769.         return allow_change
  770. end
  771.  
  772. function OnDamageApplication(receiving, causing, tagid, hit, backtap)
  773.     if receiving then
  774.                 local player = objidtoplayer(receiving)
  775.                 if player then
  776.                         if not backtap then
  777.                                 local tagname,tagtype = gettaginfo(tagid)
  778.                                 last_damage[gethash(player)] = tagname
  779.                         else
  780.                                 last_damage[gethash(player)] = "backtap"
  781.                         end
  782.         end
  783.     end
  784. end
  785.  
  786. function OnDamageLookup(receiving, causing, mapId, tagdata)
  787.         if causing and receiving then
  788.                 local causer = objidtoplayer(causing)
  789.                 local receiver = objidtoplayer(receiving)
  790.                 if causer and receiver then
  791.                         local c_team = getteam(causer)
  792.                         local r_team = getteam(receiver)
  793.                         if not team_play and r_team == c_team and causer ~= receiver then
  794.                                 return false
  795.                         end
  796.                         -- if it's a human causing the damage
  797.                         if c_team ~= zombie_team then
  798.                                 if cur_last_man then
  799.                                         modifier = lastman_dmgmodifier
  800.                                 else
  801.                                         modifier = human_dmgmodifier
  802.                                 end
  803.                                 odl_multiplier(modifier)
  804.                         -- It's a zombie causing the damage
  805.                         elseif c_team == zombie_team then
  806.                                 local tagname, tagtype = gettaginfo(mapId)
  807.                                 -- check if it is melee damage
  808.                                 if string.find(tagname, "melee", -5) then
  809.                                         odl_multiplier(9999)
  810.                                 end
  811.                         end
  812.                 end
  813.         end
  814. end
  815.  
  816. function objidtoplayer(objectId)
  817.         local m_object = getobject(objectId)
  818.         if m_object then
  819.                 local playerId = readword(m_object + 0xC0)
  820.                 local m_player = getplayer(playerId)
  821.                 if m_player then
  822.                         return playerId
  823.                 end
  824.         end
  825. end
  826.  
  827. function OnVehicleEntry(player, m_vehicleId, seat, mapId, relevant)
  828.         if game_started and relevant == true then
  829.                 local team = getteam(player)
  830.                 if (team == zombie_team and zombies_allowed_in_vehis) or (team ~= zombie_team and humans_allowed_in_vehis) then
  831.                         return true
  832.                 end
  833.         end
  834.         return false
  835. end
  836.  
  837. function haveSpeedTimer(useless1, useless2, player)
  838.         if getplayer(player) ~= nil then
  839.                 local team = getteam(player)
  840.                 sendconsoletext(player, "Your speed boost has been removed.")
  841.                 if team == zombie_team then
  842.                         setspeed(player, zombie_speed)
  843.                 else
  844.                         setspeed(player, human_speed)
  845.                 end
  846.         else
  847.                 say("reset_spd_failed " .. player .. " is nil")
  848.         end
  849.         return 0
  850. end
  851.  
  852. said = {}
  853.  
  854. function OnClientUpdate(player)
  855.     local m_objectId = getplayerobjectid(player)
  856.     if m_objectId == nil then return end
  857.         local m_object = getobject(m_objectId)
  858.         local team = getteam(player)
  859.  
  860.         local flashlight = readbyte(m_object, 0x206)
  861.         if flashlight == 8 and not usedFlashlight[player] then
  862.                 usedFlashlight[player] = true
  863.                 warned[player] = false
  864.                 registertimer(speed_boost * 1000, "haveSpeedTimer", player)
  865.                 if team ~= human_team then
  866.                         setspeed(player, boost_amount + zombie_speed)
  867.                 elseif team ~= zombie_team and not cur_last_man then
  868.                         setspeed(player, boost_amount + human_speed)
  869.                 elseif team ~= zombie_team and cur_last_man then
  870.                         setspeed(player, boost_amount + lastman_speed)
  871.                 end
  872.         elseif flashlight == 8 and usedFlashlight[player] and not warned[player] then
  873.                 sendconsoletext(player, "You have been given a speed boost!")
  874.                 warned[player] = true
  875.         end
  876.  
  877.         if readbyte(m_object + 0x2A0) == 3 then
  878.                 if getteam(player) == zombie_team then
  879.                         applycamo(player, 1)
  880.                 end
  881.         end
  882.  
  883.         -- this block of code disables them the ability to drop the oddball_or_flag
  884.         if oddball_or_flag and team == zombie_team and flagball_weap[player] then
  885.                 if game_started and readbit(m_object + 0x209, 3) == true or readbit(m_object + 0x209, 4) == true then
  886.                         assignweapon(player, flagball_weap[player])
  887.                 end
  888.         end
  889.  
  890.     local name = getname(player)
  891.     -- this block of code sets the player's score according to what it should be.
  892.         if tonumber(human_time[name]) then
  893.                 local m_player = getplayer(player)
  894.                 if gametype == "KOTH" then
  895.                         writewordsigned(m_player, 0xC4, human_time[name]*30)
  896.                 elseif gametype == "CTF" then
  897.                         writedwordsigned(m_player, 0xC8, human_time[name])
  898.                 elseif gametype == "Slayer" then
  899.                         writedwordsigned(slayer_globals, 0x40 + player * 4, human_time[name])
  900.                 end
  901.         else
  902.                 human_time[name] = 0
  903.         end
  904.         --this makes sure that people won't camp in unreachable places. and doesnt work
  905.         local x,y,z = getobjectcoords(m_objectId)
  906.  
  907.         outsidemap[player] = false
  908.  
  909.         if kill_humanss_in_water then
  910.                 if not isinvehicle(player) then
  911.                         if z < 1.65 and cur_map == "deathisland" then
  912.                                 outsidemap[player] = true
  913.                                 if m_objectId then
  914.                                         if team ~= zombie_team then
  915.                                                         kill(player)
  916.                                                 if not said[player] then
  917.                                                         said[player] = true
  918.                                                         say(getname(player) .. killed_in_water_msg, false)
  919.                                                 end
  920.                                                 if team == human_team and not cur_last_man then
  921.                                                         registertimer(100, "makezombiedelay", {player, true})
  922.                                                         registertimer(200,"checkgamestate", player)
  923.                                                 end
  924.                                         end
  925.                                 end
  926.                         elseif z < -22 and cur_map == "gephyrophobia" then
  927.                                 outsidemap[player] = true
  928.                                 if m_objectId then
  929.                                         if game_started then
  930.                                                 if team ~= zombie_team then
  931.                                                         kill(player)
  932.                                                         if not said[player] then
  933.                                                                 say(getname(player) .. falling_infected_message, false)
  934.                                                         end
  935.                                                         if team == human_team and not cur_last_man then
  936.                                                                 registertimer(100, "makezombiedelay", {player, true})
  937.                                                                 registertimer(200,"checkgamestate", player)
  938.                                                         end
  939.                                                 elseif team == zombie_team then
  940.                                                         kill(player)
  941.                                                         say(getname(player) .. falling_death_message, false)
  942.                                                         registertimer(200,"checkgamestate", player)
  943.                                                 end
  944.                                         end
  945.                                 end
  946.                         elseif z < -6 and cur_map == "boardingaction" then
  947.                                 outsidemap[player] = true
  948.                                 if m_objectId then
  949.                                         if game_started then
  950.                                                 if team ~= zombie_team then
  951.                                                         kill(player)
  952.                                                         if not said[player] then
  953.                                                                 say(getname(player) .. falling_infected_message, false)
  954.                                                         end
  955.                                                         if team == human_team and not cur_last_man then
  956.                                                                 registertimer(100, "makezombiedelay", {player, true})
  957.                                                                 registertimer(200,"checkgamestate", player)
  958.                                                         end
  959.                                                 elseif team == zombie_team then
  960.                                                         kill(player)
  961.                                                         say(getname(player) .. falling_death_message, false)
  962.                                                         registertimer(200,"checkgamestate", player)
  963.                                                 end
  964.                                         end
  965.                                 end
  966.                         elseif z < -1 and cur_map == "damnation" then
  967.                                 outsidemap[player] = true
  968.                                 if m_objectId then
  969.                                         if game_started then
  970.                                                 if team ~= zombie_team then
  971.                                                         kill(player)
  972.                                                         if not said[player] then
  973.                                                                 say(getname(player) .. falling_infected_message, false)
  974.                                                         end
  975.                                                         if cur_last_man ~= nil then
  976.                                                                 registertimer(100, "makezombiedelay", {player, true})
  977.                                                                 registertimer(200,"checkgamestate", player)
  978.                                                         end
  979.                                                 elseif team == zombie_team then
  980.                                                         kill(player)
  981.                                                         say(getname(player) .. falling_death_message, false)
  982.                                                         registertimer(200,"checkgamestate", player)
  983.                                                 end
  984.                                         end
  985.                                 end
  986.                         end
  987.                 end
  988.         end
  989.  
  990.         if cur_map == "damnation" and team ~= zombie_team then
  991.  
  992.         elseif cur_map == "sidewinder" and team ~= zombie_team then
  993.                 if object_in_sphere(m_objectId,  -4.76, -7.51, 2.96, 1.5) or object_in_sphere(m_objectId, -4.78, -5.07, 2.96, 1.5) or object_in_sphere(m_objectId, 3.11, -7.31, 2.96, 2) or object_in_sphere(m_objectId, 3.11, 7.31, 2.96, 2) then -- DP Entrances
  994.                         sendconsoletext(player, "You are not allowed to go there...")
  995.                         say(getname(player) .. " found a blocked spot...", false)
  996.                         kill(player)
  997.                 elseif object_in_sphere(m_objectId, 2.93, -13.03, 2.56, 1.5) or object_in_sphere(m_objectId, 5.56, -13.03, 2.56, 1.5) or object_in_sphere(m_objectId, -7.36, -13.02, 2.56, 1.5) or object_in_sphere(m_objectId, -4.72, -13.02, 2.56, 1.5) then -- tun exits tp dp
  998.                         sendconsoletext(player, "You are not allowed to go there...")
  999.                         say(getname(player) .. " found a blocked spot...", false)
  1000.                         kill(player)
  1001.                 elseif object_in_sphere(m_objectId, -5.8, -33.46, 2.29, 5) then -- vents cur only red side
  1002.                         sendconsoletext(player, "You are not allowed to go there...")
  1003.                         say(getname(player) .. " found a blocked spot...", false)
  1004.                         kill(player)
  1005.                 elseif object_in_sphere(m_objectId, -32.2, -32.48, 3, 1.25) then -- ledge above red base
  1006.                         sendconsoletext(player, "You are not allowed to go there...")
  1007.                         say(getname(player) .. " found a blocked spot...", false)
  1008.                         kill(player)
  1009.                 end
  1010.  
  1011.         elseif cur_map == "dangercanyon" and team ~= zombie_team then
  1012.                 if object_in_sphere(m_objectId,  3.78, 32.84, 4.05, 1.5) or object_in_sphere(m_objectId, 9.94, -9.93, 0.03, 1.5) or object_in_sphere(m_objectId, -9.92, 9.95, 0.03, 1.5) or object_in_sphere(m_objectId,  -9.95, -9.92, 0.03, 1.5) then -- Ledges inside of blue base
  1013.                         sendconsoletext(player, "You are not allowed to go there...")
  1014.                         say(getname(player) .. " found a blocked spot...", false)
  1015.                         kill(player)
  1016.                 elseif object_in_sphere(m_objectId, 3.78, 32.66, 4.05, 1.25) then -- ledge above red base
  1017.                         sendconsoletext(player, "You are not allowed to go there...")
  1018.                         say(getname(player) .. " found a blocked spot...", false)
  1019.                         kill(player)
  1020.                 end
  1021.  
  1022.         -- These are finished.
  1023.         elseif cur_map == "wizard" and team ~= zombie_team then
  1024.                 if object_in_sphere(m_objectId,  9.94, -9.93, 0.03, 1.5) or object_in_sphere(m_objectId, 9.94, -9.93, 0.03, 1.5) or object_in_sphere(m_objectId, -9.92, 9.95, 0.03, 1.5) or object_in_sphere(m_objectId,  -9.95, -9.92, 0.03, 1.5) then -- Ledges inside of blue base
  1025.                         sendconsoletext(player, "You are not allowed to go there...")
  1026.                         say(getname(player) .. " found a blocked spot...", false)
  1027.                         kill(player)
  1028.                 end
  1029.  
  1030.         elseif cur_map == "gephyrophobia" and team ~= zombie_team then
  1031.                 if object_in_sphere(m_objectId,  74.78, -73.89, 7.43, 9) then -- Cliff Hanger
  1032.                         sendconsoletext(player, "You are not allowed to go here...")
  1033.                         say(getname(player) .. " found a blocked spot...", false)
  1034.                         kill(player)
  1035.                 elseif object_in_sphere(m_objectId, 26.9, -129.32, -5.19, 1.5) or object_in_sphere(m_objectId, 26.8, -15.32, -5.26, 1.5)then -- Above wires
  1036.                         sendconsoletext(player, "You are not allowed to go here...")
  1037.                         say(getname(player) .. " found a blocked spot...", false)
  1038.                         kill(player)
  1039.                 end
  1040.  
  1041.         elseif cur_map == "boardingaction" and team ~= zombie_team then
  1042.                 if object_in_sphere(m_objectId,  3, -21.37, 7.22, 1.5) or object_in_sphere(m_objectId, 16.67, 21.19, 7.22, 1.5) then -- Ledges inside of blue base
  1043.                         sendconsoletext(player, "You are not allowed to go there...")
  1044.                         say(getname(player) .. " found a blocked spot...", false)
  1045.                         kill(player)
  1046.                 end
  1047.         elseif cur_map == "deathisland" and team ~= zombie_team then
  1048.                 if object_in_sphere(m_objectId, 29.89, 15.29, 10.28, 2) or object_in_sphere(m_objectId, 29.89, 16.76, 10.28, 2.5) then -- Ledges inside of blue base
  1049.                         sendconsoletext(player, "You are not allowed to go there...")
  1050.                         say(getname(player) .. " found a blocked spot...", false)
  1051.                         kill(player)
  1052.                 elseif object_in_sphere(m_objectId, -26.51, -7.72, 11.65, 2) or object_in_sphere(m_objectId, -26.51, -6.25, 11.65, 2.5) then -- Ledges inside of red base
  1053.                         sendconsoletext(player, "You are not allowed to go there...")
  1054.                         say(getname(player) .. " found a blocked spot...", false)
  1055.                         kill(player)
  1056.                 elseif object_in_sphere(m_objectId, 16.82, -22.79, 8.72, 7) then -- Hole in the wall
  1057.                         sendconsoletext(player, "You are not allowed to go there...")
  1058.                         say(getname(player) .. " found a blocked spot...", false)
  1059.                         kill(player)
  1060.                 elseif object_in_sphere(m_objectId, 20.83, 50.92, 7.49, 5) then -- Island (the one not connected to the portal) (this only covers the landing!)
  1061.                         sendconsoletext(player, "You are not allowed to go there...")
  1062.                         say(getname(player) .. " found a blocked spot...", false)
  1063.                         kill(player)
  1064.                 end
  1065.  
  1066.         elseif cur_map == "infinity" and team ~= zombie_team then
  1067.                 if object_in_sphere(m_objectId, 1.11, -141.68, 20.49, 1.5) or object_in_sphere(m_objectId, 0.09, -141.68, 20.49, 1.5) then -- Tower on red side
  1068.                         sendconsoletext(player, "You are not allowed to go there...")
  1069.                         say(getname(player) .. " found a blocked spot...", false)
  1070.                         kill(player)
  1071.                 elseif object_in_sphere(m_objectId, -2.33, 24.78, 18.61, 1.5) or object_in_sphere(m_objectId, -1.3, 24.78, 18.61, 1.5) then -- Tower on blue side
  1072.                         sendconsoletext(player, "You are not allowed to go there...")
  1073.                         say(getname(player) .. " found a blocked spot...", false)
  1074.                         kill(player)
  1075.                 elseif object_in_sphere(m_objectId, -52.73, -19.67, 17.4, 2) then
  1076.                         sendconsoletext(player, "You are not allowed to go there...")
  1077.                         say(getname(player) .. " found a blocked spot...", false)
  1078.                         kill(player)
  1079.                 elseif object_in_sphere(m_objectId, -53.29, -8.32, 21.01, 6) then
  1080.                         sendconsoletext(player, "You are not allowed to go there...")
  1081.                         say(getname(player) .. " found a blocked spot...", false)
  1082.                         kill(player)
  1083.                 end
  1084.  
  1085.         elseif cur_map == "bloodgulch" and team ~= zombie_team then
  1086.                 if object_in_sphere(m_objectId, 80.96, -149.33, 3.1, 4) or object_in_sphere(m_objectId, 39.21, -96.36, 1.76, 4) then -- Trees
  1087.                         sendconsoletext(player, "You are not allowed to go there...")
  1088.                         say(getname(player) .. " found a blocked spot...", false)
  1089.                         kill(player)
  1090.                 elseif object_in_sphere(m_objectId, 92.38, -93.65, 9.33, 6) then -- Rock Tower (by os cave)
  1091.                         sendconsoletext(player, "You are not allowed to go there...")
  1092.                         say(getname(player) .. " found a blocked spot...", false)
  1093.                         kill(player)
  1094.                 end
  1095.  
  1096.         elseif cur_map == "icefields" and team ~= zombie_team then
  1097.                 if object_in_sphere(m_objectId, 77.91, 98.62, 3.81, 1.5) or object_in_sphere(m_objectId, 24.83, -34.22, 3.82, 1.5) then -- Top of teleporters
  1098.                         sendconsoletext(player, "You are not allowed to go there...")
  1099.                         say(getname(player) .. " found a blocked spot...", false)
  1100.                         kill(player)
  1101.                 elseif object_in_sphere(m_objectId, 19.42, -8.84, 3.63, 4) or object_in_sphere(m_objectId, -72.18, 74.3, 3.15, 2) then -- Clifs infront of bases
  1102.                         sendconsoletext(player, "You are not allowed to go there...")
  1103.                         say(getname(player) .. " found a blocked spot...", false)
  1104.                         kill(player)
  1105.                 elseif object_in_sphere(m_objectId, 32.81, -32.56, 5.67, 5) or object_in_sphere(m_objectId, -85.74, 96.96, 5.62, 5) then -- Clifs behind of bases (by portal)
  1106.                         sendconsoletext(player, "You are not allowed to go there...")
  1107.                         say(getname(player) .. " found a blocked spot...", false)
  1108.                         kill(player)
  1109.                 elseif object_in_sphere(m_objectId, -17.66, 19.91, 11.58, 4) then -- Clif at bridge (unreachable one)
  1110.                         sendconsoletext(player, "You are not allowed to go there...")
  1111.                         say(getname(player) .. " found a blocked spot...", false)
  1112.                         kill(player)
  1113.                 end
  1114.  
  1115.         elseif cur_map == "hangemhigh" and team ~= zombie_team then
  1116.                 if object_in_sphere(m_objectId, 7.38, 2.02, -3.16, 3) then  -- Back room and shotgun room
  1117.                         sendconsoletext(player, "You are not allowed to go there...")
  1118.                         say(getname(player) .. " found a blocked spot...", false)
  1119.                         kill(player)
  1120.                 end
  1121.  
  1122.         elseif cur_map == "putput" and team ~= zombie_team then
  1123.                 if object_in_sphere(m_objectId, -4.59, -20.67, 3.3, 1.5) or object_in_sphere(m_objectId, -2.78, -20.84, 3.3, 1.5) then -- Above power up spawn
  1124.                         sendconsoletext(player, "You are not allowed to go there...")
  1125.                         say(getname(player) .. " found a blocked spot...", false)
  1126.                         kill(player)
  1127.                 end
  1128.  
  1129.         elseif cur_map == "chillout" and team ~= zombie_team then
  1130.                 if object_in_sphere(m_objectId, 11.26, 8.82, 3.16, 2) or object_in_sphere(m_objectId, -7.16, 7.8, 4.34, 3) then  -- Back room and shotgun room
  1131.                         sendconsoletext(player, "You are not allowed to go there...")
  1132.                         say(getname(player) .. " found a blocked spot...", false)
  1133.                         kill(player)
  1134.                 end
  1135.         end
  1136. end
  1137.  
  1138. function all_players_zombies(player)
  1139.         if player ~= nil and player ~= -1 and getplayer(player) then
  1140.                 last_man_name = getname(player)
  1141.                 local file = io.open("lastname_" .. processid .. ".tmp", "w")
  1142.                 if (file ~= nil) then
  1143.                         file:write(tostring(last_man_name))
  1144.                         file:close()
  1145.                 end
  1146.         end
  1147.         svcmd("sv_map_next")
  1148. end
  1149.  
  1150. function AssignZombieWeapons(id, count, table)
  1151.         local player = table[1]
  1152.         local clipcount = table[2]
  1153.         local ammocount = table[3]
  1154.         local batterycount = table[4]
  1155.     if getplayer(player) == nil then
  1156.         return
  1157.     end
  1158.     local m_objectId = getplayerobjectid(player)
  1159.         if m_objectId then
  1160.                 local m_object = getobject(m_objectId)
  1161.                 --count is increased everytime the timer is called
  1162.                 if count == 1 then
  1163.                         -- gets rid of any weapons a zombie is holding
  1164.                         destroyweapons(player)
  1165.                 end
  1166.                 local i = count
  1167.                 if zombie_weapon and zombie_weapon[i] and zombie_weapon[i] ~= "" then
  1168.                         local m_weaponId = createobject(gettagid("weap", zombie_weapon[i]), 0, 0, false, 1, 1, 1)
  1169.                         if m_weaponId and m_weaponId ~= 0xFFFFFFFF then
  1170.                                 assignweapon(player, m_weaponId)
  1171.                                 if oddball_or_flag == readdword(getobject(m_weaponId)) then
  1172.                                         flagball_weap[player] = m_weaponId
  1173.                                 else
  1174.                                         local m_weapon = getobject(m_weaponId)
  1175.                                         if m_weapon then
  1176.                                                 -- set the ammo
  1177.                                                 writeword(m_weapon, 0x2B6, ammocount)
  1178.                                                 writeword(m_weapon, 0x2B8, clipcount)
  1179.                                                 writefloat(m_weapon, 0x240, 1)
  1180.                                                 -- force it to sync
  1181.                                                 updateammo(m_weaponId)
  1182.                                         end
  1183.                                 end
  1184.                         end
  1185.                 end
  1186.                 if count < 4 then return true else return false end
  1187.         end
  1188.         return false
  1189. end
  1190.  
  1191. function AssignHumanWeapons(id, count, player)
  1192.  
  1193.     if getplayer(player) == nil then
  1194.         return
  1195.     end
  1196.     local m_objectId = getplayerobjectid(player)
  1197.         if m_objectId then
  1198.                 local m_object = getobject(m_objectId)
  1199.                 --count is increased everytime the timer is called
  1200.                 if count == 1 then
  1201.                         -- gets rid of any weapons a zombie is holding
  1202.                         destroyweapons(player)
  1203.                 end
  1204.                 local i = count
  1205.                 if human_weapon and human_weapon[i] and human_weapon[i] ~= "" then
  1206.                         local m_weaponId = createobject(gettagid("weap", human_weapon[i]), 0, 0, false, 1, 1, 1)
  1207.                         if m_weaponId and m_weaponId ~= 0xFFFFFFFF then
  1208.                                 assignweapon(player, m_weaponId)
  1209.                         end
  1210.                 end
  1211.                 if count < 4 then return true else return false end
  1212.         end
  1213.         return false
  1214. end
  1215.  
  1216. function checkgamestate(id, count, player)
  1217.         -- check if the game has started yet
  1218.         if game_started == true then
  1219.         local human_count, zombie_count = getteamsizes()
  1220.                 -- if no humans, but there are zombies, end the game
  1221.                 if human_count == 0 and zombie_count > 0 then
  1222.                         all_players_zombies(player)
  1223.                 elseif human_count > 1 and zombie_count == 0 then
  1224.                         noZombiesLeft()
  1225.                 elseif human_count == 1 and zombie_count > 0 and not cur_last_man then
  1226.                         onlastman()
  1227.                 elseif cur_last_man and zombie_count == 0 then
  1228.                 if getplayer(cur_last_man) then
  1229.                             makehuman(cur_last_man, false)
  1230.             end
  1231.                         cur_last_man = nil
  1232.                 elseif cur_last_man and human_count > 1 then
  1233.                         if gametype == "Slayer" then takenavsaway(cur_last_man) end
  1234.                 if getplayer(cur_last_man) then
  1235.                             makehuman(cur_last_man, false)
  1236.             end
  1237.                         cur_last_man = nil
  1238.                 end
  1239.         end
  1240.         return false
  1241. end
  1242.  
  1243. function ChooseRandomPlayer(excludeTeam)
  1244.         -- loop through all 16 possible spots and add to table
  1245.         local t = getplayertable(excludeTeam)
  1246.         if #t > 0 then
  1247.                 -- generate a random number that we will use to select a player
  1248.                 local r = getrandomnumber(1, #t+1)
  1249.                 return tonumber(t[r])
  1250.         else
  1251.                 return nil
  1252.         end
  1253. end
  1254.  
  1255. function destroyweapons(player)
  1256.         for i = 0,3 do -- loop through the player's weapons (primary to quartenary)
  1257.                 local m_weaponId = getweaponobjectid(player, i)
  1258.                 if m_weaponId ~= 0xFFFFFFFF then destroyobject(m_weaponId) end
  1259.         end
  1260. end
  1261.  
  1262. function DelayWriteCoords(id, count)
  1263.         writefloat(readdword(ctf_globals + 0x0), 0x8, readfloat(readdword(ctf_globals + 0x0), 0x8) - 100)
  1264.         writefloat(readdword(ctf_globals + 0x4), 0x8, readfloat(readdword(ctf_globals + 0x4), 0x8) - 100)
  1265.         return false
  1266. end
  1267.  
  1268. function getalphacount()
  1269.         -- recalculate how many "alpha" zombies there are
  1270.         if zombie_count < 1 then
  1271.                 alpha_zombie_count = round((cur_players * zombie_count) + 0.5)
  1272.         else
  1273.                 alpha_zombie_count = zombie_count
  1274.         end
  1275.         if alpha_zombie_count > max_zombie_count then
  1276.                 alpha_zombie_count = max_zombie_count
  1277.         end
  1278.         return alpha_zombie_count
  1279. end
  1280.  
  1281. function GetGameAddresses(game)
  1282.         if game == "PC" then
  1283.                 map_pointer = 0x63525c
  1284.                 ctf_globals = 0x639B98
  1285.                 flag_respawn_addr = 0x488A7E
  1286.                 gametype_base = 0x671340
  1287.                 slayer_globals = 0x63A0E8
  1288.                 team_koth_score_array = 0x639BD0
  1289.  
  1290.         ctf_score_patch = 0x488602
  1291.         ctf_score_patch1 = 0x488606
  1292.  
  1293.         slayer_score_patch = 0x48F428
  1294.         slayer_score_patch2 = 0x48F23E
  1295.  
  1296.                 koth_score_patch = 0x48A798
  1297.                 koth_score_patch2 = 0x48A76D
  1298.         else
  1299.                 map_pointer = 0x5B927C
  1300.                 ctf_globals = 0x5BDBB8
  1301.                 flag_respawn_addr = 0x4638EE
  1302.                 gametype_base = 0x5F5498
  1303.                 slayer_globals = 0x5BE108
  1304.                 team_koth_score_array = 0x5BDBF0
  1305.  
  1306.                 ctf_score_patch = 0x463472
  1307.                 ctf_score_patch1 = 0x463476
  1308.  
  1309.         slayer_score_patch = 0x469CF8
  1310.         slayer_score_patch2 = 0x4691CE
  1311.  
  1312.                 koth_score_patch = 0x465458
  1313.                 koth_score_patch2 = 0x46542D
  1314.         end
  1315. end
  1316.  
  1317. function getplayertable(excludeTeam)
  1318.         local players = ""
  1319.         for i=0,15 do
  1320.                 if getplayer(i) and getteam(i) ~= excludeTeam then
  1321.                         if players == nil then
  1322.                                 players = i .. ","
  1323.                         else
  1324.                                 players = players .. i .. ","
  1325.                         end
  1326.                 end
  1327.         end
  1328.         return tokenizestring(players, ",")
  1329. end
  1330.  
  1331. function getteamplay()
  1332.     local team_play = readbyte(gametype_base + 0x34)
  1333.     if team_play == 1 then
  1334.         return true
  1335.         else
  1336.         return false
  1337.         end
  1338. end
  1339.  
  1340. function getteamsizes()
  1341.     local human_size = 0
  1342.         local zombie_size = 0
  1343.         human_size = getteamsize(0)
  1344.         zombie_size = getteamsize(1)
  1345.         return human_size,zombie_size
  1346. end
  1347.  
  1348. function getweaponobjectid(player, slot)
  1349.     local m_objectId = getplayerobjectid(player)
  1350.     if m_objectId then return readdword(getobject(m_objectId) + 0x2F8 + slot*4) end
  1351. end
  1352.  
  1353. function HumanTimer(id, count)
  1354.         if map_reset_boolean == true then
  1355.                 map_reset_boolean = false
  1356.         end
  1357.         if game_started == true then
  1358.                 for i = 0,15 do
  1359.                         if getplayer(i) then
  1360.                                 local m_player = getplayer(i)
  1361.                                 local name = getname(i)
  1362.                                 local team = getteam(i)
  1363.                                 local m_objectId = getplayerobjectid(i)
  1364.                                 if m_objectId then
  1365.                                         local m_object = getobject(m_objectId)
  1366.                                         if m_object then
  1367.                                                 if tonumber(human_time[name]) then
  1368.                                                         human_time[name] = tonumber(human_time[name]) + 0.1
  1369.                                                 else
  1370.                                                         human_time[name] = 1
  1371.                                                 end
  1372.                                         end
  1373.                                 end
  1374.                                 if gametype == "KOTH" then
  1375.                                         local m_objectId = getplayerobjectid(i)
  1376.                                         if m_objectId then
  1377.                                                 local m_object = getobject(m_objectId)
  1378.                                                 if PlayerInHill(i) == true and m_object then
  1379.                                                         if inhill_time[name] == nil then
  1380.                                                                 inhill_time[name] = 0
  1381.                                                                 writebit(m_object + 0x10, 0, 1)
  1382.                                                                 if team ~= zombie_team then
  1383.                                                                         say(getname(i) .. " must leave the hill in 10 seconds or they will be infected!")
  1384.                                                                 else
  1385.                                                                         say(getname(i) .. " must leave the hill in 10 seconds or they will be killed!")
  1386.                                                                 end
  1387.                                                         elseif inhill_time[name] >= 10 then
  1388.                                                                 if team ~= zombie_team then
  1389.                                                                         makezombie(i, true)
  1390.                                                                         say(getname(i) .. in_hill_too_long_msg)
  1391.                                                                 else
  1392.                                                                         kill(i)
  1393.                                                                         say(getname(i) .. " has been killed because they were in the hill too long!")
  1394.                                                                 end
  1395.                                                                 inhill_time[name] = nil
  1396.                                                         elseif team ~= zombie_team then
  1397.                                                                 privatesay(i, "You have " .. math.abs(inhill_time[name] - 10) .. " seconds to leave the hill!")
  1398.                                                                 inhill_time[name] = inhill_time[name] + 1
  1399.                                                         end
  1400.                                                 elseif m_object then
  1401.                                                         inhill_time[name] = nil
  1402.                                                         writebit(m_object + 0x10, 0, 0)
  1403.                                                 end
  1404.                                         end
  1405.                                 end
  1406.                         end
  1407.                 end
  1408.         end
  1409.         return true
  1410. end
  1411.  
  1412. function LoadTags()
  1413.     for i = 1,4 do
  1414.         if zombie_weapon[i] == "weapons\\ball\\ball" or zombie_weapon[i] == "weapons\\flag\\flag" then
  1415.                         oddball_or_flag = gettagid("weap", zombie_weapon[i])
  1416.                 end
  1417.         end
  1418.     camouflage_tag_id = gettagid("eqip", "powerups\\active camouflage")
  1419.         healthpack_tag_id = gettagid("eqip", "powerups\\health pack")
  1420.         overshield_tag_id = gettagid("eqip", "powerups\\over shield")
  1421.         fragnade_tag_id = gettagid("eqip", "weapons\\frag grenade\\frag grenade")
  1422.         plasmanade_tag_id = gettagid("eqip", "weapons\\plasma grenade\\plasma grenade")
  1423.     fragnade_tag_id = gettagid("eqip", "weapons\\frag grenade\\frag grenade")
  1424.         plasmanade_tag_id = gettagid("eqip", "weapons\\plasma grenade\\plasma grenade")
  1425.     oddball_tag_id = gettagid("weap", "weapons\\ball\\ball")
  1426.     flag_tag_id = gettagid("weap", "weapons\\flag\\flag")
  1427. end
  1428.  
  1429. function makehuman(player, forcekill, updatecounters)
  1430.     if getplayer(player) then
  1431.         if gametype == "Slayer" then
  1432.             writebyte(getplayer(player) + 0x20, human_team)
  1433.         end
  1434.         -- change the player's speed
  1435.         setspeed(player, human_speed)
  1436.         if getteam(player) == zombie_team then
  1437.                 changeteam(player, forcekill)
  1438.                 if not team_play then
  1439.                 OnFFATeamChange(player, getteam(player), updatecounters)
  1440.                 end
  1441.         end
  1442.     end
  1443. end
  1444.  
  1445. function makezombie(player, forcekill, updatecounters)
  1446.     if getplayer(player) ~= nil then
  1447.         if gametype == "Slayer" then
  1448.             writebyte(getplayer(player) + 0x20, zombie_team)
  1449.         end
  1450.         -- change the player's speed
  1451.         setspeed(player, zombie_speed)
  1452.         if getteam(player) ~= zombie_team then
  1453.             changeteam(player, forcekill)
  1454.                 if not team_play then
  1455.                 OnFFATeamChange(player, getteam(player), updatecounters)
  1456.                 end
  1457.             end
  1458.         else
  1459.                 say("Makezombie got nil")
  1460.     end
  1461. end
  1462.  
  1463. function makezombiedelay(id, count, arg)
  1464.         makezombie(arg[1], arg[2])
  1465. end
  1466.  
  1467. function makehumandelay(id, count, arg)
  1468.         makehuman(arg[1], arg[2])
  1469. end
  1470.  
  1471. function MsgTimer(id, count, player)
  1472.     if getplayer(player) then
  1473.         privatesay(player, welcome_message)
  1474.         if gametype == "KOTH" then
  1475.                 privatesay(player, koth_additional_welcome_msg)
  1476.         elseif gametype == "Slayer" then
  1477.                 --local msg = tokenizestring(slayer_additional_welcome_msg, "\n")
  1478.                         --privatesay(player, msg[1])
  1479.                         --privatesay(player, msg[2])
  1480.         end
  1481.     end
  1482.         return false
  1483. end
  1484.  
  1485. function NewGameTimer(id, count)
  1486.         if cur_players ~= 0 then
  1487.                 local newgame_zombie_count = 0
  1488.                 -- by default make all players human
  1489.                 for x=0,15 do
  1490.                         if getplayer(x) then
  1491.                                 local thisTeam = getteam(x)
  1492.                                 local name = getname(x)
  1493.                                 if thisTeam then
  1494.                                         if thisTeam == zombie_team then
  1495.                                                 changeteam(x, 0)
  1496.                                         end
  1497.                                         human_time[name] = 0
  1498.                                 end
  1499.                         end
  1500.                 end
  1501.                 local possible_count = cur_players
  1502.                 -- make players zombie until the count has been met
  1503.                 local finalZombies = 0
  1504.                 if zombie_count >= 1 then
  1505.                         finalZombies = zombie_count
  1506.                 else
  1507.                         finalZombies = round((possible_count * zombie_count) + 0.5)
  1508.                 end
  1509.                 -- make last man zombie
  1510.                 local last_man_index = -1
  1511.                 -- check if the last man is to be made a zombie
  1512.                 -- if so find who was last man
  1513.                 if last_man_next_zombie == true and cur_players > 1 then
  1514.                         -- loop through all IP's and check if any match the last man
  1515.                         readlastman()
  1516.                         for i=0,15 do
  1517.                                 if getplayer(i) then
  1518.                                         local name = getname(i)
  1519.                                         if last_man_name == name then
  1520.                                                 -- make them a zombie and save their info
  1521.                                                 makezombie(i, true)
  1522.                                                 newgame_zombie_count = 1
  1523.                                                 last_man_index = i
  1524.                                                 break
  1525.                                         end
  1526.                                 end
  1527.                         end
  1528.                 end
  1529.                 -- reset last man
  1530.                 last_man_name = 0
  1531.                 if finalZombies == cur_players then -- if 0 players they will be human
  1532.                         finalZombies = finalZombies - 1
  1533.                 elseif finalZombies > possible_count then -- fix the count
  1534.                         finalZombies = possible_count
  1535.                 elseif max_zombie_count and finalZombies > max_zombie_count then -- cap the zombie count
  1536.                         finalZombies = max_zombie_count
  1537.                 elseif finalZombies < 0 then
  1538.                         finalZombies = 0
  1539.                 end
  1540.                 -- set counters such that ChangeTeam wont end the game
  1541.                 cur_zombie_count = 16
  1542.                 cur_human_count = 16
  1543.                 -- loop through the players, randomly selecting ones to become
  1544.                 -- zombies
  1545.                 while (newgame_zombie_count < finalZombies) do
  1546.                         -- randomly choose a player
  1547.                         local newzomb = ChooseRandomPlayer(zombie_team)
  1548.                         if newzomb == nil then
  1549.                                 break
  1550.                         elseif newzomb ~= last_man_index then
  1551.                                 makezombie(newzomb, true)
  1552.                                 newgame_zombie_count = newgame_zombie_count + 1
  1553.                         end
  1554.                 end
  1555.                 -- fix the team counters
  1556.                 cur_zombie_count = newgame_zombie_count
  1557.                 cur_human_count = cur_players - finalZombies
  1558.                 -- reset the map
  1559.                 killtimer = false
  1560.                 svcmd("sv_map_reset")
  1561.                 hprintf("Game started")
  1562.                 say("The game has started")
  1563.                 -- loop through and tell players which team they're on
  1564.                 for i=0,15 do
  1565.                         if getplayer(i) then
  1566.                                 local pteam = getteam(i)
  1567.                                 if pteam then
  1568.                                         -- check if they're a zombie
  1569.                                         if pteam == zombie_team then
  1570.                                                 privatesay(i, zombie_message)
  1571.                                         else
  1572.                                                 if not team_play then makehuman(i) end
  1573.                                                 privatesay(i, human_message)
  1574.                                         end
  1575.                                 end
  1576.                         end
  1577.                 end
  1578.         end
  1579.         game_started = true
  1580.         killtimer = false
  1581.         new_game_timer = nil
  1582.         resptime = nil
  1583.         return false -- remove timer
  1584. end
  1585.  
  1586. function noZombiesLeft()
  1587.     if team_play then
  1588.         if player_change_timer == nil then
  1589.                 allow_change = true
  1590.                 say(nozombiesleftmessage)
  1591.             player_change_timer = registertimer(1000, "PlayerChangeTimer")
  1592.         end
  1593.     else
  1594.                 -- pick a human and make them zombie.
  1595.                 local newZomb = ChooseRandomPlayer(zombie_team)
  1596.                 if newZomb then
  1597.                         makezombie(newZomb, true)
  1598.                         privatesay(newZomb, zombie_message)
  1599.                 end
  1600.     end
  1601. end
  1602.  
  1603. function object_in_sphere(m_objectId, X, Y, Z, R)
  1604.         local Pass = false
  1605.         if getobject(m_objectId) then
  1606.                 local x,y,z = getobjectcoords(m_objectId)
  1607.                 if (X - x)^2 + (Y - y)^2 + (Z - z)^2 <= R then
  1608.             Pass = true
  1609.         end
  1610.     end
  1611.     return Pass
  1612. end
  1613.  
  1614. function OnFFATeamChange(player, dest_team, updatecounters)
  1615.         -- update team counts
  1616.         if not updatecounters then
  1617.                 if dest_team == zombie_team then
  1618.                         cur_human_count = cur_human_count - 1
  1619.                         cur_zombie_count = cur_zombie_count + 1
  1620.                 elseif dest_team ~= zombie_team then
  1621.                         cur_human_count = cur_human_count + 1
  1622.                         cur_zombie_count = cur_zombie_count - 1
  1623.                 end
  1624.         end
  1625.         -- check if the game has started yet
  1626.         if game_started == true then
  1627.                 registertimer(200,"checkgamestate",player)
  1628.         end
  1629.         -- update team with
  1630.     local thisNAME = getname(player)
  1631.     name_table[thisNAME] = team
  1632. end
  1633.  
  1634. function onlastman()
  1635.         -- lookup the last man
  1636.         for x=0,15 do
  1637.                 if getplayer(x) then
  1638.                         local team = getteam(x)
  1639.                         if team ~= zombie_team and team then
  1640.                                 cur_last_man = x
  1641.                                 if gametype == "Slayer" then WriteNavsToZombies(x) end
  1642.                                 -- give the last man speed and extra ammo
  1643.                                 setspeed(x, lastman_speed)
  1644.                                 -- find the last man's weapons
  1645.                                 local m_player = getplayer(x)
  1646.                                 if m_player then
  1647.                                         local m_ObjId = readdword(m_player + 0x34)
  1648.                     if m_ObjId then
  1649.                                         -- find the player's object
  1650.                                         local m_object = getobject(m_ObjId)
  1651.                                         if m_object then
  1652.                                                 if lastman_invulnerable and lastman_invulnerable > 0 then
  1653.                                                         -- setup the invulnerable timer
  1654.                                                         writebit(m_object + 0x10, 0, 1)
  1655.                                                         registertimer(lastman_invulnerable * 1000, "RemoveLastmanProtection", m_object)
  1656.                                                 end
  1657.                                                 -- give all weapons 600 ammo
  1658.                                                 for i=0,3 do
  1659.                                                         local m_weaponId = readdword(m_object + 0x2F8 + (i*4))
  1660.                                                         if m_weaponId ~= 0xffffffff then
  1661.                                                                 -- get the weapons memory address
  1662.                                                                 local m_weapon = getobject(m_weaponId)
  1663.                                                                 if m_weapon then
  1664.                                                                         -- set the ammo
  1665.                                                                         writeword(m_weapon, 0x2B6, 132)
  1666.                                                                                 writeword(m_weapon, 0x2B8, 100) --lastman clipcount
  1667.                                                                                 updateammo(m_weaponId)
  1668.                                                                 end
  1669.                                                         end
  1670.                                                 end
  1671.                                         end
  1672.                                     end
  1673.                 end
  1674.                         end
  1675.                 end
  1676.         end
  1677.         if cur_last_man then
  1678.                 local lastman_name = getname(cur_last_man)
  1679.                 local msg = string.format(lastman_message, tostring(lastman_name), lastman_invistime)
  1680.                 say(msg)
  1681.                 applycamo(cur_last_man, lastman_invistime)
  1682.         end
  1683. end
  1684.  
  1685. function PlayerChangeTimer(id, count)
  1686.         if count ~= 6 and team_play then
  1687.                 local zombsize = cur_zombie_count
  1688.                 if allow_change == false or zombsize > 0 then
  1689.                         allow_change = false
  1690.                         say("Thank you, the game can continue.")
  1691.             player_change_timer = nil
  1692.                         return false
  1693.                 end
  1694.                 say("In " .. 6 - count .. " seconds a player will be forced to become a zombie.")
  1695.                 return true
  1696.         else -- timer up, force team change
  1697.                 allow_change = false
  1698.                 -- pick a human and make them zombie.
  1699.                 local newZomb = ChooseRandomPlayer(zombie_team)
  1700.                 if newZomb ~= nil then
  1701.                         makezombie(newZomb, true)
  1702.                         kill(newZomb)
  1703.                         say(getname(newZomb) .. " is now the new zombie!", false)
  1704.                         privatesay(newZomb, zombie_message)
  1705.                 else
  1706.                         say("PlayerChangeTimer got nil")
  1707.                 end
  1708.         player_change_timer = nil
  1709.                 return false
  1710.         end
  1711. end
  1712.  
  1713. function PlayerInHill(player)
  1714.         player = tonumber(player)
  1715.         local bool = false
  1716.         local m_player = getplayer(player)
  1717.         if m_player then
  1718.                 local InHill = readbyte(team_koth_score_array + player + 0x80)
  1719.                 if InHill == 1 then
  1720.                         bool = true
  1721.                 end
  1722.         end
  1723.         return bool
  1724. end
  1725.  
  1726. function PutUnderMap(id, count, m_objectId)
  1727.         local m_object = getobject(m_objectId)
  1728.         if m_object then
  1729.                 local x,y,z = getobjectcoords(m_objectId)
  1730.                 movobjectcoords(m_objectId, x, y, z - 20)
  1731.         end
  1732.         return false
  1733. end
  1734.  
  1735. function privatesay(player, message, script_prefix)
  1736.     if GAME == "PC" then
  1737.         phasor_privatesay(player, (script_prefix or default_script_prefix) .. message, false)
  1738.     else
  1739.         phasor_privatesay(player, message, false)
  1740.     end
  1741. end
  1742.  
  1743. function say(message, script_prefix)
  1744.     if GAME == "PC" then
  1745.         phasor_say((script_prefix or default_script_prefix) .. message, false)
  1746.     else
  1747.         phasor_say(message, false)
  1748.     end
  1749. end
  1750.  
  1751. function sendresponse(message, player)
  1752.         if message == "" then
  1753.                 return
  1754.         end
  1755.         player = tonumber(player)
  1756.         if tonumber(player) and player ~= nil and player ~= -1 and player >= 0 and player < 16 then
  1757.                 sendconsoletext(player, message)
  1758.         else
  1759.                 hprintf(message)
  1760.         end
  1761. end
  1762.  
  1763. function ScriptLoad()
  1764.         if Persistent then
  1765.                 cur_zombie_count = 0
  1766.                 cur_human_count = 0
  1767.                 alpha_zombie_count = 0
  1768.                 human_time = {}
  1769.                 cur_players = 0
  1770.                 cur_last_man = nil
  1771.                 last_man_name = 0
  1772.                 processid = 0
  1773.                 game_started = false
  1774.                 allow_change = false
  1775.                 flagball_weap = {}
  1776.                 last_hill_time = {}
  1777.                 name_table = {}
  1778.                 inhill_time = {}
  1779.         end
  1780.         gametype = readbyte(gametype_base + 0x30)
  1781.     gametype_indicator = readbyte(gametype_base + 0x3C)
  1782.     writedword(ctf_score_patch, 0x90909090)
  1783.     writebyte(ctf_score_patch1, 0x90)
  1784.     writebyte(slayer_score_patch, 0xEB)
  1785.     writebyte(slayer_score_patch2, 0xEB)
  1786.         writedword(koth_score_patch, 0xF3E9)
  1787.         writebyte(koth_score_patch2, 0xEB)
  1788.  
  1789.     -- recalculate team counters
  1790.     cur_human_count, cur_zombie_count = getteamsizes()
  1791.         cur_players = cur_zombie_count + cur_human_count
  1792.  
  1793.     -- recalculate how many "alpha" zombies there are
  1794.         alpha_zombie_count = getalphacount()
  1795.         team_play = getteamplay()
  1796.  
  1797.         if gametype == 1 then
  1798.                 gametype = "CTF"
  1799.                 writedword(flag_respawn_addr + 0x0, 0xFFFFFFFF)
  1800.                 registertimer(0, "DelayWriteCoords")
  1801.                 join_team = zombie_team
  1802.         elseif gametype == 2 then
  1803.                 gametype = "Slayer"
  1804.         join_team = zombie_team
  1805.         if speedtimer == nil then
  1806.                     speedtimer = registertimer(750, "SpeedTimer")
  1807.         end
  1808.         for player=0,15 do
  1809.             if getplayer(player) then
  1810.                 cur_players = cur_players + 1
  1811.                 local team = getteam(player)
  1812.                 -- onteamdecision isn't called for ffa gametypes
  1813.                 if not team_play then
  1814.                         -- initialize the destination team as the join team
  1815.                         local dest_team = join_team
  1816.                                 -- if no zombies make them human
  1817.                                 if cur_human_count == 0 then
  1818.                                         dest_team = human_team
  1819.                                 end
  1820.                         -- we need to overwrite the 'team' variable being passed to onplayerjoin
  1821.                         team = dest_team
  1822.                 end
  1823.                 if team == zombie_team then
  1824.                         cur_zombie_count = cur_zombie_count + 1
  1825.                     --we don't need to update the counters since they're already on the zombieteam
  1826.                         makezombie(player, false, true)
  1827.                                 --send them the zombie message
  1828.                                 privatesay(player, zombie_message)
  1829.                     else
  1830.                         cur_human_count = cur_human_count + 1
  1831.                             --make this person a human (they're currently a zombie)
  1832.                     makehuman(player, false, true)
  1833.                             --send them the human message
  1834.                                     privatesay(player, human_message)
  1835.                 end
  1836.             end
  1837.         end
  1838.         elseif gametype == 4 then
  1839.                 gametype = "KOTH"
  1840.                 join_team = zombie_team
  1841.         else
  1842.                 join_team = zombie_team
  1843.                 hprintf("Incompatible gametype!")
  1844.         end
  1845.         -- assume a game is running
  1846.         game_started = true
  1847.  
  1848.     if humantimer == nil then
  1849.             humantimer = registertimer(1000, "HumanTimer")
  1850.     end
  1851.     LoadTags()
  1852.         registertimer(200,"checkgamestate",-1)
  1853. end
  1854.  
  1855. function readlastman()
  1856.         local file = io.open("lastname_" .. processid .. ".tmp", "r")
  1857.         if file then
  1858.                 -- read the ip
  1859.                 last_man_name = file:read("*line")
  1860.                 file:close()
  1861.                 -- delete the file
  1862.                 os.remove("lastname_" .. processid .. ".tmp")
  1863.         end
  1864. end
  1865.  
  1866. function SpeedTimer(id, count)
  1867.     if gametype == "Slayer" then
  1868.         for i = 0,15 do
  1869.                 local m_player = getplayer(i)
  1870.                                 if m_player then
  1871.                                 local speed = readfloat(m_player, 0x6C)
  1872.                                 if getteam(i) == zombie_team and speed < zombie_speed then
  1873.                                         setspeed(i, zombie_speed)
  1874.                                 elseif getteam(i) ~= zombie_team and cur_last_man and speed < lastman_speed then
  1875.                                         setspeed(i, lastman_speed)
  1876.                                 elseif getteam(i) ~= zombie_team and not cur_last_man and speed < human_speed then
  1877.                                         setspeed(i, human_speed)
  1878.                                 end
  1879.                         end
  1880.         end
  1881.         return true
  1882.     end
  1883.     return false
  1884. end
  1885.  
  1886. function RemoveLastmanProtection(id, count, m_object)
  1887.         writebit(m_object + 0x10, 0, 0)
  1888.         return false
  1889. end
  1890.  
  1891. function round(val, decimal)
  1892.     return math.floor((val * 10^(tonumber(decimal) or 0) + 0.5)) / (10^(tonumber(decimal) or 0))
  1893. end
  1894.  
  1895. function takenavsaway(lastman)
  1896.         for i = 0,15 do
  1897.                 local m_player = getplayer(i)
  1898.                 if m_player then
  1899.                         writeword(m_player, 0x88, i)
  1900.                 end
  1901.         end
  1902. end
  1903.  
  1904. function WriteNavsToZombies(cur_last_man)
  1905.         for i = 0,15 do
  1906.                 if getplayer(i) ~= nil then
  1907.                         local team = getteam(i)
  1908.                         if team == zombie_team then
  1909.                                 local m_player = getplayer(i)
  1910.                                 if m_player then
  1911.                                         local slayer_target = readword(m_player, 0x88)
  1912.                                         if slayer_target < 16 and slayer_target > -1 then
  1913.                                                 writeword(m_player, 0x88, cur_last_man)
  1914.                                         end
  1915.                                 end
  1916.                         end
  1917.                 end
  1918.         end
  1919. end
  1920.  
  1921. function writewordsigned(address, offset, value)
  1922.         if tonumber(value) and value > 0x7FFF then
  1923.                 local difference = 0xFFFF - value
  1924.                 value = -1 - difference
  1925.         end
  1926.         writeword(address + offset, value)
  1927. end
  1928.  
  1929. function writedwordsigned(address, offset, value)
  1930.         if value and value > 0x7FFFFFFF then
  1931.                 local difference = 0xFFFFFFFF - value
  1932.                 value = -1 - difference
  1933.         end
  1934.         writedword(address + offset, value)
  1935. end
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top