path: root/gamemode/cl_init.lua

include( 'player_class/player_base.lua' )
include( 'player_class/player_zombie.lua' )
include( 'animations.lua' )
include( 'items.lua' )
include( 'shared.lua' )
include( 'enums.lua' )
include( 'moddable.lua' )
include( 'tables.lua' )
include( 'weather.lua' )
include( 'cl_notice.lua' )
include( 'cl_hudstains.lua' )
include( 'cl_targetid.lua' )
include( 'cl_spawnmenu.lua' )
include( 'cl_scoreboard.lua' )
include( 'cl_postprocess.lua' )
include( 'cl_inventory.lua' )
include( 'ply_extension.lua' )
include( 'vgui/vgui_panelbase.lua' )
include( 'vgui/vgui_dialogue.lua' )
include( 'vgui/vgui_itemdisplay.lua' )
include( 'vgui/vgui_shopmenu.lua' )
include( 'vgui/vgui_classpicker.lua' )
include( 'vgui/vgui_zombieclasses.lua' )
include( 'vgui/vgui_helpmenu.lua' )
include( 'vgui/vgui_endgame.lua' )
include( 'vgui/vgui_playerdisplay.lua' )
include( 'vgui/vgui_playerpanel.lua' )
include( 'vgui/vgui_itempanel.lua' )
include( 'vgui/vgui_panelsheet.lua' )
include( 'vgui/vgui_goodmodelpanel.lua' )
include( 'vgui/vgui_categorybutton.lua' )
include( 'vgui/vgui_sidebutton.lua' )
include( 'vgui/vgui_scroller.lua' )

CV_RagdollVision = CreateClientConVar( "cl_redead_ragdoll_vision", "1", true, false )
CV_Density = CreateClientConVar( "cl_redead_rain_density", "1.0", true, false )
CV_NoobHelp = CreateClientConVar( "cl_redead_noob_help", "1", true, false )

function GM:Initialize()
	
	WindVector = Vector( math.random(-10,10), math.random(-10,10), 0 )
	StaticPos = Vector(0,0,0)
	ViewWobble = 0
	ShopMenu = false
	HeadlessTbl = {}
	GibbedTbl = {}
	BurnTbl = {}
	PlayerStats = {}
	Drunkness = 0
	DeathScreenTime = 0
	DeathScreenScale = 0
	HeartBeat = 0
	JumpTimer = 0
	
	surface.CreateFont ( "DeathFont", { size = 34, weight = 200, antialias = true, additive = true, font = "Graffiare" } )
	surface.CreateFont ( "AmmoFont", { size = 28, weight = 200, antialias = true, additive = true, font = "Graffiare" } )
	surface.CreateFont ( "CashFont", { size = 22, weight = 200, antialias = true, additive = true, font = "Graffiare" } )
	surface.CreateFont ( "InventoryFont", { size = 20, weight = 150, antialias = true, additive = true, font = "Graffiare" } )
	surface.CreateFont ( "HudMarker", { size = 20, weight = 200,antialias = true, additive = true, font = "Graffiare" } )
	surface.CreateFont ( "ZombieHud", { size = 24, weight = 500, antialias = true, additive = true, font = "Typenoksidi" } )
	surface.CreateFont ( "ShopBig", { size = 22, weight = 500,  antialias = true, additive = true, font = "Typenoksidi" } )
	surface.CreateFont ( "ShopSmall", { size = 16, weight = 400, antialias = true, additive = true, font = "Typenoksidi" } )
	surface.CreateFont ( "EndGameBig", { size = 24, weight = 300,antialias = true, additive = true, font = "Typenoksidi" } )
	surface.CreateFont ( "EndGame", { size = 14, weight = 400,  antialias = true, additive = true, font = "Tahoma" } )
	surface.CreateFont ( "AmmoFontSmall", { size = 12, weight = 300, antialias = true, additive = true, font = "Verdana" } )
	surface.CreateFont ( "TargetIDFont", { size = 12, weight = 200, antialias = true, additive = true, font = "Verdana" } )

	//matRadar = Material( "radbox/radar" )
	//matArm = Material( "radbox/radar_arm" )
	//matArrow = Material( "radbox/radar_arrow" )
	//matNoise = Material( "radbox/nvg_noise" )
	
	matHealth = Material( "radbox/img_health" )
	matStamina = Material( "radbox/img_stamina" )
	matBlood = Material( "radbox/img_blood" )
	matRadiation = Material( "radbox/img_radiation" )
	matInfection = Material( "radbox/img_infect" )
	
	GAMEMODE:WeatherInit()
	
end

function GM:GetHelpHTML()

	local str = ""
	
	for k,v in pairs( GAMEMODE.HelpText ) do
	
		str = str .. v
	
	end

	return str

end

// Help menu - comment this out later?
function GM:ShowHelp()

	if IsValid( self.HelpFrame ) then return end
	
	self.HelpFrame = vgui.Create( "HelpMenu" )
	self.HelpFrame:SetSize( 415, 370 )
	self.HelpFrame:Center()
	self.HelpFrame:MakePopup()
	self.HelpFrame:SetKeyboardInputEnabled( false )
	
