Inital commit

1 files changed, 2103 insertions, 0 deletions

diff --git a/gamemode/init.lua b/gamemode/init.lua
new file mode 100644
index 0000000..eafdfcb
--- /dev/null
+++ b/gamemode/init.lua
@@ -0,0 +1,2103 @@
+
+include( 'player_class/player_base.lua' )
+include( 'player_class/player_zombie.lua' )
+include( 'map_defaults.lua' )
+include( 'resource.lua' )
+include( 'enums.lua' )
+include( 'items.lua' )
+include( 'events.lua' )
+include( 'shared.lua' )
+include( 'moddable.lua' )
+include( 'ply_extension.lua' )
+include( 'tables.lua' )
+include( 'weather.lua' )
+
+AddCSLuaFile( 'player_class/player_base.lua' )
+AddCSLuaFile( 'player_class/player_zombie.lua' )
+AddCSLuaFile( 'animations.lua' )
+AddCSLuaFile( 'enums.lua' )
+AddCSLuaFile( 'items.lua' )
+AddCSLuaFile( 'shared.lua' )
+AddCSLuaFile( 'moddable.lua' )
+AddCSLuaFile( 'cl_notice.lua' )
+AddCSLuaFile( 'cl_hudstains.lua' )
+AddCSLuaFile( 'cl_targetid.lua' )
+AddCSLuaFile( 'cl_spawnmenu.lua' )
+AddCSLuaFile( 'cl_inventory.lua' )
+AddCSLuaFile( 'cl_init.lua' )
+AddCSLuaFile( 'cl_postprocess.lua' )
+AddCSLuaFile( 'cl_scoreboard.lua' )
+AddCSLuaFile( 'ply_extension.lua' )
+AddCSLuaFile( 'tables.lua' )
+AddCSLuaFile( 'weather.lua' )
+AddCSLuaFile( 'vgui/vgui_panelbase.lua' )
+AddCSLuaFile( 'vgui/vgui_dialogue.lua' )
+AddCSLuaFile( 'vgui/vgui_shopmenu.lua' )
+AddCSLuaFile( 'vgui/vgui_classpicker.lua' )
+AddCSLuaFile( 'vgui/vgui_zombieclasses.lua' )
+AddCSLuaFile( 'vgui/vgui_itempanel.lua' )
+AddCSLuaFile( 'vgui/vgui_helpmenu.lua' )
+AddCSLuaFile( 'vgui/vgui_endgame.lua' )
+AddCSLuaFile( 'vgui/vgui_itemdisplay.lua' )
+AddCSLuaFile( 'vgui/vgui_playerdisplay.lua' )
+AddCSLuaFile( 'vgui/vgui_playerpanel.lua' )
+AddCSLuaFile( 'vgui/vgui_panelsheet.lua' )
+AddCSLuaFile( 'vgui/vgui_goodmodelpanel.lua' )
+AddCSLuaFile( 'vgui/vgui_categorybutton.lua' )
+AddCSLuaFile( 'vgui/vgui_sidebutton.lua' )
+AddCSLuaFile( 'vgui/vgui_scroller.lua' )
+
+util.AddNetworkString( "InventorySynch" )
+util.AddNetworkString( "StashSynch" )
+util.AddNetworkString( "StatsSynch" )
+util.AddNetworkString( "ItemPlacerSynch" )
+util.AddNetworkString( "WeatherSynch" )
+
+function GM:Initialize()
+	
+	GAMEMODE.NextZombieThink = CurTime() + GetConVar( "sv_redead_setup_time" ):GetInt()
+	GAMEMODE.RandomLoot = {}
+	GAMEMODE.PlayerIDs = {}
+	GAMEMODE.Lords = {}
+	GAMEMODE.Wave = 1
+	GAMEMODE.NextWave = CurTime() + 60 * GetConVar( "sv_redead_wave_length" ):GetInt()
+	
+	local length = #GAMEMODE.Waves * ( GetConVar( "sv_redead_wave_length" ):GetInt() * 60 ) 
+	
+	for i=1, #GAMEMODE.Waves - 1 do
+	
+		local remain = length - i * GetConVar( "sv_redead_wave_length" ):GetInt() * 60
+		local num = i * GetConVar( "sv_redead_wave_length" ):GetInt()
+		
+		timer.Simple( remain, function() for k,v in pairs( team.GetPlayers( TEAM_ARMY ) ) do v:Notice( num .. " minutes until evac arrives", GAMEMODE.Colors.White, 5 )  end end )
+	 
+	end
+	
+	timer.Simple( GetConVar( "sv_redead_setup_time" ):GetInt(), function() for k,v in pairs( player.GetAll() ) do v:Notice( "The undead onslaught has begun", GAMEMODE.Colors.White, 5 ) end end )
+	
+	timer.Simple( GetConVar( "sv_redead_setup_time" ):GetInt() - 5, function() for k,v in pairs( team.GetPlayers( TEAM_ARMY ) ) do v:Notice( "Press F4 if you want to be the zombie lord", GAMEMODE.Colors.White, 5 ) end end )
+	
+	timer.Simple( GetConVar( "sv_redead_setup_time" ):GetInt() + 5, function() GAMEMODE:PickLord() GAMEMODE.EarlyPick = true end )
+	
+	timer.Simple( length - 60, function() 
+	
+		if GetGlobalBool( "GameOver", false ) then return end
+		
+		GAMEMODE.EvacAlert = true 
+			
+		for k,v in pairs( player.GetAll() ) do 
+			
+			v:ClientSound( GAMEMODE.LastMinute ) 
+			v:Notice( "The evac chopper is en route", GAMEMODE.Colors.White, 5 ) 
+			
+		end
+		
+	end )
+	
+	timer.Simple( length - 40, function() 
+	
+		if GetGlobalBool( "GameOver", false ) then return end
+	
+		for k,v in pairs( team.GetPlayers( TEAM_ARMY ) ) do 
+		
+			v:Notice( "The evac chopper has arrived", GAMEMODE.Colors.White, 5 ) 
+			v:Notice( "You have 45 seconds to reach the evac zone", GAMEMODE.Colors.White, 5, 2 )
+			v:Notice( "The location has been marked", GAMEMODE.Colors.White, 5, 4 )
+			
+		end 
+		
+		if IsValid( GAMEMODE.Antidote ) then
+									
+			GAMEMODE.Antidote:SetOverride()
+									
+		end
+		
+		GAMEMODE:SpawnEvac() 
+		
+	end )
+	
+	timer.Simple( length + 5, function() GAMEMODE:CheckGameOver( true ) end )
+	
+	GAMEMODE:WeatherInit()
+	
+	if math.random( 1, 10 ) == 1 then
+	
+		GAMEMODE.RandomEvent = CurTime() + ( 60 * math.Rand( 1.5, 3.5 ) )
+	
+	end
+	
+end
+
+GM.Breakables = {}
+GM.WoodLocations = {}
+GM.WoodCount = 1
+GM.WoodPercent = 1
+GM.SpawnCounter = 0
+GM.LordExists = false
+GM.EarlyPick = false
+
+function GM:InitPostEntity()	
+
+	GAMEMODE.Trader = ents.Create( "info_trader" )
+	GAMEMODE.Trader:Spawn()
+	
+	GAMEMODE.SpecialTrader = ents.Create( "info_trader" )
+	GAMEMODE.SpecialTrader:SetSpecial( true )
+	GAMEMODE.SpecialTrader:Spawn()
+
+	local badshit = ents.FindByClass( "npc_*" )
+	badshit = table.Add( badshit, ents.FindByClass( "weapon_*" ) )
+	badshit = table.Add( badshit, ents.FindByClass( "prop_ragdoll" ) )
+	badshit = table.Add( badshit, ents.FindByClass( "item_*" ) )
+	badshit = table.Add( badshit, ents.FindByClass( "point_servercommand" ) )
+	badshit = table.Add( badshit, ents.FindByClass( "env_entity_maker" ) )
+	badshit = table.Add( badshit, ents.FindByClass( "point_template" ) )
+	badshit = table.Add( badshit, ents.FindByClass( "game_text" ) )
+	
+	for k,v in pairs( ents.FindByClass( "prop_phys*" ) ) do
+	
+		if string.find( v:GetModel(), "explosive" ) or string.find( v:GetModel(), "propane" ) or string.find( v:GetModel(), "gascan" ) or string.find( v:GetModel(), "gib" ) then
+		
+			table.insert( badshit, v )
+		
+		end
+		
+		local phys = v:GetPhysicsObject()
+		
+		if IsValid( phys ) and table.HasValue( { "wood", "wood_crate", "wood_furniture", "wood_plank", "default" }, phys:GetMaterial() ) and phys:GetMass() > 8 then
+		
+			table.insert( GAMEMODE.WoodLocations, { Pos = v:GetPos(), Ang = v:GetAngles(), Model = v:GetModel(), Health = v:Health() } )
+			
+			GAMEMODE.WoodCount = GAMEMODE.WoodCount + 1
+			
+			v.IsWooden = true
+			
+			if v:Health() == 0 then
+			
+				v:SetHealth( 100 )
+			
+			end
+			
+			if phys:IsAsleep() then
+			
+				phys:Wake()
+			
+			end
+		
+		end
+	
+	end
+
+	for k,v in pairs( badshit ) do
+	
+		v:Remove()
+	
+	end
+	
+	GAMEMODE.WoodPercent = math.floor( table.Count( ents.FindByClass( "prop_phys*" ) ) * GAMEMODE.WoodPercentage )
+	
+	for k,v in pairs( ents.FindByClass( "prop_phys*" ) ) do
+		
+		local tbl = item.GetByModel( v:GetModel() )
+		local phys = v:GetPhysicsObject()
+		
+		if tbl or ( IsValid( phys ) and phys:GetMass() <= 3 ) then
+		
+			v:Remove()
+		
+		end
+	
+	end
+	
+	GAMEMODE:LoadAllEnts()
+	
+	local tbl = ents.FindByClass( "prop_door_rotating" )
+	tbl = table.Add( tbl, ents.FindByClass( "func_breakable*" ) )
+	tbl = table.Add( tbl, ents.FindByClass( "func_door*" ) )
+	
+	GAMEMODE.Breakables = tbl
+	GAMEMODE.NPCSpawns = ents.FindByClass( "info_npcspawn" )
+	
+	local num = #ents.FindByClass( "point_radiation" )
+	
+	if num < 5 then return end
+	
+	for i=1, math.floor( num * GAMEMODE.RadiationAmount ) do
+	
+		local rad = table.Random( ents.FindByClass( "point_radiation" ) )
+		
+		while !rad:IsActive() do
+		
+			rad = table.Random( ents.FindByClass( "point_radiation" ) )
+		
+		end
+		
+		rad:SetActive( false )
+	
+	end
+	
+end
+
+function GM:SaveAllEnts()
+
+	MsgN( "Saving ReDead map config data..." )
+
+	local enttbl = {
+		info_player_zombie = {},
+		info_player_army = {},
+		info_lootspawn = {},
+		info_npcspawn = {},
+		info_evac = {},
+		point_stash = {},
+		point_radiation = {},
+		prop_physics = {}
+	}
+	
+	for k,v in pairs( enttbl ) do
+	
+		for c,d in pairs( ents.FindByClass( k ) ) do
+		
+			if k == "prop_physics" then
+			
+				if d.AdminPlaced then
+				
+					local phys = d:GetPhysicsObject()
+					
+					if IsValid( phys ) then
+				
+						table.insert( enttbl[k], { d:GetPos(), d:GetModel(), d:GetAngles(), phys:IsMoveable() } )
+						
+					end
+				
+				end
+			
+			elseif d.AdminPlaced then
+		
+				table.insert( enttbl[k], d:GetPos() )
+				
+			end
+		
+		end
+		
+	end
+	
+	file.Write( "redead/" .. string.lower( game.GetMap() ) .. "_json.txt", util.TableToJSON( enttbl ) )
+
+end
+
+function GM:LoadAllEnts()
+
+	MsgN( "Loading ReDead map config data..." )
+
+	local read = file.Read( "redead/" .. string.lower( game.GetMap() ) .. "_json.txt", "DATA" )
+	
+	if not read then
+	
+		MsgN( "No map config data found for " .. game.GetMap() .. "." )
+		
+		return
+	
+	end
+	
+	local config = util.JSONToTable( read )
+	
+	if not config then 
+	
+		MsgN( "ERROR: ReDead map config data file was empty!" ) 
+		
+		return 
+		
+	end
+	
+	MsgN( "Loaded ReDead map config data successfully!" )
+	
+	for k,v in pairs( config ) do
+	
+		if v[1] then
+		
+			if k == "prop_physics" then
+			
+				for c,d in pairs( v ) do
+				
+					local function spawnent()
+					
+						local ent = ents.Create( k )
+						ent:SetPos( d[1] )
+						ent:SetModel( d[2] )
+						ent:SetAngles( d[3] )
+						ent:SetSkin( math.random( 0, 6 ) )
+						ent:Spawn()
+						ent.AdminPlaced = true
+						
+						local phys = ent:GetPhysicsObject()
+						
+						if IsValid( phys ) and not d[4] then
+						
+							phys:EnableMotion( false )
+						
+						end
+						
+					end
+					
+					timer.Simple( c * 0.1, function() spawnent() end )
+					
+				end
+			
+			else
+			
+				for c,d in pairs( ents.FindByClass( k ) ) do
+					
+					d:Remove()
+					
+				end
+
+				for c,d in pairs( v ) do
+				
+					if k != "point_radiation" and k != "info_lootspawn" and k != "info_npcspawn" then
+				
+						local function spawnent()
+						
+							local ent = ents.Create( k )
+							ent:SetPos( d )
+							ent:Spawn()
+							ent.AdminPlaced = true
+						
+						end
+					
+						timer.Simple( c * 0.1, function() spawnent() end )
+						
+					else
+					
+						local ent = ents.Create( k )
+						ent:SetPos( d )
+						ent:Spawn()
+						ent.AdminPlaced = true
+				
+					end
+
+				end
+				
+			end
+			
+		end
+		
+	end
+
+end
+
+function GM:AddToZombieList( ply ) 
+
+	if team.NumPlayers( TEAM_ZOMBIES ) > 0 then 
+	
+		ply:ClientSound( "HL1/fvox/buzz.wav", 100 )
+		ply:Notice( "You cannot be the zombie lord now", GAMEMODE.Colors.Red, 5 )
+	
+		return
+	
+	end
+
+	if not table.HasValue( GAMEMODE.Lords, ply ) and not GAMEMODE.LordExists then
+	
+		table.insert( GAMEMODE.Lords, ply )
+		
+		local snd = table.Random( GAMEMODE.AmbientScream )
+		ply:ClientSound( snd, 100 )
+		ply:Notice( "You have volunteered to be the zombie lord", GAMEMODE.Colors.White, 5 )
+		
+	end
+
+end
+
+function GM:PickLord( force )
+
+	if table.Count( player.GetAll() ) < GetConVar( "sv_redead_minimum_players" ):GetInt() and not force then 
+	
+		for k,v in pairs( player.GetAll() ) do
+		
+			v:Notice( "A zombie lord cannot be chosen at this time", GAMEMODE.Colors.White, 5 )
+				
+		end
+	
+		return 
+		
+	end
+
+	local tbl = team.GetPlayers( TEAM_ZOMBIES )
+		
+	for k,v in pairs( GAMEMODE.Lords ) do
+		
+		if IsValid( v ) then
+			
+			table.insert( tbl, v )
+			
+		end
+		
+	end
+	
+	if table.Count( tbl ) < 1 then
+	
+		tbl = team.GetPlayers( TEAM_ARMY )
+	
+	end
+		
+	local ply = table.Random( tbl )
+	
+	local snd = table.Random( GAMEMODE.AmbientScream )
+	ply:ClientSound( snd, 100 )
+		
+	if ply:Team() == TEAM_ZOMBIES then
+		
+		ply:Notice( "You have become the zombie lord", GAMEMODE.Colors.White, 5 )
+		
+		timer.Simple( 3, function() ply:Gib() ply:SetLord( true ) end )
+		
+	else
+		
+		ply:Notice( "You will become the zombie lord", GAMEMODE.Colors.White, 5 )
+			
+		timer.Simple( 3, function() ply:SetTeam( TEAM_ZOMBIES ) ply:SetPlayerClass( CLASS_RUNNER ) ply:SetCash( 0 ) ply:Gib() ply:SetLord( true ) end )
+		
+	end
+		
+	for k,v in pairs( player.GetAll() ) do
+		
+		if v != ply and not force then
+		
+			v:Notice( "A zombie lord has been chosen", GAMEMODE.Colors.White, 5 )
+				
+		end
+		
+	end
+	
+	GAMEMODE.LordExists = true
+
+end
+
+function GM:RespawnAntidote()
+	
+	if IsValid( ents.FindByClass( "sent_antidote" )[1] ) and ents.FindByClass( "sent_antidote" )[1]:CuresLeft() > 0 then return end
+	
+	if #ents.FindByClass( "info_lootspawn" ) < 3 then return end
+
+	local ent = table.Random( ents.FindByClass( "info_lootspawn" ) )
+	local pos = ent:GetPos()
+	local close = true
+	
+	while close do
+	
+		ent = table.Random( ents.FindByClass( "info_lootspawn" ) )
+		pos = ent:GetPos()
+		close = false
+		
+		for k,v in pairs( ents.FindByClass( "sent_antidote" ) ) do
+		
+			if v:GetPos():Distance( pos ) < 500 then
+			
+				close = true
+			
+			end
+		
+		end
+	
+	end
+	
+	local ant = ents.Create( "sent_antidote" )
+	ant:SetPos( pos )
+	ant:Spawn()
+	
+	GAMEMODE.Antidote = ant
+	
+	for k,v in pairs( team.GetPlayers( TEAM_ARMY ) ) do
+	
+		v:Notice( "The antidote resupply location has changed", GAMEMODE.Colors.White, 5 )
+	
+	end
+
+end
+
+function GM:SpawnEvac()
+
+	local pos = Vector(0,0,0)
+
+	if #ents.FindByClass( "info_evac" ) < 1 then
+	
+		local loot = ents.FindByClass( "info_lootspawn" )
+		
+		if #loot < 1 then
+		
+			MsgN( "ERROR: Map not configured properly." )
+			
+			return
+		
+		end
+		
+		local prop = table.Random( loot )
+		
+		pos = prop:GetPos()
+	
+	else
+	
+		local point = table.Random( ents.FindByClass( "info_evac" ) )
+		pos = point:GetPos()
+	
+	end
+	
+	local evac = ents.Create( "point_evac" )
+	evac:SetPos( pos )
+	evac:Spawn()
+
+end
+
+function GM:GetGeneratedLoot()
+
+	local tbl = {}
+
+	for k,v in pairs( GAMEMODE.RandomLoot ) do
+	
+		if IsValid( v ) then
+		
+			table.insert( tbl, v )
+		
+		end
+	
+	end
+	
+	for k,v in pairs( GAMEMODE.RandomLoot ) do
+	
+		if not IsValid( v ) then
+		
+			table.remove( tbl, k )
+			
+			return tbl
+		
+		end
+	
+	end
+	
+	return tbl
+
+end
+
+function GM:LootThink()
+
+	for k,v in pairs( ents.FindByClass( "prop_phys*" ) ) do
+	
+		if v.Removal and v.Removal < CurTime() and IsValid( v ) then
+		
+			v:Remove()
+		
+		end
+	
+	end
+
+	if #ents.FindByClass( "info_lootspawn" ) < 10 then return end
+
+	local amt = math.floor( GAMEMODE.MaxLoot * #ents.FindByClass( "info_lootspawn" ) )
+	local total = 0
+	
+	local loots = GAMEMODE:GetGeneratedLoot()
+	
+	local num = amt - #loots
+	
+	if num > 0 then
+	
+		local tbl = { ITEM_SUPPLY, ITEM_LOOT, ITEM_AMMO, ITEM_MISC, ITEM_SPECIAL, ITEM_WPN_COMMON, ITEM_WPN_SPECIAL, ITEM_EXPLOSIVE }
+		local chancetbl = { 0.60,     0.70,      0.70,     0.95,       0.05,           0.03,           0.02,             0.10 }
+		
+		for i=1, num do
+			
+			local ent = table.Random( ents.FindByClass( "info_lootspawn" ) )
+			local pos = ent:GetPos()
+			local rnd = math.Rand(0,1)
+			local choice = math.random( 1, table.Count( tbl ) ) 
+				
+			while rnd > chancetbl[ choice ] do
+					
+				rnd = math.Rand(0,1)
+				choice = math.random( 1, table.Count( tbl ) ) 
+					
+			end
+				
+			local rand = item.RandomItem( tbl[choice] )
+			local proptype = "prop_physics"
+				
+			if rand.TypeOverride then
+				
+				proptype = rand.TypeOverride
+				
+			end
+				
+			local loot = ents.Create( proptype )
+			loot:SetPos( pos + Vector(0,0,5) )
+			loot:SetAngles( VectorRand():Angle() )
+			
+			if rand.DropModel then
+			
+				loot:SetModel( rand.DropModel )
+			
+			else
+			
+				loot:SetModel( rand.Model )
+			
+			end
+			
+			loot:Spawn()
+			loot.RandomLoot = true
+			loot.IsItem = true
+				
+			if not rand.CollisionOverride then
+				
+				loot:SetCollisionGroup( COLLISION_GROUP_WEAPON )
+			
+			end
+			
+			table.insert( GAMEMODE.RandomLoot, loot )
+			
+		end
+	
+	end
+
+end
+
+function GM:WoodThink()
+
+	if table.Count( GAMEMODE.WoodLocations ) < 1 then return end
+
+	if GAMEMODE.WoodCount < GAMEMODE.WoodPercent then
+	
+		local tbl = table.Random( GAMEMODE.WoodLocations ) 
+		local prop = ents.Create( "prop_physics" )
+		prop:SetPos( tbl.Pos )
+		prop:SetAngles( tbl.Ang )
+		prop:SetModel( tbl.Model )
+		prop:SetHealth( math.Clamp( tbl.Health, 50, 500 ) )
+		prop:Spawn()
+		prop.IsWooden = true
+		
+		GAMEMODE.WoodCount = GAMEMODE.WoodCount + 1
+	
+	elseif GAMEMODE.WoodCount > GAMEMODE.WoodPercent then
+	
+		local ent = table.Random( ents.FindByClass( "prop_phys*" ) )
+		local phys = ent:GetPhysicsObject()
+		
+		if IsValid( phys ) and not ent.IsItem and ent.IsWooden then
+		
+			ent:Remove()
+			
+			GAMEMODE.WoodCount = GAMEMODE.WoodCount - 1
+		
+		end
+	
+	end
+
+end
+
+function GM:EventThink()
+
+	if not GAMEMODE.RandomEvent then
+	
+		GAMEMODE.RandomEvent = CurTime() + ( 60 * math.Rand( 3.5, 9.5 ) )
+	
+	end
+	
+	if GAMEMODE.RandomEvent and GAMEMODE.RandomEvent < CurTime() then
+		
+		local ev = event.GetRandom()
+		
+		while ( ( ev.Type == EVENT_WEATHER and GAMEMODE.WeatherHappened ) or ev.Chance < math.Rand(0,1) ) do
+		
+			ev = event.GetRandom()
+		
+		end
+		
+		if ev.Type == EVENT_WEATHER then
+		
+			GAMEMODE.WeatherHappened = true
+		
+		end
+		
+		ev.Start()
+	
+		GAMEMODE.Event = ev
+		GAMEMODE.RandomEvent = nil
+	
+	end
+	
+	if GAMEMODE.Event then
+	
+		GAMEMODE.Event:Think()
+		
+		if GAMEMODE.Event:EndThink() then
+		
+			GAMEMODE.Event:End()
+			GAMEMODE.Event = nil
+		
+		end
+	
+	end
+
+end
+
+function GM:WaveThink()
+
+	if GAMEMODE.NextWave < CurTime() then
+	
+		GAMEMODE.NextWave = CurTime() + 60 * GetConVar( "sv_redead_wave_length" ):GetInt()
+		GAMEMODE.Wave = GAMEMODE.Wave + 1
+		
+		if GAMEMODE.Wave > #GAMEMODE.Waves then return end
+		
+		for k,v in pairs( player.GetAll() ) do
+		
+			v:Notice( "New undead mutations have been spotted", GAMEMODE.Colors.White, 5 )
+			v:ClientSound( table.Random( GAMEMODE.AmbientScream ) )
+		
+		end
+	
+	end
+
+end
+
+function GM:GetZombieClass()
+
+	local rand = math.Rand(0,1)
+	local class = table.Random( GAMEMODE.Waves[ GAMEMODE.Wave ] or { "npc_nb_common" } )
+	
+	while #GAMEMODE.Waves[ GAMEMODE.Wave ] != 1 and rand > GAMEMODE.SpawnChance[ class ] do
+	
+		rand = math.Rand(0,1)
+		class = table.Random( GAMEMODE.Waves[ GAMEMODE.Wave ] or { "npc_nb_common" } )
+	
+	end
+	
+	return class
+
+end
+
+function GM:NPCRespawnThink()
+
+	for k,v in pairs( ( GAMEMODE.NPCSpawns or {} ) ) do
+	
+		if IsValid( v ) then
+	
+			local box = ents.FindInBox( v:GetPos() + Vector( -32, -32, 0 ), v:GetPos() + Vector( 32, 32, 64 ) )
+			local can = true
+			
+			for k,v in pairs( box ) do
+			
+				if v.NextBot then
+				
+					can = false
+				
+				end
+			
+			end
+			
+			if can and GAMEMODE.SpawnCounter > 0 then 
+			
+				local ent = ents.Create( GAMEMODE:GetZombieClass() )
+				ent:SetPos( v:GetPos() )
+				ent:Spawn()
+				
+				GAMEMODE.SpawnCounter = GAMEMODE.SpawnCounter - 1
+			
+			end
+			
+		end
+		
+	end
+
+end
+
+function GM:NPCThink()
+
+	if GAMEMODE.Wave > #GAMEMODE.Waves then return end
+	
+	local tbl = ents.FindByClass( "npc_nb*" )
+	
+	if #tbl < GetConVar( "sv_redead_max_zombies" ):GetInt() and #tbl < GetConVar( "sv_redead_zombies_per_player" ):GetInt() * team.NumPlayers( TEAM_ARMY ) then
+	
+		local total = math.Round( GetConVar( "sv_redead_zombies_per_player" ):GetInt() * team.NumPlayers( TEAM_ARMY ) + GetConVar( "sv_redead_zombies_per_player_zombie" ):GetFloat() * team.NumPlayers( TEAM_ZOMBIES ) )
+		local num = math.Clamp( total, 1, math.Min( GetConVar( "sv_redead_max_zombies" ):GetInt() - #tbl, total ) )
+		
+		GAMEMODE.SpawnCounter = num
+		
+		--[[for i=1, num do
+	
+			local tbl = ents.FindByClass( "info_npcspawn" )
+			
+			if #tbl < 1 then return end
+			
+			local spawn = table.Random( tbl )
+			local vec = VectorRand() * 5
+			
+			vec.z = 1
+			
+			local ent = ents.Create( GAMEMODE:GetZombieClass() )
+			ent:SetPos( spawn:GetPos() + vec )
+			ent:Spawn()
+			
+		end]]
+	
+	end
+
+end
+
+function GM:Think()
+
+	if ( GAMEMODE.NextGameThink or 0 ) < CurTime() then
+
+		if ( GAMEMODE.NextZombieThink or 0 ) < CurTime() then
+		
+			GAMEMODE:NPCThink()
+			
+			GAMEMODE.NextZombieThink = CurTime() + GetConVar( "sv_redead_wave_time" ):GetInt()
+			
+		end
+		
+		GAMEMODE:NPCRespawnThink()
+		GAMEMODE:RespawnAntidote()
+		GAMEMODE:EventThink()
+		GAMEMODE:LootThink()
+		GAMEMODE:WoodThink()
+		GAMEMODE:WaveThink()
+		GAMEMODE:WeatherThink()
+		GAMEMODE:CheckGameOver( false )
+		GAMEMODE.NextGameThink = CurTime() + 1
+		
+	end
+
+	for k,v in pairs( player.GetAll() ) do
+	
+		if v:Team() != TEAM_UNASSIGNED then
+		
+			v:Think()
+		
+		end
+	
+	end
+
+end
+
+function GM:PhysgunPickup( ply, ent )
+
+	if ply:IsAdmin() or ply:IsSuperAdmin() then return true end
+
+	if ent:IsPlayer() then return false end
+	
+	if not ent.Placer or ent.Placer != ply then return false end
+	
+	return true 
+
+end
+
+function GM:PlayerDisconnected( pl )
+
+	if pl:Alive() then
+	
+		pl:DropLoot()
+		
+	end
+	
+	if not table.HasValue( GAMEMODE.PlayerIDs, pl:SteamID() ) then
+	
+		table.insert( GAMEMODE.PlayerIDs, pl:SteamID() )
+	
+	end
+	
+	if pl:IsLord() then
+	
+		GAMEMODE.LordExists = false
+	
+	end
+	
+end
+
+function GM:PlayerInitialSpawn( pl )
+
+	pl:GiveAmmo( 200, "Pistol", false )
+
+	if table.HasValue( GAMEMODE.PlayerIDs, pl:SteamID() ) then
+	
+		pl:SetTeam( TEAM_ZOMBIES )
+	
+	elseif pl:IsBot() then
+	
+		pl:SetTeam( TEAM_ARMY )
+		pl:Spawn()
+	
+	else
+	
+		pl:SetTeam( TEAM_UNASSIGNED )
+		pl:Spectate( OBS_MODE_ROAMING )
+		
+	end
+	
+end
+
+function GM:PlayerSpawn( pl )
+
+	if pl:Team() == TEAM_UNASSIGNED then
+	
+		pl:Spectate( OBS_MODE_ROAMING )
+		pl:SetPos( pl:GetPos() + Vector( 0, 0, 50 ) )
+		
+		return
+		
+	end
+	
+	GAMEMODE:RespawnAntidote()
+	
+	if pl:Team() == TEAM_ARMY then
+	
+		local music = table.Random( GAMEMODE.OpeningMusic )
+	
+		pl:ClientSound( music, 100 )
+		
+	end
+	
+	pl:NoticeOnce( "Press F1 to view the help menu", GAMEMODE.Colors.Blue, 7, 15 )
+	pl:NoticeOnce( "Press F2 to buy items and weapons", GAMEMODE.Colors.Blue, 7, 17 )
+	pl:NoticeOnce( "Press F3 to activate the panic button", GAMEMODE.Colors.Blue, 7, 19 )
+	pl:InitializeInventory()
+	pl:OnSpawn()
+	pl:OnLoadout()
+	
+	local oldhands = pl:GetHands()
+	
+	if IsValid( oldhands ) then
+	
+		oldhands:Remove()
+		
+	end
+	
+	local hands = ents.Create( "gmod_hands" )
+	
+	if IsValid( hands ) then
+	
+		hands:DoSetup( pl )
+		hands:Spawn()
+		
+	end	
+
+end
+
+function GM:PlayerSetModel( pl )
+
+end
+
+function GM:PlayerLoadout( pl )
+	
+end
+
+function GM:PlayerJoinTeam( ply, teamid )
+	
+	local oldteam = ply:Team()
+	
+	if ply:Alive() and ply:Team() != TEAM_UNASSIGNED then return end
+	
+	if teamid != TEAM_UNASSIGNED and ply:Team() == TEAM_UNASSIGNED then
+	
+		ply:UnSpectate()
+	
+	end
+	
+	if teamid == TEAM_SPECTATOR or teamid == TEAM_UNASSIGNED then
+	
+		teamid = TEAM_ARMY
+	
+	end
+	
+	ply:SetTeam( teamid )
+	
+	if ply.NextSpawn and ply.NextSpawn > CurTime() then
+	
+		ply.NextSpawn = CurTime() + 5
+	
+	else
+	
+		ply:Spawn()
+	
+	end
+	
+end
+
+function GM:PlayerSwitchFlashlight( ply, on )
+
+	return ply:Team() == TEAM_ARMY
+	
+end
+
+function GM:GetFallDamage( ply, speed )
+
+	if ply:Team() == TEAM_ZOMBIES then
+	
+		return 5
+	
+	end
+
+	local pain = speed * 0.12
+	
+	ply:AddStamina( math.floor( pain * -0.25 ) )
+
+	return pain
+	
+end
+
+function GM:PlayerDeathSound()
+
+	return true
+	
+end
+
+function GM:CanPlayerSuicide( ply )
+
+	return false
+	
+end
+
+function GM:KeyRelease( ply, key )
+
+	if ply:Team() != TEAM_ARMY then return end
+
+	if key == IN_JUMP then
+	
+		ply:AddStamina( -2 )
+	
+	end
+	
+	if key != IN_USE then return end
+	
+	local trace = {}
+    trace.start = ply:GetShootPos()
+    trace.endpos = trace.start + ply:GetAimVector() * 80
+    trace.filter = ply
+	
+	local tr = util.TraceLine( trace )
+	
+	if IsValid( tr.Entity ) and tr.Entity:GetClass() == "prop_physics" then
+        
+        if IsValid( ply.Stash ) then
+            
+            ply.Stash:OnExit( ply )
+            
+			return true
+            
+        end
+        
+        ply:AddToInventory( tr.Entity )
+	
+		return true
+        
+    elseif IsValid( tr.Entity ) and tr.Entity:GetClass() == "point_stash" then
+        
+        if IsValid( ply.Stash ) then
+            
+            ply.Stash:OnExit( ply )
+            
+        else
+           
+            tr.Entity:OnUsed( ply )
+            
+        end
+        
+    elseif not IsValid( tr.Entity ) then
+        
+        if IsValid( ply.Stash ) then
+            
+            ply.Stash:OnExit( ply )
+            
+        end
+        
+    end
+    
+	return true
+
+end
+
+function GM:PropBreak( att, prop )
+
+	local phys = prop:GetPhysicsObject()
+	
+	if IsValid( phys ) and prop:GetModel() != "models/props_debris/wood_board04a.mdl" then
+	
+		if prop.IsWooden then
+		
+			GAMEMODE:SpawnChunk( prop:LocalToWorld( prop:OBBCenter() ) )
+			GAMEMODE.WoodCount = GAMEMODE.WoodCount - 1
+		
+		end
+	
+	end
+
+end 
+
+function GM:SpawnChunk( pos )
+
+	local ent = ents.Create( "prop_physics" )
+	ent:SetPos( pos )
+	ent:SetModel( "models/props_debris/wood_chunk04a.mdl" )
+	ent:SetCollisionGroup( COLLISION_GROUP_WEAPON )
+	ent:Spawn()
+	ent.IsItem = true
+
+end
+
+function GM:AllowPlayerPickup( ply, ent )
+
+	local tbl = item.GetByModel( ent:GetModel() )
+	
+	if tbl and tbl.AllowPickup then
+	
+		return true
+	
+	end
+
+	return false
+	
+end
+
+function GM:PlayerUse( ply, entity )
+
+	if ply:Team() == TEAM_ARMY and ( ply.LastUse or 0 ) < CurTime() then
+	
+		if table.HasValue( { "sent_propane_canister", "sent_propane_tank", "sent_fuel_diesel", "sent_fuel_gas" }, entity:GetClass() ) then 
+		
+			ply.LastUse = CurTime() + 0.5
+		
+			if not IsValid( ply.HeldObject ) and not IsValid( entity.Holder ) then 
+	
+				ply:PickupObject( entity )
+				ply.HeldObject = entity
+				entity.Holder = ply
+				entity:SetCollisionGroup( COLLISION_GROUP_WEAPON )
+				
+			elseif entity == ply.HeldObject then 
+			
+				ply:DropObject( entity )
+				ply.HeldObject = nil
+				entity.Holder = nil
+				entity:SetCollisionGroup( COLLISION_GROUP_NONE )
+			
+			end
+	
+		end
+		
+		return true
+	
+	end
+	
+	if ply:Team() != TEAM_ZOMBIES then return false end
+	
+	local trace = {}
+    trace.start = ply:GetShootPos()
+    trace.endpos = trace.start + ply:GetAimVector() * 80
+    trace.filter = ply
+	
+	local tr = util.TraceLine( trace )
+	
+	if entity:GetClass() == "prop_door_rotating" or entity:GetClass() == "func_button" then
+
+		return false
+		
+	end
+	
+	return true
+	
+end
+
+function GM:EntityTakeDamage( ent, dmginfo )
+
+	if ent.IsWooden then
+	
+		ent.WoodHealth = ( ent.WoodHealth or 150 ) - dmginfo:GetDamage() 
+		
+		if ent.WoodHealth < 1 then
+		
+			ent:Fire( "break", 0, 0 )
+		
+		end
+	
+	end
+
+	if not ent:IsPlayer() and ent:IsOnFire() then
+	
+		ent:Extinguish()
+	
+	end
+
+	if not ent:IsPlayer() and ent.IsItem then 
+
+		dmginfo:ScaleDamage( 0 )
+		
+		return
+		
+	end
+	
+	local attacker = dmginfo:GetAttacker()
+	
+	if ent:IsPlayer() and ent:Team() == TEAM_ARMY and IsValid( attacker ) and ( attacker:IsNPC() or ( ( attacker:IsPlayer() and attacker:Team() == TEAM_ZOMBIES ) or ( attacker:IsPlayer() and attacker == ent ) ) ) then
+	
+		if ent:Health() <= 50 then
+	
+			ent:NoticeOnce( "Your health has dropped below 30%", GAMEMODE.Colors.Red, 5 )
+			ent:NoticeOnce( "Health doesn't regenerate when below 30%", GAMEMODE.Colors.Blue, 5, 2 )
+			
+		end
+	
+		if dmginfo:IsDamageType( DMG_BURN ) then
+	
+			ent:ViewBounce( 30 )
+			
+		else
+		
+			ent:ViewBounce( 25 )
+			ent:RadioSound( VO_PAIN )
+			ent:DrawBlood()
+		
+		end
+		
+		if ent:GetPlayerClass() == CLASS_COMMANDO then
+		
+			dmginfo:ScaleDamage( GetConVar( "sv_redead_dmg_scale" ):GetFloat() * 0.85 )
+		
+		else
+		
+			dmginfo:ScaleDamage( GetConVar( "sv_redead_dmg_scale" ):GetFloat() ) 
+		
+		end
+		
+		if dmginfo:IsExplosionDamage() and attacker:Team() == TEAM_ZOMBIES then
+	
+			dmginfo:ScaleDamage( 0 )
+	
+		else
+		
+			ent:AddStat( "Damage", math.Round( dmginfo:GetDamage() ) )
+			
+			--[[if attacker:IsPlayer() then
+			
+				attacker:AddZedDamage( math.Round( dmginfo:GetDamage() ) )
+				
+			end]]
+		
+		end
+		
+	elseif ent:IsPlayer() and ent:Team() == TEAM_ZOMBIES and IsValid( attacker ) and attacker:IsPlayer() and dmginfo:GetDamage() > 30 then
+	
+		sound.Play( table.Random( GAMEMODE.GoreBullet ), ent:GetPos() + Vector(0,0,50), 75, math.random( 90, 110 ), 0.8 )
+	
+	end
+	
+	return self.BaseClass:EntityTakeDamage( ent, dmginfo )
+	
+end
+
+function GM:ScaleNPCDamage( npc, hitgroup, dmginfo ) // obsolete!
+
+	if hitgroup == HITGROUP_HEAD then
+	
+		npc:EmitSound( "Player.DamageHeadShot" )
+		npc:SetHeadshotter( dmginfo:GetAttacker(), true )
+		
+		local effectdata = EffectData()
+		effectdata:SetOrigin( dmginfo:GetDamagePosition() )
+		util.Effect( "headshot", effectdata, true, true )
+	
+		dmginfo:ScaleDamage( math.Rand( 2.50, 3.00 ) ) 
+		dmginfo:GetAttacker():NoticeOnce( "Headshot combos earn you more " .. GAMEMODE.CurrencyName .. "s", GAMEMODE.Colors.Blue, 5 )
+		dmginfo:GetAttacker():AddHeadshot()
+		
+    elseif hitgroup == HITGROUP_CHEST then
+	
+		dmginfo:ScaleDamage( 1.25 ) 
+		
+		npc:SetHeadshotter( dmginfo:GetAttacker(), false )
+		dmginfo:GetAttacker():ResetHeadshots()
+		
+	elseif hitgroup == HITGROUP_STOMACH then
+	
+		dmginfo:ScaleDamage( 0.75 ) 
+		
+		npc:SetHeadshotter( dmginfo:GetAttacker(), false )
+		dmginfo:GetAttacker():ResetHeadshots()
+		
+	else
+	
+		dmginfo:ScaleDamage( 0.50 )
+		
+		npc:SetHeadshotter( dmginfo:GetAttacker(), false )
+		dmginfo:GetAttacker():ResetHeadshots()
+		
+	end
+	
+	return dmginfo
+
+end 
+
+function GM:ScalePlayerDamage( ply, hitgroup, dmginfo )
+
+	if IsValid( ply.Stash ) then
+		
+		return
+	
+	end
+
+	if hitgroup == HITGROUP_HEAD then
+	
+		ply:EmitSound( "Player.DamageHeadShot" )
+		ply:ViewBounce( 25 )
+		
+		dmginfo:ScaleDamage( 1.75 * GetConVar( "sv_redead_dmg_scale" ):GetFloat() ) 
+		
+		return
+		
+    elseif hitgroup == HITGROUP_CHEST then
+	
+		ply:ViewBounce( 15 )
+	
+		dmginfo:ScaleDamage( 1.50 * GetConVar( "sv_redead_dmg_scale" ):GetFloat() ) 
+		
+		return
+		
+	elseif hitgroup == HITGROUP_STOMACH then
+	
+		dmginfo:ScaleDamage( 1.25 * GetConVar( "sv_redead_dmg_scale" ):GetFloat() ) 
+		
+	else
+	
+		dmginfo:ScaleDamage( 0.50 * GetConVar( "sv_redead_dmg_scale" ):GetFloat() )
+		
+	end
+	
+	ply:ViewBounce( ( dmginfo:GetDamage() / 20 ) * 10 )
+
+end 
+
+function GM:PlayerShouldTakeDamage( ply, attacker )
+
+	if ply:Team() == TEAM_UNASSIGNED then return false end
+	
+	if IsValid( attacker ) and attacker:IsPlayer() and attacker != ply then
+	
+		return ( ply:Team() != attacker:Team() or GetConVar( "sv_redead_team_dmg" ):GetBool() ) 
+	
+	end
+
+	return true
+	
+end
+
+function GM:OnDamagedByExplosion( ply, dmginfo )
+
+	if dmginfo:GetDamage() > 25 then
+	
+		ply:SetBleeding( true )
+		
+	end
+
+	ply:SetDSP( 35, false )
+	
+	umsg.Start( "GrenadeHit", ply )
+	umsg.End()
+	
+end
+
+function GM:PlayerDeathThink( ply )
+
+	if ply.NextSpawn and ply.NextSpawn > CurTime() then return end
+	
+	if ply:KeyDown( IN_JUMP ) or ply:KeyDown( IN_ATTACK ) or ply:KeyDown( IN_ATTACK2 ) then
+
+		ply:Spawn()
+		
+	end
+	
+end
+
+function GM:DoPlayerDeath( ply, attacker, dmginfo )
+
+	ply:OnDeath()
+
+	if ply:Team() == TEAM_ARMY then
+	
+		if team.NumPlayers( TEAM_ZOMBIES ) < 1 then
+		
+			ply:AddStat( "Martyr" )
+		
+		end
+	
+		local music = table.Random( GAMEMODE.DeathMusic )
+		
+		ply:ClientSound( music, 100 )
+		ply:RadioSound( VO_DEATH )
+		ply:SetTeam( TEAM_ZOMBIES )
+		
+		if not GAMEMODE.LordExists and GAMEMODE.EarlyPick then
+		
+			GAMEMODE:PickLord( true )
+		
+		end
+		
+		if IsValid( attacker ) and attacker:IsPlayer() and attacker != ply then
+		
+			attacker:AddZedDamage( 50 )
+		
+		end
+	
+	elseif ply:Team() == TEAM_ZOMBIES then
+
+		if IsValid( attacker ) and attacker:IsPlayer() then
+	
+			attacker:AddCash( GAMEMODE.PlayerZombieKillValue )
+			attacker:AddFrags( 1 )
+			
+		end
+		
+		if ply:IsLord() and ply:GetZedDamage() >= GAMEMODE.RedemptionDamage then
+		
+			ply:SetTeam( TEAM_ARMY )
+			ply:Notice( "Prepare to respawn as a human", GAMEMODE.Colors.Blue, 5, 2 )
+		
+		end
+	
+	end
+
+	if dmginfo:IsExplosionDamage() then
+	
+		ply:SetModel( table.Random( GAMEMODE.Corpses ) )
+		
+		local ed = EffectData()
+		ed:SetOrigin( ply:GetPos() )
+		util.Effect( "gore_explosion", ed, true, true )
+	
+	end
+	
+	ply:CreateRagdoll()
+	
+end
+
+function GM:SynchStats()
+
+	net.Start( "StatsSynch" )
+	net.WriteInt( table.Count( player.GetAll() ), 8 )
+
+	for k,v in pairs( player.GetAll() ) do
+	
+		net.WriteEntity( v )
+		net.WriteTable( v:GetStats() )
+	
+	end
+	
+	net.Broadcast()
+
+end
+
+function GM:EndGame( winner )
+
+	GAMEMODE:SynchStats()
+
+	SetGlobalBool( "GameOver", true )
+	SetGlobalInt( "WinningTeam", winner )
+	
+	for k,v in pairs( player.GetAll() ) do
+	
+		if winner == TEAM_ZOMBIES then
+		
+			v:NoticeOnce( "The undead have overwhelmed " .. team.GetName( TEAM_ARMY ) , GAMEMODE.Colors.White, 7, 2 )
+		
+		elseif team.NumPlayers( TEAM_ARMY ) > 0 then
+		
+			v:NoticeOnce( team.GetName( TEAM_ARMY ) .. " has successfully evacuated", GAMEMODE.Colors.White, 7, 2 )
+		
+		end
+	
+		if v:Team() == winner and winner == TEAM_ARMY then
+		
+			local music = table.Random( GAMEMODE.WinMusic )
+		
+			v:ClientSound( music, 100 )
+			v:GodEnable()
+			
+		else
+		
+			local music = table.Random( GAMEMODE.LoseMusic )
+		
+			v:ClientSound( music, 100 )
+			
+		end
+		
+		v:NoticeOnce( "Next map: " .. game.GetMapNext() , GAMEMODE.Colors.White, 7, 4 )
+	
+	end
+	
+	timer.Simple( GetConVar( "sv_redead_post_game_time" ):GetInt(), function() game.LoadNextMap() end )
+
+end
+
+function GM:CheckGameOver( canend )
+
+	if GetGlobalBool( "GameOver", false ) then return end
+
+	if team.NumPlayers( TEAM_ARMY ) < 1 and team.NumPlayers( TEAM_ZOMBIES ) > 0 then
+	
+		GAMEMODE:EndGame( TEAM_ZOMBIES )
+	
+	elseif GAMEMODE.Wave > #GAMEMODE.Waves and canend then
+	
+		for k,v in pairs( team.GetPlayers( TEAM_ARMY ) ) do
+		
+			if not v:IsEvacuated() then
+			
+				v:Notice( "The evac chopper left without you", GAMEMODE.Colors.Red, 5 )
+				v:SetTeam( TEAM_ZOMBIES )
+			 
+			end
+		
+		end
+	
+		GAMEMODE:EndGame( TEAM_ARMY )
+	
+	end
+
+end
+
+function GM:ShowHelp( ply )
+
+	ply:SendLua( "GAMEMODE:ShowHelp()" ) 
+
+end
+
+function GM:ShowTeam( ply )
+
+	if ply:Team() == TEAM_ZOMBIES then
+	
+		ply:SendLua( "GAMEMODE:ShowZombieClasses()" )
+		
+		return
+	
+	end
+	
+	if not ply:Alive() then return end
+	
+	if ply:IsIndoors() then
+	
+		ply:Notice( "You cannot use your radio indoors", GAMEMODE.Colors.Red )
+	
+	else
+	
+		if ply:GetPlayerClass() == CLASS_SPECIALIST then
+	
+			if IsValid( ply.Stash ) then
+			
+				GAMEMODE.SpecialTrader:OnExit( ply )
+			
+			else
+		
+				if GAMEMODE.RadioBlock and GAMEMODE.RadioBlock > CurTime() then
+		
+					ply:Notice( "Radio communications are offline", GAMEMODE.Colors.Red )
+					return
+		
+				end
+		
+				GAMEMODE.SpecialTrader:OnUsed( ply )
+				
+			end
+			
+		else
+		
+			if IsValid( ply.Stash ) then
+			
+				GAMEMODE.Trader:OnExit( ply )
+			
+			else
+			
+				if GAMEMODE.RadioBlock and GAMEMODE.RadioBlock > CurTime() then
+		
+					ply:Notice( "Radio communications are offline", GAMEMODE.Colors.Red )
+					return
+				
+				end
+		
+				GAMEMODE.Trader:OnUsed( ply )
+				
+			end
+		
+		end
+	
+	end
+
+end
+
+function GM:ShowSpare1( ply )
+
+	GAMEMODE:PanicButton( ply )
+
+end
+
+function GM:ShowSpare2( ply )
+
+	GAMEMODE:AddToZombieList( ply )
+
+end
+
+function GM:PanicButton( ply )
+
+	if ( ply.Panic or 0 ) > CurTime() or ply:Team() == TEAM_ZOMBIES then return end
+	
+	ply.Panic = CurTime() + 0.5
+
+	local panic = { { ply:IsBleeding(), { "Bandage" }, "bleeding" },
+	{ ply:GetRadiation() > 0, { "Vodka", "Moonshine Vodka", "Anti-Rad" }, "irradiated" },
+	{ ply:Health() < 50, { "Advanced Medikit", "Basic Medikit", "Canned Food" }, "severely wounded" },
+	{ ply:Health() < 100, { "Basic Medikit", "Canned Food" }, "wounded" },
+	{ ply:GetStamina() < 100, { "Energy Drink" }, "fatigued" },
+	{ ply:GetStamina() < 100, { "Water" }, "fatigued" } }
+
+	for k,v in pairs( panic ) do
+	
+		if v[1] then
+		
+			for c,d in pairs( v[2] ) do
+			
+				local tbl = item.GetByName( d )
+			
+				if tbl and ply:HasItem( tbl.ID ) then
+                
+					tbl.Functions[ 1 ]( ply, tbl.ID )
+					
+					ply:Notice( "Panic button detected that you were " .. v[3], GAMEMODE.Colors.Blue )
+					
+					return
+
+				end
+			
+			end
+		
+		end
+	
+	end
+	
+	ply:Notice( "Panic button did not detect any usable items", GAMEMODE.Colors.Red )
+	ply:ClientSound( "items/suitchargeno1.wav" )
+
+end
+
+function DropItem( ply, cmd, args )
+
+	local id = tonumber( args[1] )
+	local count = math.Clamp( tonumber( args[2] ), 1, 100 )
+	
+	if not ply:HasItem( id ) then return end
+	
+	local tbl = item.GetByID( id )
+	
+	if count == 1 then
+	
+		if ply:HasItem( id ) then
+		
+			local makeprop = true
+		
+			if tbl.DropFunction then
+			
+				makeprop = tbl.DropFunction( ply, id, true )
+			
+			end
+			
+			if makeprop then
+		
+				local prop = ents.Create( "prop_physics" )
+				prop:SetPos( ply:GetItemDropPos() )
+				prop:SetAngles( ply:GetAimVector():Angle() )
+				
+				if tbl.DropModel then
+			
+					prop:SetModel( tbl.DropModel )
+				
+				else
+				
+					prop:SetModel( tbl.Model )
+				
+				end
+				
+				prop:SetCollisionGroup( COLLISION_GROUP_WEAPON )
+				prop:Spawn()
+				prop.IsItem = true
+				prop.Removal = CurTime() + 5 * 60
+				
+			end
+			
+			ply:RemoveFromInventory( id, true )
+			ply:EmitSound( Sound( "items/ammopickup.wav" ) )
+		
+		end
+		
+		return
+	
+	end
+	
+	local itemcount = math.min( ply:GetItemCount( id ), count )
+	local loot = ents.Create( "sent_lootbag" )
+	
+	for i=1, itemcount do
+	
+		loot:AddItem( id )
+	
+	end
+	
+	loot:SetAngles( ply:GetAimVector():Angle() )
+	loot:SetPos( ply:GetItemDropPos() )
+	loot:SetRemoval( 60 * 5 )
+	loot:Spawn()
+	//loot:SetUser( ply ) 
+	
+	ply:EmitSound( Sound( "items/ammopickup.wav" ) )
+	ply:RemoveMultipleFromInventory( loot:GetItems() )
+	
+	if tbl.DropFunction then
+		
+		tbl.DropFunction( ply, id )
+		
+	end
+
+end
+
+concommand.Add( "inv_drop", DropItem )
+
+function UseItem( ply, cmd, args )
+
+	local id = tonumber( args[1] )
+	local pos = tonumber( args[2] )
+	
+	if ply:HasItem( id ) then
+	
+		local tbl = item.GetByID( id )
+		
+		if not tbl.Functions[pos] then return end
+		
+		tbl.Functions[pos]( ply, id )
+	
+	end
+
+end
+
+concommand.Add( "inv_action", UseItem )
+
+function TakeItem( ply, cmd, args )
+
+	local id = tonumber( args[1] )
+	local count = math.Clamp( tonumber( args[2] ), 1, 100 )
+	
+	if not IsValid( ply.Stash ) or not table.HasValue( ply.Stash:GetItems(), id ) or string.find( ply.Stash:GetClass(), "npc" ) then return end
+	
+	local tbl = item.GetByID( id )
+	
+	if count == 1 then
+		
+		ply:AddIDToInventory( id )
+		ply.Stash:RemoveItem( id )
+		
+		return
+	
+	end
+	
+	local items = {}
+	
+	if IsValid( ply.Stash ) then
+	
+		for i=1, count do
+	
+			if table.HasValue( ply.Stash:GetItems(), id ) then
+			
+				table.insert( items, id )
+				ply.Stash:RemoveItem( id )
+			
+			end
+			
+		end
+		
+		ply:AddMultipleToInventory( items )
+		ply:EmitSound( Sound( "items/itempickup.wav" ) )
+	
+	end
+
+end
+
+concommand.Add( "inv_take", TakeItem )
+
+function StoreItem( ply, cmd, args )
+
+	local id = tonumber( args[1] )
+	local count = math.Clamp( tonumber( args[2] ), 1, 100 )
+	
+	if not IsValid( ply.Stash ) or not ply:HasItem( id ) then return end
+	
+	local tbl = item.GetByID( id )
+	
+	if count == 1 then
+
+		ply.Stash:AddItem( id )
+		
+		ply:RemoveFromInventory( id )
+		ply:EmitSound( Sound( "c4.disarmfinish" ) )
+		
+		if tbl.DropFunction then
+			
+			tbl.DropFunction( ply, id )
+			
+		end
+		
+		return
+	
+	end
+	
+	local items = {}
+	
+	for i=1, count do
+	
+		if ply:HasItem( id ) then
+	
+			table.insert( items, id )
+			ply.Stash:AddItem( id )
+			
+		end
+	
+	end
+	
+	ply:RemoveMultipleFromInventory( items )
+	ply:EmitSound( Sound( "c4.disarmfinish" ) )
+	
+	if tbl.DropFunction then
+		
+		tbl.DropFunction( ply, id )
+		
+	end
+
+end
+
+concommand.Add( "inv_store", StoreItem )
+
+function SellbackItem( ply, cmd, args )
+
+	if not IsValid( ply ) then return end
+
+	local id = tonumber( args[1] )
+	
+	if not table.HasValue( ply:GetShipment(), id ) then return end
+	
+	local tbl = item.GetByID( id )
+
+	ply:AddCash( tbl.Price )
+	ply:RemoveFromShipment( id )
+
+end
+
+concommand.Add( "inv_refund", SellbackItem )
+
+function OrderShipment( ply, cmd, args )
+
+	ply:SendShipment()
+
+end
+
+concommand.Add( "ordershipment", OrderShipment )
+
+function BuyItem( ply, cmd, args )
+
+	local id = tonumber( args[1] )
+	local count = tonumber( args[2] )
+	
+	if not IsValid( ply.Stash ) or not ply.Stash:GetClass() == "info_trader" or not table.HasValue( ply.Stash:GetItems(), id ) or count < 0 then return end
+	
+	local tbl = item.GetByID( id )
+	
+	if tbl.Price > ply:GetCash() then 
+		
+		return 
+		
+	end 
+	
+	if tbl.Price > ply:GetStat( "Pricey" ) then
+	
+		ply:SetStat( "Pricey", tbl.Price )
+	
+	end
+	
+	if count == 1 then
+		
+		ply:AddToShipment( { id } )
+		ply:AddCash( -tbl.Price )
+		
+		return
+	
+	end
+	
+	if ( tbl.Price * count ) > ply:GetCash() then 
+		
+		return 
+		
+	end 
+	
+	local items = {}
+	
+	for i=1, count do
+		
+		table.insert( items, id )
+	
+	end
+	
+	ply:AddToShipment( items )
+	ply:AddCash( -tbl.Price * count )
+	
+end
+
+concommand.Add( "inv_buy", BuyItem )
+
+function DropCash( ply, cmd, args )
+
+	local amt = tonumber( args[1] )
+	
+	if amt > ply:GetCash() or amt < 5 then return end
+	
+	ply:AddCash( -amt )
+	
+	local money = ents.Create( "sent_cash" )
+	money:SetPos( ply:GetItemDropPos() )
+	money:Spawn()
+	money:SetCash( amt )
+
+end
+
+concommand.Add( "cash_drop", DropCash )
+
+function StashCash( ply, cmd, args )
+
+	local amt = tonumber( args[1] )
+	
+	if not IsValid( ply.Stash ) or amt > ply:GetCash() or amt < 5 or string.find( ply.Stash:GetClass(), "npc" ) then return end
+	
+	ply:AddCash( -amt )
+	ply:SynchCash( ply.Stash:GetCash() + amt )
+	ply.Stash:SetCash( ply.Stash:GetCash() + amt )
+
+end
+
+concommand.Add( "cash_stash", StashCash )
+
+function TakeCash( ply, cmd, args )
+
+	local amt = tonumber( args[1] )
+	
+	if not IsValid( ply.Stash ) or amt > ply.Stash:GetCash() or amt < 5 or string.find( ply.Stash:GetClass(), "npc" ) then return end
+	
+	ply:AddCash( amt )
+	ply:SynchCash( ply.Stash:GetCash() - amt )
+	ply.Stash:SetCash( ply.Stash:GetCash() - amt )
+
+end
+
+concommand.Add( "cash_take", TakeCash )
+
+function SetPlyClass( ply, cmd, args )
+
+	local class = tonumber( args[1] )
+	
+	if not GAMEMODE.ClassLogos[ class ] then return end
+	
+	if ply:Team() == TEAM_ARMY then return end
+	
+	if ply:Team() == TEAM_ZOMBIES then
+	
+		ply.NextClass = class
+		
+	else
+	
+		ply:SetPlayerClass( class )
+	
+	end
+	
+end
+
+concommand.Add( "changeclass", SetPlyClass )
+
+function SaveGameItems( ply, cmd, args )
+
+	if ( !ply:IsAdmin() or !ply:IsSuperAdmin() ) then return end
+	
+	GAMEMODE:SaveAllEnts()
+	
+end
+
+concommand.Add( "sv_redead_save_map_config", SaveGameItems )
+
+function MapSetupMode( ply, cmd, args )
+
+	if not IsValid( ply ) then 
+	
+		for k, ply in pairs( player.GetAll() ) do
+		
+			if ply:IsAdmin() or ply:IsSuperAdmin() then
+	
+				ply:Give( "rad_itemplacer" )
+				ply:Give( "rad_propplacer" )
+				ply:Give( "weapon_physgun" )
+			
+			end
+		
+		end
+		
+		return
+		
+	end
+
+	if ply:IsAdmin() or ply:IsSuperAdmin() then
+	
+		ply:Give( "rad_itemplacer" )
+		ply:Give( "rad_propplacer" )
+		ply:Give( "weapon_physgun" )
+		ply:AddCash( 500 )
+	
+	end
+
+end
+
+concommand.Add( "sv_redead_dev_mode", MapSetupMode )
+
+function ItemListing( ply, cmd, args )
+
+	if IsValid( ply ) and ply:IsAdmin() then
+	
+		local itemlist = item.GetList()
+		
+		for k,v in pairs( itemlist ) do
+		
+			print( v.ID .. ": " .. v.Name )
+		
+		end
+	
+	end
+
+end
+
+concommand.Add( "sv_redead_dev_itemlist", ItemListing )
+
+function TestItem( ply, cmd, args )
+
+	if IsValid( ply ) and ply:IsAdmin() then
+	
+		local id = tonumber( args[1] )
+		local tbl = item.GetByID( id )
+		
+		if tbl then
+		
+			ply:AddIDToInventory( id )
+		
+		end
+	
+	end
+
+end
+
+concommand.Add( "sv_redead_dev_give", TestItem )