Upload

lua/pac3/extra/shared/hands.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 SWEP = { Primary = {}, Secondary = {} }
+
+local baseClass = baseclass.Get( "weapon_base" )
+
+SWEP.Author     	= ""
+SWEP.Contact      	= ""
+SWEP.Purpose      	= ""
+SWEP.Instructions   = "Right-Click to toggle crosshair"
+SWEP.PrintName      = "Hands"
+SWEP.DrawAmmo       = false
+SWEP.DrawCrosshair	= true
+SWEP.DrawWeaponInfoBox = true
+
+SWEP.SlotPos      	= 1
+SWEP.Slot         	= 1
+
+SWEP.Spawnable    	= true
+SWEP.AdminSpawnable	= false
+
+SWEP.AutoSwitchTo	= true
+SWEP.AutoSwitchFrom	= true
+SWEP.Weight 		= 1
+
+SWEP.HoldType = "normal"
+SWEP.ViewModel = "models/weapons/c_arms.mdl"
+
+SWEP.Primary.ClipSize      = -1
+SWEP.Primary.DefaultClip   = -1
+SWEP.Primary.Automatic     = false
+SWEP.Primary.Ammo          = "none"
+
+SWEP.Secondary.ClipSize    = -1
+SWEP.Secondary.DefaultClip = -1
+SWEP.Secondary.Automatic   = false
+SWEP.Secondary.Ammo        = "none"
+
+
+function SWEP:DrawHUD() end
+function SWEP:DrawWorldModel() end
+function SWEP:DrawWorldModelTranslucent() end
+function SWEP:CanPrimaryAttack() return false end
+function SWEP:CanSecondaryAttack() return false end
+function SWEP:Reload() return false end
+function SWEP:Holster() return true  end
+function SWEP:ShouldDropOnDie() return false end
+
+local weaponSelectionColor = Color( 255, 220, 0, 255 )
+function SWEP:DrawWeaponSelection( x, y, w, t, a )
+    weaponSelectionColor.a = a
+    draw.SimpleText( "C", "creditslogo", x + w / 2, y, weaponSelectionColor, TEXT_ALIGN_CENTER )
+
+    baseClass.PrintWeaponInfo( self, x + w + 20, y + t * 0.95, alpha )
+end
+
+function SWEP:Initialize()
+    if self.SetHoldType then
+        self:SetHoldType( "normal" )
+    else
+        self:SetWeaponHoldType( "normal" )
+    end
+
+    self:DrawShadow( false )
+    self:SetSequence( "ragdoll" ) -- paired with SWEP.ViewModel = "models/weapons/c_arms.mdl" to make the arms invisible
+end
+
+function SWEP:OnDrop()
+    if SERVER then
+        self:Remove()
+    end
+end
+
+function SWEP:SecondaryAttack()
+    if not IsFirstTimePredicted() then return end
+    self.DrawCrosshair = not self.DrawCrosshair
+    self:SetNextSecondaryFire( CurTime() + 0.3 )
+end
+
+weapons.Register( SWEP, "none", true )

lua/pac3/extra/shared/init.lua

@@ -0,0 +1,37 @@
+--[[
+| 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/
+--]]
+
+
+include("hands.lua")
+include("pac_weapon.lua")
+include("projectiles.lua")
+
+local cvar = CreateConVar("pac_restrictions", "0", FCVAR_REPLICATED)
+
+if CLIENT then
+	pac.AddHook("pac_EditorCalcView", "pac_restrictions", function()
+		if cvar:GetInt() > 0 and not pac.LocalPlayer:IsAdmin() then
+			local ent = pace.GetViewEntity()
+			local dir = pace.ViewPos - ent:EyePos()
+			local dist = ent:BoundingRadius() * ent:GetModelScale() * 4
+			local filter = player.GetAll()
+			table.insert(filter, ent)
+
+			if dir:Length() > dist then
+				pace.ViewPos = ent:EyePos() + (dir:GetNormalized() * dist)
+			end
+
+			local res = util.TraceHull({start = ent:EyePos(), endpos = pace.ViewPos, filter = filter, mins = Vector(1,1,1)*-8, maxs = Vector(1,1,1)*8})
+			if res.Hit then
+				return res.HitPos
+			end
+		end
+	end)
+end

lua/pac3/extra/shared/pac_weapon.lua

