wait(0.3)
local player = game.Players.LocalPlayer
local sound = Instance.new("Sound")
local loundness = 0
local ammounts = 80
local character = player.Character
local torso = character.Torso
local parts = {}
local color = BrickColor.new("Navy blue")
local direc = 1
local ver = "Double(Cylinder).3.1"
local mat = "SmoothPlastic"
sound.Parent = workspace
sound.Volume = 1
sound.Looped = true

for i = 1, ammounts do
    local part = Instance.new("Part", torso)
part.TopSurface = "SmoothNoOutlines"
part.BottomSurface = "SmoothNoOutlines"
part.FrontSurface = "SmoothNoOutlines"
part.BackSurface = "SmoothNoOutlines"
part.LeftSurface = "SmoothNoOutlines"
part.RightSurface = "SmoothNoOutlines"
part.Shape = "Cylinder"
    part.Anchored = true
    part.CanCollide = false
    part.Material = mat
    part.Transparency = 0
    part.BrickColor = color
    part.Size = Vector3.new(.05,0,0)
    part.CFrame = torso.CFrame* CFrame.new(pos,5,0)
    table.insert(parts,part)
end

--startup--
local gui = Instance.new("ScreenGui", player.PlayerGui)
local box = Instance.new("TextButton", gui)
box.Position = UDim2.new(1,0,0,0)
box.Size = UDim2.new(0.4,0,0.05,0)
box.BackgroundTransparency = 0.5
box.BackgroundColor3 = Color3.fromRGB(0,170,240)
box.BorderColor3 = Color3.new(0,0,1)
box.BorderSizePixel = 5
box.Text = "Ver.".." "..ver
box.TextSize = 33
box.TextColor3 = Color3.new(1,1,1)
box.TextStrokeColor3 = Color3.new(0,0,1)
box.TextTransparency = 0.5
box.TextStrokeTransparency = 0
box.TextWrapped = true
box.Font = "Code"
box:TweenPosition(UDim2.new(0.3,0,0,0), "Out", "Quad", 1, false)
wait(1.6)
box:TweenPosition(UDim2.new(-1,0,0,0), "Out", "Quad", 1, false)
wait(0.5)
box:Remove()
--functions--
local character = player.Character
character.Humanoid.MaxHealth = math.huge
character.Humanoid.Health = math.huge
local rweld = character.Torso["Right Shoulder"]
local lweld = character.Torso["Left Shoulder"]
local id = Instance.new("TextBox",gui)
id.Position = UDim2.new(1,0,0.2,0)
id.Size = UDim2.new(0.4,0,0.05,0)
id.BackgroundColor3 = Color3.new(0,0,0)
id.BackgroundTransparency = 0.5
id.BorderSizePixel = 0
id.Font = "Code"
id.Text = "Insert Audio Id"
id.TextColor3 = Color3.new(1,1,1)
id.TextScaled = true
id.TextStrokeColor3 = Color3.fromRGB(255,145,0)
id.TextStrokeTransparency = 0
id.TextTransparency = 0.5
local play = Instance.new("TextButton",id)
play.Size = UDim2.new(0.2,0,1,0)
play.Position = UDim2.new(1,0,0,0)
play.BackgroundColor3 = Color3.new(0,0,0)
play.BackgroundTransparency = 0.5
play.BorderSizePixel = 0
play.Font = "Code"
play.Text = "Play"
play.TextColor3 = Color3.new(0,0,0)
play.TextScaled = true
play.TextStrokeColor3 = Color3.new(0,1,0)
play.TextStrokeTransparency = 0
play.TextTransparency = 0.5


local frame = Instance.new("ScrollingFrame", gui)
gui.Enabled = false
frame.Size = UDim2.new(0.2,0,0.4,0)
frame.Position = UDim2.new(3,0,3,0)
frame.BackgroundTransparency = 1
frame.BorderSizePixel = 3
frame.CanvasSize = UDim2.new(0,0,3,0)
local ammount = 0
function makelist(txt)
    local label = Instance.new("TextLabel",frame)
    label.Text = txt
    label.TextScaled = true
    label.TextWrapped = true
    label.Font = "Code"
    label.BackgroundTransparency = 0.5
    label.BackgroundColor3 = Color3.fromRGB(255, 114, 0)
    label.TextStrokeColor3 = Color3.new(1,1,0)
    label.TextStrokeTransparency = 0
    label.TextTransparency = 0.5
    ammount = ammount + 1
    label.Size = UDim2.new(1,0,0,50)
    label.Position = UDim2.new(0,0,0,(ammount * 50) - 55)
end