end

function GM:ShowClasses()

	--[[local classmenu = vgui.Create( "ClassPicker" )
	classmenu:SetSize( 415, 475 )
	classmenu:Center()
	classmenu:MakePopup()]]
	
	GAMEMODE:ShowHelp()

end

function GM:ShowZombieClasses()

	if IsValid( self.Classes ) then return end
	
	self.Classes = vgui.Create( "ZombieClassPicker" )
	self.Classes:SetSize( 415, 475 )
	self.Classes:Center()
	self.Classes:MakePopup()

end

function GM:HUDShouldDraw( name )

	if GAMEMODE.ScoreboardVisible then return false end
	
	for k, v in pairs{ "CHudHealth", "CHudBattery", "CHudAmmo", "CHudSecondaryAmmo", "CHudSuitPower", "CHudPoisonDamageIndicator", "CHudCrosshair" } do
	
		if name == v then return false end 
		
  	end 
	
	if name == "CHudDamageIndicator" and not LocalPlayer():Alive() then
	
		return false
		
	end
	
	return true
	
end

function GM:Think()

	GAMEMODE:ProcessWeather()
	GAMEMODE:FadeRagdolls()
	GAMEMODE:GoreRagdolls()
	GAMEMODE:HUDTraces()
	//GAMEMODE:SpawnRagdolls()
	
	if GetGlobalBool( "GameOver", false ) and not EndScreenShown then
	
		EndScreenShown = true
		
		local endscreen = vgui.Create( "EndGame" )
		endscreen:SetPos(0,0)
	
	end

	if IsValid( LocalPlayer() ) and LocalPlayer():Alive() and not StartMenuShown then
	
		StartMenuShown = true
		GAMEMODE:ShowClasses()
		
		//player_manager.SetPlayerClass( LocalPlayer(), "player_base" )
	
	end

	if not LocalPlayer():Alive() and GAMEMODE:ElementsVisible() then
	
		GAMEMODE:ClearElements()
		
		gui.EnableScreenClicker( false )
		
	end
	
	if LocalPlayer():Team() != TEAM_ARMY then return end

	if LocalPlayer():Alive() and HeartBeat < CurTime() and ( LocalPlayer():GetNWBool( "Bleeding", false ) or LocalPlayer():Health() < 50 ) then
	
		local scale = LocalPlayer():Health() / 100
		HeartBeat = CurTime() + 0.5 + scale * 1.5
		
		LocalPlayer():EmitSound( Sound( "nuke/heartbeat.wav" ), 100, 150 - scale * 50 )
		
	end
	
	--[[if Inv_HasItem( "models/gibs/shield_scanner_gib1.mdl" ) then
	
		MaxDist = 2200
		ArmSpeed = 90
	
	else
	
		MaxDist = 1500
		ArmSpeed = 70
	
	end

	if ( NextRadarThink or 0 ) < CurTime() then
	
		NextRadarThink = CurTime() + 1.5
	
		RadarEntTable = team.GetPlayers( TEAM_ZOMBIES ) 
		RadarEntTable = table.Add( RadarEntTable, team.GetPlayers( TEAM_ARMY ) )
		RadarEntTable = table.Add( RadarEntTable, ents.FindByClass( "npc_*" ) )
		RadarEntTable = table.Add( RadarEntTable, ents.FindByClass( "sent_lootbag" ) )
		RadarEntTable = table.Add( RadarEntTable, ents.FindByClass( "point_stash" ) )
		RadarEntTable = table.Add( RadarEntTable, ents.FindByClass( "sent_supplycrate" ) )
		RadarEntTable = table.Add( RadarEntTable, ents.FindByClass( "sent_antidote" ) )
		
	end
	
	local aimvec = LocalPlayer():GetAimVector()
		
	for k,v in pairs( RadarEntTable ) do
	
		if not IsValid( v ) then break end
		
		local dirp = ( LocalPlayer():GetPos() - v:GetPos() ):GetNormal()
		local aimvec = LocalPlayer():GetAimVector()
		aimvec.z = dirp.z
		
		local dir = ( aimvec:Angle() + Angle( 0, ArmAngle + 90, 0 ) ):Forward()
        local dot = dir:Dot( dirp )
        local diff = ( v:GetPos() - LocalPlayer():GetPos() )
		
		local close = math.sqrt( diff.x * diff.x + diff.y * diff.y ) < MaxDist * FadeDist

		if ( !v:IsPlayer() or ( v:Alive() and ( v != LocalPlayer() and ( v:Team() == LocalPlayer():Team() or  close ) ) ) ) and !IsOnRadar( v ) and ( dot > 0.99 or close ) then
			
			local pos = v:GetPos()
			local color = Color( 0, 255, 0 )
			
			if not v:IsPlayer() then
			
				color = Color( 80, 150, 255 )
				
				if v:GetClass() == "sent_antidote" or v:GetClass() == "sent_supplycrate" then
				
					color = Color( 255, 255, 255 )
				
				elseif v:IsNPC() then
				
					if v:GetClass() == "npc_scientist" then
				
						color = Color( 200, 200, 0 )
						
					else
						
						color = Color( 255, 80, 80 )
					
					end
				
				end
				
			elseif v:IsPlayer() and v:Team() != LocalPlayer():Team() then
				
				color = Color( 255, 80, 80 )
				
			end
				
			local dietime = CurTime() + BlipTime
			
			if close then
				
				dietime = -1
				
			end
			
			table.insert( PosTable, { Ent = v, Pos = pos, DieTime = dietime, Color = color } )
			
		end
		
	end]]
	
