gamemode: Add support for name plates above players

Name plates are an easy way to identify other players without looking at them or relying on the Target id to appear (which should no longer happen). Several new cvars have been added to make this possible:

- ph_nameplates_show: Show or hide name plates.
- ph_nameplates_scale: World scale, a value of 1 makes 1 pixel equal 1 unit.
- ph_nameplates_height: Height above the player.
- ph_nameplates_tint_hue
- ph_nameplates_tint_saturation
- ph_nameplates_tint_value
- ph_nameplates_tint_health: Tint nameplate using the remaining health, 100% health = green, 0% health = red.
- ph_nameplates_tint_team: Tint nameplates using the players team.

Source/gamemodes/prophuntextended/gamemode/cl_init.lua

@@ -41,8 +41,8 @@ function GM:Initialize()
 	print("Prop Hunt CL: Initializing Gamemode Data...")
 	self.Data = {}
 	
-	print("Prop Hunt CL: Creating Huge Ass Font...")
-	surface.CreateFont("PHHugeAssFont", {font="Roboto Bold Condensed", extended=true, size=160, weight=800, antialias=true})
+	print("Prop Hunt CL: Creating Fonts...")
+	surface.CreateFont("RobotoBoldCondensed160", {font="Roboto Bold Condensed", extended=true, size=160, weight=800, antialias=true})
 	
 	print("Prop Hunt CL: Complete.")
 	print("-------------------------------------------------------------------------")
@@ -192,29 +192,46 @@ net.Receive( "PlayerViewOffset", function(len, pl)
 	GAMEMODE:PlayerSetViewOffset(vo, voduck)
 end)
 
