Gmod-PropHuntExtended/source/gamemodes/prophuntextended/gamemode/meta/player.lua

--[[
	The MIT License (MIT)
	
	Copyright (c) 2017 Xaymar

	Permission is hereby granted, free of charge, to any person obtaining a copy
	of this software and associated documentation files (the "Software"), to deal
	in the Software without restriction, including without limitation the rights
	to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
	copies of the Software, and to permit persons to whom the Software is
	furnished to do so, subject to the following conditions:

	The above copyright notice and this permission notice shall be included in all
	copies or substantial portions of the Software.

	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
	IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
	FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
	AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
	LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
	OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
	SOFTWARE.
--]]

-- Finds the player meta table or terminates
local meta = FindMetaTable("Player")
if !meta then print("FAILED TO FIND PLAYER META") return end

-- Blinds the player by setting view out into the void
function meta:Blind(bool)
	if !self:IsValid() then return end
	
	if SERVER then
		umsg.Start("SetBlind", self)
		if bool then
			umsg.Bool(true)
		else
			umsg.Bool(false)
		end
		umsg.End()
	elseif CLIENT then
		blind = bool
	end
end

-- Blinds the player by setting view out into the void
function meta:RemoveProp()
	if CLIENT || !self:IsValid() then return end
	
	if self.ph_prop && self.ph_prop:IsValid() then
		self.ph_prop:Remove()
		self.ph_prop = nil
	end
end

-- Sets a new Hull for a player.
function meta:NewHull(hullOBBMin, hullOBBMax)
	if !self:IsValid() then return end
	if hullOBBMax == nil then return end
	if hullOBBMin == nil then return end

	local hullOBB = hullOBBMax - hullOBBMin
	local hullOBBXY = math.max(hullOBB.x, hullOBB.y)
	
	local xyMul = 0.5
	local hullMin = Vector(-hullOBBXY * xyMul, -hullOBBXY * xyMul, 0)
	local hullMax = Vector( hullOBBXY * xyMul,  hullOBBXY * xyMul, hullOBB.z)
	
	self:SetHull(hullMin, hullMax)
	self:SetHullDuck(hullMin, hullMax)
	self:SetViewOffset(Vector(0, 0, hullOBB.z))
	self:SetViewOffsetDucked(Vector(0, 0, hullOBB.z / 2.0))
end

-- Can the passed entity be used by the player?
function testflag(set, flag)
	if (flag == 0) then return true end -- Mod(%) by 0 is nan.
	return (set % (2 * flag)) >= flag
end

function meta:IsUseableEntity(ent, requiredCaps)
	if ((ent != nil) && (ent:IsValid())) then
		local caps = ent:ObjectCaps()
		local capsmask = 16 + 32 + 64 + 128
		if (testflag(caps, 16) 
			|| testflag(caps, 32) 
			|| testflag(caps, 64) 
			|| testflag(caps, 128)
			) && testflag(caps, requiredCaps) then
			return true
		end
	end	
	return false
end

function IntervalDistance(x, x0, x1)
	-- swap so x0 < x1
	if ( x0 > x1 ) then
		local tmp = x0
		x0 = x1
		x1 = tmp
	end

	if ( x < x0 ) then
		return x0-x
	elseif ( x > x1 ) then
		return x - x1
	end
	return 0
end

