--[[ Player Functions ]]--

plr = game:GetService("Players").LUCAS_KENJK2
char = plr.Character

--[[ Color Functions ]]--

local h = math.random(0, 100)
local color = Color3.fromHSV(h / 100, 1, 0.9)
local lastbeat = 0
local lastloud = 0
local PlaybackSound = 0

--[[ Settings ]]--

local distance = 5

local Settings = {
    Parts = 0
}

--[[ Folder ]]--

local visuals = Instance.new("Folder")
visuals.Parent = char

local visuals2 = Instance.new("Folder")
visuals2.Parent = char

--[[ Sound ]]--

local sound = Instance.new("Sound")
sound.SoundId = "rbxassetid://3177379746"
sound.Parent = char["HumanoidRootPart"]
sound.Volume = 3
sound.Name = "Music"
sound.Looped = true
sound:Play()

plr.Chatted:connect(function(msg)

        if msg:sub(1, 7):lower()=='/e play' then
                local val = Instance.new("NumberValue", char)
                val.Value = tonumber(msg:sub(8))
                local id = val.Value
                sound:Stop()
                sound.SoundId = 'rbxassetid://'..id
                sound:Play()
                sound.Looped = true

        elseif msg:sub(1, 8):lower()=='/e pitch' then
                local val2 = Instance.new("NumberValue", char)
                val2.Value = tonumber(msg:sub(9))
                local Pitch = val2.Value
                sound.Pitch = Pitch

        elseif msg:sub(1, 6):lower()=='/e vol' then
                local val3 = Instance.new("NumberValue", char)
                val3.Value = tonumber(msg:sub(7))
                local Volume = val3.Value
                sound.Volume = Volume

       elseif msg:sub(1, 7):lower()=='/e part' then
                Part(tonumber(msg:sub(8)))

      elseif msg:sub(1, 7):lower()=='/e dist' then
                local val4 = Instance.new("NumberValue", char)
                val4.Value = tonumber(msg:sub(8))
                local dist = val4.Value
                distance = dist

        end

end)

--[[ Cloud ]]--

local cloud = Instance.new("Part")
cloud.Anchored = true
cloud.CanCollide = false
cloud.Locked = true
cloud.Size = Vector3.new(1, 1, 1)
cloud.Color = Color3.new(0, 0, 0)
cloud.Material = Enum.Material.ForceField
cloud.Parent = char
cloud.CFrame = char["HumanoidRootPart"].CFrame

local cloudm = Instance.new("SpecialMesh")
cloudm.MeshType = Enum.MeshType.FileMesh
cloudm.MeshId = "rbxassetid://1095708"
cloudm.TextureId = "rbxassetid://607077972"
cloudm.Parent = cloud

--[[ Snow ]]--

local snowpart = Instance.new("Part")
snowpart.Anchored = true
snowpart.CanCollide = false
snowpart.Locked = true
snowpart.Transparency = 1
snowpart.Size = Vector3.new(25, 0.05, 25)
snowpart.Parent = char
snowpart.CFrame = char["HumanoidRootPart"].CFrame

local snow = Instance.new("ParticleEmitter")
snow.Texture = "rbxassetid://381055267"
snow.LightInfluence = 1
snow.Parent = snowpart

--[[ Parts ]]--

local Parts = {}

function Part(Num)

    Settings.Parts = Num

    for i, v in pairs(visuals2:GetChildren()) do
        v:Destroy()
    end

    for i = 1, Num do

        local Partz = Instance.new('Part')
        Partz.Anchored = true
        Partz.CanCollide = false
        Partz.Locked = true
        Partz.Material = Enum.Material.Neon
        Partz.Size = Vector3.new(0, 0, 0)
        Partz.Parent = visuals2
        Partz.CFrame = char["HumanoidRootPart"].CFrame
        table.insert(Parts, Partz)
    end
end

Part(15)

--[[ Remote ]]--

local Remote = Instance.new("RemoteEvent", char)
Remote.Name = "Event"

--[[ Visual ]]--

local speed = 3
local num = 0
local change = 2 / speed

local Orbit = 0

local SelectedPart = 0