end

function GM:FadeRagdolls()

	for k,v in pairs( ents.FindByClass( "class C_ClientRagdoll" ) ) do
	
		if v.Time and v.Time < CurTime() then
		
			//v:SetColor( Color( 255, 255, 255, v.Alpha ) )
			//v.Alpha = math.Approach( v.Alpha, 0, -2 )
			
			//if v.Alpha <= 0 then
				//v:Remove()
			//end
			
			v:Remove()
		
		elseif not v.Time then
		
			v.Time = CurTime() + 12
			//v.Alpha = 255
		
		end
		
	end
	
end

function GM:GetNearestEnt( pos, dist, tbl )

	local closest 
	local best = 9000

	for k,v in pairs( tbl ) do
	
		local newdist = v:GetPos():Distance( pos )
	
		if newdist < dist and newdist < best then
		
			closest = v
		
		end
	
	end
	
	return closest

end

GM.GoreSheets = { "models/charple/charple1_sheet",
"models/charple/charple3_sheet",
"models/charple/charple4_sheet" }

function GM:GoreRagdolls()

	local tbl = ents.FindByClass( "class C_HL2MPRagdoll" )
	tbl = table.Add( tbl, ents.FindByClass( "class C_ClientRagdoll" ) )

	for k,v in pairs( tbl ) do
	
		if not v.Gore and table.HasValue( GAMEMODE.Corpses, string.lower( v:GetModel() ) ) then
		
			v.Gore = true
			v:SetMaterial( "models/flesh" )
			
			local phys = v:GetPhysicsObject()
			
			if IsValid( phys ) then
			
				phys:ApplyForceCenter( VectorRand() * 5000 )
			
			end
		
		elseif not LocalPlayer():Alive() and IsValid( LocalPlayer():GetRagdollEntity() ) and LocalPlayer():GetRagdollEntity() == v and not v.Slowed and not table.HasValue( GAMEMODE.Corpses, string.lower( v:GetModel() ) ) then
		
			v.Slowed = true
			
			local phys = v:GetPhysicsObject()
			
			if IsValid( phys ) then
			
				local count = LocalPlayer():GetRagdollEntity():GetPhysicsObjectCount()
				
				for i=0, count do
				
					local limb = v:GetPhysicsObjectNum( i )
					
					if IsValid( limb ) then
					
						limb:SetDamping( 5, 0 )
						limb:ApplyForceCenter( VectorRand() * 50 )
						
					end
				
				end
				
				phys:Wake()
			
			end
		
		end
	
		if not v.Randomized then
		
			v.Randomized = true
			
			if math.random(1,2) == 1 then 
			
				local phys = v:GetPhysicsObject()
				
				if IsValid( phys ) then
			
					for i=1, math.random(2,6) do
			
						local count = v:GetPhysicsObjectCount()
						local limb = v:GetPhysicsObjectNum( math.random( 0, count ) )
					
						if IsValid( limb ) then
					
							limb:SetDamping( math.Rand( 0, 2 ), math.Rand( 0, 5 ) )
							limb:ApplyForceCenter( VectorRand() * 75 )
				
						end
				
						phys:Wake()
			
					end
				
				end
			
			end
		
		end
		
	end
	
	for c,d in pairs( HeadlessTbl ) do
	
		local ent = GAMEMODE:GetNearestEnt( d.Pos, 50, tbl )
		
		if IsValid( ent ) and not ent.IsHeadless then
			
			ent:ManipulateBoneScale( 6, Vector( 0.01, 0.01, 0.01 ) ) 
			ent:ManipulateBoneScale( 6, Vector( 0.001, 0.001, 0.001 ) ) 
			
			ent.IsHeadless = true
			
			table.remove( HeadlessTbl, c )
			
			break
			
		elseif d.Time < CurTime() then
			
			table.remove( HeadlessTbl, c )
			
			break
			
		end
		
	end
		
	for c,d in pairs( BurnTbl ) do
	
		local ent = GAMEMODE:GetNearestEnt( d.Pos, 50, tbl )
		
		if IsValid( ent ) and not ent.IsBurnt then
			
			ent:SetMaterial( table.Random( GAMEMODE.GoreSheets ) )
			ent.IsBurnt = true
			
			table.remove( BurnTbl, c )
			
			break
			
		elseif d.Time < CurTime() then
			
			table.remove( BurnTbl, c )
			
			break
			
		end
		
	end
	
