local jun = game.Players.LocalPlayer

local rs = game:GetService("RunService").RenderStepped
local cam = game.Workspace.CurrentCamera
local mouse = jun:GetMouse()
local MouseOnline = false

local Colors = {
 C1 = "Bright red";
 C2 = "Cyan";
 C3 = "Mulberry";
 C4 = "Pearl"

}

local fold = jun.Character

local Type = Instance.new("NumberValue", fold)
Type.Name = "MTValue"

local Moused = Instance.new("NumberValue", fold)
Moused.Name = "MouseValue"
Moused.Value = 0


-- [[ GUI ]] --

local G = Instance.new("ScreenGui", jun.PlayerGui)
G.Name = "SoundGui"

local Box = Instance.new("TextBox", G)
Box.Position = UDim2.new(0.6,0,.5,0)
Box.Size = UDim2.new(.15,0,.05,0)
Box.BackgroundColor3 = Color3.new(255,255,255)
Box.BorderSizePixel = 0
Box.Text = "Song Here"



local B1 = Instance.new("TextButton", Box)
B1.Position = UDim2.new(0,0,1,0)
B1.Size = UDim2.new(1,0,1,0)
B1.BackgroundColor3 = Box.BackgroundColor3
B1.BorderSizePixel = Box.BorderSizePixel
B1.Text = "Play"


local B2 = Instance.new("TextButton", B1)
B2.Position = UDim2.new(0,0,1,0)
B2.Size = UDim2.new(.5,0,1,0)
B2.BackgroundColor3 = Box.BackgroundColor3
B2.BorderSizePixel = Box.BorderSizePixel
B2.Text = "Cylinder"

local B3 = Instance.new("TextButton", B2)
B3.Position = UDim2.new(1,0,0,0)
B3.Size = UDim2.new(1,0,1,0)
B3.BackgroundColor3 = Box.BackgroundColor3
B3.BorderSizePixel = Box.BorderSizePixel
B3.Text = "Ball"

local B4 = Instance.new("TextButton", B3)
B4.Position = UDim2.new(1,0,0,0)
B4.Size = UDim2.new(1,0,1,0)
B4.BackgroundColor3 = Box.BackgroundColor3
B4.BorderSizePixel = Box.BorderSizePixel
B4.Text = "Block"

sound = Instance.new("Sound",jun.Character.Head)
sound.SoundId = "rbxassetid://209864226"
sound.Volume = 10
sound.Looped = true
sound:Play()


B1.MouseButton1Click:connect(function()
 sound:Stop()
                sound.SoundId = "http://www.roblox.com/asset/?id="..Box.Text
    sound:Play()
end)

B1.MouseButton2Click:connect(function()
 sound:Stop()
end)

B4.MouseButton1Click:connect(function()
 Type = 2
end)

B2.MouseButton1Click:connect(function()
 Type = 1
end)


B3.MouseButton1Click:connect(function()
 Type = 0
end)








-- [[ Audio Visualizer ]] --


local x = Instance.new("Part", fold)
x.CFrame = jun.Character.Torso.CFrame * CFrame.new(0,0,-4)
x.Anchored = false
x.CanCollide = false
x.BrickColor = BrickColor.new(Colors.C1)
x.Material = "Neon"
x.Size = Vector3.new(2,2,2)


local x2 = Instance.new("Part", fold)
x2.CFrame = jun.Character.Torso.CFrame * CFrame.new(0,0,-4)
x2.Anchored = false
x2.CanCollide = false
x2.BrickColor = BrickColor.new(Colors.C2)
x2.Material = "Neon"
x2.Size = Vector3.new(2,2,2)

local x3 = Instance.new("Part", fold)
x3.CFrame = jun.Character.Torso.CFrame * CFrame.new(0,0,-4)
x3.Anchored = false
x3.CanCollide = false
x3.BrickColor = BrickColor.new(Colors.C3)
x3.Material = "Neon"
x3.Size = Vector3.new(2,2,2)


local x4 = Instance.new("Part", fold)
x4.CFrame = jun.Character.Torso.CFrame * CFrame.new(0,0,-4)
x4.Anchored = false
x4.CanCollide = false
x4.BrickColor = BrickColor.new(Colors.C4)
x4.Material = "Neon"
x4.Size = Vector3.new(2,2,2)

local range = 60
local bright = 500

local l1 = Instance.new("PointLight", x)
l1.Brightness = bright
l1.Range = range

