Player = game.Players.LocalPlayer
Character = Player.Character
Root = Character.HumanoidRootPart
local Bars = {}
Global = false
Local = true
hue = 0
inc = 1
Bet = "/"

for i  = 1,50 do
p = Instance.new("Part")
p.Size = Vector3.new(0.5,0.5,0.5)
p.Color = Color3.fromHSV(math.rad(i*1.11),1,1)
p.Material = "Neon"
p.Anchored = true
p.CanCollide = false
p.Locked = true
p.Parent = Character
p.CFrame = Root.CFrame * CFrame.Angles(0,math.rad(i*7.185),0) * CFrame.new(0,-3,10)
table.insert(Bars,p)
end

local Pad = Instance.new("Part")
Pad.Shape = "Cylinder"
Pad.Parent = Character
Pad.Anchored = true
Pad.CanCollide = false
Pad.Locked = true
Pad.CFrame = Root.CFrame * CFrame.new(0,-2.99,0)
Pad.Rotation = Vector3.new(0,0,90)
Pad.Size = Vector3.new(0,20,20)
Pad.Material = "Neon"
Pad.Transparency = 0.5

local particle = Instance.new("ParticleEmitter")
particle.Parent = Pad
particle.EmissionDirection = "Right"
particle.Rate = 5
particle.Speed = NumberRange.new(1,1)
particle.Lifetime = NumberRange.new(5)
particle.LockedToPart = true
particle.Transparency = NumberSequence.new(0.75,0,0)
particle.Texture = "rbxassetid://744949545"
particle.LightEmission = 0.5
particle.Size = NumberSequence.new(0.5,0)
particle.Rotation = NumberRange.new(0,180)
particle.RotSpeed = NumberRange.new(5,5)

local GUI = Instance.new("BillboardGui")
GUI.Parent = Character.Head
GUI.Name = "Music Gui"
GUI.Adornee = GUI

VisName = Instance.new("TextLabel")
VisName.Parent = GUI
VisName.Size = UDim2.new(0,150,0,50)
VisName.TextTransparency = 0
VisName.BackgroundTransparency = 1

Sound = Instance.new("Sound")
Sound.Parent = Root
Sound.Volume = 1
Sound.Looped = false

Dis = Instance.new("DistortionSoundEffect")
Dis.Level = 0
Dis.Parent = Sound

EQ = Instance.new("EqualizerSoundEffect")
EQ.HighGain = 0
EQ.MidGain = 0
EQ.LowGain = 0
EQ.Parent = Sound

if Local == true then
Player.Chatted:connect(function(msg)
if msg:sub(1,5):lower()=="play"..Bet then
Sound.SoundId = "rbxassetid://"..tonumber(msg:sub(6))
Sound:Play()
end
if msg:sub(1,5):lower()=="stop"..Bet then
Sound:Stop()
end
if msg:sub(1,6):lower()=="speed"..Bet then
Sound.PlaybackSpeed = tonumber(msg:sub(7))
end
if msg:sub(1,4):lower()=="vol"..Bet then
Sound.Volume = tonumber(msg:sub(5))
end
if msg:sub(1,5):lower()=="loop"..Bet then
Sound.Looped = true
end
if msg:sub(1,7):lower()=="unloop"..Bet then
Sound.Looped = false
end
if msg:sub(1,8):lower()=="distort"..Bet then
Dis.Level = tonumber(msg:sub(9))
end
if msg:sub(1,5):lower()=="bass"..Bet then
EQ.LowGain = tonumber(msg:sub(6))
end
if msg:sub(1,10):lower()=="midtreble"..Bet then
EQ.MidGain = tonumber(msg:sub(11))
end
if msg:sub(1,7):lower()=="treble"..Bet then
EQ.HighGain = tonumber(msg:sub(8))
end
end)
end

if Global == true then
for i, player in ipairs(game.Players:GetPlayers()) do
if player then
player.Chatted:connect(function(msg)
if msg:sub(1,5):lower()=="play"..Bet then
Sound.SoundId = "rbxassetid://"..tonumber(msg:sub(6))
Sound:Play()
end
if msg:sub(1,5):lower()=="stop"..Bet then
Sound:Stop()
end
if msg:sub(1,6):lower()=="speed"..Bet then
Sound.PlaybackSpeed = tonumber(msg:sub(7))
end
if msg:sub(1,4):lower()=="vol"..Bet then
Sound.Volume = tonumber(msg:sub(5))
end
if msg:sub(1,5):lower()=="loop"..Bet then
Sound.Looped = true
end
if msg:sub(1,7):lower()=="unloop"..Bet then
Sound.Looped = false
end
if msg:sub(1,7):lower()=="distort"..Bet then
Dis.Level = tonumber(msg:sub(8))
end
if msg:sub(1,5):lower()=="bass"..Bet then
EQ.LowGain = tonumber(msg:sub(6))
end
if msg:sub(1,9):lower()=="midtreble"..Bet then
EQ.MidGain = tonumber(msg:sub(10))
end
if msg:sub(1,6):lower()=="treble"..Bet then
EQ.HighGain = tonumber(msg:sub(7))
end
end)
end
end
end

game:GetService("RunService").RenderStepped:connect(function()
hue = hue + inc
for i,v in pairs(Bars) do
Pad.CFrame = Root.CFrame * CFrame.new(0,-2.99,0)
Pad.Rotation = Vector3.new(0,0,90)
Alg = Sound.PlaybackLoudness/math.random(5,50)
Alg3 = Sound.PlaybackLoudness/500
Alg4 = Sound.PlaybackLoudness/100
Alg5 = Sound.PlaybackLoudness/50
v.CFrame = Root.CFrame * CFrame.Angles(0,math.rad(i*7.185),0) * CFrame.new(0,-3,10)
v.Size = v.Size:lerp(Vector3.new(0.5,0.5+Alg,0.5),0.15)
Pad.Color = Pad.Color:lerp(Color3.fromHSV((hue%360)/360,1-Alg3,1),0.25)
particle.Color = ColorSequence.new(Color3.fromHSV((hue%360)/360,1-Alg3,1))
particle.Speed = NumberRange.new(1+Alg4,1+Alg4)
particle.Rate = 5+Alg5
end
end)