visualizer 1

--[[
    Prefix - the symbol before saying a command, make sure it is 1 character long, the default is '/'.
    Color - the default color when the Rainbow command isn't active.
    Body - how high up or low the parts are from the HumanoidRootPart.
    Rainbow - depicts if the parts and pointlights are changing colors or not.
    Global - if the music is in the workspace or not.
    Angle - used to create shapes with the visualizer.
    Goal -  [DON'T GO OVER 1 OR BELOW 0, IT'LL LAG THE GAME] how fast the parts reach their destination point.
    Split - another command to help create shapes with the visualizer.
    Parts - how many parts there're in the visualizer.
    Disp - how far away the parts are from the player.
    Power - how much the PlaybackLoudness is divided by. (depicts how long the parts get.)
    Material - the material of the parts.
    Play - changes the SoundId of the music, ex: Play 226205163
    Don't forget the Prefix before Play.
    Pause - pauses the sound.
    Resume - resumes the sound.
    Tpos - how far it is into the sound.
    MaxDis - how far the sound reaches in distance.
    Emit - how far before the sound starts getting quiet.
    Vol - how loud the sound is.
    Pitch - defines the pitch of the sound.
    Follow - changes who the parts follow.
    Whitelist - allows other people to use the commands above, including this one.
]]--

local Follow='LocalPlayer'
local Plr=game.Players[Follow]
local Char=Plr.Character
local RootPart=Char.HumanoidRootPart

local Parts=Instance.new('Model')
Parts.Parent=Char

local Whitelist={}

Whitelist[Plr.Name]={Name=Plr.Name,UserId=Plr.UserId}

local Settings={
    Prefix='/',
    Color='Institutional white',
    Body=-3,
    Rainbow=false,
    Global=false,
    Angle=24,
    Goal=.15,
    Split=5,
    Parts=0,
    Disposition=4,
    Power=450,
    Material='Neon',
    Colors={
        Color3.fromRGB(0,0,0),
        Color3.fromRGB(25,25,25),
        Color3.fromRGB(50,50,50),
        Color3.fromRGB(75,75,75),
        Color3.fromRGB(100,100,100),
        Color3.fromRGB(125,125,125),
        Color3.fromRGB(150,150,150),
        Color3.fromRGB(175,175,175),
        Color3.fromRGB(200,200,200),
        Color3.fromRGB(225,225,225),
        Color3.fromRGB(250,250,250),
        Color3.fromRGB(255,255,255),
        Color3.fromRGB(250,250,250),
        Color3.fromRGB(225,225,225),
        Color3.fromRGB(200,200,200),
        Color3.fromRGB(175,175,175),
        Color3.fromRGB(150,150,150),
        Color3.fromRGB(125,125,125),
        Color3.fromRGB(100,100,100),
        Color3.fromRGB(75,75,75),
        Color3.fromRGB(50,50,50),
        Color3.fromRGB(25,25,25)
    }
}

function Sound(Name,Looped,Pitch,Volume,ID,Parent)
    local Snd=Instance.new('Sound')
    Snd.Name=Name
    Snd.SoundId='rbxassetid://680491857'..ID
    Snd.Looped=Looped
    Snd.PlaybackSpeed=Pitch
    Snd.Volume=Volume
    Snd.EmitterSize=10
    Snd.MaxDistance=100
    Snd.Parent=Parent

    return Snd
end

local Music=Sound('Music',true,1,1,0,RootPart)

function Part(Num)
    Settings.Parts=Num

    for i,v in pairs(Parts:GetChildren()) do
        v:Destroy()
    end

    for i=1,Num do
        local P=Instance.new('Part')
        local Light=Instance.new('PointLight')
        Light.Brightness=10
        Light.Range=10
        Light.Parent=P
        P.BrickColor=BrickColor.new(Settings.Color)
        P.Transparency=0
        P.Anchored=true
        P.CanCollide=false
        P.Material=Settings.Material
        P.Size=Vector3.new(.2,.2,.2)
        P.CFrame=CFrame.new(RootPart.CFrame.X,RootPart.CFrame.Y+Settings.Body,RootPart.CFrame.Z)
        P.Locked=true
        P.Parent=Parts
    end
