Superior Boombox Visualizer

print("Hello World, much love from HANdsum ♥. Made for ArchUsagi ♥ *whispers* with much love *whispers*")
local Player = owner
local Char = Player.Character
local tweenService = game:GetService("TweenService")
local CanDo = true
local GMaxPL = 700

local BoomboxVis = Instance.new("Part",Char)
BoomboxVis.Size = Vector3.new(2, 1.375, 0.75)
BoomboxVis.Name = "BoomboxVis"
BoomboxVis.CanCollide = false
BoomboxVis.Massless = true
local BVMesh = Instance.new("SpecialMesh", BoomboxVis)
BVMesh.MeshId = "http://www.roblox.com/asset/?id=319536754"
BVMesh.TextureId = "http://www.roblox.com/asset/?id=319536704"
local BVWeld = Instance.new("Weld",BoomboxVis)
BVWeld.C0 = CFrame.new(0,0,-1)
BVWeld.Part0 = BoomboxVis
BVWeld.Part1 = Char.Torso
BoomboxVis.Orientation = Vector3.new(BoomboxVis.Orientation.X,BoomboxVis.Orientation.Y+180,BoomboxVis.Orientation.Z-45)
local Sound = Instance.new("Sound",BoomboxVis)
Sound.Volume = 5

local LoudnessEvent = Instance.new("RemoteEvent")
LoudnessEvent.Name = "LoudnessEvent"
LoudnessEvent.Parent = NLS([==[
	Player = owner
	Volume = 5
	Pitch = 1
	MaxPL = 700

	Player.Chatted:Connect(function(message)
								if message:sub(1, 6):lower() == ">play " then
										Song = "rbxassetid://"..message:sub(7)
								else if message:sub(1, 5):lower() == ">play" then
										Song = "rbxassetid://"..message:sub(6)
								else if message:sub(1, 8):lower() == ">volume " then
										Volume = message:sub(9)
								else if message:sub(1, 7):lower() == ">volume" then
										Volume = message:sub(8)
								else if message:sub(1, 7):lower() == ">pitch " then
										Pitch = message:sub(8)
								else if message:sub(1, 6):lower() == ">pitch" then
										Pitch = message:sub(7)
								else if message:sub(1, 7):lower() == ">maxpl " then
										MaxPL = message:sub(8)
								else if message:sub(1, 6):lower() == ">maxpl" then
										MaxPL = message:sub(7)
									end
								end
							end
						end
					end
				end
			end
		end
	end)

	local LoudnessEvent = script.LoudnessEvent

		game:GetService("RunService").RenderStepped:Connect(function()
			if owner.Character:FindFirstChild("BoomboxVis") == nil then
				script:Destroy()
				return
			else
				local Music = owner.Character.BoomboxVis:FindFirstChild("Sound")
				if Music.PlaybackLoudness ~= nil then
					LoudnessEvent:FireServer(Music.PlaybackLoudness, Song, Volume, Pitch, MaxPL)
					Song = nil
				else
					return
				end
			end
		end)
]==],owner.PlayerGui)

LoudnessEvent.OnServerEvent:Connect(function(Plr,PL, Song, Volume, Pitch, MaxPL)
    Update(PL, Song, Volume, Pitch, MaxPL)
end)

function CreatePart()
	local Clone = Instance.new("Part",workspace)
	Clone.CFrame = BoomboxVis.CFrame
	Clone.Size = Vector3.new(2, 1.375, 0.75)
	Clone.Name = "BoomboxVis"
	Clone.CanCollide = false
	local CloneMesh = Instance.new("SpecialMesh", Clone)
	CloneMesh.Scale = BVMesh.Scale
	CloneMesh.MeshId = "http://www.roblox.com/asset/?id=319536754"
	CloneMesh.TextureId = "http://www.roblox.com/asset/?id=319536704"
	local CWeld = Instance.new("Weld",Clone)
	CWeld.Part0 = Clone
	CWeld.Part1 = BoomboxVis
	--local BodyAngularVelocity = Instance.new("BodyAngularVelocity",Clone)
	--BodyAngularVelocity.AngularVelocity = Vector3.new(math.random(-1,1),math.random(-1,1),math.random(-1,1))

	local goal = {Transparency = 1}
	local Tween = tweenService:Create(Clone,TweenInfo.new (0.5),goal)
	Tween:Play()
	local goal2 = {Scale = Vector3.new(CloneMesh.Scale.X+3,CloneMesh.Scale.Y+3,CloneMesh.Scale.Z+3)}
	local Tween2 = tweenService:Create(CloneMesh,TweenInfo.new (0.6),goal2)
	Tween2:Play()
	wait(1)
	CanDo = true
	wait(0.5)
	Clone:Destroy()
end

function Update(PL, Song, Volume, Pitch, MaxPL)
	if BoomboxVis:FindFirstChild("Sound") == nil then
		Sound = Instance.new("Sound",BoomboxVis)
		Sound.Volume = 5
	end

	if Song ~= nil then
		Sound.SoundId = Song
		Sound.Volume = 5
		Sound:Play()
	end

	if MaxPL ~= GMaxPL then
		GMaxPL = MaxPL
	end

	if Pitch ~= Sound.PlaybackSpeed then
		Sound.PlaybackSpeed = Pitch
	end

	if Volume ~= Sound.Volume then
		Sound.Volume = Volume
	end

	if PL >= tonumber(GMaxPL) and CanDo == true then
		CanDo = false
		CreatePart()
	end
	local goal = {Scale = Vector3.new(PL/800+1,PL/800+1,PL/800+1)}
	local Tween = tweenService:Create(BVMesh,TweenInfo.new (0.2),goal)
	Tween:Play()
end