local plr = game.Players.LocalPlayer
local char = plr.Character
local pos2 = 0
local m = Instance.new("Model",char)
local a = Instance.new("Sound",char.Torso)
a.Looped = true
a.MaxDistance = 50
go = true
local orbits = {}

local aud = Instance.new("Part",m)
aud.Anchored = true
aud.CanCollide = false
aud.TopSurface = "Smooth"
aud.BottomSurface = "Smooth"
aud.Size = Vector3.new(1.3,1.3,1.3)
aud.Color = Color3.new(1,1,1)
aud.Material = "Neon"
aud.Locked = true
local audmesh = Instance.new("SpecialMesh",aud)
audmesh.MeshType = "Sphere"
local selectionBox = Instance.new("SelectionBox")
    selectionBox.Adornee = aud
    selectionBox.Color3 = Color3.new(0,1,1)
    selectionBox.Parent = aud
    selectionBox.LineThickness = 0.02

    local ring = Instance.new("Part",m)
    ring.Anchored = true
    ring.Size = Vector3.new(1,1,1)

    local ringm = Instance.new("SpecialMesh",ring)
    ringm.MeshType = "FileMesh"
    ringm.MeshId = "http://www.roblox.com/asset/?id=3270017"
    ringm.Scale = Vector3.new(1,1,1)

    local bgui = Instance.new("BillboardGui", aud)
    bgui.Adornee = t
    bgui.Size = UDim2.new(1,0,2,0)
    bgui.ExtentsOffset = Vector3.new(0,2.5,0)

local frame = Instance.new("Frame", bgui)
frame.Size = UDim2.new(0.1,0,1,0)
frame.Position = UDim2.new(0.41,0,0,0)
frame.BackgroundTransparency = 1

    local tl = Instance.new("TextLabel", frame)
    tl.Text = "Waiting for audio"
    tl.Font = "ArialBold"
    tl.Size = UDim2.new(0, 200, 0, 32)
    tl.TextSize = 18
    tl.BackgroundTransparency = 1
    tl.AnchorPoint = Vector2.new(0.5, 0.5)
    tl.TextColor3 = Color3.new(1, 1, 1)
    tl.TextStrokeTransparency = 0.125

    local tl2 = Instance.new("TextLabel", frame)
    tl2.Text = "Vol : " ..a.Volume
    tl2.Font = "ArialBold"
    tl2.Size = UDim2.new(0, 200, 0, 32)
    tl2.TextSize = 18
    tl2.BackgroundTransparency = 1
    tl2.AnchorPoint = Vector2.new(0.5, 0.5)
    tl2.TextColor3 = Color3.new(1, 1, 1)
    tl2.TextStrokeTransparency = 0.125
    tl2.Position = UDim2.new(0,0,0.5,0)

    local tl3 = Instance.new("TextLabel", frame)
    tl3.Text = "User : " ..plr.Name
    tl3.Font = "ArialBold"
    tl3.Size = UDim2.new(0, 200, 0, 32)
    tl3.TextSize = 18
    tl3.BackgroundTransparency = 1
    tl3.AnchorPoint = Vector2.new(0.5, 0.5)
    tl3.TextColor3 = Color3.new(1, 1, 1)
    tl3.TextStrokeTransparency = 0.125
    tl3.Position = UDim2.new(0,0,1,0)

    function planet()
        local audp = Instance.new("Part",aud)
audp.Anchored = true
audp.CanCollide = false
audp.TopSurface = "Smooth"
audp.BottomSurface = "Smooth"
audp.Size = Vector3.new(1.3,1.3,1.3)
audp.Color = Color3.new(1,1,1)
audp.Material = "Neon"
audp.Locked = true
local audmeshp = Instance.new("SpecialMesh",audp)
audmeshp.MeshType = "Sphere"
local selectionBoxp = Instance.new("SelectionBox")
    selectionBoxp.Adornee = audp
    selectionBoxp.Color3 = Color3.new(0,1,1)
    selectionBoxp.Parent = audp
    selectionBoxp.LineThickness = 0.02
    table.insert(orbits,audp)
        end
    local pos = 0