Remote.OnServerEvent:connect(function(plr, Playback)

num = num + change
Orbit = Orbit + 0.25 + Playback/2500

	local beat = math.abs(PlaybackSound - lastloud)
		if beat > lastbeat then
			lastbeat = beat
		else
			lastbeat = lastbeat - 10
			if lastbeat < 0 then
				lastbeat = 0
			end
		end

		h = (h + beat / 250) % 100
		lastloud = PlaybackSound

local circumference = 5 * Settings.Parts
local radius = circumference / (math.pi * distance)

snowpart.CFrame = snowpart.CFrame:lerp(char["HumanoidRootPart"].CFrame * CFrame.new(0, -3, 0) * CFrame.Angles(0, Orbit / 5, 0), 1 / speed)

snow.Speed = NumberRange.new(5 + Playback/1000)
snow.Rate = 100 + Playback/1000
snow.Lifetime = NumberRange.new(2.5 + Playback/1000)
snow.Drag = 2 - Playback/100
snow.Acceleration = Vector3.new(0, -5 - Playback/1000, 0)
snow.Size = NumberSequence.new({NumberSequenceKeypoint.new(0, 0 + Playback/1000), NumberSequenceKeypoint.new(1, 0.25 + Playback/1000)})
snow.Transparency = NumberSequence.new({NumberSequenceKeypoint.new(0, 1), NumberSequenceKeypoint.new(0.5, 0.5), NumberSequenceKeypoint.new(1, 1)})
snow.Color = ColorSequence.new(Color3.new(1, 1, 1), Color3.fromHSV(h / 100, 1, 1))
snow.RotSpeed = NumberRange.new(0 - sound.PlaybackLoudness/-250, 0 + sound.PlaybackLoudness/250)
snow.SpreadAngle = Vector2.new(-25 - sound.PlaybackLoudness/-25, 25 + sound.PlaybackLoudness/25)
snow.Rotation = NumberRange.new(-25 - Playback, 10 + Playback)
snow.RotSpeed = NumberRange.new(-25 - Playback, 10 + Playback)

cloud.CFrame = cloud.CFrame:lerp(char["HumanoidRootPart"].CFrame * CFrame.new(0, 5 + math.cos(num / 25), 0) * CFrame.Angles(0.25 * (math.cos(num / 25) * math.cos(Playback/1000)), 0, 0.25 * (math.cos(num / 25) * math.cos(Playback/1000))), 1 / speed)

cloud.Color = cloud.Color:lerp(Color3.fromHSV(h / 100, 1, 1), 1 / speed)

cloudm.Scale = cloudm.Scale:lerp(Vector3.new(1 + Playback/250, 1 + Playback/250, 1 + Playback/250), 1 / speed)

if Playback >= 425 then

for i = 1, 1 do

local cloud2 = Instance.new("Part")
cloud2.Anchored = true
cloud2.CanCollide = false
cloud2.Locked = true
cloud2.Size = Vector3.new(1, 1, 1)
cloud2.Color = Color3.fromHSV(h / 100, 1, 1)
cloud2.Material = Enum.Material.ForceField
cloud2.Parent = visuals
cloud2.CFrame = cloud.CFrame

local cloudm2 = Instance.new("SpecialMesh")
cloudm2.MeshType = Enum.MeshType.FileMesh
cloudm2.MeshId = "rbxassetid://1095708"
cloudm2.TextureId = "rbxassetid://607077972"
cloudm2.Parent = cloud2

cloud2.Color = cloud2.Color:lerp(Color3.fromHSV(h / 100, 1, 1), 1 / speed)

cloud2.CFrame = cloud2.CFrame:lerp(cloud.CFrame * CFrame.new(0, 0, 0) * CFrame.Angles(math.random(-1, 1) * (math.cos(num / 25) / math.cos(Playback/math.random(750, 1000))), math.random(-1, 1) * (math.cos(num / 25) / math.cos(Playback/math.random(750, 1000))), math.random(-0.5, 0.5) * (math.cos(num / 25) / math.cos(Playback/math.random(750, 1000)))), 1 / speed)

pcall(function()

if Playback >= 100 then

for i = 1, 10 do

cloudm2.Scale = cloudm2.Scale:lerp(Vector3.new(cloudm.Scale.X + Playback/250, cloudm.Scale.Y + Playback/250, cloudm.Scale.Z + Playback/250), 1 / speed)

cloud2.Transparency = i / 10

wait()

end

else

radio2:Destroy()

mesh2:Destroy()

end

end)

end

end

for i,v in pairs(visuals2:GetChildren()) do

v.CFrame = v.CFrame:lerp(char["HumanoidRootPart"].CFrame * CFrame.Angles(0.25 * (math.cos(num / 25) * math.cos(Playback/1000)), math.rad(i * (360 / Settings.Parts) + Orbit),  0.25 * (math.cos(num / 15) * math.cos(Playback/1000))) *  CFrame.new(0, (math.floor((i - 1)) + math.clamp(i, 0, 1)) + math.cos(num / 15), radius * 2), 1 / speed)

end

if SelectedPart < #Parts then

SelectedPart = SelectedPart + 1

else

SelectedPart = 1

end

local sel = Parts[SelectedPart]

sel.Size = sel.Size:lerp(Vector3.new(0.25 * radius, Playback/50 / radius, 0.25 * radius), 1 / speed)
sel.Color = sel.Color:lerp(Color3.fromHSV(h / 100, 1, 1), 1 / speed)
sel.Material = Enum.Material.Neon

PlaybackSound = Playback

end)

--[[ Debounce ]]--

function debounce(func)
    local isRunning = false
    return function(...)
        if not isRunning then
            isRunning = true

            func(...)

            isRunning = false
        end
    end
end