end

Part(31)

function ColorChange()
    while game:GetService'RunService'.RenderStepped:wait() do
        local Color=Settings.Colors[math.random(1,#Settings.Colors)]
        for i,v in pairs(Parts:GetChildren()) do
            v.Material=Settings.Material
            if Settings.Rainbow==false then
                v.BrickColor=BrickColor.new(Settings.Color)
                v.PointLight.Color=Color3.fromRGB(255,255,255)
            else
                v.BrickColor=BrickColor.new(Color)
                v.PointLight.Color=Color
            end
        end
    end
end

local Rad=0

function Rot()
    while game:GetService'RunService'.RenderStepped:wait() do
        Rad=Rad+1

        if Rad>=360 then
            Rad=0
        end

        for i,v in pairs(Parts:GetChildren()) do
            v.CFrame=v.CFrame:Lerp(CFrame.new(RootPart.CFrame.X,RootPart.CFrame.Y+Settings.Body,RootPart.CFrame.Z)*CFrame.Angles(0,math.rad((360/Settings.Parts)*((i+(i*Settings.Angle))/Settings.Split)+Rad),0)*CFrame.new(0,0,Settings.Disposition+(v.Size.Z)),Settings.Goal)
        end
    end
end

function Size()
    while game:GetService'RunService'.RenderStepped:wait() do
        for i,v in pairs(Parts:GetChildren()) do
            v.Size=v.Size:Lerp(Vector3.new(.2,(Music.PlaybackLoudness/Settings.Power)*math.random(4,8)),.2,Settings.Goal)
        end
    end
end

spawn(Rot)
spawn(Size)
spawn(ColorChange)

function Chatted(Speaker,Message)
    for i,v in pairs(Whitelist) do
        if v.Name==Speaker.Name or v.UserId==Speaker.UserId then
            if Message:sub(1,6):lower():match(Settings.Prefix..'play ') then
                Music.SoundId='rbxassetid://'..Message:sub(7)
                Music:Play()
            elseif Message:sub(1,6):lower():match(Settings.Prefix..'pause') then
                Music:Pause()
            elseif Message:sub(1,7):lower():match(Settings.Prefix..'resume') then
                Music:Resume()
            elseif Message:sub(1,6):lower():match(Settings.Prefix..'tpos ') then
                Music.TimePosition=tonumber(Message:sub(7))
            elseif Message:sub(1,6):lower():match(Settings.Prefix..'emit ') then
                Music.EmitterSize=tonumber(Message:sub(7))
            elseif Message:sub(1,5):lower():match(Settings.Prefix..'vol ') then
                Music.Volume=tonumber(Message:sub(6))
            elseif Message:sub(1,7):lower():match(Settings.Prefix..'pitch ') then
                Music.PlaybackSpeed=tonumber(Message:sub(8))
            elseif Message:sub(1,8):lower():match(Settings.Prefix..'maxdis ') then
                Music.MaxDistance=tonumber(Message:sub(9))
            elseif Message:sub(1,8):lower():match(Settings.Prefix..'prefix ') then
                Settings.Prefix=Message:sub(9)
            elseif Message:sub(1,7):lower():match(Settings.Prefix..'angle ') then
                Settings.Angle=tonumber(Message:sub(8))
            elseif Message:sub(1,7):lower():match(Settings.Prefix..'split ') then
                Settings.Split=tonumber(Message:sub(8))
            elseif Message:sub(1,6):lower():match(Settings.Prefix..'goal ') then
                Settings.Goal=tonumber(Message:sub(7))
            elseif Message:sub(1,7):lower():match(Settings.Prefix..'color ') then
                Settings.Color=Message:sub(8)
            elseif Message:sub(1,6):lower():match(Settings.Prefix..'body ') then
                Settings.Body=tonumber(Message:sub(7))
            elseif Message:sub(1,10):lower():match(Settings.Prefix..'material ') then
                Settings.Material=Message:sub(11)
            elseif Message:sub(1,7):lower():match(Settings.Prefix..'global') then
                if Settings.Global==false then
                    Settings.Global=true
                    Music.Parent=workspace
                else
                    Settings.Global=false
                    Music.Parent=RootPart
                end
            elseif Message:sub(1,6):lower():match(Settings.Prefix..'disp ') then
                Settings.Disposition=tonumber(Message:sub(7))
            elseif Message:sub(1,7):lower():match(Settings.Prefix..'parts ') then
                Part(tonumber(Message:sub(8)))
            elseif Message:sub(1,7):lower():match(Settings.Prefix..'power ') then
                Settings.Power=tonumber(Message:sub(8))
            elseif Message:sub(1,8):lower():match(Settings.Prefix..'follow ') then
                for i,v in pairs(game.Players:GetPlayers()) do
                    if v.Name:lower():match(Message:sub(9):lower()) then
                        Follow=v.Name
                        Plr=game.Players[Follow]
                        Char=Plr.Character
                        RootPart=Char.HumanoidRootPart
                        if Settings.Global==false then
                            Music.Parent=RootPart
                        end
                    end
                end
            elseif Message:sub(1,11):lower():match(Settings.Prefix..'whitelist ') then
                for i,v in pairs(game.Players:GetPlayers()) do
				    if v.Name:lower():match(Message:sub(12):lower()) then
                        Whitelist[v.Name]={Name=v.Name,UserId=v.UserId}
				    end
			    end
            elseif Message:sub(1,8):lower():match(Settings.Prefix..'flash') then
                if Settings.Rainbow==false then
                    Settings.Rainbow=true
                else
                    Settings.Rainbow=false
                end
            end
        end
    end
end

game.Players.PlayerAdded:connect(function(Plyr)
    Plyr.Chatted:connect(function(Message) Chatted(Plyr,Message) end)
end)

for i,v in pairs(game.Players:GetPlayers()) do
    v.Chatted:connect(function(Message) Chatted(v,Message) end)
end

local visualizergui = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local idvalue = Instance.new("TextBox")
local play = Instance.new("TextButton")
local volume = Instance.new("TextBox")
local pitch = Instance.new("TextBox")
local close = Instance.new("TextButton")
local min = Instance.new("TextButton")
local credits = Instance.new("TextLabel")
local open = Instance.new("TextButton")
local set2 = Instance.new("TextButton")
local set1 = Instance.new("TextButton")
local loop = Instance.new("TextButton")

--properties xd
visualizergui.Name = "visualizergui"
visualizergui.Parent = game.Players.LocalPlayer.PlayerGui

Frame.Parent = visualizergui
Frame.BackgroundColor3 = Color3.new(0.701961, 0.952941, 1)
Frame.BackgroundTransparency = 0.20000000298023
Frame.BorderColor3 = Color3.new(0.211765, 0.329412, 0.415686)
Frame.BorderSizePixel = 8
Frame.Position = UDim2.new(0, 51, 0, 213)
Frame.Size = UDim2.new(0, 418, 0, 213)
Frame.Active = true
Frame.Draggable = true
Frame.Visible = false

idvalue.Name = "idvalue"
idvalue.Parent = Frame
idvalue.BackgroundColor3 = Color3.new(0.666667, 1, 1)
idvalue.BackgroundTransparency = 0.5
idvalue.Size = UDim2.new(0, 418, 0, 50)
idvalue.Font = Enum.Font.Fantasy
idvalue.FontSize = Enum.FontSize.Size24
idvalue.Text = "Put ID plz"
idvalue.TextSize = 24

play.Name = "play"
play.Parent = Frame
play.BackgroundColor3 = Color3.new(0.666667, 1, 1)
play.BackgroundTransparency = 0.44999998807907
play.BorderColor3 = Color3.new(0.207843, 0.0901961, 0.0705882)
play.BorderSizePixel = 3
play.Position = UDim2.new(0, 9, 0, 82)
play.Size = UDim2.new(0, 117, 0, 50)
play.Font = Enum.Font.SourceSans
play.FontSize = Enum.FontSize.Size28
play.Text = "Play"
play.TextSize = 28

volume.Name = "volume"
volume.Parent = Frame
volume.BackgroundColor3 = Color3.new(0.666667, 1, 1)
volume.BackgroundTransparency = 0.44999998807907
volume.BorderColor3 = Color3.new(0.207843, 0.0901961, 0.0705882)
volume.BorderSizePixel = 3
volume.Position = UDim2.new(0, 151, 0, 82)
volume.Size = UDim2.new(0, 117, 0, 50)
volume.Font = Enum.Font.SourceSans
volume.FontSize = Enum.FontSize.Size28
volume.Text = "Volume"
volume.TextSize = 28

pitch.Name = "pitch"
pitch.Parent = Frame
pitch.BackgroundColor3 = Color3.new(0.666667, 1, 1)
pitch.BackgroundTransparency = 0.44999998807907
pitch.BorderColor3 = Color3.new(0.207843, 0.0901961, 0.0705882)
pitch.BorderSizePixel = 3
pitch.Position = UDim2.new(0, 291, 0, 82)
pitch.Size = UDim2.new(0, 117, 0, 50)
pitch.Font = Enum.Font.SourceSans
pitch.FontSize = Enum.FontSize.Size28
pitch.Text = "Pitch"
pitch.TextSize = 28

close.Name = "close"
close.Parent = Frame
close.BackgroundColor3 = Color3.new(1, 0, 0.0156863)
close.BackgroundTransparency = 0.40000000596046
close.Position = UDim2.new(0, 393, 0, 190)
close.Size = UDim2.new(0, 25, 0, 23)
close.Font = Enum.Font.SourceSans
close.FontSize = Enum.FontSize.Size28
close.Text = "X"
close.TextSize = 28

min.Name = "min"
min.Parent = Frame
min.BackgroundColor3 = Color3.new(0.286275, 0.286275, 1)
min.BackgroundTransparency = 0.40000000596046
min.Position = UDim2.new(0, 357, 0, 190)
min.Size = UDim2.new(0, 25, 0, 23)
min.Font = Enum.Font.SourceSans
min.FontSize = Enum.FontSize.Size36
min.Text = "-"
min.TextSize = 36

credits.Name = "credits"
credits.Parent = Frame
credits.BackgroundColor3 = Color3.new(1, 1, 1)
credits.BackgroundTransparency = 1
credits.Position = UDim2.new(0, 0, 0, 161)
credits.Size = UDim2.new(0, 200, 0, 52)
credits.Font = Enum.Font.SourceSans
credits.FontSize = Enum.FontSize.Size14
credits.Text = "Gui by xX360Sc0PeZXx"
credits.TextSize = 14
credits.TextWrapped = true

open.Name = "open"
open.Parent = visualizergui
open.BackgroundColor3 = Color3.new(0.666667, 1, 1)
open.BackgroundTransparency = 0.44999998807907
open.BorderColor3 = Color3.new(0.207843, 0.0901961, 0.0705882)
open.BorderSizePixel = 3
open.Position = UDim2.new(0, 0, 0, 400)
open.Size = UDim2.new(0, 59, 0, 50)
open.Font = Enum.Font.SourceSans
open.FontSize = Enum.FontSize.Size28
open.Text = "Open"
open.TextSize = 28
open.Visible = false

set2.Name = "set2"
set2.Parent = Frame
set2.BackgroundColor3 = Color3.new(0.666667, 1, 1)
set2.BackgroundTransparency = 0.44999998807907
set2.BorderColor3 = Color3.new(0.207843, 0.0901961, 0.0705882)
set2.BorderSizePixel = 3
set2.Position = UDim2.new(0, 325, 0, 136)
set2.Size = UDim2.new(0, 55, 0, 25)
set2.Font = Enum.Font.SourceSans
set2.FontSize = Enum.FontSize.Size24
set2.Text = "Set"
set2.TextSize = 24
set2.TextWrapped = true

set1.Name = "set1"
set1.Parent = Frame
set1.BackgroundColor3 = Color3.new(0.666667, 1, 1)
set1.BackgroundTransparency = 0.44999998807907
set1.BorderColor3 = Color3.new(0.207843, 0.0901961, 0.0705882)
set1.BorderSizePixel = 3
set1.Position = UDim2.new(0, 181, 0, 136)
set1.Size = UDim2.new(0, 55, 0, 25)
set1.Font = Enum.Font.SourceSans
set1.FontSize = Enum.FontSize.Size24
set1.Text = "Set"
set1.TextSize = 24
set1.TextWrapped = true

loop.Name = "loop"
loop.Parent = Frame
loop.BackgroundColor3 = Color3.new(0.666667, 1, 1)
loop.BackgroundTransparency = 0.44999998807907
loop.BorderColor3 = Color3.new(0.207843, 0.0901961, 0.0705882)
loop.BorderSizePixel = 3
loop.Position = UDim2.new(0, 241, 0, 188)
loop.Size = UDim2.new(0, 84, 0, 25)
loop.Font = Enum.Font.SourceSans
loop.FontSize = Enum.FontSize.Size18
loop.Text = "Loop : OFF"
loop.TextSize = 18
loop.TextWrapped = true

-- functions
function start()
wait(0.5)
Frame.Position = UDim2.new(0, -500, 0, 400)
Frame.Visible = true
Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,1)
end

if game.Players.LocalPlayer.Character then
start()
else
print'character not found plz try again XD'
end

function minimize()
Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,1)
credits.Text = ""
min.Text = ""
close.Text = ""
play.Text = ""
pitch.Text = ""
volume.Text = ""
idvalue.Text = ""
set1.Text = ""
set2.Text = ""
loop.Text = ""
Frame:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
credits:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
min:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
close:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
idvalue:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
volume:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
play:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
pitch:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
loop:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
set1:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
set2:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
   wait(0.5)