end

function GM:SpawnRagdolls()

	local tbl = ents.FindByClass( "npc_*" )
	
	for c,d in pairs( RagdollTbl ) do
	
		local ent = GAMEMODE:GetNearestEnt( d.Pos, 30, tbl )
		
		if IsValid( ent ) and not ent.Ragdolled then
			
			ent:BecomeRagdollOnClient()
			ent.Ragdolled = true
			
			table.remove( RagdollTbl, c )
			
			break
			
		elseif d.Time < CurTime() then
			
			table.remove( RagdollTbl, c )
			
			break
		
		end
		
	end
	
end

function DrawBar( x, y, w, h, value, maxvalue, icon, colorlight, colordark, hp )

	draw.RoundedBox( 4, x - 1, y, h + 1, h, Color( 0, 0, 0, 180 ) )
	
	surface.SetDrawColor( colorlight.r, colorlight.g, colorlight.b, 180 ) 
	surface.SetMaterial( icon ) 
	surface.DrawTexturedRect( x, y + 1, h - 1, h - 2 ) 
	
	x = x + h + 4
	
	local w = 5 + maxvalue * 2
	
	draw.RoundedBox( 4, x, y, w, h, Color( 0, 0, 0, 180 ) )
	
	for i=1, value do
	
		local grn = colorlight.g
		
		if i <= 50 then
		
			grn = grn + 50
	
		end
	
		draw.RoundedBox( 0, 1 + x + i * 2, y + 3, 1, h - 6, colordark )
		draw.RoundedBox( 0, 1 + x + i * 2, y + 3 + ( h * 0.2 ), 1, h - 6 - ( h * 0.4 ), Color( colorlight.r, grn, colorlight.b ) )
		
		--[[if hp then
		
			if i % 6 == 0 or ( i + 1 ) % 6 == 0 or ( i + 2 ) % 6 == 0 then
				
				draw.RoundedBox( 0, 1 + x + i * 2, y + 3, 1, ( h * ( math.sin( CurTime() * 3 + i ) * 0.2 + 0.5 ) ) - 3, Color( colorlight.r, grn, colorlight.b ) )
				
			end
		
			draw.RoundedBox( 0, 1 + x + i * 2, y + 3, 1, ( h * 0.4 ) - 3, Color( colorlight.r, grn, colorlight.b ) )
		
		else
		
			draw.RoundedBox( 0, 1 + x + i * 2, y + 3, 1, ( h * ( math.sin( ( CurTime() * 0.1 + i * 0.5 ) ) * ( math.sin( CurTime() * 2 ) * 0.15 ) + 0.5 ) ) - 3, Color( colorlight.r, grn, colorlight.b ) )
			
		end]]
	
	end

end

function DrawIcon( x, y, w, h, icon, color )

	draw.RoundedBox( 4, x - 1, y, h + 1, h, Color( 0, 0, 0, 180 ) )
	
	surface.SetDrawColor( color.r, color.g, color.b, 180 ) 
	surface.SetMaterial( icon ) 
	surface.DrawTexturedRect( x, y + 1, h - 1, h - 2 ) 

end

function DrawAmmo( x, y, w, h, text, label )

	if not IsValid( LocalPlayer():GetActiveWeapon() ) then return end

	draw.RoundedBox( 4, x, y, w, h, Color( 0, 0, 0, 180 ) )
	
	draw.SimpleText( text, "AmmoFont", x + 5, y + ( h * 0.5 ) - 5, Color( 255, 255, 255 ), TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT )
	draw.SimpleText( label, "AmmoFontSmall", x + 5, y + 5, Color( 255, 255, 150 ), TEXT_ALIGN_LEFT, TEXT_ALIGN_LEFT )
	
end

function DrawCash( x, y, w, h, text )

	draw.RoundedBox( 4, x, y, w, h, Color( 0, 0, 0, 180 ) )
	draw.SimpleText( text, "CashFont", x + w * 0.5, y + h * 0.5 + 2, Color( 255, 255, 255 ), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER )

end

function GM:GetAfflictions()

	local tbl = {}
	local cols = { Color( 40, 200, 40 ), Color( 80, 150, 40 ), Color( 150, 150, 0 ), Color( 200, 100, 40 ), Color( 255, 40, 40 ) }

	if LocalPlayer():GetNWBool( "Infected", false ) then
	
		table.insert( tbl, { Icon = matInfection, Color = Color( 40, 200, 40 ) } )
	
	end
	
	if LocalPlayer():GetNWBool( "Bleeding", false ) then
	
		table.insert( tbl, { Icon = matBlood, Color = Color( 225, 40, 40 ) } )
		
	end
	
	if LocalPlayer():GetNWInt( "Radiation", 0 ) > 0 then

		table.insert( tbl, { Icon = matRadiation, Color = cols[ LocalPlayer():GetNWInt( "Radiation", 1 ) ] } )
		
	end
	
	return tbl

