tomonaoboys audio visualizer 2nd(changed2public)

print[[
tomonaoboys's audio visualizer (2nd)
v1.2 (maybe)
it's just remake of my SHIT audio visualizer.
i'm looking at :
> more beautiful
> easy to control
> less laggy
but im not good at them , so please ...idk.
and if you couldn't read idks, you can watch helps with left Alt key.
but I promise its useless because im not good for english...]]
--[[NOT preset
340816884 (Nightcore - Good time)
]]
local SoundId=nil local Volume=5 local oldSI=nil local Sync=false local SyncData={}local SyncTo=1
local Player=game:service("Players").LocalPlayer
script.Parent=Player:FindFirstChildOfClass("PlayerScripts")
local Position=Vector3.new()local Time=0
local RS=game:service("RunService").RenderStepped
if 1 then local InsertModel=Instance.new'Model'GetInstance=function(CallInst,Parent)if InsertModel:FindFirstChildOfClass(CallInst)==nil then Instance.new(CallInst,InsertModel)end local Obj=InsertModel:Clone():FindFirstChildOfClass(CallInst)Obj.Parent=Parent or nil return Obj end end
warn'3'
local function sw(num)
    if num~=nil then
        for i=1,tonumber(num)do
            RS:wait()
        end
    else
        RS:wait()
    end
    return true
end
warn("Owner = "..tostring(Player))
local Mouse=Player:GetMouse()
local Alt=false
Mouse.KeyDown:connect(function(ky)
if ky=="4"then if Alt then Alt=false else Alt=true end end
end)
local Sound=nil local PlaybackSpeed=100
local Blocks=8 local Range=10
local team={}local Dat={}local dm1f=false local dm1l={}
local Mode="BLOCK"
local Effects=Instance.new("Folder",workspace)local PlayMode="Inverse"
local function ReSound()if not Sync then if Sound then Sound:Destroy()end if oldSI~=SoundId then oldSI=SoundId Time=0 end
    Sound=Instance.new("Sound")Sound.TimePosition=Time Sound:Play()Sound.Looped=true Sound.RollOffMode=PlayMode
    Sound.SoundId="rbxassetid://"..tostring(SoundId)Sound.Volume=Volume Sound.EmitterSize=2500 Sound.MaxDistance=400 end
end
local HelpDict={"SoundId , put Sound Id to here and plays automatically.","Volume. You can control Sound volume with this. Do not input huge value! (but max is 10)"
,"(%)PlaybackSpeed. You can change pitch? with this value. Do not input HUGE value or it rips your ear!","(String)This is RollOffMode , you can use Inverse and Linear now. maybe."
,"Loud Divide value, do not input 0 please. use this if music have great volume.","Segment(s), This decides number of visualizer parts. DO NOT ABUSE THIS"
,"LoudShake ... hard to tell this and useless. visualizer shakes by loudness?","Range. This determine the range of segment parts.","(String)This can change mode , Line and Block is available."
,"DataMode : actually ded,this won't work now.(Mode 1 : something like spectrum i thought = fail)","(RGB+Opt)Color RGB. You can decide color with this textboxes!",
"CFrame Rotation. It automatically rotates if values aren't 0. click Reset to clear rotate angle.","This have 0 ~ 2 and minus(rainbow) options."
}HelpDict[0]="This will help you bit when you clicked something with this..."
local dic_click=0
local Which=true local LoudDiv=500 local something=3 local LSHAKE=0 local DataMode=1
local VisC={R=255,G=255,B=255,Opt=0,RainbowSpeed=0}local Rotation={AddX=0,AddY=0,AddZ=0,X=0,Y=0,Z=0}
local function Create()
    dm1f=false
    for i=1,#dm1l do if dm1l[i]then dm1l[i]:disconnect()end end dm1l={}
    Effects:Destroy()
    Effects=Instance.new("Folder",workspace)
    if Mode=="BLOCK"then
        team={}
        for i=1,Blocks do
            local p=Instance.new("Part")p.Size=Vector3.new(.1,.1,.5)p.Anchored=true p.CanCollide=false
            local m=Instance.new("SpecialMesh",p)m.MeshType="Brick"m.Scale=p.Size*20 p.Size=Vector3.new()
            p.Parent=Effects p.Material="Neon"
            team[i]={Part=p,Mesh=m}
        end
        Dat={}
        for i=1,Blocks do
            Dat[i]=0
        end
    end
    if Mode=="LINE"then
        team={}
        for i=1,Blocks do
            local p=Instance.new("Part")p.Size=Vector3.new()p.Anchored=true p.CanCollide=false
            local A0=Instance.new("Attachment",p)
            --local tA=Instance.new("Attachment",p)tA.Position=Vector3.new(0,.05,0)local tB=Instance.new("Attachment",p)tB.Position=-tA.Position
            --local tr=Instance.new("Trail",p)tr.Attachment0=tA tr.Attachment1=tB tr.FaceCamera=1 tr.Texture="rbxassetid://1251856844"tr.Transparency=NumberSequence.new(0,1)tr.LightEmission=1
            --tr.Lifetime=.1
            p.Parent=Effects p.Material="Neon"
            team[i]={Part=p,Attr=A0,RandC=CFrame.new(),RandCD=CFrame.new()}
        end
        for i=1,Blocks do
            local iron=Instance.new("RodConstraint",team[i].Part)
            iron.Attachment0=team[i].Attr iron.Visible=true team[i].Rod=iron
            local tr=Instance.new("Trail",team[i].Part)tr.Attachment0=team[i].Attr tr.Transparency=NumberSequence.new(.7,1)tr.LightEmission=1
            tr.Lifetime=.2 team[i].Trail=tr
            if i~=Blocks then iron.Attachment1=team[i+1].Attr tr.Attachment1=team[i+1].Attr else iron.Attachment1=team[1].Attr tr.Attachment1=team[1].Attr end
        end
        Dat={}
        for i=1,Blocks do
            Dat[i]=0
        end
    end
