[UPT] Block visualizor

-- Objects

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

-- Properties

WindowH.Name = "WindowH"
WindowH.Parent = game:service'Players'.LocalPlayer.PlayerGui

Window.Name = "Window"
Window.Parent = WindowH
Window.Active = true
Window.BackgroundColor3 = Color3.new(0.156863, 0.156863, 0.156863)
Window.BorderSizePixel = 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.301961, 0.301961, 0.301961)
TopBar.BorderSizePixel = 0
TopBar.Size = UDim2.new(0, 471, 0, 28)

HeaderOfTopBar.Name = "HeaderOfTopBar"
HeaderOfTopBar.Parent = TopBar
HeaderOfTopBar.BackgroundColor3 = Color3.new(0.0666667, 0.0666667, 0.0666667)
HeaderOfTopBar.BackgroundTransparency = 1
HeaderOfTopBar.BorderSizePixel = 0
HeaderOfTopBar.Size = UDim2.new(0, 367, 0, 28)
HeaderOfTopBar.Font = Enum.Font.SourceSansBold
HeaderOfTopBar.FontSize = Enum.FontSize.Size14
HeaderOfTopBar.Text = " Audio visualizer GUI"
HeaderOfTopBar.TextColor3 = Color3.new(1, 1, 1)
HeaderOfTopBar.TextScaled = true
HeaderOfTopBar.TextSize = 14
HeaderOfTopBar.TextWrapped = true
HeaderOfTopBar.TextXAlignment = Enum.TextXAlignment.Left

InfoButton.Name = "InfoButton"
InfoButton.Parent = TopBar
InfoButton.BackgroundColor3 = Color3.new(0.188235, 0.188235, 0.188235)
InfoButton.BorderSizePixel = 0
InfoButton.Position = UDim2.new(0, 367, 0, 5)
InfoButton.Size = UDim2.new(0, 67, 0, 17)
InfoButton.Font = Enum.Font.SourceSansBold
InfoButton.FontSize = Enum.FontSize.Size18
InfoButton.Text = "Info"
InfoButton.TextColor3 = Color3.new(1, 1, 1)
InfoButton.TextSize = 16

X.Name = "X"
X.Parent = TopBar
X.BackgroundColor3 = Color3.new(1, 0, 0)
X.BorderSizePixel = 0
X.Position = UDim2.new(0.938428879, 0, 0.107142858, 0)
X.Size = UDim2.new(0, 21, 0, 21)
X.Font = Enum.Font.SourceSansBold
X.FontSize = Enum.FontSize.Size14
X.Text = "X"
X.TextColor3 = Color3.new(1, 1, 1)
X.TextScaled = true
X.TextSize = 14
X.TextWrapped = true

Content.Name = "Content"
Content.Parent = Window
Content.BackgroundColor3 = Color3.new(0.156863, 0.156863, 0.156863)
Content.BorderSizePixel = 0
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(0.117647, 0.392157, 0.0705882)
ChangeID.BorderColor3 = Color3.new(0.0823529, 0.290196, 0.0235294)
ChangeID.BorderSizePixel = 4
ChangeID.Position = UDim2.new(0.0191082805, 0, 0.0375426635, 0)
ChangeID.Size = UDim2.new(0, 189, 0, 39)
ChangeID.Font = Enum.Font.SourceSansBold
ChangeID.FontSize = Enum.FontSize.Size24
ChangeID.Text = "Change Sound Id"
ChangeID.TextColor3 = Color3.new(1, 1, 1)
ChangeID.TextSize = 20
ChangeID.TextWrapped = true

ChangeShape.Name = "ChangeShape"
ChangeShape.Parent = Content
ChangeShape.BackgroundColor3 = Color3.new(0.117647, 0.392157, 0.0705882)
ChangeShape.BorderColor3 = Color3.new(0.0823529, 0.290196, 0.0235294)
ChangeShape.BorderSizePixel = 4
ChangeShape.Position = UDim2.new(0, 9, 0, 68)
ChangeShape.Size = UDim2.new(0, 189, 0, 39)
ChangeShape.Font = Enum.Font.SourceSansBold
ChangeShape.FontSize = Enum.FontSize.Size24
ChangeShape.Text = "Change Shape"
ChangeShape.TextColor3 = Color3.new(1, 1, 1)
ChangeShape.TextSize = 20
ChangeShape.TextWrapped = true