@@ -0,0 +1,99 @@
+--[[
+| 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/
+--]]
+
+do return end
+local SWEP = {Primary = {}, Secondary = {}}
+
+SWEP.Author = "CapsAdmin"
+SWEP.Contact = ""
+SWEP.Purpose = ""
+SWEP.Instructions = ""
+SWEP.PrintName = "pac weapon"
+SWEP.DrawAmmo = false
+SWEP.DrawCrosshair = false
+SWEP.ViewModel = "models/weapons/v_pistol.mdl"
+SWEP.WorldModel = "models/weapons/w_pistol.mdl"
+SWEP.DrawWeaponInfoBox = true
+SWEP.Base = "weapon_base"
+
+SWEP.SlotPos = 1
+SWEP.Slot = 1
+
+SWEP.Spawnable = true
+SWEP.AdminSpawnable	= true
+
+SWEP.AutoSwitchTo = true
+SWEP.AutoSwitchFrom	= true
+SWEP.Weight = 1
+
+SWEP.HoldType = "normal"
+
+SWEP.Primary.ClipSize = 10
+SWEP.Primary.DefaultClip = 10
+SWEP.Primary.Automatic = false
+SWEP.Primary.Ammo = "pistol"
+
+SWEP.Secondary.ClipSize = 10
+SWEP.Secondary.DefaultClip = 10
+SWEP.Secondary.Automatic = false
+SWEP.Secondary.Ammo = "pistol"
+
+function SWEP:OnDrop()
+end
+
+function SWEP:GetViewModelPosition(pos, ang)
+	return pos, ang
+end
+
+function SWEP:TranslateActivity(act)
+	return act
+end
+
+function SWEP:Deploy()
+   return true
+end
+
+function SWEP:Initialize() end
+function SWEP:DrawHUD() end
+function SWEP:PrintWeaponInfo() end
+function SWEP:DrawWeaponSelection(x,y,w,t,a) end
+function SWEP:DrawWorldModel() return true end
+function SWEP:CanPrimaryAttack() return true end
+function SWEP:CanSecondaryAttack() return true end
+function SWEP:Reload() return false end
+function SWEP:Holster() return true end
+function SWEP:ShouldDropOnDie() return false end
+
+weapons.Register(SWEP, "pac_weapon", true)
+
+if CLIENT then
+	local BUILDER, PART = pac.PartTemplate("base")
+
+	PART.ClassName = "weapon"
+
+
+	BUILDER:StartStorableVars()
+		for key, val in pairs(SWEP) do
+			if not istable(val) and not isfunction(val) then
+				BUILDER:GetSet(key, val)
+			end
+		end
+
+		for key, val in pairs(SWEP.Primary) do
+			BUILDER:GetSet("Primary"..key, val)
+		end
+
+		for key, val in pairs(SWEP.Secondary) do
+			BUILDER:GetSet("Secondary"..key, val)
+		end
+	BUILDER:EndStorableVars()
+
+	BUILDER:Register()
+end

lua/pac3/extra/shared/projectiles.lua