local l2 = Instance.new("PointLight", x2)
l2.Brightness = bright
l2.Range = range

local l3 = Instance.new("PointLight", x3)
l3.Brightness = bright
l3.Range = range

local l4 = Instance.new("PointLight", x4)
l4.Brightness = bright
l4.Range = range

local m1 = Instance.new("SpecialMesh", x)
m1.MeshType = "Sphere"

local m2 = Instance.new("SpecialMesh", x2)
m2.MeshType = m1.MeshType

local m3 = Instance.new("SpecialMesh", x3)
m3.MeshType = m1.MeshType

local m4 = Instance.new("SpecialMesh", x4)
m4.MeshType = m1.MeshType


function MeshType()
if Type == 0 then
m1.MeshType = "Sphere"
m2.MeshType = m1.MeshType
m3.MeshType = m1.MeshType
m4.MeshType = m1.MeshType
elseif Type == 1 then
m1.MeshType = "Cylinder"
m2.MeshType = m1.MeshType
m3.MeshType = m1.MeshType
m4.MeshType = m1.MeshType
elseif Type == 2 then
m1.MeshType = "Brick"
m2.MeshType = m1.MeshType
m3.MeshType = m1.MeshType
m4.MeshType = m1.MeshType
end
end

function Tween_Blocks()
local loud = 70
local far = 8
x.CFrame = jun.Character.Torso.CFrame * CFrame.new(far,-2.5,-far)
x2.CFrame = jun.Character.Torso.CFrame * CFrame.new(-far,-2.5,far)
x3.CFrame = jun.Character.Torso.CFrame * CFrame.new(-far,-2.5,-far)
x4.CFrame = jun.Character.Torso.CFrame * CFrame.new(far,-2.5,far)
if Type == 1 then
x.CFrame = jun.Character.Torso.CFrame * CFrame.new(far,-2.5,-far)  * CFrame.Angles(0,0,1.6)
x2.CFrame = jun.Character.Torso.CFrame * CFrame.new(-far,-2.5,far)  * CFrame.Angles(0,0,1.6)
x3.CFrame = jun.Character.Torso.CFrame * CFrame.new(-far,-2.5,-far)  * CFrame.Angles(0,0,1.6)
x4.CFrame = jun.Character.Torso.CFrame * CFrame.new(far,-2.5,far) * CFrame.Angles(0,0,1.6)
end
local lo = sound.PlaybackLoudness/loud
local out = .4
m1.Scale = m1.Scale:lerp(Vector3.new(lo,lo,lo), out)
m2.Scale = m2.Scale:lerp(Vector3.new(lo,lo,lo), out)
m3.Scale = m3.Scale:lerp(Vector3.new(lo,lo,lo), out)
m4.Scale = m4.Scale:lerp(Vector3.new(lo,lo,lo), out)
if Type == 2 then
m1.Scale = m1.Scale:lerp(Vector3.new(1, lo, 1), out)
m2.Scale = m2.Scale:lerp(Vector3.new(1, lo, 1), out)
m3.Scale = m3.Scale:lerp(Vector3.new(1, lo, 1), out)
m4.Scale = m4.Scale:lerp(Vector3.new(1, lo, 1), out)
end
if Moused == 1 then
	x.CFrame = CFrame.new(mouse.hit.p) * CFrame.new(far,2.5,-far)
	x2.CFrame = CFrame.new(mouse.hit.p) * CFrame.new(-far,2.5,far)
	x3.CFrame = CFrame.new(mouse.hit.p) * CFrame.new(-far,2.5,-far)
	x4.CFrame = CFrame.new(mouse.hit.p) * CFrame.new(far,2.5,far)
end


-- [[ Other ]] --
local po = 2
l1.Range = po*lo
l2.Range = po*lo
l3.Range = po*lo
l4.Range = po*lo
cam.FieldOfView = lo+50
end

function MouseUp(key)
	if key == "q" and MouseOnline == false then
		MouseOnline = true
		Moused = 1
		print("Audio Mouse Is Online")
	elseif key == "q" and MouseOnline == true then
		MouseOnline = false
		Moused = 0
		print("Audio Mouse Is Offline")
	end
end

function MouseDown(key)
	if key == "q" and MouseOnline == true then
		MouseOnline = false
		print("Audio Mouse Is Offline")
	end
end

mouse.KeyDown:connect(MouseUp)
rs:connect(function()
Tween_Blocks()
MeshType()
end)