RunDec.Name = "RunDec"
RunDec.Parent = Content
RunDec.BackgroundColor3 = Color3.new(0.223529, 0.223529, 0.223529)
RunDec.BorderColor3 = Color3.new(0.0705882, 0.0705882, 0.0705882)
RunDec.BorderSizePixel = 3
RunDec.Position = UDim2.new(0, 118, 0, 200)
RunDec.Size = UDim2.new(0, 236, 0, 50)
RunDec.Font = Enum.Font.SourceSansBold
RunDec.FontSize = Enum.FontSize.Size28
RunDec.Text = "Run Decoration"
RunDec.TextColor3 = Color3.new(1, 1, 1)
RunDec.TextSize = 25
RunDec.TextWrapped = true

IDec.Name = "IDec"
IDec.Parent = Content
IDec.BackgroundColor3 = Color3.new(0.27451, 0.27451, 0.27451)
IDec.BorderSizePixel = 0
IDec.Position = UDim2.new(0, 274, 0, 11)
IDec.Size = UDim2.new(0, 189, 0, 39)
IDec.Font = Enum.Font.SourceSansBold
IDec.FontSize = Enum.FontSize.Size18
IDec.Text = "Sound id"
IDec.TextColor3 = Color3.new(1, 1, 1)
IDec.TextSize = 17
IDec.TextWrapped = true

Shape.Name = "Shape"
Shape.Parent = Content
Shape.BackgroundColor3 = Color3.new(0.27451, 0.27451, 0.27451)
Shape.BorderColor3 = Color3.new(0.27451, 0.27451, 0.27451)
Shape.BorderSizePixel = 0
Shape.Position = UDim2.new(0, 274, 0, 68)
Shape.Size = UDim2.new(0, 189, 0, 39)
Shape.ZIndex = 2
Shape.Font = Enum.Font.SourceSansBold
Shape.FontSize = Enum.FontSize.Size18
Shape.Text = "Shape"
Shape.TextColor3 = Color3.new(1, 1, 1)
Shape.TextSize = 17
Shape.TextWrapped = true

Info.Name = "Info"
Info.Parent = Window
Info.BackgroundColor3 = Color3.new(0.223529, 0.223529, 0.223529)
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://0"
Info.CanvasSize = UDim2.new(0, 0, 4, 0)
Info.ScrollBarThickness = 6
Info.TopImage = "rbxassetid://0"

InfoText.Name = "InfoText"
InfoText.Parent = Info
InfoText.BackgroundColor3 = Color3.new(1, 1, 1)
InfoText.BackgroundTransparency = 1
InfoText.Position = UDim2.new(0.0265392773, 0, 0.00340136141, 0)
InfoText.Size = UDim2.new(0, 446, 0, 287)
InfoText.ZIndex = 4
InfoText.Font = Enum.Font.SourceSans
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(1, 1, 1)
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)

Window.ClipsDescendants = true
X.MouseButton1Down:Connect(function()
if Window.Size == UDim2.new(0, 471, 0, 322) then
Window.Size = UDim2.new(0, 467,0, 30)
else
Window.Size = UDim2.new(0, 471, 0, 322)
end
end)

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

ChangeShape.MouseButton1Down:Connect(function()
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)
ball = Instance.new("Part", model)

sound = Instance.new("Sound", ball)

light = Instance.new("PointLight", ball)

local id2 = "rbxassetid://"..id

sound.SoundId = id2
ball.Anchored = true
model.Name = "MyAssIsSoCool"
ball.CanCollide = false
sound:Play()
sound.Volume = .5
sound.Looped=true
ball.Shape = "Block"
ball.Material = "Neon"
ball.BrickColor = BrickColor.new('Cyan')

while wait() do
local sp = sound.PlaybackLoudness/90
if sp/5 <= 2 then
ball.Size = ball.Size:lerp(Vector3.new(2,2,2),.2)
end
ball.CFrame = ball.CFrame:lerp(CFrame.new(0,4,0)+head.Position,.03)
ball.Size = ball.Size:lerp(Vector3.new(sp/5,sp/5,sp/5),.2)
ball.Orientation = Vector3.new(0,0,ball.Orientation.Z-(sp))
light.Range = sp+15
light.Brightness = 5


end