end

function GM:GetHealthColor()
	
	local hp = math.Clamp( LocalPlayer():Health(), 0, 500 )
	
	if hp > 150 then
	
		return Color( 0, 255, 255 )
	
	end
	
	local scale = hp / 150
		
	return Color( ( 1 - scale ) * 255, scale * 255, scale * 255 )

end

function GM:DrawMarkers()

	local tbl = ents.FindByClass( "sent_heliflare" )
	tbl = table.Add( tbl, ents.FindByClass( "sent_antidote" ) )

	for k,v in pairs( tbl ) do
	
		local sc = v:GetPos():ToScreen()
		
		if sc.visible then
		
			local text = "antidote"
			local offset = ( v:GetPos() + Vector(0,0,80) ):ToScreen()
			local dist = v:GetPos():Distance( LocalPlayer():GetPos() )
			local maxdist = 1600
		
			if v:GetClass() == "sent_heliflare" then
			
				text = "evac  zone"
				offset = ( v:GetPos() + Vector(0,0,40) ):ToScreen()
				maxdist = 600
			
			end
			
			local alpha = math.Clamp( dist - maxdist, 0, 200 ) / 200
			
			sc.y = sc.y + ( offset.y - sc.y )
		
			draw.SimpleText( text, "HudMarker", sc.x, sc.y, Color( 255, 255, 255, alpha * 255 ), TEXT_ALIGN_CENTER )
			
		end
	
	end

end

