Audio Visualizer GUI

-- Objects

local WindowH = Instance.new("ScreenGui")
local Window = Instance.new("Frame")
local TopBar = Instance.new("Frame")
local X = Instance.new("ImageButton")
local HeaderOfTopBar = Instance.new("TextLabel")
local InfoButton = Instance.new("TextButton")
local Content = Instance.new("Frame")
local ChangeID = Instance.new("TextButton")
local ChangeShape = Instance.new("TextButton")
local RunDec = Instance.new("TextButton")
local ID = Instance.new("TextBox")
local IDec = Instance.new("TextButton")
local ShapeDec = Instance.new("TextButton")
local Shape = Instance.new("TextBox")
local Info = Instance.new("ScrollingFrame")
local InfoText = Instance.new("TextLabel")

-- Properties

WindowH.Name = "WindowH"
WindowH.Parent = game.Players.LocalPlayer.PlayerGui

Window.Name = "Window"
Window.Parent = WindowH
Window.Active = true
Window.BackgroundColor3 = Color3.new(0.666667, 0, 0)
Window.Draggable = true
Window.Position = UDim2.new(0, 177, 0, 137)
Window.Size = UDim2.new(0, 471, 0, 322)

TopBar.Name = "TopBar"
TopBar.Parent = Window
TopBar.BackgroundColor3 = Color3.new(0, 0, 0)
TopBar.BorderSizePixel = 0
TopBar.Size = UDim2.new(0, 471, 0, 28)

X.Name = "X"
X.Parent = TopBar
X.BackgroundColor3 = Color3.new(1, 1, 1)
X.Position = UDim2.new(0, 442, 0, 0)
X.Size = UDim2.new(0, 29, 0, 28)
X.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
X.Image = "rbxassetid://190837466"

HeaderOfTopBar.Name = "HeaderOfTopBar"
HeaderOfTopBar.Parent = TopBar
HeaderOfTopBar.BackgroundColor3 = Color3.new(0, 0, 0)
HeaderOfTopBar.BackgroundTransparency = 1
HeaderOfTopBar.Size = UDim2.new(0, 367, 0, 28)
HeaderOfTopBar.Font = Enum.Font.Cartoon
HeaderOfTopBar.FontSize = Enum.FontSize.Size14
HeaderOfTopBar.Text = "Welcome to Anonymous's Audio visualizer GUI"
HeaderOfTopBar.TextColor3 = Color3.new(0, 1, 0.498039)
HeaderOfTopBar.TextScaled = true
HeaderOfTopBar.TextSize = 14
HeaderOfTopBar.TextWrapped = true
HeaderOfTopBar.TextXAlignment = Enum.TextXAlignment.Left

InfoButton.Name = "InfoButton"
InfoButton.Parent = TopBar
InfoButton.BackgroundColor3 = Color3.new(1, 1, 1)
InfoButton.Position = UDim2.new(0, 373, 0, 0)
InfoButton.Size = UDim2.new(0, 67, 0, 28)
InfoButton.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
InfoButton.Font = Enum.Font.SourceSans
InfoButton.FontSize = Enum.FontSize.Size18
InfoButton.Text = "Info"
InfoButton.TextColor3 = Color3.new(0.0117647, 0.207843, 0)
InfoButton.TextSize = 16

Content.Name = "Content"
Content.Parent = Window
Content.BackgroundColor3 = Color3.new(0, 0, 0)
Content.BackgroundTransparency = 0.5
Content.Position = UDim2.new(0, 0, 0, 29)
Content.Size = UDim2.new(0, 471, 0, 293)

ChangeID.Name = "ChangeID"
ChangeID.Parent = Content
ChangeID.BackgroundColor3 = Color3.new(1, 1, 1)
ChangeID.Size = UDim2.new(0, 236, 0, 50)
ChangeID.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
ChangeID.FontSize = Enum.FontSize.Size14
ChangeID.Text = "Change Sound Id"
ChangeID.TextColor3 = Color3.new(0, 0, 0)
ChangeID.TextScaled = true
ChangeID.TextSize = 14
ChangeID.TextWrapped = true