@@ -0,0 +1,513 @@
+--[[
+| 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 enable = CreateConVar("pac_sv_projectiles", 0, CLIENT and {FCVAR_REPLICATED} or {FCVAR_ARCHIVE, FCVAR_REPLICATED})
+local pac_sv_projectile_max_attract_radius = CreateConVar("pac_sv_projectile_max_attract_radius", 300, CLIENT and {FCVAR_REPLICATED} or {FCVAR_ARCHIVE, FCVAR_REPLICATED})
+local pac_sv_projectile_max_damage_radius = CreateConVar("pac_sv_projectile_max_damage_radius", 100, CLIENT and {FCVAR_REPLICATED} or {FCVAR_ARCHIVE, FCVAR_REPLICATED})
+
+do -- projectile entity
+	local ENT = {}
+
+	ENT.Type = "anim"
+	ENT.Base = "base_anim"
+	ENT.ClassName = "pac_projectile"
+
+	function ENT:SetupDataTables()
+		self:NetworkVar("Bool", 0, "AimDir")
+		self:NetworkVar("Vector", 0, "OldVelocity")
+	end
+
+	if CLIENT then
+		function ENT:Draw()
+			if self:GetAimDir() then
+				if self:GetOldVelocity() ~= vector_origin then
+					self:SetRenderAngles(self:GetOldVelocity():Angle())
+				elseif self:GetVelocity() ~= vector_origin then
+					self:SetRenderAngles(self:GetVelocity():Angle())
+				end
+			end
+
+			if self:GetParent():IsValid() and not self.done then
+				self:SetPredictable(true)
+				self.done = true
+			end
+		end
+
+		net.Receive("pac_projectile_collide_event", function()
+			local self = net.ReadEntity()
+			local data = net.ReadTable()
+
+			self.pac_event_collision_data = data
+		end)
+	end
+
+	if SERVER then
+		pac.AddHook("EntityTakeDamage", "pac_projectile", function(ent, dmg)
+			local a, i = dmg:GetAttacker(), dmg:GetInflictor()
+
+			if a == i and a:IsValid() and a.projectile_owner then
+				local owner = a.projectile_owner
+				if owner:IsValid() then
+					dmg:SetAttacker(a.projectile_owner)
+				end
+			end
+		end)
+
+		ENT.projectile_owner = NULL
+
+		function ENT:Initialize()
+			self.next_target = 0
+		end
+
+		function ENT:SetData(ply, pos, ang, part)
+
+			self.projectile_owner = ply
+
+			local radius = math.Clamp(part.Radius, 1, pac_sv_projectile_max_damage_radius:GetFloat())
+
+			if part.Sphere then
+				self:PhysicsInitSphere(radius)
+			else
+				self:PhysicsInitBox(Vector(1,1,1) * - radius, Vector(1,1,1) * radius)
+			end
+
+			local phys = self:GetPhysicsObject()
+			phys:EnableGravity(part.Gravity)
+			phys:AddVelocity((ang:Forward() + (VectorRand():Angle():Forward() * part.Spread)) * part.Speed * 1000)
+			if part.AddOwnerSpeed then
+				phys:AddVelocity(ply:GetVelocity())
+			end
+
+			if part.Collisions then
+				if part.CollideWithSelf then
+					self:SetCollisionGroup(COLLISION_GROUP_NONE)
+				else
+					self:SetCollisionGroup(COLLISION_GROUP_INTERACTIVE_DEBRIS)
+				end
+			else
+				phys:EnableCollisions(false)
+			end
+
+			phys:SetMass(math.Clamp(part.Mass, 0.001, 50000))
+			phys:SetDamping(0, 0)
+
+			self:SetAimDir(part.AimDir)
+
+			self.part_data = part
+		end
+
+		local damage_types = {
+			generic = 0, --generic damage
+			crush = 1, --caused by physics interaction
+			bullet = 2, --bullet damage
+			slash = 4, --sharp objects, such as manhacks or other npcs attacks
+			burn = 8, --damage from fire
+			vehicle = 16, --hit by a vehicle
+			fall = 32, --fall damage
+			blast = 64, --explosion damage
+			club = 128, --crowbar damage
+			shock = 256, --electrical damage, shows smoke at the damage position
+			sonic = 512, --sonic damage,used by the gargantua and houndeye npcs
+			energybeam = 1024, --laser
+			nevergib = 4096, --don't create gibs
+			alwaysgib = 8192, --always create gibs
+			drown = 16384, --drown damage
+			paralyze = 32768, --same as dmg_poison
+			nervegas = 65536, --neurotoxin damage
+			poison = 131072, --poison damage
+			acid = 1048576, --
+			airboat = 33554432, --airboat gun damage
+			blast_surface = 134217728, --this won't hurt the player underwater
+			buckshot = 536870912, --the pellets fired from a shotgun
+			direct = 268435456, --
+			dissolve = 67108864, --forces the entity to dissolve on death
+			drownrecover = 524288, --damage applied to the player to restore health after drowning
+			physgun = 8388608, --damage done by the gravity gun
+			plasma = 16777216, --
+			prevent_physics_force = 2048, --
+			radiation = 262144, --radiation
+			removenoragdoll = 4194304, --don't create a ragdoll on death
+			slowburn = 2097152, --
+
+			explosion = -1, -- util.BlastDamageInfo
+			fire = -1, -- ent:Ignite(5)
+
+			-- env_entity_dissolver
+			dissolve_energy = 0,
+			dissolve_heavy_electrical = 1,
+			dissolve_light_electrical = 2,
+			dissolve_core_effect = 3,
+
+			heal = -1,
+			armor = -1,
+		}
+
+		local dissolver_entity = NULL
+		local function dissolve(target, attacker, typ)
+			local ent = dissolver_entity:IsValid() and dissolver_entity or ents.Create("env_entity_dissolver")
+			ent:Spawn()
+			target:SetName(tostring({}))
+			ent:SetKeyValue("dissolvetype", tostring(typ))
+			ent:Fire("Dissolve", target:GetName())
+			timer.Simple(5, function() SafeRemoveEntity(ent) end)
+			dissolver_entity = ent
+		end
+
+		function ENT:Think()
+			if not self.projectile_owner:IsValid() then
+				self:Remove()
+			end
+		end
+
+		function ENT:PhysicsUpdate(phys)
+			if not self.part_data then return end
+
+			phys:SetVelocity(phys:GetVelocity() / math.max(1 + (self.part_data.Damping / 100), 1))
+
+			if self.part_data.Attract ~= 0 then
+				local ply = self.projectile_owner
+
+				if self.part_data.AttractMode == "hitpos" then
+					local pos = ply:GetEyeTrace().HitPos
+
+					local dir = pos - phys:GetPos()
+					dir:Normalize()
+					dir = dir * self.part_data.Attract
+
+					phys:SetVelocity(phys:GetVelocity() + dir)
+				elseif self.part_data.AttractMode == "hitpos_radius" then
+					local pos = ply:EyePos() + ply:GetAimVector() * self.part_data.AttractRadius
+
+					local dir = pos - phys:GetPos()
+					dir:Normalize()
+					dir = dir * self.part_data.Attract
+
+					phys:SetVelocity(phys:GetVelocity() + dir)
+				elseif self.part_data.AttractMode == "closest_to_projectile" or self.part_data.AttractMode == "closest_to_hitpos" then
+					if self.next_target < CurTime() then
+						local radius = math.Clamp(self.part_data.AttractRadius, 0, pac_sv_projectile_max_attract_radius:GetFloat())
+						local pos
+
+						if self.part_data.AttractMode == "closest_to_projectile" then
+							pos = phys:GetPos()
+						else
+							pos = ply:GetEyeTrace().HitPos
+						end
+
+						local closest_1 = {}
+						local closest_2 = {}
+
+						for _, ent in ipairs(ents.FindInSphere(pos, radius)) do
+							if
+								ent ~= self and
+								ent ~= ply and
+								ent:GetPhysicsObject():IsValid() and
+								ent:GetClass() ~= self:GetClass()
+							then
+								local data = {dist = ent:NearestPoint(ent:GetPos()):Distance(pos), ent = ent}
+								if ent:IsPlayer() or ent:IsNPC() then
+									table.insert(closest_1, data)
+								else
+									table.insert(closest_2, data)
+								end
+							end
+						end
+
+						if closest_1[1] then
+							table.sort(closest_1, function(a, b) return a.dist < b.dist end)
+							self.target_ent = closest_1[1].ent
+						elseif closest_2[1] then
+							table.sort(closest_2, function(a, b) return a.dist < b.dist end)
+							self.target_ent = closest_2[1].ent
+						end
+
+						self.next_target = CurTime() + 0.15
+					end
+
+					if self.target_ent and self.target_ent:IsValid() then
+						local dir = self.target_ent:NearestPoint(phys:GetPos()) - phys:GetPos()
+						dir:Normalize()
+						dir = dir * self.part_data.Attract
+
+						phys:SetVelocity(phys:GetVelocity() + dir)
+					end
+				end
+			end
+		end
+
+		util.AddNetworkString("pac_projectile_collide_event")
+
+		function ENT:PhysicsCollide(data, phys)
+			if not self.part_data then return end
+			if not self.projectile_owner:IsValid() then return end
+
+			net.Start("pac_projectile_collide_event", true)
+				net.WriteEntity(self)
+				net.WriteTable({}) -- nothing for now
+			net.SendPVS(data.HitPos)
+
+			local ply = self.projectile_owner
+
+			if self.part_data.Bounce ~= 0 then
+				phys:SetVelocity(data.OurOldVelocity - 2 * (data.HitNormal:Dot(data.OurOldVelocity) * data.HitNormal) * self.part_data.Bounce)
+			end
+
+			if self.part_data.Sticky and (self.part_data.Bounce == 0 or not data.HitEntity:IsWorld()) then
+				phys:SetVelocity(Vector(0,0,0))
+				phys:Sleep()
+				phys:EnableMotion(false)
+				phys:EnableCollisions(false)
+
+				timer.Simple(0, function() if self:IsValid() then self:SetCollisionGroup(COLLISION_GROUP_DEBRIS) end end)
+
+				 if not data.HitEntity:IsWorld() then
+					if data.HitEntity:GetBoneCount() then
+						local closest = {}
+						for id = 1, data.HitEntity:GetBoneCount() do
+							local pos = data.HitEntity:GetBonePosition(id)
+							if pos then
+								table.insert(closest, {dist = pos:Distance(data.HitPos), id = id, pos = pos})
+							end
+						end
+						if closest[1] then
+							table.sort(closest, function(a, b) return a.dist < b.dist end)
+							self:FollowBone(data.HitEntity, closest[1].id)
+							self:SetLocalPos(util.TraceLine({start = data.HitPos, endpos = closest[1].pos}).HitPos - closest[1].pos)
+						else
+							self:SetPos(data.HitPos)
+							self:SetParent(data.HitEntity)
+						end
+					else
+						self:SetPos(data.HitPos)
+						self:SetParent(data.HitEntity)
+					end
+				end
+
+				self:SetOldVelocity(data.OurOldVelocity)
+			end
+
+			if self.part_data.BulletImpact then
+				self:FireBullets{
+					Attacker = ply,
+					Damage = 0,
+					Force = 0,
+					Num = 1,
+					Src = data.HitPos - data.HitNormal,
+					Dir = data.HitNormal,
+					Distance = 10,
+				}
+			end
+
+			if self.part_data.DamageType:sub(0, 9) == "dissolve_" and damage_types[self.part_data.DamageType] then
+				if data.HitEntity:IsPlayer() then
+					local info = DamageInfo()
+					info:SetAttacker(ply)
+					info:SetInflictor(self)
+					info:SetDamageForce(data.OurOldVelocity)
+					info:SetDamagePosition(data.HitPos)
+					info:SetDamage(100000)
+					info:SetDamageType(damage_types.dissolve)
+
+					data.HitEntity:TakeDamageInfo(info)
+				else
+					local can = hook.Run("CanProperty", ply, "remover", data.HitEntity)
+					if can ~= false then
+						dissolve(data.HitEntity, ply, damage_types[self.part_data.DamageType])
+					end
+				end
+			end
+
+			local damage_radius = math.Clamp(self.part_data.DamageRadius, 0, 300)
+
+			if self.part_data.Damage > 0 then
+				if self.part_data.DamageType == "heal" then
+					if damage_radius > 0 then
+						for _, ent in ipairs(ents.FindInSphere(data.HitPos, damage_radius)) do
+							if ent ~= ply or self.part_data.CollideWithOwner then
+								ent:SetHealth(math.min(ent:Health() + self.part_data.Damage, ent:GetMaxHealth()))
+							end
+						end
+					else
+						data.HitEntity:SetHealth(math.min(data.HitEntity:Health() + self.part_data.Damage, data.HitEntity:GetMaxHealth()))
+					end
+				elseif self.part_data.DamageType == "armor" then
+					if damage_radius > 0 then
+						for _, ent in ipairs(ents.FindInSphere(data.HitPos, damage_radius)) do
+							if ent.SetArmor and ent.Armor then
+								if ent ~= ply or self.part_data.CollideWithOwner then
+									ent:SetArmor(math.min(ent:Armor() + self.part_data.Damage, ent.GetMaxArmor and ent:GetMaxArmor() or 100))
+								end
+							end
+						end
+					elseif data.HitEntity.SetArmor and data.HitEntity.Armor then
+						data.HitEntity:SetArmor(math.min(data.HitEntity:Armor() + self.part_data.Damage, data.HitEntity.GetMaxArmor and data.HitEntity:GetMaxArmor() or 100))
+					end
+				else
+					local info = DamageInfo()
+
+					info:SetAttacker(ply)
+					info:SetInflictor(self)
+
+					if self.part_data.DamageType == "fire" then
+						local ent = data.HitEntity
+						if damage_radius > 0 then
+							-- this should also use blast damage to find which entities it can damage
+							for _, ent in ipairs(ents.FindInSphere(data.HitPos, damage_radius)) do
+								if ent ~= self and ent:IsSolid() and hook.Run("CanProperty", ply, "ignite", ent) ~= false and (ent ~= ply or self.part_data.CollideWithOwner) then
+									ent:Ignite(math.min(self.part_data.Damage, 5))
+								end
+							end
+						elseif ent:IsSolid() and hook.Run("CanProperty", ply, "ignite", ent) ~= false then
+							ent:Ignite(math.min(self.part_data.Damage, 5))
+						end
+					elseif self.part_data.DamageType == "explosion" then
+						info:SetDamageType(damage_types.blast)
+						info:SetDamage(math.Clamp(self.part_data.Damage, 0, 100000))
+						util.BlastDamageInfo(info, data.HitPos, damage_radius)
+					else
+						info:SetDamageForce(data.OurOldVelocity)
+						info:SetDamagePosition(data.HitPos)
+						info:SetDamage(math.min(self.part_data.Damage, 100000))
+						info:SetDamageType(damage_types[self.part_data.DamageType] or damage_types.generic)
+
+						if damage_radius > 0 then
+							for _, ent in ipairs(ents.FindInSphere(data.HitPos, damage_radius)) do
+								if ent ~= ply or self.part_data.CollideWithOwner then
+									ent:TakeDamageInfo(info)
+								end
+							end
+						else
+							data.HitEntity:TakeDamageInfo(info)
+						end
+					end
+				end
+			end
+
+			if self.part_data.RemoveOnCollide then
+				timer.Simple(0, function()
+					SafeRemoveEntity(self)
+				end)
+			end
+		end
+
+		function ENT:OnRemove()
+			if IsValid(self.pac_projectile_owner) then
+				local ply = self.pac_projectile_owner
+				ply.pac_projectiles = ply.pac_projectiles or {}
+				ply.pac_projectiles[self] = nil
+			end
+		end
+	end
+
+	scripted_ents.Register(ENT, ENT.ClassName)
+end
+
+if SERVER then
+	for key, ent in pairs(ents.FindByClass("pac_projectile")) do
+		ent:Remove()
+	end
+
+	util.AddNetworkString("pac_projectile")
+	util.AddNetworkString("pac_projectile_attach")
+
+	net.Receive("pac_projectile", function(len, ply)
+		if not enable:GetBool() then return end
+
+		pace.suppress_prop_spawn = true
+		if hook.Run("PlayerSpawnProp", ply, "models/props_junk/popcan01a.mdl") == false then
+			pace.suppress_prop_spawn = nil
+			return
+		end
+		pace.suppress_prop_spawn = nil
+
+		local pos = net.ReadVector()
+		local ang = net.ReadAngle()
+		local part = net.ReadTable()
+
+		local radius_limit = 2000
+
+		if pos:Distance(ply:EyePos()) > radius_limit * ply:GetModelScale() then
+			local ok = false
+
+			for _, ent in ipairs(ents.FindInSphere(pos, radius_limit)) do
+				if (ent.CPPIGetOwner and ent:CPPIGetOwner() == ply) or ent.projectile_owner == ply or ent:GetOwner() == ply then
+					ok = true
+					break
+				end
+			end
+
+			if not ok then
+				pos = ply:EyePos()
+			end
+		end
+
+		local function spawn()
+			if not ply:IsValid() then return end
+
+			ply.pac_projectiles = ply.pac_projectiles or {}
+
+			local projectile_count = 0
+			for ent in pairs(ply.pac_projectiles) do
+				if ent:IsValid() then
+					projectile_count = projectile_count + 1
+				else
+					ply.pac_projectiles[ent] = nil
+				end
+			end
+
+			if projectile_count > 50 then
+				pac.Message("Player ", ply, " has more than 50 projectiles spawned!")
+				return
+			end
+
+			if part.Maximum > 0 and projectile_count >= part.Maximum then
+				return
+			end
+
+			local ent = ents.Create("pac_projectile")
+			SafeRemoveEntityDelayed(ent,math.Clamp(part.LifeTime, 0, 50))
+
+			ent:SetModel("models/props_junk/popcan01a.mdl")
+			ent:SetPos(pos)
+			ent:SetAngles(ang)
+			ent:Spawn()
+
+			if not part.CollideWithOwner then
+				ent:SetOwner(ply)
+			end
+
+			ent:SetData(ply, pos, ang, part)
+
+			ent:SetPhysicsAttacker(ply)
+
+			if ent.CPPISetOwner then
+				ent:CPPISetOwner(ply)
+			end
+
+			net.Start("pac_projectile_attach")
+				net.WriteEntity(ply)
+				net.WriteInt(ent:EntIndex(), 16)
+				net.WriteString(part.UniqueID)
+			net.Broadcast()
+
+			ent.pac_projectile_uid = part.UniqueID
+
+			ply.pac_projectiles[ent] = ent
+
+			ent.pac_projectile_owner = ply
+		end
+
+		if part.Delay == 0 then
+			spawn()
+		else
+			timer.Simple(part.Delay, spawn)
+		end
+	end)
+end