Upload

lua/pac3/core/client/hooks.lua

@@ -0,0 +1,212 @@
+--[[
+| 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)