ChangeShape.Name = "ChangeShape"
ChangeShape.Parent = Content
ChangeShape.BackgroundColor3 = Color3.new(1, 1, 1)
ChangeShape.Position = UDim2.new(0, 0, 0, 55)
ChangeShape.Size = UDim2.new(0, 236, 0, 50)
ChangeShape.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
ChangeShape.FontSize = Enum.FontSize.Size14
ChangeShape.Text = "Change Shape"
ChangeShape.TextColor3 = Color3.new(0, 0, 0)
ChangeShape.TextScaled = true
ChangeShape.TextSize = 14
ChangeShape.TextWrapped = true

RunDec.Name = "RunDec"
RunDec.Parent = Content
RunDec.BackgroundColor3 = Color3.new(1, 1, 1)
RunDec.Position = UDim2.new(0, 0, 0, 243)
RunDec.Size = UDim2.new(0, 236, 0, 50)
RunDec.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
RunDec.Font = Enum.Font.SciFi
RunDec.FontSize = Enum.FontSize.Size14
RunDec.Text = "Run Decoration"
RunDec.TextColor3 = Color3.new(0.333333, 0.666667, 1)
RunDec.TextScaled = true
RunDec.TextSize = 14
RunDec.TextWrapped = true

ID.Name = "ID"
ID.Parent = Content
ID.BackgroundColor3 = Color3.new(1, 1, 1)
ID.BackgroundTransparency = 1
ID.Position = UDim2.new(0, 271, 0, 0)
ID.Size = UDim2.new(0, 200, 0, 50)
ID.ZIndex = 2
ID.Font = Enum.Font.Bodoni
ID.FontSize = Enum.FontSize.Size14
ID.Text = "Sound ID"
ID.TextScaled = true
ID.TextSize = 14
ID.TextWrapped = true

IDec.Name = "IDec"
IDec.Parent = Content
IDec.BackgroundColor3 = Color3.new(1, 1, 1)
IDec.Position = UDim2.new(0, 271, 0, 0)
IDec.Size = UDim2.new(0, 200, 0, 50)
IDec.Style = Enum.ButtonStyle.RobloxRoundButton
IDec.Font = Enum.Font.SourceSans
IDec.FontSize = Enum.FontSize.Size14
IDec.Text = ""
IDec.TextSize = 14

ShapeDec.Name = "ShapeDec"
ShapeDec.Parent = Content
ShapeDec.BackgroundColor3 = Color3.new(1, 1, 1)
ShapeDec.Position = UDim2.new(0, 271, 0, 55)
ShapeDec.Size = UDim2.new(0, 200, 0, 50)
ShapeDec.Style = Enum.ButtonStyle.RobloxRoundButton
ShapeDec.Font = Enum.Font.SourceSans
ShapeDec.FontSize = Enum.FontSize.Size14
ShapeDec.Text = ""
ShapeDec.TextSize = 14

Shape.Name = "Shape"
Shape.Parent = Content
Shape.BackgroundColor3 = Color3.new(1, 1, 1)
Shape.BackgroundTransparency = 1
Shape.Position = UDim2.new(0, 274, 0, 55)
Shape.Size = UDim2.new(0, 196, 0, 50)
Shape.ZIndex = 2
Shape.Font = Enum.Font.Bodoni
Shape.FontSize = Enum.FontSize.Size14
Shape.Text = "Shape Name"
Shape.TextScaled = true
Shape.TextSize = 14
Shape.TextWrapped = true

