Upload

lua/pac3/core/client/parts/poseparameter.lua

@@ -0,0 +1,88 @@
+--[[
+| 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 BUILDER, PART = pac.PartTemplate("base")
+
+PART.ClassName = "poseparameter"
+
+PART.ThinkTime = 0
+PART.Group = {'modifiers', 'entity'}
+PART.Icon = 'icon16/disconnect.png'
+
+BUILDER:StartStorableVars()
+	BUILDER:GetSet("PoseParameter", "", {enums = function(part) return part:GetPoseParameterList() end})
+	BUILDER:GetSet("Range", 0)
+BUILDER:EndStorableVars()
+
+function PART:GetNiceName()
+	return pac.PrettifyName(self:GetPoseParameter())
+end
+
+function PART:GetPoseParameterList()
+	local ent = self:GetOwner()
+
+	local out = {}
+
+	if ent:IsValid() then
+		for i = 0, ent:GetNumPoseParameters()-1 do
+			local name = ent:GetPoseParameterName(i)
+			if name ~= "" then
+				out[name] = {name = name, i = i, range = {ent:GetPoseParameterRange(i)}}
+			end
+		end
+	end
+
+	return out
+end
+
+function PART:SetRange(num)
+	self.Range = num
+	self:UpdateParams()
+end
+
+function PART:UpdateParams()
+	local ent = self:GetOwner()
+
+	if ent:IsValid() then
+		if not self.pose_params or ent:GetModel() ~= self.last_owner_mdl then
+			self.pose_params = self:GetPoseParameterList()
+			self.last_owner_mdl = ent:GetModel()
+		end
+
+		local data = self.pose_params[self.PoseParameter]
+
+		if data then
+			local num = Lerp((self.Range + 1) / 2, data.range[1] or 0, data.range[2] or 1)
+
+			ent.pac_pose_params = ent.pac_pose_params or {}
+			ent.pac_pose_params[self.UniqueID] = ent.pac_pose_params[self.UniqueID] or {}
+
+			ent.pac_pose_params[self.UniqueID].key  = data.name
+			ent.pac_pose_params[self.UniqueID].val = num
+
+			ent:SetPoseParameter(data.name, num)
+		end
+	end
+end
+
+function PART:OnHide()
+	local ent = self:GetOwner()
+
+	if ent:IsValid() then
+		ent.pac_pose_params = nil
+		ent:ClearPoseParameters()
+	end
+end
+
+function PART:OnShow(ent)
+	self:UpdateParams()
+end
+
+BUILDER:Register()