function GM:HUDPaint()

	if GetGlobalBool( "GameOver", false ) then return end
	
	if LocalPlayer():IsFrozen() then return end
	
	if LocalPlayer():Team() == TEAM_ZOMBIES then
	
		GAMEMODE:PaintWeather()
	
		if not LocalPlayer():Alive() then
		
			DeathScreenScale = math.Approach( DeathScreenScale, 1, FrameTime() * 0.3 ) 
			
			draw.RoundedBox( 0, 0, 0, ScrW(), ScrH() * ( 0.15 * DeathScreenScale ), Color( 0, 0, 0, 180 ) )
			draw.RoundedBox( 0, 0, ScrH() - ( ScrH() * ( 0.15 * DeathScreenScale ) ), ScrW(), ScrH() * ( 0.15 * DeathScreenScale ), Color( 0, 0, 0, 180 ) )
			
			if DeathScreenScale == 1 then
			
				local dtime = math.Round( DeathScreenTime - CurTime() )
				
				if dtime > 0 then
				
					draw.SimpleText( "YOU WILL RESPAWN IN "..dtime.." SECONDS", "DeathFont", ScrW() * 0.5, ScrH() * 0.1, Color( 255, 0, 0 ), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER )
					
				else
				
					draw.SimpleText( "PRESS ANY KEY TO RESPAWN", "DeathFont", ScrW() * 0.5, ScrH() * 0.1, Color( 255, 0, 0 ), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER )
				
				end
				
				draw.SimpleText( DeathScreenText or "POOP", "DeathFont", ScrW() * 0.5, ScrH() * 0.9, Color( 255, 0, 0 ), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER )
			
			end
	
		else
		
			local hp = math.Clamp( LocalPlayer():Health(), 0, 500 )
			local x, y = 40, ScrH() - 60
			
			surface.SetFont( "ZombieHud" )
			local w, h = surface.GetTextSize( "Health: " .. hp )
		
			draw.RoundedBox( 4, 30, ScrH() - 70, w + 20, h + 20, Color( 0, 0, 0, 180 ) )
		
			draw.SimpleText( "Health: " .. hp, "ZombieHud", x+1, y+1, Color(40,40,40), TEXT_ALIGN_LEFT )
			draw.SimpleText( "Health: " .. hp, "ZombieHud", x+1, y-1, Color(40,40,40), TEXT_ALIGN_LEFT )
			draw.SimpleText( "Health: " .. hp, "ZombieHud", x-1, y-1, Color(40,40,40), TEXT_ALIGN_LEFT )
			draw.SimpleText( "Health: " .. hp, "ZombieHud", x-1, y+1, Color(40,40,40), TEXT_ALIGN_LEFT )
			draw.SimpleText( "Health: " .. hp, "ZombieHud", x, y, GAMEMODE:GetHealthColor(), TEXT_ALIGN_LEFT )
			
			if not LocalPlayer():GetNWBool( "Lord", false ) then return end
			
			local xpos, ypos = x + w + 20, ScrH() - 70
			local w = 200
			local scale = math.floor( w * math.Clamp( LocalPlayer():GetNWInt( "ZedDamage", 0 ) / GAMEMODE.RedemptionDamage, 0.01, 1.00 ) )
			local pos = 0
			
			draw.RoundedBox( 4, xpos, ypos, w + 20, h + 20, Color( 0, 0, 0, 180 ) )
			
			if scale == 200 then
			
				draw.RoundedBox( 0, xpos + 10, ScrH() - 60, scale, h, Color( 200, 0, 0, 200 ) )
			
			else
			
				draw.RoundedBox( 0, xpos + 10, ScrH() - 60, scale, h, Color( 100, 0, 0, 200 ) )
				
			end
			
			while pos < scale do
			
				local width = math.min( math.random( 10, 50 ), math.max( scale - pos, 1 ) ) 
			
				local tbl = {} 
				tbl.texture = surface.GetTextureID( "nuke/redead/noise0" .. math.random(1,3) )
				tbl.x = xpos + pos + 10
				tbl.y = ScrH() - 60 
				tbl.w = width
				tbl.h = h
				
				if scale == 200 then
				
					tbl.color = Color( 250, 125 + math.sin( CurTime() * 5 ) * 125, 125 + math.sin( CurTime() * 5 ) * 125, 250 ) 
				
				else
				
					tbl.color = Color( 250, 0, 0, 200 ) 
				
				end
				
				draw.TexturedQuad( tbl )
				
				pos = pos + width
			
			end
		
		end
		
		return
	
	end
	
	GAMEMODE:HUDDrawTargetID()
	
	if not LocalPlayer():Alive() and LocalPlayer():Team() != TEAM_UNASSIGNED then
		
		DeathScreenScale = math.Approach( DeathScreenScale, 1, FrameTime() * 0.3 ) 
		
		draw.RoundedBox( 0, 0, 0, ScrW(), ScrH() * ( 0.15 * DeathScreenScale ), Color( 0, 0, 0, 180 ) )
		draw.RoundedBox( 0, 0, ScrH() - ( ScrH() * ( 0.15 * DeathScreenScale ) ), ScrW(), ScrH() * ( 0.15 * DeathScreenScale ), Color( 0, 0, 0, 180 ) )
		
		if DeathScreenScale == 1 then
		
			local dtime = math.Round( DeathScreenTime - CurTime() )
			
			if dtime > 0 then
			
				draw.SimpleText( "YOU WILL RESPAWN IN "..dtime.." SECONDS", "DeathFont", ScrW() * 0.5, ScrH() * 0.1, Color( 255, 0, 0 ), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER )
				
			else
			
				draw.SimpleText( "PRESS ANY KEY TO RESPAWN", "DeathFont", ScrW() * 0.5, ScrH() * 0.1, Color( 255, 0, 0 ), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER )
			
			end
			
			draw.SimpleText( DeathScreenText or "POOP", "DeathFont", ScrW() * 0.5, ScrH() * 0.9, Color( 255, 0, 0 ), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER )
		
		end
	
	end
	
	if not LocalPlayer():Alive() or LocalPlayer():Team() == TEAM_UNASSIGNED then return end //or GAMEMODE:ElementsVisible() then return end
	
	GAMEMODE:DrawMarkers()
	
	local xlen = 200
	local ylen = 25
	local xpos = 5
	local ypos = ScrH() - 5 - ylen
	
	DrawBar( xpos, ypos, xlen, ylen, LocalPlayer():Health(), 150, matHealth, Color( 225, 50, 50, 255 ), Color( 175, 25, 25, 255 ), true )
	
	ypos = ScrH() - 10 - ylen * 2
	
	local stam = LocalPlayer():GetNWInt( "Stamina", 0 )
	
	DrawBar( xpos, ypos, xlen, ylen, stam, 150, matStamina, Color( 50, 100, 225, 255 ), Color( 25, 50, 175, 255 ), false )
	
	local tbl = GAMEMODE:GetAfflictions()
	
	for k,v in pairs( tbl ) do
	
		ypos = ScrH() - ( 10 + ( k * 5 ) ) - ylen * ( 2 + k )
		
		DrawIcon( xpos, ypos, xlen, ylen, v.Icon, v.Color )
	
	end
	
	local ylen = 55
	local ypos = 35
	
	if IsValid( LocalPlayer():GetActiveWeapon() ) and ( LocalPlayer():GetActiveWeapon().AmmoType or "SMG" ) != "Knife" then
	
		local total = LocalPlayer():GetNWInt( "Ammo" .. ( LocalPlayer():GetActiveWeapon().AmmoType or "SMG" ), 0 )
		local ammo = math.Clamp( LocalPlayer():GetActiveWeapon():Clip1(), 0, total )
	
		local xlen = 50
	
		DrawAmmo( ScrW() - 5 - xlen, ScrH() - ylen - 5, xlen, ylen, total, "TOTAL" )
		DrawAmmo( ScrW() - 10 - xlen * 2, ScrH() - ylen - 5, xlen, ylen, ammo, "AMMO" )
		
		ypos = ypos + ylen + 5
	
	end
	
	DrawCash( ScrW() - 110, ScrH() - ypos, 105, 30, string.upper( LocalPlayer():GetNWInt( "Cash", 0 ) .. "  " .. GAMEMODE.CurrencyName .. "s" ) )

	GAMEMODE:PaintWeather()
	--[[local radius = 200 
	local centerx = ScrW() - ( radius / 2 ) - 20
	local centery = 20 + ( radius / 2 )
	
	ArmAngle = ArmAngle + FrameTime() * ArmSpeed
		
	if ArmAngle > 360 then
		ArmAngle = 0 + ( ArmAngle - 360 )
	end
	
	surface.SetDrawColor( 255, 255, 255, 220 ) 
	surface.SetMaterial( matRadar ) 
	surface.DrawTexturedRect( ScrW() - radius - 20, 20, radius, radius ) 
	
	local aimvec = LocalPlayer():GetAimVector()
	
	for k,v in pairs( PosTable ) do
		
		local diff = v.Pos - LocalPlayer():GetPos()
		local alpha = 100 
		
		if IsValid( v.Ent ) and ( v.Ent:IsPlayer() or v.Ent:IsNPC() ) then
		
			diff = v.Ent:GetPos() - LocalPlayer():GetPos()
		
		end
		
		if v.DieTime != -1 then
		
			alpha = 100 * ( math.Clamp( v.DieTime - CurTime(), 0, BlipTime ) / BlipTime )
		
		elseif not IsValid( v.Ent ) then
			
			PosTable[k].DieTime = CurTime() + 1.5
			
		end
			
		if math.sqrt( diff.x * diff.x + diff.y * diff.y ) > MaxDist * FadeDist and v.DieTime == -1 then
			
			PosTable[k].DieTime = CurTime() + 1.5 // Remove the dot because they left our inner circle
			
		end
			
		if alpha > 0 and math.sqrt( diff.x * diff.x + diff.y * diff.y ) < MaxDist then
			
			local addx = diff.x / MaxDist
			local addy = diff.y / MaxDist
			local addz = math.sqrt( addx * addx + addy * addy )
			local phi = math.atan2( addx, addy ) - math.atan2( aimvec.x, aimvec.y ) - ( math.pi / 2 )
			
			addx = math.cos( phi ) * addz
			addy = math.sin( phi ) * addz
			
			draw.RoundedBox( 4, centerx + addx * ( ( radius - 15 ) / 2 ) - 4, centery + addy * ( ( radius - 15 ) / 2 ) - 4, 5, 5, Color( v.Color.r, v.Color.g, v.Color.b, alpha ) )
			
		end
	
	end
		
	for k,v in pairs( PosTable ) do
		
		if v.DieTime != -1 and v.DieTime < CurTime() then
			
			table.remove( PosTable, k )
			
		end
		
	end
		
	surface.SetDrawColor( 255, 255, 255, 220 ) 
	surface.SetMaterial( matArm )
	surface.DrawTexturedRectRotated( centerx, centery, radius, radius, ArmAngle ) 
	
	local ent = LocalPlayer():GetDTEntity( 0 )
	
	if IsValid( ent ) or StaticPos != Vector(0,0,0) then
	
		local ang = Angle(0,0,0)
	
		if IsValid( ent ) then
		
			ang = ( ent:GetPos() - LocalPlayer():GetShootPos()):Angle() - LocalPlayer():GetForward():Angle()
			
			local diff = ( ent:GetPos() - LocalPlayer():GetPos() )
				
			if math.sqrt( diff.x * diff.x + diff.y * diff.y ) < MaxDist * FadeDist then 
				
				return
				
			end
		
		end
		
		if StaticPos != Vector(0,0,0) then
		
			ang = ( StaticPos - LocalPlayer():GetShootPos()):Angle() - LocalPlayer():GetForward():Angle()
		
		end
		
		surface.SetDrawColor( 255, 255, 255, 200 ) 
		surface.SetMaterial( matArrow )
		surface.DrawTexturedRectRotated( centerx, centery, radius, radius, ang.y )
		
	end]]
	