makelist("cmds")
makelist("play")
makelist("stop")
makelist("id")
makelist("looped/on")
makelist("looped/off")
makelist("dismiss")
makelist("pompeii")
makelist("heathens")
makelist("stressed-out")
makelist("centuries")
makelist("demons")
makelist("believer")
makelist("nred")
makelist("green")
makelist("lgreen")
makelist("lblue")
makelist("dblue")
makelist("nblue")
makelist("yellow")
makelist("cyan")
makelist("lpink")
makelist("hpink")
makelist("purple")
makelist("black")
makelist("white")
makelist("egg")
makelist("randomc")
makelist("Neon")
makelist("Slate")
makelist("Plastic")
makelist("Granite")
makelist("Marble")


spawn(function()
 local SelectedPart = 0
 while true do
   if direc == 1 then
     if SelectedPart < #parts then
       SelectedPart = SelectedPart + direc
     else
       direc = 1
        SelectedPart = 1
       color = color
     end
   elseif direc == -1 then
     if SelectedPart > 1 then
       SelectedPart = SelectedPart + direc
     else
       direc = 1
       color = color
     end
   end
   local sel = parts[SelectedPart]


   sel.BrickColor = color
   sel.Material = mat

   loudness = sound.PlaybackLoudness / 70
    if loudness == 0 then
sel.Size = Vector3.new(2,0, 0)
else
   sel.Size = Vector3.new(loudness,0, 0)
end

   wait()
   sel.BrickColor = color
   sel.Material = mat

 end
end)

game:GetService("RunService").RenderStepped:connect(function()
    function click()
    sound.SoundId = ("rbxassetid://"..id.Text)
    sound:Play()
    end
    function chatted(msg)
    msg = string.lower(msg)
if msg == "pompeii" then
    sound.SoundId = "rbxassetid://760565932"
elseif msg == "demons" then
    sound.SoundId = "rbxassetid://542107070"
elseif msg == "heathens" then
    sound.SoundId = "rbxassetid://438917260"
elseif msg == "stressed-out" then
    sound.SoundId = "rbxassetid://243372213"
elseif msg == "cmds" then
    gui.Enabled = true
    frame:TweenPosition(UDim2.new(0.8,0,0.4,0), "Out", "Quad", 1, false)
elseif msg == "dismiss" then
    frame:TweenPosition(UDim2.new(3,0,3,0), "Out", "Quad", 1, false)
    id:TweenPosition(UDim2.new(1,0,0.2,0), "Out", "Quad", 1, false)
    wait(0.5)
    gui.Enabled = false
elseif msg == "centuries" then
    sound.SoundId = "rbxassetid://677465179"
elseif msg == "believer" then
    sound.SoundId = "rbxassetid://781379905"
elseif msg == "play" then
    sound:Play()
elseif msg == "stop" then
    sound.Playing = false
    sound.TimePosition = 0
elseif msg == "id" then
    gui.Enabled = true
    id:TweenPosition(UDim2.new(0.2,0,0.2,0), "Out", "Quad", 1, false)
    elseif msg == "looped/on" then
    sound.Looped = true
    elseif msg == "looped/off" then
    sound.Looped = false
elseif msg == "nred" then
    color = BrickColor.new("Really red")
elseif msg == "green" then
    color = BrickColor.new("Forest green")
elseif msg == "lgreen" then
    color = BrickColor.new("Lime green")
elseif msg == "lblue" then
    color = BrickColor.new("Electric blue")
elseif msg == "dblue" then
    color = BrickColor.new("Navy blue")
elseif msg == "nblue" then
    color = BrickColor.new("Really blue")
elseif msg == "yellow" then
    color = BrickColor.new("New Yeller")
elseif msg == "cyan" then
    color = BrickColor.new("Toothpaste")
elseif msg == "lpink" then
    color = BrickColor.new("Carnation pink")
elseif msg == "hpink" then
    color = BrickColor.new("Hot pink")
elseif msg == "purple" then
    color = BrickColor.new("Royal purple")
elseif msg == "black" then
    color = BrickColor.new("Really black")
elseif msg == "white" then
    color = BrickColor.new("White")
elseif msg == "egg" then
    color = BrickColor.new("Eggplant")
elseif msg == "randomc" then
    color = BrickColor.random()
elseif msg == "neon" then
    mat = "Neon"
elseif msg == "slate" then
    mat = "Slate"
elseif msg == "granite" then
    mat = "Granite"
elseif msg == "plastic" then
    mat = "SmoothPlastic"
elseif msg == "marble" then
    mat = "Marble"
end

end
    for i = 1,#parts do
    if i == 1 then
        parts[i].CFrame = parts[i].CFrame:lerp(torso.CFrame * CFrame.new(0,1,0.55) , 0.9)
    else
    parts[i].CFrame = parts[i].CFrame:lerp(parts[i - 1].CFrame* CFrame.new(0,-0.05,0.005) * CFrame.Angles(math.sin(-loudness/300),0,0) , 0.8)
    end
    end
play.MouseButton1Click:connect(click)
player.Chatted:connect(function(msg) chatted(msg)end)
end)