PopularDarkness by popularkidd

- -popularDarkness: by TheMostPopularKidd
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local Debris = game:GetService("Debris")

local player = Players.LocalPlayer

local TRAIL_PARTS = 12
local SPAWN_DELAY = 0.08
local FOLLOW_OFFSET = Vector3.new(0, -2.8, 0)

local MESHES = {
	"rbxassetid://623621260",
	"rbxassetid://9756362",
	"rbxassetid://9753879",
	"rbxassetid://9856898",
}

local parts = {}
local index = 1
local timer = 0

local character
local humanoid
local hrp

local function createPart()
	local p = Instance.new("Part")
	p.Size = Vector3.new(0.8, 0.8, 0.8)
	p.Material = Enum.Material.Neon
	p.Color = Color3.new(1, 1, 1)
	p.CanCollide = false
	p.Anchored = false
	p.Transparency = 0.1

	local mesh = Instance.new("SpecialMesh")
	mesh.MeshId = MESHES[math.random(#MESHES)]
	mesh.Scale = Vector3.new(1, 1, 1)
	mesh.Parent = p

	p.Parent = workspace
	return p
end

local function setup(char)
	character = char
	humanoid = char:WaitForChild("Humanoid")
	hrp = char:WaitForChild("HumanoidRootPart")

	for i = 1, TRAIL_PARTS do
		parts[i] = createPart()
	end
end

player.CharacterAdded:Connect(setup)
if player.Character then
	setup(player.Character)
end

RunService.RenderStepped:Connect(function(dt)
	if not character or not hrp or humanoid.MoveDirection.Magnitude == 0 then
		return
	end

	timer += dt
	if timer < SPAWN_DELAY then return end
	timer = 0

	local p = parts[index]
	index = index % #parts + 1

	local mesh = p:FindFirstChildOfClass("SpecialMesh")
	if mesh then
		mesh.MeshId = MESHES[math.random(#MESHES)]
	end

	local sideOffset = ((index % 2 == 0) and -1 or 1) * 0.9
	local pos = hrp.CFrame * CFrame.new(sideOffset, FOLLOW_OFFSET.Y, -1)

	p.CFrame = pos
	p.AssemblyLinearVelocity = hrp.AssemblyLinearVelocity * 0.6
end)

local SoundService = game:GetService("SoundService")

local decals = {
	"rbxassetid://75721337424426",
	"rbxassetid://129119239116358",
	"rbxassetid://119625119175316"
}

local MUSIC_ID = "rbxassetid://84842987019453"
local ONE_SHOT_1 = "rbxassetid://86857458152683"
local ONE_SHOT_2 = "rbxassetid://9120829813"

local interval = 0.15
local enabled = true

local applied = {}

local sound = Instance.new("Sound")
sound.SoundId = MUSIC_ID
sound.Looped = true
sound.Volume = 2
sound.PlaybackSpeed = 1.15
sound.Parent = SoundService

local distortion = Instance.new("DistortionSoundEffect")
distortion.Level = 0.7
distortion.Parent = sound

local eq = Instance.new("EqualizerSoundEffect")
eq.LowGain = 4
eq.MidGain = -2
eq.HighGain = 6
eq.Parent = sound

sound:Play()

local once1 = Instance.new("Sound")
once1.SoundId = ONE_SHOT_1
once1.Looped = false
once1.Volume = 2
once1.Parent = SoundService
once1:Play()
Debris:AddItem(once1, 10)

local once2 = Instance.new("Sound")
once2.SoundId = ONE_SHOT_2
once2.Looped = false
once2.Volume = 2
once2.Parent = SoundService
once2:Play()
Debris:AddItem(once2, 10)

local function applyDecal(part)
	if applied[part] then return end
	applied[part] = {}

	for _, face in ipairs(Enum.NormalId:GetEnumItems()) do
		local d = Instance.new("Decal")
		d.Texture = decals[1]
		d.Face = face
		d.Parent = part
		table.insert(applied[part], d)
	end
end

local function scan()
	for _, obj in ipairs(workspace:GetDescendants()) do
		if obj:IsA("BasePart") and obj.Transparency < 1 then
			applyDecal(obj)
		end
	end
end

local function applyToCharacters()
	for _, plr in ipairs(Players:GetPlayers()) do
		if plr.Character then
			for _, part in ipairs(plr.Character:GetDescendants()) do
				if part:IsA("BasePart") then
					applyDecal(part)
				end
			end
		end
	end
end

task.spawn(function()
	while enabled do
		scan()
		applyToCharacters()
		task.wait(1)
	end
end)

task.spawn(function()
	local index = 1
	while enabled do
		for _, list in pairs(applied) do
			for _, decal in ipairs(list) do
				decal.Texture = decals[index]
			end
		end
		index = index % #decals + 1
		task.wait(interval)
	end
end)