end

--[[function IsOnRadar( ent )

	for k,v in pairs( PosTable ) do
	
		if v.Ent == ent then
		
			return v
		
		end
	
	end

end]]

function GM:HUDWeaponPickedUp( wep )

end

function GM:HUDItemPickedUp( itemname )

end

function GM:HUDAmmoPickedUp( itemname, amount )

end

function GM:HUDDrawPickupHistory( )

end

function GM:HUDPaintBackground()

end

function GM:CreateMove( cmd )

	if LocalPlayer():Team() == TEAM_ZOMBIES then
	
		if bit.band( cmd:GetButtons(), IN_DUCK ) > 0 then
		
			cmd:SetButtons( cmd:GetButtons() - IN_DUCK )
			
		end
		
		local ang = cmd:GetViewAngles()
		
		if ang.r != 0 then
		
			ang.r = 0
			cmd:SetViewAngles( ang )
		
		end
	
	else
	
		local scale = LocalPlayer():GetNWInt( "Radiation", 0 ) / 5
		local wobble = 0
		
		if LocalPlayer():GetNWBool( "Infected", false ) then
		
			scale = math.max( scale, 0.3 )
		
		end
		
		if scale > 0 and LocalPlayer():Alive() then
		
			wobble = scale * 0.05
			
		end
		
		local drunkscale = Drunkness / 10
		
		if Drunkness > 0 then
		
			if ( DrunkTimer or 0 ) < CurTime() then
			
				Drunkness = math.Clamp( Drunkness - 1, 0, 20 )
				DrunkTimer = CurTime() + 15
			
			end
			
			wobble = wobble + ( drunkscale * 0.08 )

		end
		
		if LocalPlayer():Health() <= 75 and LocalPlayer():Alive() then
		
			local hscale = math.Clamp( LocalPlayer():Health() / 50, 0, 1 )
			wobble = wobble + ( 0.05 - 0.05 * hscale )
			
		end
		
		ViewWobble = math.Approach( ViewWobble, wobble, FrameTime() * 0.1 ) 
		
		local ang = cmd:GetViewAngles()
		
		if ViewWobble > 0 or ang.r != 0 then
			
			ang.p = ang.p + math.sin( CurTime() ) * ViewWobble
			ang.y = ang.y + math.cos( CurTime() ) * ViewWobble
			ang.r = math.Approach( ang.r + math.sin( CurTime() ) * ( ( ViewWobble * 0.5 ) * math.cos( CurTime() * ViewWobble ) ), 0, FrameTime() * 0.5 )
		
			cmd:SetViewAngles( ang )
		
		end
	
	end