Info.Name = "Info"
Info.Parent = Window
Info.BackgroundColor3 = Color3.new(0.333333, 0.333333, 0)
Info.BorderSizePixel = 0
Info.Position = UDim2.new(0, 0, 0, 28)
Info.Size = UDim2.new(0, 471, 0, 294)
Info.Visible = false
Info.ZIndex = 3
Info.BottomImage = "rbxassetid://162937863"
Info.CanvasSize = UDim2.new(0, 0, 4, 0)
Info.MidImage = "rbxassetid://162937890"
Info.TopImage = "rbxassetid://162937878"

InfoText.Name = "InfoText"
InfoText.Parent = Info
InfoText.BackgroundColor3 = Color3.new(1, 1, 1)
InfoText.BackgroundTransparency = 1
InfoText.Size = UDim2.new(0, 456, 0, 294)
InfoText.ZIndex = 4
InfoText.Font = Enum.Font.Cartoon
InfoText.FontSize = Enum.FontSize.Size24
InfoText.Text = "The currents functions are:\n \n1.Change Shape, shapes are Block and Ball with caps\n \n2.Change Audio ID\n \n3.Run Decoration\nWhat does the 3 functions do?\n \n1.Change the visualizer shape\n \n2.Change the audios's ID to the new one\n \n3.You will get a better experience with (Run Decoration)\n \n 1.FogEnd will change to 500\n \n 2.It would add BlurEffect and a clean sky\n \n 3.Brightness will be 0\n \n 4.Color will be changed to Black to see the Visualizer \n Color Better ;)"
InfoText.TextColor3 = Color3.new(0, 0, 0)
InfoText.TextSize = 20
InfoText.TextXAlignment = Enum.TextXAlignment.Left
InfoText.TextYAlignment = Enum.TextYAlignment.Top
----------------------------------------------------------------
----------------------------------------------------------------
InfoButton.MouseButton1Down:Connect(function()
if Info.Visible == false then
Info.Visible = true
else Info.Visible = false
end
end)

X.MouseButton1Down:Connect(function()
WindowH:Destroy()
end)

ChangeID.MouseButton1Down:Connect(function()
_G.sound2.SoundId = "rbxassetid://"..ID.Text
_G.sound2:Play()
end)

ChangeShape.MouseButton1Down:Connect(function()
_G.ball.Shape = Shape.Text
end)

RunDec.MouseButton1Down:Connect(function()
local ln = game:FindFirstChildOfClass("Lighting")

local blur = Instance.new("ColorCorrectionEffect",game:FindFirstChildOfClass("Lighting"))
blur.Contrast = 1
blur.Brightness = 0.5

local sky = Instance.new("Sky",game:FindFirstChildOfClass("Lighting"))
sky.CelestialBodiesShown = false

ln.Brightness = 0
ln.Ambient = Color3.new(0,0,0)
ln.OutdoorAmbient = Color3.new(0,0,0)
ln.TimeOfDay = "00:00:00"
ln.FogEnd = 50
ln.FogColor = Color3.new(0,0,0)

end)

local id = "565649306"

local char = game.Players.LocalPlayer.Character
local head = char.Head

if head:FindFirstChild("MyAssIsSoCool") then
head:FindFirstChild("MyAssIsSoCool"):Destroy()
end
local model = Instance.new("Model", head)
_G.ball = Instance.new("Part", model)
local ball = _G.ball
_G.sound2 = Instance.new("Sound", ball)
local sound = _G.sound2
_G.light = Instance.new("PointLight", ball)
local light = _G.light
local id2 = "rbxassetid://"..id

sound.SoundId = id2
ball.Anchored = true
model.Name = "MyAssIsSoCool"
ball.CanCollide = false
sound:Play()
sound.Volume = 10
ball.Shape = "Block"
ball.Material = "Neon"

while wait() do
local sp = sound.PlaybackLoudness/50
ball.BrickColor = BrickColor.Random()
ball.CFrame = head.CFrame*CFrame.new(0,6,0)
ball.Size = Vector3.new(sp,sp,sp)
light.Range = sp+15
light.Brightness = sp+25
light.Color = Color3.new(math.random(),math.random(),math.random())


end