-- Find useable entity (Lua version of CBasePlayer:FindUseEntity)
function meta:FindUseEntity()
	-- https://raw.githubusercontent.com/ValveSoftware/source-sdk-2013/0d8dceea4310fde5706b3ce1c70609d72a38efdf/mp/src/game/shared/baseplayer_shared.cpp
	local PLAYER_USE_RADIUS = 80
	
	-- Vectors
	local forward = self:EyeAngles():Forward()
	local up = self:EyeAngles():Up()
	local center = self:EyePos()
	
	local trace = {
		start = center,
		endpos = center,
		mins = Vector(-16, -16, -16),
		maxs = Vector( 16,  16,  16),
		mask = MASK_SOLID + CONTENTS_DEBRIS + CONTENTS_PLAYERCLIP,
		filter = function(ent)
			if (ent == self) then return false end
			if (!ent:IsValid()) then return false end
			if (ent:IsPlayer()) then return false end
			if (ent == self:GetHands()) then return false end
			return true
		end,
		output = {}
	}
	
	local foundEnt = nil	
	local nearestDist = 16777216
	local nearestEnt = nil
	
	local tangents_num = 8
	local tangents = {}
	tangents[1] = 0
	tangents[2] = 1
	tangents[3] = 0.57735026919
	tangents[4] = 0.3639702342
	tangents[5] = 0.267949192431
	tangents[6] = 0.1763269807
	tangents[7] = -0.1763269807
	tangents[8] = -0.267949192431
	for idx=1,tangents_num,1 do
		if (idx == 1) then
			trace.endpos = center + forward * 1024
			util.TraceLine(trace)
		else
			local down = forward - (Vector(tangents[idx], tangents[idx], tangents[idx]) * up)
			down:Normalize()
			trace.endpos = center + down * 72
			util.TraceHull(trace)
		end
		foundEnt = trace.output.Entity
		
		local useable = self:IsUseableEntity(foundEnt, 0)
		while ((foundEnt:IsValid()) && !useable && (foundEnt:GetMoveParent():IsValid())) do
			foundEnt = foundEnt:GetMoveParent()
			useable = self:IsUseableEntity(foundEnt, 0)
		end
		
		if (useable) then
			local delta = trace.output.HitPos - trace.output.StartPos
			local centerZ = foundEnt:WorldSpaceCenter().z
			delta.z = IntervalDistance(trace.output.HitPos.z, centerZ + foundEnt:OBBMins().z, centerZ + foundEnt:OBBMaxs().z)
			local dist = delta:Length()
			if (dist < PLAYER_USE_RADIUS) then
				if (foundEnt:IsNPC() && (foundEnt:Team() == self:Team())) then
					foundEnt = self:DoubleCheckUseNPC(foundEnt, center, forward)
				end
				--if (dist < nearestDist) then -- Not identical to CBasePlayer
					--nearestDist = dist
					nearestEnt = foundEnt
				--end
				if (idx == 1) then return foundEnt end				
			end
		end		
	end
	
	-- check ground entity first
	-- if you've got a useable ground entity, then shrink the cone of this search to 45 degrees
	-- otherwise, search out in a 90 degree cone (hemisphere)
	if (self:GetGroundEntity():IsValid() && self:IsUseableEntity(self:GetGroundEntity(), 256)) then
		nearestEnt = self:GetGroundEntity()
	end
	if (nearestEnt) then
		local point = self:NearestPoint(center)
		nearestDist = util.DistanceToLine(point, center, forward)
	end
	
	local search = ents.FindInSphere(center, PLAYER_USE_RADIUS)
	for k,v in ipairs(search) do
		if (v) && (v:IsValid()) && (self:IsUseableEntity(v, 512)) then
			local point = v:NearestPoint(center)
			local dir = (point - center):GetNormalized()
			local dot = dir:Dot(forward)
			if (dot >= 0.8) then
				local dist = util.DistanceToLine(point, center, forward)
				if (dist < nearestDist) then
					trace.endpos = point
					util.TraceLine(trace)
					if ((trace.output.Fraction == 1.0) || (trace.output.Entity == v)) then
						nearestEnt = v
						nearestDist = dist
					end
				end
			end
		end
	end
	
	if (!nearestEnt) then
		trace.endpos = center + forward * PLAYER_USE_RADIUS
		trace.mask = MASK_OPAQUE_AND_NPCS
		util.TraceLine(trace)
		if (trace.output.Entity
			&& trace.output.Entity:IsValid()
			&& self:IsUseableEntity(trace.output.Entity, 0)
			&& trace.output.Entity:IsNPC()
			&& (trace.output.Entity:Team() == self:Team())) then
			nearestEnt = trace.output.Entity
		end
	end
	if (foundEnt:IsNPC() && (foundEnt:Team() == self:Team())) then
		foundEnt = self:DoubleCheckUseNPC(foundEnt, center, forward)
	end
	
	return nearestEnt
end

-- Double Check NPC
-- Perhaps a poorly-named function. This function traces against the supplied
-- NPC's hitboxes (instead of hull). If the trace hits a different NPC, the 
-- new NPC is selected. Otherwise, the supplied NPC is determined to be the 
-- one the citizen wants. This function allows the selection of a citizen over
-- another citizen's shoulder, which is impossible without tracing against
-- hitboxes instead of the hull (sjb)
function meta:DoubleCheckUseNPC(npc, src, dir)
	local trace = {
		start = src,
		endpos = src + dir * 1024,
		mask = MASK_SHOT,
		result = {}
	}
	util.TraceLine(trace)
	if ((trace.result.Entity != nil) && (trace.result.Entity:IsValid()) && (trace.result.Entity:IsNPC()) && (trace.result.Entity != npc)) then
		-- Player is selecting a different NPC through some negative space
		-- in the first NPC's hitboxes (between legs, over shoulder, etc).
		return trace.result.Entity
	end
	return npc
end