end

function GrenadeHit( msg )

	DisorientTime = CurTime() + 8
	
end
usermessage.Hook( "GrenadeHit", GrenadeHit )

function ScreamHit( msg )

	ScreamTime = CurTime() + 8
	
end
usermessage.Hook( "ScreamHit", ScreamHit )

function DeathScreen( msg )

	local dteam = msg:ReadShort()

	DeathScreenScale = 0
	DeathScreenTime = CurTime() + 10
	DeathScreenText = table.Random( GAMEMODE.DeathScreenText[ dteam or TEAM_ARMY ] )
	
end
usermessage.Hook( "DeathScreen", DeathScreen )

--[[function Ragdoll( msg )

	local pos = msg:ReadVector()
	local burn = msg:ReadShort()
	local ent = Entity( msg:ReadShort() )
	
	if IsValid( ent ) and not ent.Ragdolled then
	
		ent:BecomeRagdollOnClient()
		ent.Ragdolled = true
	
	end
	
	if burn == 2 then
	
		table.insert( BurnTbl, { Pos = pos, Time = CurTime() + 0.5 } )
	
	end

end
usermessage.Hook( "Ragdoll", Ragdoll )]]

function Burned( msg )

	table.insert( BurnTbl, { Pos = msg:ReadVector(), Time = CurTime() + 0.5 } )

end
usermessage.Hook( "Burned", Burned )

function Gibbed( msg )

	table.insert( GibbedTbl, { Pos = msg:ReadVector(), Time = CurTime() + 0.5 } )

end
usermessage.Hook( "Gibbed", Gibbed )

function Headless( msg )

	table.insert( HeadlessTbl, { Pos = msg:ReadVector(), Time = CurTime() + 0.5 } )

end
usermessage.Hook( "Headless", Headless )

function SetRadarTarget( msg )
 
	StaticPos = msg:ReadVector()
 
end
usermessage.Hook( "StaticTarget", SetRadarTarget )

function AddDrunkness( msg )
 
	Drunkness = math.Clamp( Drunkness + msg:ReadShort(), 0, 20 )
	DrunkTimer = CurTime() + 30
 
end
usermessage.Hook( "Drunk", AddDrunkness )

function CashSynch( msg )
 
	Inv_SetStashCash( msg:ReadShort() )
 
end
usermessage.Hook( "CashSynch", CashSynch )

function Radio( msg )

	local num = msg:ReadShort()
	local snd = msg:ReadString()
	
	if num == 100 then
	
		surface.PlaySound( snd )
	
	else
	
		if not IsValid( LocalPlayer() ) then return end
		
		sound.Play( snd, LocalPlayer():GetShootPos(), 180, num, 1 )
		
	end

end
usermessage.Hook( "Radio", Radio )

net.Receive( "StatsSynch", function( len )

	local count = net.ReadInt( 8 )
	PlayerStats = {}
	
	for i=1, count do
	
		table.insert( PlayerStats, { Player = net.ReadEntity(), Stats = net.ReadTable() } )
	
	end

end )

net.Receive( "InventorySynch", function( len )

	LocalInventory = net.ReadTable()
	
	if GAMEMODE.ItemSheet and GAMEMODE.ItemSheet:IsVisible() then
	
		GAMEMODE.ItemSheet:RefreshItems( LocalInventory )
		
	end

end )

net.Receive( "StashSynch", function( len )

	LocalStash = net.ReadTable()
	
	if StashScreen and StashScreen:IsVisible() then
	
		StashScreen:RefreshItems( LocalStash )
		
	end

end )