local pos2 = 0

    function le()
    game:GetService'RunService'.RenderStepped:connect(function()
    pos2=pos2 + 7.2
    aud.CFrame = char.Torso.CFrame * CFrame.new(0,4.7,0) * CFrame.Angles(0,math.rad(360/ pos2), 0) * CFrame.Angles(math.rad(pos2/2), math.rad(pos2/2), math.rad(pos2/2))
        ring.CFrame = aud.CFrame * CFrame.new(0,0,0)

    ring.Color = ring.Color:lerp(Color3.new(math.random(0.5,.7),math.random(0.5,.7),math.random(0.5,.7)), 0.1)
        ringm.Scale = ringm.Scale:lerp(Vector3.new(a.PlaybackLoudness/math.random(200,230),a.PlaybackLoudness/math.random(200,230),a.PlaybackLoudness/math.random(200,230)), .15)



        if go == true then
        aud.Size =  aud.Size:lerp(Vector3.new(a.PlaybackLoudness/math.random(240,360),a.PlaybackLoudness/math.random(240,360),a.PlaybackLoudness/math.random(240,360)), .15)
        ring.Size = ring.Size:lerp(Vector3.new(a.PlaybackLoudness/210,a.PlaybackLoudness/210,a.PlaybackLoudness/210), .15)
        ring.Orientation = ring.Orientation + Vector3.new(0,pos2,0)
        pos = pos + 0.35
        pos2 = pos2 + 0.35
        for index, t in pairs(orbits) do
            t.Size =  t.Size:lerp(Vector3.new(a.PlaybackLoudness/450,a.PlaybackLoudness/450,a.PlaybackLoudness/450), 0.15)
             t.CFrame = t.CFrame:lerp(CFrame.new(aud.CFrame.p) * CFrame.Angles(0, math.rad(((360 / #orbits)*index)+pos), 0) * CFrame.new(0, math.sin(tick() + (index * (360/#orbits))), 0.1 + #orbits*.9) * CFrame.Angles(math.rad(pos2/5), math.rad(pos2/5), math.rad(pos2/5)),.25)
end


    else
        aud.Size = Vector3.new(1.3,1.3,1.3)




    end




    end)
end

if a.PlaybackLoudness >= 200 then
    aud.Color = Color3.new(0,0,1)
    wait(0.001)
    aud.Color = Color3.new(0,0,0.7)
    wait(0.001)
    aud.Color = Color3.new(0,0,0.5)
    wait(0.001)
    aud.Color = Color3.new(0,0,0.2)
    wait(0.001)
    aud.Color = Color3.new(0,0,0)

    end

  plr.Chatted:connect(function(msg)
      if msg == "planet" then
          planet()
          end
      end)

plr.Chatted:connect(function(msg)
	if msg:sub(1,5):lower()=='play/' then
		local id=tonumber(msg:match'%d+')
		if not id then return end
		a:Stop()
		a.Volume = 1
		a.SoundId='rbxassetid://'..msg:match'%d+'
		tl.Text = game:service'MarketplaceService':GetProductInfo(msg:match"%d+").Name
		a:Play()
		end
end)

plr.Chatted:connect(function(msg)
	if msg:sub(1,4):lower()=='vol/' then
		local id=tonumber(msg:match'%d+')
		if not id then return end
		a.Volume = msg:match'%d+'
		tl2.Text = "Vol : " ..a.Volume
		end
end)


plr.Chatted:connect(function(msg)
    if msg:sub(1,7):lower()=="color/" then
        local color = msg:match'%w+'
        aud.BrickColor = color
        end
    end)




plr.Chatted:connect(function(msg)
    if msg == "stop" then
        go = false
        a:Stop()
    end
end)

plr.Chatted:connect(function(msg)
    if msg == "start" then
    go = true
    a:Resume()
    end
    end)

    function main()

    le()

    end
planet()
planet()
planet()
main()