Upload

lua/pac3/core/client/parts/trail.lua

@@ -0,0 +1,195 @@
+--[[
+| 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 Lerp = Lerp
+local tonumber = tonumber
+local table_insert = table.insert
+local table_remove = table.remove
+local math_ceil = math.ceil
+local math_abs = math.abs
+local math_min = math.min
+local render_StartBeam = render.StartBeam
+local cam_IgnoreZ = cam.IgnoreZ
+local render_EndBeam = render.EndBeam
+local render_AddBeam = render.AddBeam
+local render_SetMaterial = render.SetMaterial
+local Vector = Vector
+local RealTime = RealTime
+
+local temp_color = Color(255, 255, 255)
+
+function pac.DrawTrail(self, len, spc, pos, ang, mat, scr,scg,scb,sca, ecr,ecg,ecb,eca, start_size, end_size, stretch)
+	self.trail_points = self.trail_points or {}
+	local points = self.trail_points
+
+	if pac.drawing_motionblur_alpha then
+		local a = pac.drawing_motionblur_alpha
+		self.trail_points_motionblur = self.trail_points_motionblur or {}
+		self.trail_points_motionblur[a] = self.trail_points_motionblur[a] or {}
+		points = self.trail_points_motionblur[a]
+	end
+
+	local time = RealTime()
+
+	if not points[1] or points[#points].pos:Distance(pos) > spc then
+		table_insert(points, {pos = pos * 1, life_time = time + len})
+	end
+
+	local count = #points
+
+	render_SetMaterial(mat)
+
+	render_StartBeam(count)
+		for i = #points, 1, -1 do
+			local data = points[i]
+
+			local f = (data.life_time - time)/len
+			local f2 = f
+			f = -f+1
+
+			local coord = (1 / count) * (i - 1)
+
+			temp_color.r = math_min(Lerp(coord, ecr, scr), 255)
+			temp_color.g = math_min(Lerp(coord, ecg, scg), 255)
+			temp_color.b = math_min(Lerp(coord, ecb, scb), 255)
+			temp_color.a = math_min(Lerp(coord, eca, sca), 255)
+
+			render_AddBeam(data.pos, (f * start_size) + (f2 * end_size), coord * stretch, temp_color)
+
+			if f >= 1 then
+				table_remove(points, i)
+			end
+		end
+	render_EndBeam()
+
+	if self.CenterAttraction ~= 0 then
+		local attraction = FrameTime() * self.CenterAttraction
+		local center = Vector(0,0,0)
+		for _, data in ipairs(points) do
+			center:Zero()
+			for _, data in ipairs(points) do
+				center:Add(data.pos)
+			end
+			center:Mul(1 / #points)
+			center:Sub(data.pos)
+			center:Mul(attraction)
+
+			data.pos:Add(center)
+		end
+	end
+
+	if not self.Gravity:IsZero() then
+		local gravity = self.Gravity * FrameTime()
+		gravity:Rotate(ang)
+		for _, data in ipairs(points) do
+			data.pos:Add(gravity)
+		end
+	end
+end
+
+local BUILDER, PART = pac.PartTemplate("base_drawable")
+
+PART.FriendlyName = "trail"
+PART.ClassName = "trail2"
+PART.Icon = 'icon16/arrow_undo.png'
+PART.Group = 'effects'
+PART.ProperColorRange = true
+
+BUILDER:StartStorableVars()
+	:GetSet("Duration", 1)
+	:GetSet("Spacing", 0.25)
+	:GetSet("StartSize", 3)
+	:GetSet("EndSize", 0)
+	:GetSet("StartColor", Vector(1, 1, 1), {editor_panel = "color2"})
+	:GetSet("EndColor", Vector(1, 1, 1), {editor_panel = "color2"})
+	:GetSet("StartAlpha", 1)
+	:GetSet("EndAlpha", 0)
+	:GetSet("Stretch", 1)
+	:GetSet("CenterAttraction", 0)
+	:GetSet("Gravity", Vector(0,0,0))
+	:GetSet("IgnoreZ", false)
+	:GetSet("TrailPath", "trails/laser", {editor_panel = "material"})
+	:GetSet("Translucent", true)
+:EndStorableVars()
+
+function PART:GetNiceName()
+	local str = pac.PrettifyName("/" .. self:GetTrailPath())
+	local matched = str and str:match(".+/(.+)")
+	return matched and matched:gsub("%..+", "") or "error"
+end
+
+PART.LastAdd = 0
+
+function PART:Initialize()
+	self:SetTrailPath(self.TrailPath)
+end
+
+function PART:SetTrailPath(var)
+	self.TrailPath = var
+	self:SetMaterial(var)
+end
+
+function PART:SetMaterial(var)
+	var = var or ""
+
+	if not pac.Handleurltex(self, var, function(mat)
+		self.Materialm = mat
+		self:MakeMaterialUnlit()
+	end) then
+		if isstring(var) then
+			self.Materialm = pac.Material(var, self)
+			self:CallRecursive("OnMaterialChanged")
+		elseif type(var) == "IMaterial" then
+			self.Materialm = var
+			self:CallRecursive("OnMaterialChanged")
+		end
+		self:MakeMaterialUnlit()
+	end
+end
+
+function PART:MakeMaterialUnlit()
+	if not self.Materialm then return end
+
+	local shader = self.Materialm:GetShader()
+	if shader == "VertexLitGeneric" or shader == "Cable" or shader == "LightmappedGeneric" then
+		self.Materialm = pac.MakeMaterialUnlitGeneric(self.Materialm, self.Id)
+	end
+end
+
+function PART:OnShow()
+	self.points = {}
+end
+
+function PART:OnHide()
+	self.points = {}
+end
+
+function PART:OnDraw()
+	local pos, ang = self:GetDrawPosition()
+	local mat = self.material_override and self.material_override[0][1] and self.material_override[0][1]:GetRawMaterial() or self.Materialm
+	if not mat then return end
+	pac.DrawTrail(
+		self,
+		math.min(self.Duration, 10),
+		self.Spacing + (self.StartSize/10),
+		pos,
+		ang,
+		mat,
+
+		self.StartColor.x*255, self.StartColor.y*255, self.StartColor.z*255,self.StartAlpha*255,
+		self.EndColor.x*255, self.EndColor.y*255, self.EndColor.z*255,self.EndAlpha*255,
+
+		self.StartSize,
+		self.EndSize,
+		1/self.Stretch
+	)
+end
+
+BUILDER:Register()