+-- ------------------------------------------------------------------------- --
+--! Special Drawing
+-- ------------------------------------------------------------------------- --
+function DrawNamePlates(bDrawingDepth, bDrawingSkybox)
+	if (!GAMEMODE.Config.NamePlates:Show()) then
+		return
+	end
+	
+	local scale = GAMEMODE.Config.NamePlates:Scale()	
+	local pls = team.GetPlayers(GAMEMODE.Teams.Seekers)
+	if (LocalPlayer():Team() == GAMEMODE.Teams.Hiders) then
+		pls = table.Add(pls, team.GetPlayers(GAMEMODE.Teams.Hiders))
+	end	
+	
+	for i,v in ipairs(pls) do
+		if (v:Alive() && v != LocalPlayer()) then
+			local color = HSVToColor(GAMEMODE.Config.NamePlates:TintHue(),
+				GAMEMODE.Config.NamePlates:TintSaturation(),
+				GAMEMODE.Config.NamePlates:TintValue())
+			if GAMEMODE.Config.NamePlates:TintHealth() then
+				local healthPrc = v:Health() / v:GetMaxHealth()
+				color = HSVToColor(120 * healthPrc, 1.0, 1.0)				
+			elseif GAMEMODE.Config.NamePlates:TintTeam() then
+				color = team.GetColor(v:Team())
+			end			
+			
+			local pos = v:GetPos() + v:GetViewOffset() + Vector(0, 0, GAMEMODE.Config.NamePlates:Height())
+			local ang = Angle(0, LocalPlayer():EyeAngles().y - 90, 90 - LocalPlayer():EyeAngles().x)
+			cam.Start3D2D(pos, ang, scale)
+				draw.DrawText(v:GetName(), "RobotoBoldCondensed160", 0, -draw.GetFontHeight("RobotoBoldCondensed160") / 2, color, TEXT_ALIGN_CENTER)
+			cam.End3D2D()
+		end
+	end	
+end
+hook.Add("PostDrawTranslucentRenderables", "PHDrawNamePlates", DrawNamePlates)
+
 -- ------------------------------------------------------------------------- --
 --! Old Code
 -- ------------------------------------------------------------------------- --
 --[[
--- Render halos and player names.
-function DrawPlayerNames(bDrawingDepth, bDrawingSkybox)
-	for i,v in ipairs(player.GetAll()) do
-		if v:Alive() && v != LocalPlayer() then
-			local pos = v:GetPos() + v:GetViewOffset() + Vector(0, 0, 5)
-			local ang = Angle(0, LocalPlayer():EyeAngles().y - 90, 90 - LocalPlayer():EyeAngles().x)
-			local healthPrc = v:Health() / v:GetMaxHealth()
-			local healthCol = HSVToColor(120 * healthPrc, 1.0, 1.0)
-			
-			if v:Team() == TEAM_HUNTERS || LocalPlayer():Team() == TEAM_PROPS then
-				cam.Start3D2D(pos, ang, 0.15)
-					draw.DrawText(v:GetName(), "Trebuchet24", 0, -draw.GetFontHeight("Trebuchet24"), healthCol, TEXT_ALIGN_CENTER)
-				cam.End3D2D()
-			end
-		end
-	end
-end
-hook.Add("PostDrawTranslucentRenderables", "PH_DrawPlayerNames", DrawPlayerNames)
-
 function DrawPlayerHalos(bDrawingDepth, bDrawingSkybox)
 	for i,v in ipairs(player.GetAll()) do
 		if v:Alive() then

Source/gamemodes/prophuntextended/gamemode/sh_config.lua

@@ -40,7 +40,6 @@ end
 --! Debug Settings
 -- ------------------------------------------------------------------------- --
 -- Debug Mode
-
 GM.Config.ConVars.Debug = CreateConVarIfNotExists("ph_debug", "0", FCVAR_CHEAT + FCVAR_REPLICATED, "Prop Hunt: Enable Debug Mode")
 function GM.Config:Debug()
 	return self.ConVars.Debug:GetBool()
@@ -410,4 +409,56 @@ if CLIENT then
 	function GM.Config.Camera:Lag()
 		return math.Clamp(self.ConVars.Lag:GetFloat(), self:LagMinimum(), self:LagMaximum())
 	end
-end
+end
+
+-- ------------------------------------------------------------------------- --
+--! Name Plates
+-- ------------------------------------------------------------------------- --
+GM.Config.NamePlates = {}
+GM.Config.NamePlates.ConVars = {}
+
+if CLIENT then
+	-- Show
+	GM.Config.NamePlates.ConVars.Show = CreateConVarIfNotExists("ph_nameplates_show", "1", FCVAR_ARCHIVE + FCVAR_CLIENTDLL, "Nameplates: Show a name plate above each player in your team (or all players if spectating).")
+	function GM.Config.NamePlates:Show()
+		return self.ConVars.Show:GetBool()
+	end
+	
+	-- Scale
+	GM.Config.NamePlates.ConVars.Scale = CreateConVarIfNotExists("ph_nameplates_scale", "0.05", FCVAR_ARCHIVE + FCVAR_CLIENTDLL, "Nameplates: World scale of name plate, a setting of 1 means 1px = 1unit.")
+	function GM.Config.NamePlates:Scale()
+		return self.ConVars.Scale:GetFloat()
+	end
+	
+	-- Height
+	GM.Config.NamePlates.ConVars.Height = CreateConVarIfNotExists("ph_nameplates_height", "10", FCVAR_ARCHIVE + FCVAR_CLIENTDLL, "Nameplates: Height above player.")
+	function GM.Config.NamePlates:Height()
+		return self.ConVars.Height:GetFloat()
+	end
+	
+	-- Tint Color
+	GM.Config.NamePlates.ConVars.TintHue = CreateConVarIfNotExists("ph_nameplates_tint_hue", "0", FCVAR_ARCHIVE + FCVAR_CLIENTDLL, "Nameplates: Tint hue.")
+	function GM.Config.NamePlates:TintHue()
+		return self.ConVars.TintHue:GetFloat()
+	end
+	GM.Config.NamePlates.ConVars.TintSaturation = CreateConVarIfNotExists("ph_nameplates_tint_saturation", "0", FCVAR_ARCHIVE + FCVAR_CLIENTDLL, "Nameplates: Tint saturation.")
+	function GM.Config.NamePlates:TintSaturation()
+		return self.ConVars.TintSaturation:GetFloat()
+	end
+	GM.Config.NamePlates.ConVars.TintValue = CreateConVarIfNotExists("ph_nameplates_tint_value", "1", FCVAR_ARCHIVE + FCVAR_CLIENTDLL, "Nameplates: Tint value.")
+	function GM.Config.NamePlates:TintValue()
+		return self.ConVars.TintValue:GetFloat()
+	end
+	
+	-- Tint By Health
+	GM.Config.NamePlates.ConVars.TintHealth = CreateConVarIfNotExists("ph_nameplates_tint_health", "0", FCVAR_ARCHIVE + FCVAR_CLIENTDLL, "Nameplates: Tint the nameplate using their health percent.")
+	function GM.Config.NamePlates:TintHealth()
+		return self.ConVars.TintHealth:GetBool()
+	end
+	
+	-- Tint By Team
+	GM.Config.NamePlates.ConVars.TintTeam = CreateConVarIfNotExists("ph_nameplates_tint_team", "0", FCVAR_ARCHIVE + FCVAR_CLIENTDLL, "Nameplates: Tint the nameplate with the team colors.")
+	function GM.Config.NamePlates:TintTeam()
+		return self.ConVars.TintTeam:GetBool()
+	end	
+end

Source/gamemodes/prophuntextended/gamemode/sh_init.lua

@@ -26,8 +26,8 @@
 --! Gamemode Information
 -- ------------------------------------------------------------------------- --
 GM.Name		= "Prop Hunt Extended"
-GM.Author	= "Michael 'Xaymar' Dirks (Based on Kow@lskis Version, Original by AMT)"
-GM.Email	= "michael.fabian.dirks@gmail.com"
+GM.Author	= "Michael Fabian 'Xaymar' Dirks"
+GM.Email	= "info@xaymar.com"
 GM.Website	= "http://xaymar.com/"
 
 GM.TeamBased = true

Workshop Update.bat

@@ -1,4 +1,4 @@
 @ECHO OFF
 call env.win.bat
-"%GARRYSMODPATH%\bin\gmpublish.exe" update -id 468149739 -icon "Media\Logo.jpg" -addon "Pack.gma" -changes ""
+"%GARRYSMODPATH%\bin\gmpublish.exe" update -id 468149739 -icon "media\gamemode_workshop.jpg" -addon "Pack.gma" -changes ""
 PAUSE