AddCSLuaFile()
DEFINE_BASECLASS( "base_anim" )

ENT.Spawnable = false

if ( CLIENT ) then
	ENT.MaxWorldTipDistance = 256

	function ENT:BeingLookedAtByLocalPlayer()
		local ply = LocalPlayer()
		if ( !IsValid( ply ) ) then return false end

		local view = ply:GetViewEntity()
		local dist = self.MaxWorldTipDistance
		dist = dist * dist

		-- If we're spectating a player, perform an eye trace
		if ( view:IsPlayer() ) then
			return view:EyePos():DistToSqr( self:GetPos() ) <= dist && view:GetEyeTrace().Entity == self
		end

		-- If we're not spectating a player, perform a manual trace from the entity's position
		local pos = view:GetPos()

		if ( pos:DistToSqr( self:GetPos() ) <= dist ) then
			return util.TraceLine( {
				start = pos,
				endpos = pos + ( view:GetAngles():Forward() * dist ),
				filter = view
			} ).Entity == self
		end

		return false
	end

	local function thinkLater(self)
		self:NextThink(CurTime() + 3)
		return true
	end
	function ENT:Think()

		local text = self:GetOverlayText()
		if text == '' then return thinkLater(self) end

		local ply = LocalPlayer()
		if not IsValid(ply) then return thinkLater(self) end
		local wep = ply:GetActiveWeapon()
		if not IsValid(wep) then return thinkLater(self) end
		local wepClass = wep:GetClass()
		if wepClass ~= 'weapon_physgun' and wepClass ~= 'gmod_tool' then return thinkLater(self) end
		if self.IsWire and wepClass == 'gmod_tool' then return thinkLater(self) end

		if self:BeingLookedAtByLocalPlayer() then
			AddWorldTip(self:EntIndex(), text, 0.5, self:GetPos(), self)
			halo.Add({ self }, color_white, 1, 1, 1, true, true)
		end
	end
end

function ENT:SetOverlayText( text )
	self:SetNWString( "GModOverlayText", text )
end

function ENT:GetOverlayText()

	local txt = self:GetNWString( "GModOverlayText" )

	if ( txt == "" ) then
		return ""
	end

	if ( game.SinglePlayer() ) then
		return txt
	end

	local PlayerName = self:GetPlayerName()

	return txt .. "\n(" .. PlayerName .. ")"

end

function ENT:SetPlayer( ply )

	if ( IsValid( ply ) ) then

		self:SetVar( "Founder", ply )
		self:SetVar( "FounderIndex", ply:UniqueID() )
		self:SetVar( "FounderSID", ply:SteamID() )

		self:SetNWString( "FounderName", ply:Nick() )

	end

end

function ENT:GetPlayer()

	return self:GetVar( "Founder", NULL )

end

function ENT:GetPlayerIndex()

	return self:GetVar( "FounderIndex", 0 )

end

function ENT:GetPlayerSteamID()

	return self:GetVar( "FounderSID", "" )

end

function ENT:GetPlayerName()

	local ply = self:GetPlayer()
	if ( IsValid( ply ) ) then
		return ply:Nick()
	end

	return self:GetNWString( "FounderName" )

end