Upload

lua/pac3/core/client/parts/group.lua

@@ -0,0 +1,148 @@
+--[[
+| 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 = "group"
+
+PART.Icon = 'icon16/world.png'
+PART.Description = "right click to add parts"
+
+BUILDER:StartStorableVars()
+	BUILDER:GetSet("Duplicate", false)
+	BUILDER:GetSet("OwnerName", "self")
+BUILDER:EndStorableVars()
+
+local init_list = {}
+local init_index = 0
+
+pac.AddHook("Think", "group_init", function()
+	if init_index == 0 then return end
+
+	for i = 1, init_index do
+		local self = init_list[i]
+
+		if self:IsValid() and not self:HasParent() and not self.Owner:IsValid() and not self.update_owner_once then
+			self:UpdateOwnerName()
+		end
+	end
+
+	init_list = {}
+	init_index = 0
+end)
+
+function PART:Initialize()
+	init_index = init_index + 1
+	init_list[init_index] = self
+end
+
+function PART:SetOwner(ent)
+	if self:HasParent() then
+		self.Owner = ent or NULL
+	else
+		local owner = self:GetOwner()
+
+		if owner:IsValid() then
+			pac.UnhookEntityRender(owner, self)
+		end
+
+		self.Owner = ent or NULL
+		owner = self:GetOwner()
+
+		if owner:IsValid() then
+			if not pac.HookEntityRender(owner, self) then
+				self:ShowFromRendering()
+			end
+		end
+	end
+end
+
+function PART:HideInvalidOwners()
+	local prev_owner = self:GetOwner()
+
+	if not prev_owner:IsValid() then
+		self:SetOwner(NULL)
+	end
+end
+
+function PART:UpdateOwnerName()
+	-- this is only supported by groups in root
+	self.update_owner_once = true
+	if self:HasParent() then return end
+
+	local ent
+	local prev_owner = self:GetOwner()
+
+	if self.Duplicate then
+		ent = pac.HandleOwnerName(self:GetPlayerOwner(), self.OwnerName, ent, self, function(e) return e.pac_duplicate_attach_uid ~= self.UniqueID end) or NULL
+
+		if ent ~= prev_owner and ent:IsValid() then
+			local tbl = self:ToTable()
+			tbl.self.OwnerName = "self"
+			tbl.self.Duplicate = false
+			pac.SetupENT(ent)
+			local part = ent:AttachPACPart(tbl)
+			part:SetShowInEditor(false)
+			ent:CallOnRemove("pac_remove_outfit_" .. tbl.self.UniqueID, function()
+				ent:RemovePACPart(tbl)
+			end)
+
+			if self:GetPlayerOwner() == pac.LocalPlayer then
+				ent:SetPACDrawDistance(0)
+			end
+
+			ent.pac_duplicate_attach_uid = part:GetUniqueID()
+		end
+	else
+		ent = pac.HandleOwnerName(self:GetPlayerOwner(), self.OwnerName, ent, self) or NULL
+	end
+
+	if ent ~= prev_owner then
+		self:SetOwner(ent)
+	end
+end
+
+local Base_SetPlayerOwner = PART.SetPlayerOwner
+
+function PART:SetPlayerOwner(ply)
+	local prev = self.PlayerOwner
+
+	Base_SetPlayerOwner(self, ply)
+
+	if prev:IsValid() then
+		self:UpdateOwnerName()
+	end
+end
+
+function PART:SetOwnerName(name)
+	if name == "" then
+		name = "self"
+	end
+
+	self.OwnerName = name
+
+	if self.Owner:IsValid() then
+		self:UpdateOwnerName()
+	end
+end
+
+function PART:GetNiceName()
+	return #self:GetChildrenList() .. " children"
+end
+
+function PART:OnVehicleChanged(ply, vehicle)
+	if self:HasParent() then return end
+
+	if self.OwnerName == "active vehicle" then
+		self:UpdateOwnerName()
+	end
+end
+
+BUILDER:Register()