Frame.Visible = false
open.Visible = true
end

function show()
open.Visible = false
Frame.Position = UDim2.new(0, -500, 0, 400)
Frame.Visible = true
credits.Text = "credits to me for gui, i didn't make the visualizer credits to whoever leaked it or made it."
min.Text = "-"
close.Text = "X"
play.Text = "Play"
pitch.Text = "Pitch"
volume.Text = "Volume"
idvalue.Text = "Put ID plz"
set1.Text = "Set"
set2.Text = "Set"
loop.Text = "Loop : OFF"
Frame:TweenSize(UDim2.new(0, 418, 0, 213),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
credits:TweenSize(UDim2.new(0, 200, 0, 52),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
min:TweenSize(UDim2.new(0, 25, 0, 23),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
close:TweenSize(UDim2.new(0, 25, 0, 23),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
idvalue:TweenSize(UDim2.new(0, 418, 0, 50),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
volume:TweenSize(UDim2.new(0, 117, 0, 50),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
play:TweenSize(UDim2.new(0, 117, 0, 50),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
pitch:TweenSize(UDim2.new(0, 117, 0, 50),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
set1:TweenSize(UDim2.new(0, 55, 0, 25),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
loop:TweenSize(UDim2.new(0, 84, 0, 25),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
set2:TweenSize(UDim2.new(0, 55, 0, 25),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint, 0.5)
end

function exitdatshit()
Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,1)
credits.Text = ""
min.Text = ""
close.Text = ""
play.Text = ""
pitch.Text = ""
volume.Text = ""
idvalue.Text = ""
Frame:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
credits:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
min:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
close:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
idvalue:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
volume:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
play:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
pitch:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
set1:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
set2:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
loop:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
wait(0.5)
   visualizergui:Destroy()
end

-- events
wait(1)
min.MouseButton1Down:connect(function()
minimize()
end)

open.MouseButton1Down:connect(function()
show()
end)

close.MouseButton1Down:connect(function()
exitdatshit()
end)

set1.MouseButton1Down:connect(function()
Music.Volume = volume.Text
end)

set2.MouseButton1Down:connect(function()
Music.Pitch = pitch.Text
end)

play.MouseButton1Down:connect(function()
Music:Stop()
Music.SoundId = "rbxassetid://" .. idvalue.Text
wait(0.3)
Music:Play()
end)

loop.MouseButton1Down:connect(function()
if loop.Text == "Loop : OFF" then
Music.Looped = true
loop.Text = "Loop : ON"
else
Music.Looped = false
loop.Text = "Loop : OFF"
end
end)