wnsrc/lua/pac3/core/client/hooks.lua

--[[
| This file was obtained through the combined efforts
| of Madbluntz & Plymouth Antiquarian Society.
|
| Credits: lifestorm, Gregory Wayne Rossel JR.,
| 	Maloy, DrPepper10 @ RIP, Atle!
|
| Visit for more: https://plymouth.thetwilightzone.ru/
--]]

local pairs = pairs
local IsEntity = IsEntity
local next = next

pac.AddHook("RenderScene", "eyeangles_eyepos", function(pos, ang)
	pac.EyePos = pos
	pac.EyeAng = ang
end)

pac.AddHook("DrawPhysgunBeam", "physgun_event", function(ply, wep, enabled, target, bone, hitpos)

	if enabled then
		ply.pac_drawphysgun_event = {ply, wep, enabled, target, bone, hitpos}
	else
		ply.pac_drawphysgun_event = nil
	end

	local pac_drawphysgun_event_part = ply.pac_drawphysgun_event_part
	if pac_drawphysgun_event_part then
		for event in pairs(pac_drawphysgun_event_part) do
			if event:IsValid() then
				event:OnThink()
			else
				pac_drawphysgun_event_part[event] = nil
			end
		end
	end


	if ply.pac_hide_physgun_beam then
		return false
	end
end)

do
	pac.AddHook("UpdateAnimation", "event_part", function(ply)
		if not IsEntity(ply) or not ply:IsValid() then return end

		if ply.pac_death_physics_parts and ply:Alive() and ply.pac_physics_died then
			pac.CallRecursiveOnOwnedParts(ply, "OnBecomePhysics")
			ply.pac_physics_died = false
		end

		do
			local tbl = ply.pac_pose_params

			if tbl then
				for _, data in pairs(tbl) do
					ply:SetPoseParameter(data.key, data.val)
				end
			end
		end

		local animrate = 1

		if ply.pac_global_animation_rate and ply.pac_global_animation_rate ~= 1 then
			if ply.pac_global_animation_rate == 0 then
				animrate = ply:GetModelScale() * 2
			elseif ply.pac_global_animation_rate ~= 1 then
				ply:SetCycle((pac.RealTime * ply.pac_global_animation_rate)%1)
				animrate = ply.pac_global_animation_rate
			end
		end

		if ply.pac_animation_sequences then
			local part, thing = next(ply.pac_animation_sequences)

			if part and part:IsValid() then

				if part.OwnerCycle then
					if part.Rate == 0 then
						animrate = 1
						ply:SetCycle(part.Offset % 1)
					else
						animrate = animrate * part.Rate
					end
				end
			elseif part and not part:IsValid() then
				ply.pac_animation_sequences[part] = nil
			end
		end

		if animrate ~= 1 then
			ply:SetCycle((pac.RealTime * animrate) % 1)
			return true
		end

		if ply.pac_holdtype_alternative_animation_rate then
			local length = ply:GetVelocity():Dot(ply:EyeAngles():Forward()) > 0 and 1 or -1
			local scale = ply:GetModelScale() * 2

			if scale ~= 0 then
				ply:SetCycle(pac.RealTime / scale * length)
			else
				ply:SetCycle(0)
			end

			return true
		end

		local vehicle = ply:GetVehicle()

		if ply.pac_last_vehicle ~= vehicle then
			if ply.pac_last_vehicle ~= nil then
				pac.CallRecursiveOnAllParts("OnVehicleChanged", ply, vehicle)
			end
			ply.pac_last_vehicle = vehicle
		end
	end)
end

local MOVETYPE_NOCLIP = MOVETYPE_NOCLIP

pac.AddHook("TranslateActivity", "events", function(ply, act)
	if IsEntity(ply) and ply:IsValid() then

		-- animation part
		if ply.pac_animation_sequences and next(ply.pac_animation_sequences) then
			-- dont do any holdtype stuff if theres a sequence
			return
		end

		if ply.pac_animation_holdtypes then
			local key, val = next(ply.pac_animation_holdtypes)
			if key then
				if not val.part:IsValid() then
					ply.pac_animation_holdtypes[key] = nil
				else
					return val[act]
				end
			end
		end

		-- holdtype part
		if ply.pac_holdtypes then
			local key, act_table = next(ply.pac_holdtypes)

			if key then
				if not act_table.part:IsValid() then
					ply.pac_holdtypes[key] = nil
				else

					if act_table[act] and act_table[act] ~= -1 then
						return act_table[act]
					end

					if ply:GetVehicle():IsValid() and ply:GetVehicle():GetClass() == "prop_vehicle_prisoner_pod" then
						return act_table.sitting
					end

					if act_table.noclip ~= -1 and ply:GetMoveType() == MOVETYPE_NOCLIP then
						return act_table.noclip
					end

					if act_table.air ~= -1 and ply:GetMoveType() ~= MOVETYPE_NOCLIP and not ply:IsOnGround() then
						return act_table.air
					end

					if act_table.fallback ~= -1 then
						return act_table.fallback
					end
				end
			end
		end
	end
end)

pac.AddHook("CalcMainActivity", "events", function(ply, act)
	if IsEntity(ply) and ply:IsValid() and ply.pac_animation_sequences then
		local key, val = next(ply.pac_animation_sequences)

		if not key then return end

		if not val.part:IsValid() then
			ply.pac_animation_sequences[key] = nil
			return
		end

		return val.seq, val.seq
	end
end)

pac.AddHook("pac_PlayerFootstep", "events", function(ply, pos, snd, vol)
	ply.pac_last_footstep_pos = pos

	if ply.pac_footstep_override then
		for _, part in pairs(ply.pac_footstep_override) do
			if not part:IsHidden() then
				part:PlaySound(snd, vol)
			end
		end
	end

	if ply.pac_mute_footsteps then
		return true
	end
end)

net.Receive("pac_effect_precached", function()
	local name = net.ReadString()
	pac.CallHook("EffectPrecached", name)
end)