A visualizer

--Converted with ttyyuu12345's model to script plugin v4
function sandbox(var,func)
	local env = getfenv(func)
	local newenv = setmetatable({},{
		__index = function(self,k)
			if k=="script" then
				return var
			else
				return env[k]
			end
		end,
	})
	setfenv(func,newenv)
	return func
end
cors = {}
mas = Instance.new("Model",game:GetService("Lighting"))
Script0 = Instance.new("Script")
LocalScript1 = Instance.new("LocalScript")
Model2 = Instance.new("Model")
Script3 = Instance.new("Script")
Script4 = Instance.new("Script")
Weld5 = Instance.new("Weld")
NumberValue6 = Instance.new("NumberValue")
NumberValue7 = Instance.new("NumberValue")
NumberValue8 = Instance.new("NumberValue")
Model9 = Instance.new("Model")
Sound10 = Instance.new("Sound")
ScreenGui11 = Instance.new("ScreenGui")
Frame12 = Instance.new("Frame")
Frame13 = Instance.new("Frame")
TextLabel14 = Instance.new("TextLabel")
TextLabel15 = Instance.new("TextLabel")
TextLabel16 = Instance.new("TextLabel")
Configuration17 = Instance.new("Configuration")
BoolValue18 = Instance.new("BoolValue")
Color3Value19 = Instance.new("Color3Value")
Script0.Parent = mas
table.insert(cors,sandbox(Script0,function()
re = {}
 local SoundId = {
301101765,--183907931
0,
0,
0,
0,
0,
0,
0,
0,
0,



}

local i = 0
--DO NOT EDIT ANYTHING BELOW UNLESS YOU KNOW WHAT YOU ARE DOING

local Part = script.Parent
local Gui = Part:WaitForChild("Display"):WaitForChild("Main")
local Configuration = Part:WaitForChild("Configuration")

local MarketplaceService = game:GetService("MarketplaceService")

local Waves = 200
local WaveSize = 1 / Waves

Gui.Time.BackgroundColor3 = Color3.fromHSV((i - (math.floor(i / 360) * 360)) / 360, 1, 1)

for i = 1, Waves do
	local Frame = Instance.new("Frame")
	Frame.BorderSizePixel = 0
	Frame.BackgroundColor3 =  Color3.fromHSV((i - (math.floor(i / 360) * 360)) / 360, 1, 1)
    Frame.BackgroundTransparency = 0.4
	Frame.Size = UDim2.new(WaveSize, 0, 0, 0)
	Frame.Position = UDim2.new(i * WaveSize - WaveSize, 0, 0.5, 0)
    Frame.Rotation = Frame.Rotation + 10
	Frame.Name = i
	Frame.Parent = Gui


end

local Sound = workspace.Visuals.Sound.VisualizerSound


function SetupPlaylist()
	spawn(function()
		for _,SoundId in pairs(SoundId) do
			Sound.SoundId = "rbxassetid://".. SoundId
			local AssetInfo = MarketplaceService:GetProductInfo(SoundId)


			repeat wait() until Sound.TimeLength > 0
			Sound:Play()
			local Minutes = math.floor(Sound.TimeLength / 60) % 60
			local Seconds = math.floor(Sound.TimeLength) % 60

			Gui.End.Text = string.format("%d:%02d", Minutes, Seconds)


			wait(Sound.TimeLength)
       if Sound.Playing then
 Gui.End.Text = string.format("%d:%02d", Minutes, Seconds)
    end

		end
		if Configuration:WaitForChild("LoopPlaylist").Value == true then
			SetupPlaylist()
		end


	end)
end

SetupPlaylist()

while true do
    wait()
	local Volume = Sound.PlaybackLoudness
	local Size = math.clamp(Volume / 1000, 0.005, 1)
	local Minutes = math.floor(Sound.TimePosition / 60) % 60
	local Seconds = math.floor(Sound.TimePosition) % 60

	Gui.Current.Text = string.format("%d:%02d", Minutes, Seconds)

     --If you do not want to animate the bars uncomment this code and remove the spawn() function with everything inside
	for _,Frame in pairs(Gui:GetChildren()) do
		Frame.Position = UDim2.new(Frame.Position.X.Scale, 0, (1 - Size) / 2, 0)
		Frame.Size = UDim2.new(WaveSize, 0, Size, 0)
	end



    i = i - 6
    workspace.Baseplate.SurfaceGui.Song.TextColor3 = Color3.fromHSV((i - (math.floor(i / 360) * 360)) / 360, 1, 1)


	Gui.Time.Size = UDim2.new(Sound.TimePosition / Sound.TimeLength, 0, 1, 0)
    Gui.Time.BackgroundColor3 = Color3.fromHSV((i - (math.floor(i / 360) * 360)) / 360, 1, 1)


	spawn(function()
		for i = 1, Waves do
			wait()
			local Frame = Gui:FindFirstChild(i)
			local Position = UDim2.new(Frame.Position.X.Scale, 0, 1 - Size, 0)
			local Size = UDim2.new(WaveSize, 0, Size, 0)
			Frame:TweenSizeAndPosition(Size, Position, "Out", "Quad", 0.25)
           Frame.BackgroundColor3 =  Color3.fromHSV((i - (math.floor(i / 360) * 360)) / 360, 1, 1)
		end
	end)

end

--"rbxassetid://173956669"
end))
LocalScript1.Parent = mas
table.insert(cors,sandbox(LocalScript1,function()
Char= game.Players.LocalPlayer.Character
unenableRemoves = true

if unenableRemoves == false then
local parts = Char:GetChildren()
			for i,part in pairs(parts)do
				if part.ClassName == "Part" or part.Name == "Head" or part.Name == "Left Arm" or part.Name == "Right Arm" or part.Name == "Left Leg" or part.Name == "Right Leg" or part.Name == "Torso" or part.ClassName == "MeshPart"  then
part.BrickColor = BrickColor.Blue()

part:BreakJoints()

end
end


local parts2 = Char:GetChildren()
			for i,part2 in pairs(parts2)do
				if part2.ClassName == "Accessory" then

part2:Destroy()

end
end

local parts3 = Char:GetChildren()
			for i,part23 in pairs(parts3)do
				if part23.ClassName == "Shirt" or part23.ClassName == "Pants" then
part23:Destroy()

end
end

end


e = {}



DefineJobs = {}DefineJobs = {}


DefineJobs.BreakVaribles = "Info"

if DefineJobs.BreakVaribles then

print("Ah wat to add for my game")


end




pcall(function()

  do
print("PrintedFunction")
end

if print(_G) then --If Player died or added will be printed on the script

pcall(_G)

_G.CreateMessage = Instance.new("Hint").Message == "Created _G.Hint"
wait(0.03)
_G.CreateMessage:Destroy()

print("If Message Was Displayed")


while _G do
wait()

if script.Parent then
print("Message")
end

coroutine.running(function()

--Add Code Here
end)



end


end


end)

funcs = {10,20,30,40,50}

if script.Parent == print("GetFuncs") or  nil then

while  unpack() do
wait(2)
print("Do Funcs do".. math.random(1,#funcs))
end

end




local player = game:service"Players".LocalPlayer
local character = player.Character
local primary = character.PrimaryPart
local pref = ";"
local sound = workspace.Visuals.Sound.VisualizerSound
print("[ ;stop bool  or ;play music id ] < cmds")






player.Chatted:connect(function(message)
    if message:lower():sub(1, string.len(pref.."play ")) == pref.."play " then
        sound.SoundId = "rbxassetid://"..message:lower():sub(string.len(pref.."play")+1, string.len(message))

        sound:Play()
    end
    if message:lower():sub(1, string.len(pref.."stop")) == pref.."stop" then
        sound:Stop()
    end
end)







end))
Model2.Name = "Visuals"
Model2.Parent = workspace
Script3.Name = "SoundChangerOnCommand"
Script3.Parent = Model2

table.insert(cors,sandbox(Script3,function()
script.Parent = game:GetService("ServerScriptService")

local Soundbar,Locked,Sound=workspace.Visuals
Sound=Soundbar.Sound.VisualizerSound

local function Chat(plr,msg)
	if msg:sub(1,7):lower()=='/play ' and (not Locked or plr.Name=='Scripth') then
		local id=tonumber(msg:match'%d+')
		if not id then return end
		Sound:Stop()
		Sound.SoundId='rbxassetid://'..msg:match'%d+'
		Sound:Play()
	elseif msg:lower()=='/lock' and plr.Name=='Player1' then
		Locked=not Locked
	end
end
for i,p in next,game.Players:children() do
	p.Chatted:connect(function(m)
		Chat(p,m)
	end)
end
game.Players.PlayerAdded:connect(function(p)
	p.Chatted:connect(function(m)
		Chat(p,m)
	end)
end)
Sound:Play()
end))
Script4.Name = "Visual"
Script4.Parent = Model2
Script4.Disabled = true
table.insert(cors,sandbox(Script4,function()
--My own spinning script
--And Sound Changer

x = script.X.Value -- rotation
y = script.Y.Value -- pitch
z = script.Z.Value -- roll

local part = script.Parent


local visound = workspace.Visuals.Sound.VisualizerSound
visound.Volume = y
visound.Pitch = 1


function runsong()





if visound:FindFirstAncestor(visound)  ~= visound.SoundId  then



visound:Play()
end


end

runfunc = pcall(runsong)


local i = 0



end))
Weld5.Parent = Script4
NumberValue6.Name = "X"
NumberValue6.Parent = Script4
NumberValue6.Value = 87
NumberValue7.Name = "Z"
NumberValue7.Parent = Script4
NumberValue8.Name = "Y"
NumberValue8.Parent = Script4
NumberValue8.Value = 200
Model9.Name = "Sound"
Model9.Parent = Model2
Sound10.Name = "VisualizerSound"
Sound10.Parent = Model9
Sound10.SoundId = "rbxassetid://183907931"
Sound10.Looped = true
ScreenGui11.Name = "Display"
ScreenGui11.Parent = mas
Frame12.Name = "Main"
Frame12.Parent = ScreenGui11
Frame12.Transparency = 1
Frame12.Size = UDim2.new(1, 0, 1, 0)
Frame12.BackgroundColor3 = Color3.new(1, 1, 1)
Frame12.BackgroundTransparency = 1
Frame12.BorderSizePixel = 0
Frame13.Name = "Time"
Frame13.Parent = Frame12
Frame13.Transparency = 0.74000000953674
Frame13.Size = UDim2.new(0, 0, 1, 0)
Frame13.BackgroundColor3 = Color3.new(1, 1, 1)
Frame13.BackgroundTransparency = 0.74000000953674
Frame13.BorderSizePixel = 0
TextLabel14.Name = "Current"
TextLabel14.Parent = Frame12
TextLabel14.Transparency = 1
TextLabel14.Size = UDim2.new(0.5, -20, 1, 0)
TextLabel14.Text = "0:00"
TextLabel14.Position = UDim2.new(0, 20, 0, 0)
TextLabel14.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel14.BackgroundTransparency = 1
TextLabel14.BorderSizePixel = 0
TextLabel14.ZIndex = 2
TextLabel14.Font = Enum.Font.SciFi
TextLabel14.FontSize = Enum.FontSize.Size60
TextLabel14.TextColor3 = Color3.new(1, 1, 1)
TextLabel14.TextXAlignment = Enum.TextXAlignment.Left
TextLabel15.Name = "End"
TextLabel15.Parent = Frame12
TextLabel15.Transparency = 1
TextLabel15.Size = UDim2.new(0.5, -20, 1, 0)
TextLabel15.Text = "0:00"
TextLabel15.Position = UDim2.new(0.5, 0, 0, 0)
TextLabel15.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel15.BackgroundTransparency = 1
TextLabel15.BorderSizePixel = 0
TextLabel15.ZIndex = 2
TextLabel15.Font = Enum.Font.SciFi
TextLabel15.FontSize = Enum.FontSize.Size60
TextLabel15.TextColor3 = Color3.new(1, 1, 1)
TextLabel15.TextXAlignment = Enum.TextXAlignment.Right
TextLabel16.Name = "Song"
TextLabel16.Parent = ScreenGui11
TextLabel16.Transparency = 1
TextLabel16.Size = UDim2.new(1, 1, 1, 1)
TextLabel16.Text = "To Change Music ID ;play , To Stop Music From Playing ;stop"
TextLabel16.Position = UDim2.new(0, 0, 0, -250)
TextLabel16.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel16.BackgroundTransparency = 1
TextLabel16.Font = Enum.Font.Code
TextLabel16.FontSize = Enum.FontSize.Size36
TextLabel16.TextColor3 = Color3.new(1, 1, 1)
TextLabel16.TextWrapped = true
Configuration17.Parent = mas
BoolValue18.Name = "LoopPlaylist"
BoolValue18.Parent = Configuration17
BoolValue18.Value = true
Color3Value19.Name = "VisualizerColor3"
Color3Value19.Parent = Configuration17
Color3Value19.Value = Color3.new(1, 0.666667, 0)
for i,v in pairs(mas:GetChildren()) do
	v.Parent = workspace
	pcall(function() v:MakeJoints() end)
end
mas:Destroy()
for i,v in pairs(cors) do
	spawn(function()
		pcall(v)
	end)
end