end
local function GUI()
    local gu=Player:FindFirstChildOfClass("PlayerGui")
    warn("..Spawing Gui...")
    if gu then local destroy=false
        if gu:FindFirstChild("tomonaoboys's audio visualizer")then gu["tomonaoboys's audio visualizer"]:Destroy()warn("Erased old gui.")end
        local Screen=Instance.new("ScreenGui",gu)
        Screen.Name="tomonaoboys's audio visualizer"
        local Frame=Instance.new("Frame",Screen)
        Frame.Size=UDim2.new(0,250,0,300)Frame.Draggable=true
        Frame.Position=UDim2.new(.5,0,0,0)Frame.Active=true Frame.BackgroundTransparency=.666 Frame.BorderSizePixel=0 Frame.BackgroundColor3=Color3.new()
        local TopTextLabel=Instance.new("TextLabel",Frame)TopTextLabel.Size=UDim2.new(.85,0,.05,0)TopTextLabel.Text=" tomonaoboys's audio visualizer"
        TopTextLabel.BackgroundColor3=Color3.new(1,1,1)TopTextLabel.BorderSizePixel=0
        TopTextLabel.BackgroundTransparency=0 TopTextLabel.TextColor3=Color3.new(1,1,1)TopTextLabel.ZIndex=256
        TopTextLabel.TextStrokeTransparency=.5 TopTextLabel.LayoutOrder=256 TopTextLabel.TextXAlignment="Left"
        local Musics=Instance.new("TextLabel",Frame)Musics.Size=UDim2.new(1,0,.05,0)Musics.Position=UDim2.new(0,0,.95,0)Musics.BackgroundColor3=Color3.new(1,1,1)Musics.BorderSizePixel=0
        Musics.TextXAlignment="Left"Musics.TextColor3=Color3.new(1,1,1)Musics.TextStrokeTransparency=1/3
        local a=Instance.new("TextButton",Frame)a.Text="Music"a.Font="Arcade"a.Position=UDim2.new(0,0,.05,0)a.Size=UDim2.new(.5,0,.05,0)a.TextSize=20 a.BorderSizePixel=0
        a.TextColor3=Color3.new(1,1,1)a.TextStrokeTransparency=.5 if Which then a.BackgroundColor3=Color3.new(.4,1,.4)else a.BackgroundColor3=Color3.new(.4,.4,.4)end
        a.MouseEnter:connect(function()a.BackgroundColor3=Color3.new(1,1,1)end)a.AutoButtonColor=false
        a.MouseLeave:connect(function()if Which then a.BackgroundColor3=Color3.new(.4,1,.4)else a.BackgroundColor3=Color3.new(.4,.4,.4)end end)
        local b=Instance.new("TextButton",Frame)b.Text="Visualizer"b.Font="Arcade"b.Position=UDim2.new(.5,0,.05,0)b.Size=UDim2.new(.5,0,.05,0)b.TextSize=20 b.BorderSizePixel=0
        b.TextColor3=Color3.new(1,1,1)b.TextStrokeTransparency=.5 if not Which then b.BackgroundColor3=Color3.new(.4,1,.4)else b.BackgroundColor3=Color3.new(.4,.4,.4)end
        b.MouseEnter:connect(function()b.BackgroundColor3=Color3.new(1,1,1)end)b.AutoButtonColor=false
        b.MouseLeave:connect(function()if not Which then b.BackgroundColor3=Color3.new(.4,1,.4)else b.BackgroundColor3=Color3.new(.4,.4,.4)end end)
        b.MouseButton1Click:connect(function()Which=false a.BackgroundColor3=Color3.new(.4,.4,.4)end)a.MouseButton1Click:connect(function()Which=true b.BackgroundColor3=Color3.new(.4,.4,.4)end)
        local MusicTab=Instance.new("Frame")MusicTab.Name="MusicOpt"
        local VisTab=Instance.new("Frame")VisTab.Name="VisualizerOpt"
        MusicTab.Size=UDim2.new(1,0,.85,0)MusicTab.Position=UDim2.new(0,0,.1,0)MusicTab.BackgroundTransparency=1

        if 1 then
        local idk=Instance.new("UIListLayout",MusicTab)idk.Padding=UDim.new(0,1)
        local f=GetInstance("Frame",MusicTab)f.Size=UDim2.new(1,0,.05,0)f.BackgroundTransparency=1
        local a=Instance.new("TextButton",f)a.Size=UDim2.new(.2,0,1,0)a.Text="ID"a.BorderSizePixel=0
        a.TextColor3=Color3.new(1,1,1)a.TextStrokeTransparency=.5 a.TextStrokeColor3=Color3.new(.5,.5,.5)
        a.BackgroundColor3=Color3.new(0,0,0)a.AutoButtonColor=nil a.MouseButton1Click:connect(function()dic_click=1 end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8,0,1,0)a2.Position=UDim2.new(.2,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(1,1,1)a2.BorderSizePixel=0
        if SoundId==nil then a2.Text=""else a2.Text=tostring(SoundId)end
        a2.FocusLost:connect(function(i)if i then oldSI=SoundId SoundId=tonumber(a2.Text)ReSound()end end)
        local f=GetInstance("Frame",MusicTab)f.Size=UDim2.new(1,0,.05,0)f.BackgroundTransparency=1
        local a=Instance.new("TextButton",f)a.Size=UDim2.new(.2,0,1,0)a.Text="Volume"a.BorderSizePixel=0
        a.TextColor3=Color3.new(1,1,1)a.TextStrokeTransparency=.5 a.TextStrokeColor3=Color3.new(.5,.5,.5)
        a.BackgroundColor3=Color3.new(0,0,0)a.AutoButtonColor=nil a.MouseButton1Click:connect(function()dic_click=2 end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8,0,1,0)a2.Position=a.Position+UDim2.new(.2,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(1,1,1)a2.BorderSizePixel=0
        a2.Text=Volume
        a2.FocusLost:connect(function(i)if i then Volume=tonumber(a2.Text)Sound.Volume=Volume end end)
        local f=GetInstance("Frame",MusicTab)f.Size=UDim2.new(1,0,.05,0)f.BackgroundTransparency=1
        local a=Instance.new("TextButton",f)a.Size=UDim2.new(.2,0,1,0)a.Text="PBSpeed"a.BorderSizePixel=0
        a.TextColor3=Color3.new(1,1,1)a.TextStrokeTransparency=.5 a.TextStrokeColor3=Color3.new(.5,.5,.5)
        a.BackgroundColor3=Color3.new(0,0,0)a.AutoButtonColor=nil a.MouseButton1Click:connect(function()dic_click=3 end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8,0,1,0)a2.Position=a.Position+UDim2.new(.2,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(1,1,1)a2.BorderSizePixel=0
        a2.Text=tostring(PlaybackSpeed).."(%)"
        a2.FocusLost:connect(function(i)if i then PlaybackSpeed=tonumber(a2.Text)end end)
        local f=GetInstance("Frame",MusicTab)f.Size=UDim2.new(1,0,.05,0)f.BackgroundTransparency=1
        local a=Instance.new("TextButton",f)a.Size=UDim2.new(.2,0,1,0)a.Text="Mode"a.BorderSizePixel=0
        a.TextColor3=Color3.new(1,1,1)a.TextStrokeTransparency=.5 a.TextStrokeColor3=Color3.new(.5,.5,.5)
        a.BackgroundColor3=Color3.new(0,0,0)a.AutoButtonColor=nil a.MouseButton1Click:connect(function()dic_click=4 end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8,0,1,0)a2.Position=a.Position+UDim2.new(.2,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(1,1,1)a2.BorderSizePixel=0
        a2.Text=tostring(PlayMode)
        a2.FocusLost:connect(function(i)if i then PlayMode=("Linear"==a2.Text or"Inverse"==a2.Text)and a2.Text or"Inverse"warn(PlayMode.."(check)")end end)
        end

        if 1 then
        local idk=Instance.new("UIListLayout",VisTab)idk.Padding=UDim.new(0,1)

        local f=GetInstance("Frame",VisTab)f.Size=UDim2.new(1,0,.05,0)f.BackgroundTransparency=1
        local a=Instance.new("TextButton",f)a.Size=UDim2.new(.2,0,1,0)a.Text="LoudDiv"a.BorderSizePixel=0
        a.TextColor3=Color3.new(1,1,1)a.TextStrokeTransparency=.5 a.TextStrokeColor3=Color3.new(.5,.5,.5)
        a.BackgroundColor3=Color3.new(0,0,0)a.AutoButtonColor=nil a.MouseButton1Click:connect(function()dic_click=5 end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8,0,1,0)a2.Position=a.Position+UDim2.new(.2,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(1,1,1)a2.BorderSizePixel=0
        a2.Text=LoudDiv/100
        a2.FocusLost:connect(function(i)if i then LoudDiv=(tonumber(a2.Text)~=nil and tonumber(a2.Text)~=0)and tonumber(a2.Text)*100 or LoudDiv end end)
        local f=GetInstance("Frame",VisTab)f.Size=UDim2.new(1,0,.05,0)f.BackgroundTransparency=1
        local a=Instance.new("TextButton",f)a.Size=UDim2.new(.2,0,1,0)a.Text="Segment"a.BorderSizePixel=0
        a.TextColor3=Color3.new(1,1,1)a.TextStrokeTransparency=.5 a.TextStrokeColor3=Color3.new(.5,.5,.5)
        a.BackgroundColor3=Color3.new(0,0,0)a.AutoButtonColor=nil a.MouseButton1Click:connect(function()dic_click=6 end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8,0,1,0)a2.Position=a.Position+UDim2.new(.2,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(1,1,1)a2.BorderSizePixel=0
        a2.Text=Blocks
        a2.FocusLost:connect(function(i)if i then Blocks=tonumber(a2.Text)Effects:Destroy()Create()end end)
        local f=GetInstance("Frame",VisTab)f.Size=UDim2.new(1,0,.05,0)f.BackgroundTransparency=1
        local a=Instance.new("TextButton",f)a.Size=UDim2.new(.2,0,1,0)a.Text="L.Shake"a.BorderSizePixel=0
        a.TextColor3=Color3.new(1,1,1)a.TextStrokeTransparency=.5 a.TextStrokeColor3=Color3.new(.5,.5,.5)
        a.BackgroundColor3=Color3.new(0,0,0)a.AutoButtonColor=nil a.MouseButton1Click:connect(function()dic_click=7 end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8,0,1,0)a2.Position=a.Position+UDim2.new(.2,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(1,1,1)a2.BorderSizePixel=0
        a2.Text=LSHAKE
        a2.FocusLost:connect(function(i)if i then LSHAKE=tonumber(a2.Text)end end)
        local f=GetInstance("Frame",VisTab)f.Size=UDim2.new(1,0,.05,0)f.BackgroundTransparency=1
        local a=Instance.new("TextButton",f)a.Size=UDim2.new(.2,0,1,0)a.Text="Range"a.BorderSizePixel=0
        a.TextColor3=Color3.new(1,1,1)a.TextStrokeTransparency=.5 a.TextStrokeColor3=Color3.new(.5,.5,.5)
        a.BackgroundColor3=Color3.new(0,0,0)a.AutoButtonColor=nil a.MouseButton1Click:connect(function()dic_click=8 end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8,0,1,0)a2.Position=a.Position+UDim2.new(.2,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(1,1,1)a2.BorderSizePixel=0
        a2.Text=Range
        a2.FocusLost:connect(function(i)if i then Range=tonumber(a2.Text)end end)
        local f=GetInstance("Frame",VisTab)f.Size=UDim2.new(1,0,.05,0)f.BackgroundTransparency=1
        local a=Instance.new("TextButton",f)a.Size=UDim2.new(.2,0,1,0)a.Text="Mode"a.BorderSizePixel=0
        a.TextColor3=Color3.new(1,1,1)a.TextStrokeTransparency=.5 a.TextStrokeColor3=Color3.new(.5,.5,.5)
        a.BackgroundColor3=Color3.new(0,0,0)a.AutoButtonColor=nil a.MouseButton1Click:connect(function()dic_click=9 end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8,0,1,0)a2.Position=a.Position+UDim2.new(.2,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(1,1,1)a2.BorderSizePixel=0
        a2.Text=Mode
        a2.FocusLost:connect(function(i)local t=a2.Text:upper()if(t=="BLOCK")or(t=="LINE")then Mode=t Create()end end)
        local f=GetInstance("Frame",VisTab)f.Size=UDim2.new(1,0,.05,0)f.BackgroundTransparency=1
        local a=Instance.new("TextButton",f)a.Size=UDim2.new(.2,0,1,0)a.Text="DatMode"a.BorderSizePixel=0
        a.TextColor3=Color3.new(1,1,1)a.TextStrokeTransparency=.5 a.TextStrokeColor3=Color3.new(.5,.5,.5)
        a.BackgroundColor3=Color3.new(0,0,0)a.AutoButtonColor=nil a.MouseButton1Click:connect(function()dic_click=10 end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8,0,1,0)a2.Position=a.Position+UDim2.new(.2,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(1,1,1)a2.BorderSizePixel=0
        a2.Text=DataMode.." / Warning : don't work"
        a2.FocusLost:connect(function(i)local t=tonumber(a2.Text)if(t==0)or(t==1)then DataMode=t Create()end end)
        local f=GetInstance("Frame",VisTab)f.Size=UDim2.new(1,0,.05,0)f.BackgroundTransparency=1
        local a=Instance.new("TextButton",f)a.Size=UDim2.new(.2,0,1,0)a.Text="ColRGB"a.BorderSizePixel=0
        a.TextColor3=Color3.new(1,1,1)a.TextStrokeTransparency=.5 a.TextStrokeColor3=Color3.new(.5,.5,.5)
        a.BackgroundColor3=Color3.new(0,0,0)a.AutoButtonColor=nil a.MouseButton1Click:connect(function()dic_click=11 end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8/4,0,1,0)a2.Position=a.Position+UDim2.new(.2,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(1,.5,.5)a2.BorderSizePixel=0
        a2.Text=VisC.R
        a2.FocusLost:connect(function(i)VisC.R=tonumber(a2.Text)or VisC.R end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8/4,0,1,0)a2.Position=a.Position+UDim2.new(.2+.8/4,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(.5,1,.5)a2.BorderSizePixel=0
        a2.Text=VisC.G
        a2.FocusLost:connect(function(i)VisC.G=tonumber(a2.Text)or VisC.G end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8/4,0,1,0)a2.Position=a.Position+UDim2.new(.2+.8/4*2,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(.5,.5,1)a2.BorderSizePixel=0
        a2.Text=VisC.B
        a2.FocusLost:connect(function(i)VisC.B=tonumber(a2.Text)or VisC.B end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8/4,0,1,0)a2.Position=a.Position+UDim2.new(.2+.8/4*3,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(1,1,1)a2.BorderSizePixel=0
        a2.Text="(Option)"..VisC.Opt a2.InputBegan:connect(function()dic_click=13 end)
        a2.FocusLost:connect(function(i)local wasRainbow=VisC.Opt<0 and 1 or nil  VisC.Opt=tonumber(a2.Text)or VisC.Opt
        if VisC.Opt<0 then VisC.RainbowSpeed=math.abs(VisC.Opt)VisC.R,VisC.G,VisC.B=255,0,0 else if wasRainbow then VisC.R,VisC.G,VisC.B=255,255,255 end end
        print(VisC.Opt<0 and"Rainbow"or VisC.Opt==0 and"Lower Color by Loudness"or VisC.Opt==1 and"One Color"or VisC.Opt==2 and"Fading by Loudness")
        end)
        local f=GetInstance("Frame",VisTab)f.Size=UDim2.new(1,0,.05,0)f.BackgroundTransparency=1
        local a=Instance.new("TextButton",f)a.Size=UDim2.new(.2,0,1,0)a.Text="C.Rotate"a.BorderSizePixel=0
        a.TextColor3=Color3.new(1,1,1)a.TextStrokeTransparency=.5 a.TextStrokeColor3=Color3.new(.5,.5,.5)
        a.BackgroundColor3=Color3.new(0,0,0)a.AutoButtonColor=nil a.MouseButton1Click:connect(function()dic_click=12 end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8/4,0,1,0)a2.Position=a.Position+UDim2.new(.2,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(1,.5,.5)a2.BorderSizePixel=0
        a2.Text="X="..Rotation.AddX
        a2.FocusLost:connect(function(i)Rotation.AddX=tonumber(a2.Text)or Rotation.AddX end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8/4,0,1,0)a2.Position=a.Position+UDim2.new(.2+.8/4,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(.5,1,.5)a2.BorderSizePixel=0
        a2.Text="Y="..Rotation.AddY
        a2.FocusLost:connect(function(i)Rotation.AddY=tonumber(a2.Text)or Rotation.AddY end)
        local a2=Instance.new("TextBox",a.Parent)a2.Size=UDim2.new(.8/4,0,1,0)a2.Position=a.Position+UDim2.new(.2+.8/4*2,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(.5,.5,1)a2.BorderSizePixel=0
        a2.Text="Z="..Rotation.AddZ
        a2.FocusLost:connect(function(i)Rotation.AddZ=tonumber(a2.Text)or Rotation.AddZ end)
        local a2=Instance.new("TextButton",a.Parent)a2.Size=UDim2.new(.8/4,0,1,0)a2.Position=a.Position+UDim2.new(.2+.8/4*3,0,0,0)a2.TextColor3=Color3.new(0,0,0)a2.BackgroundColor3=Color3.new(.4,.4,.4)a2.BorderSizePixel=0
        a2.Text="Reset"
        a2.MouseButton1Click:connect(function()Rotation.X=0 Rotation.Y=0 Rotation.Z=0 end)
        end

        VisTab.Size=UDim2.new(1,0,.85,0)VisTab.Position=UDim2.new(0,0,.1,0)VisTab.BackgroundTransparency=1

        spawn(function()
            while sw()and not destroy and gu.Parent do
                if not destroy and gu.Parent then
                if SoundId~=nil then
                    Musics.Text="Playing: "..game:GetService("MarketplaceService"):GetProductInfo(SoundId).Name
                else
                    Musics.Text="Playing: < None >"
                end
                if Sound then Musics.BackgroundColor3=Color3.new(Sound.PlaybackLoudness/LoudDiv,Sound.PlaybackLoudness/LoudDiv,Sound.PlaybackLoudness/LoudDiv)end
                if Which then
                    MusicTab.Parent=Frame
                    VisTab.Parent=nil
                else
                    MusicTab.Parent=nil
                    VisTab.Parent=Frame
                end
                end
            end
        end)
        local HelpLabel=Instance.new("TextButton",Screen)HelpLabel.BackgroundTransparency=.3 HelpLabel.TextColor3=Color3.new(1,1,1)HelpLabel.AutoButtonColor=nil
        HelpLabel.BackgroundColor3=Color3.new()HelpLabel.BorderSizePixel=0 HelpLabel.ZIndex=256 HelpLabel.TextStrokeTransparency=0
        HelpLabel.TextXAlignment="Left"
        spawn(function()
        while sw()and not destroy and gu.Parent do
            if Alt then
                HelpLabel.Text="  "..tostring(HelpDict[dic_click]or "Wait... It has no info.")
                HelpLabel.Size=UDim2.new(0,5,.025,0)HelpLabel.Position=UDim2.new(0,Mouse.X+20,0,Mouse.Y+20)
            else
                HelpLabel.Size=UDim2.new(0,0,0,0)HelpLabel.Text=""
            end
        end
        end)
        local CloseButton=Instance.new("TextButton",Frame)CloseButton.Size=UDim2.new(.149,0,.05,0)CloseButton.Text="Close"CloseButton.BorderSizePixel=0
        CloseButton.Position=UDim2.new(.85,0,0,0)CloseButton.BackgroundColor3=Color3.new(1,.4,.4)CloseButton.TextColor3=Color3.new(1,1,1)CloseButton.TextStrokeTransparency=.5
        CloseButton.MouseButton1Down:connect(function()destroy=true sw()Screen:Destroy()end)CloseButton.ZIndex=256
    else
        error("PlayerGui not found. This error is very bad, I recommend you to rejoin.")
    end
end
GUI()
Player.Chatted:connect(function(m)
m=string.upper(m)
if m:sub(1,6)=="A:SET:"then SyncTo=tonumber(m:sub(7))or 1 warn('Set to '..tostring(SyncTo))end
if m=="A:GUI"then GUI()end
if m=="A:SYNC"then if SyncData[1]~=nil then Sync=not Sync Sound=nil else warn'not found'end warn(Sync) end
if m=="A:SY:GET"then local c=0
for i,p in pairs(workspace:GetDescendants())do
if p:IsA'Sound'and p.TimeLength>20 then table.insert(SyncData,p)c=c+1 print(tostring(c)..":"..tostring(p:GetFullName()))end
end
end

end)
Create()Tweens={}
local function quadOut(t,b,c,d)t=t/d return -c*t*(t-2)+b end
local function quadIn(t,b,c,d)t=t/d return c*t*t+b end
local function Quad(did,val,ease,d)--local Height=LoudDiv
    local t,f,con,nt,st,sd=tick()
    Tweens[did]=t -- Set identifier
    st=did--.Scale.Y -- Start Value
    sd=val-st -- Change in Value
    f=ease=='In' and quadIn or quadOut -- Choose between Out/In
    con=game:GetService'RunService'.RenderStepped:connect(function() nt=tick()-t
        if Tweens[did]~=t or DataMode~=1 then -- Check for override
            con:disconnect()
            return
        end
        local nv=math.max(.2,f(math.min(d,nt),st,sd,d)) -- New Value
        Dat[did]=nv*255/LoudDiv
        if nt>d then -- Easing done?
            con:disconnect()
            if ease~='In' then
                Quad(did,.2,'Out',.05) -- Drop the bar
            end
        end
    end)
end

local function CheckSet(N,S,D) -- Number, Scale, Direction
    local nS=Dat[N]--Soundbar[tostring(N)].Mesh.Scale.Y
    if nS~=nil and S>nS then
        Set(N,nS+(S-nS)/3,D)
    end
end
function Set(N,S,D) -- Number, Scale, Direction
    Quad(N,S,'Out',.1) -- Grabs the bar and tweens
    if N>0 and D~=1 then -- Checks left for smaller bars to manipulate
        CheckSet(N-1,S,-1)
    end
    if N<#team-1 and D~=-1 then -- Checks right...
        CheckSet(N+1,S,1)
    end
end

RandSeed=math.random(65546)
local function quadOut(t,b,c,d)t=t/d return -c*t*(t-2)+b end
local oldt=tick()local Ra_Flg=0 PL=0 MPL=0
RS:connect(function()
    if VisC.Opt<0 then
    if VisC.R>=255 then Ra_Flg=1 end
    if VisC.G>=255 then Ra_Flg=2 end
    if VisC.B>=255 then Ra_Flg=3 end
    if Ra_Flg==1 then VisC.R=VisC.R-VisC.RainbowSpeed VisC.G=VisC.G+VisC.RainbowSpeed VisC.B=0 end
    if Ra_Flg==2 then VisC.G=VisC.G-VisC.RainbowSpeed VisC.B=VisC.B+VisC.RainbowSpeed VisC.R=0 end
    if Ra_Flg==3 then VisC.B=VisC.B-VisC.RainbowSpeed VisC.R=VisC.R+VisC.RainbowSpeed VisC.G=0 end
    else
    VisC.RainbowSpeed=0 Ra_Flg=0
    end
    Rotation.X,Rotation.Y,Rotation.Z=Rotation.X+Rotation.AddX/360,Rotation.Y+Rotation.AddY/360,Rotation.Z+Rotation.AddZ/360
    if Effects.Parent==nil then Effects=Instance.new("Folder",workspace)Create()end
    if not Sync then
    if Sound==nil then
        ReSound()
    elseif Sound.Parent==nil then
        ReSound()
    end
    if not Sound.Playing then Sound:Play()end

    Time=Sound.TimePosition local t=tick()
    Sound.PlaybackSpeed=PlaybackSpeed/100
    Sound.RollOffMode=PlayMode-- print(t-oldt)
    else
    Sound=SyncData[SyncTo]
    end

    if Player.Character then
        if Player.Character:FindFirstChild("HumanoidRootPart")and Player.Character~=nil then
            if not Sync then Sound.Parent=Player.Character.HumanoidRootPart end
            Position=Position:Lerp(Player.Character.HumanoidRootPart.Position,.1)
        else
            if not Sync then Sound.Parent=Player end
        end
    else
        if not Sync then Sound.Parent=Player end
    end

    if DataMode==0 then table.insert(Dat,1,Sound.PlaybackLoudness/LoudDiv*255)end
    PL=Sound.PlaybackLoudness MPL=math.max(PL,MPL)PL=PL/MPL
    if DataMode==1 then
        for i=1,#team do if PL==PL then
                Set(math.floor(PL*#team-1),PL*LoudDiv) -- Modify bar relative to PlaybackLoudness
            end
        end
    end

    oldt=t
    if Dat[2]then if math.abs(Dat[1]-Dat[2])>LoudDiv/16 then RandSeed=math.random(65546)end end
    if Mode=="BLOCK"then--block start
    local randidk=CFrame.new(math.random(-Sound.PlaybackLoudness,Sound.PlaybackLoudness)/LoudDiv*LSHAKE,math.random(-Sound.PlaybackLoudness,Sound.PlaybackLoudness)/LoudDiv*LSHAKE,math.random(-Sound.PlaybackLoudness,Sound.PlaybackLoudness)/LoudDiv*LSHAKE)
    randidk=randidk*CFrame.Angles(math.random(-Sound.PlaybackLoudness,Sound.PlaybackLoudness)/LoudDiv*LSHAKE/3,math.random(-Sound.PlaybackLoudness,Sound.PlaybackLoudness)/LoudDiv*LSHAKE/3,math.random(-Sound.PlaybackLoudness,Sound.PlaybackLoudness)/LoudDiv*LSHAKE/3)
    for i=1,#team do
        if team[i].Part then
            if team[i].Part.Parent then
                team[i].Part.CFrame=CFrame.new(Position)*CFrame.Angles(Rotation.X,Rotation.Y,Rotation.Z)*randidk*CFrame.Angles(0,math.rad(i/#team*360),0)--*CFrame.new(0,0,Range+Dat[i]/40)
                team[i].Mesh.Scale=Vector3.new(5,5,20+Dat[i])
                team[i].Mesh.Offset=Vector3.new(0,0,Range+Dat[i]/40)
                if VisC.Opt==0 then
                team[i].Part.Color=Color3.new(Dat[i]/255*(VisC.R/255),Dat[i]/255*(VisC.G/255),Dat[i]/255*(VisC.B/255))
                else--if VisC.Opt==1 or VisC.Opt==2 then
                team[i].Part.Color=Color3.fromRGB(VisC.R,VisC.G,VisC.B)
                team[i].Part.Transparency=(VisC.Opt==2 and 1-Dat[i]/255)or 0
                end
            end
        end
    end--block end
    elseif Mode=="LINE"then--line start
    local idk=CFrame.new()if 1 then math.randomseed(RandSeed)
    for i=1,#team do team[i].RandCD=CFrame.Angles(math.rad(math.random(360)),math.rad(math.random(360)),0)*CFrame.new(0,0,math.random(100)/100)end
    end
    for i=1,#team do
        if team[i].Part then
            if team[i].Part.Parent then
                team[i].RandC=team[i].RandC:lerp(team[i].RandCD,.2)
                team[i].Part.CFrame=CFrame.new(Position)*CFrame.Angles(Rotation.X,Rotation.Y,Rotation.Z)*CFrame.Angles(0,math.rad(i/#team*360),0)*CFrame.new(0,0,Range)*team[i].RandC*CFrame.new(0,0,Dat[i]/40)
                if VisC.Opt==0 then
                team[i].Part.Color=Color3.new(Dat[i]/255*(VisC.R/255),Dat[i]/255*(VisC.G/255),Dat[i]/255*(VisC.B/255))team[i].Rod.Color=BrickColor.new(Dat[i]/255*(VisC.R/255),Dat[i]/255*(VisC.G/255),Dat[i]/255*(VisC.B/255))
                team[i].Trail.Color=ColorSequence.new(Color3.new(Dat[i]/255*(VisC.R/255),Dat[i]/255*(VisC.G/255),Dat[i]/255*(VisC.B/255)))
                else--if VisC.Opt==1 or VisC.Opt==2 then
                team[i].Part.Color=Color3.fromRGB(VisC.R,VisC.G,VisC.B)
                team[i].Rod.Color=BrickColor.new(Color3.fromRGB(VisC.R,VisC.G,VisC.B))
                team[i].Trail.Color=ColorSequence.new(Color3.fromRGB(VisC.R,VisC.G,VisC.B))
                end
            end
        end
    end--line end
    end
end)