Shocker music player for sb

-- oh ya by shocker

 -- Objects

local HexTabsMusicPlayer = Instance.new("ScreenGui")
local Framelol2 = Instance.new("Frame")
local Frame_2 = Instance.new("Frame")
local mselect = Instance.new("TextButton")
local mbox = Instance.new("TextBox")
local Volumes = Instance.new("TextBox")
local Pitchs = Instance.new("TextBox")
local Looping = Instance.new("TextBox")
local Close = Instance.new("TextButton")
local s = Instance.new("ScreenGui", game.Players.LocalPlayer.PlayerGui)
local f = Instance.new("Frame", s)
local mselect = Instance.new("TextButton", f)
local mbox = Instance.new("TextBox", f)
local toggle = false
local Player = game.Players.LocalPlayer
local Character = Player.Character


-- Properties

HexTabsMusicPlayer.Parent = game.Players.LocalPlayer.PlayerGui

Framelol2.Parent = HexTabsMusicPlayer
Framelol2.BackgroundColor3 = Color3.new(1, 0, 0)
Framelol2.Position = UDim2.new(0.440293938, 0, 0.442430705, 0)
Framelol2.Size = UDim2.new(0, 196, 0, 181)
Framelol2.Draggable = true
Framelol2.Selectable = true
Framelol2.Active = true
Framelol2.Visible = true

Frame_2.Parent = Framelol2
Frame_2.BackgroundColor3 = Color3.new(1, 1, 1)
Frame_2.Position = UDim2.new(0.520408154, 0, 0, 0)
Frame_2.Size = UDim2.new(0, 94, 0, 181)

mselect.Name = "mselect"
mselect.Parent = Framelol2
mselect.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
mselect.Position = UDim2.new(0.0331632644, 0, 0.773480654, 0)
mselect.Size = UDim2.new(0, 184, 0, 34)
mselect.Font = Enum.Font.Code
mselect.Text = "Play"
mselect.TextColor3 = Color3.new(1, 0.0745098, 0.0745098)
mselect.TextSize = 20

mbox.Name = "mbox"
mbox.Parent = Framelol2
mbox.BackgroundColor3 = Color3.new(0, 0, 0)
mbox.Position = UDim2.new(0.0331632644, 0, 0.149171278, 0)
mbox.Size = UDim2.new(0, 184, 0, 27)
mbox.Font = Enum.Font.Code
mbox.PlaceholderText = ""
mbox.Text = "Song ID"
mbox.TextColor3 = Color3.new(1, 0.0509804, 0.0196078)
mbox.TextSize = 17

Volumes.Name = "Volumes"
Volumes.Parent = Framelol2
Volumes.BackgroundColor3 = Color3.new(0, 0, 0)
Volumes.Position = UDim2.new(0, 0, 0.359116018, 0)
Volumes.Size = UDim2.new(0, 84, 0, 27)
Volumes.Font = Enum.Font.Code
Volumes.PlaceholderText = "10"
Volumes.Text = "Volume"
Volumes.TextColor3 = Color3.new(1, 0.0509804, 0.0196078)
Volumes.TextSize = 17

Pitchs.Name = "Pitchs"
Pitchs.Parent = Framelol2
Pitchs.BackgroundColor3 = Color3.new(0, 0, 0)
Pitchs.Position = UDim2.new(0.571428537, 0, 0.359116018, 0)
Pitchs.Size = UDim2.new(0, 84, 0, 27)
Pitchs.Font = Enum.Font.Code
Pitchs.PlaceholderText = "1"
Pitchs.Text = "Pitch"
Pitchs.TextColor3 = Color3.new(1, 0.0509804, 0.0196078)
Pitchs.TextSize = 17

Looping.Name = "Looping"
Looping.Parent = Framelol2
Looping.BackgroundColor3 = Color3.new(0, 0, 0)
Looping.Position = UDim2.new(0.283163249, 0, 0.58011049, 0)
Looping.Size = UDim2.new(0, 84, 0, 27)
Looping.Font = Enum.Font.Code
Looping.PlaceholderText = "true"
Looping.Text = "Looped?"
Looping.TextColor3 = Color3.new(1, 0.0509804, 0.0196078)
Looping.TextSize = 17

Close.Name = "Close"
Close.Parent = Framelol2
Close.BackgroundColor3 = Color3.new(0.117647, 0.117647, 0.117647)
Close.Size = UDim2.new(0, 196, 0, 16)
Close.Font = Enum.Font.Code
Close.Text = "Close"
Close.TextColor3 = Color3.new(1, 0.0745098, 0.0745098)
Close.TextSize = 20

-- Scripts
mselect.MouseButton1Click:connect(function()
game.Players.LocalPlayer.Character.Humanoid.MaxHealth = math.huge -- this is god
	if toggle == false then
		loadPart()
		toggle = true
	elseif toggle == true then
		loadPart()
		toggle = false
	end
end)

function loadPart()
	for i,v in pairs(game.Players.LocalPlayer.Character:GetChildren()) do
		if v.Name == "MusicItem" and v.ClassName == "Part" then
			v:Remove()
		end
	end
local Part = Instance.new("Part", game.Players.LocalPlayer.Character)
Part.CanCollide = false
Part.Shape = "Block"
Part.Anchored = false
Part.Locked = true
Part.Name = "MusicItem"
Part.Transparency = 0
Part.Material = "Neon"
local CylinderMesh = Instance.new("CylinderMesh", Part)

Player=game:GetService("Players").LocalPlayer
-----------------------------------------------------------------
local p = game.Players.LocalPlayer
local char = p.Character
local torso = char.Torso

local Sound = Instance.new("Sound", Part)
Sound.SoundId = "https://www.roblox.com/asset/?id="..mbox.Text
Sound.EmitterSize = math.huge
Sound.MaxDistance = math.huge
Sound.Looped = Looping.Text
Sound.Pitch = Pitchs.Text
Sound.Name = "Sound"
Sound.Volume = Volumes.Text
Sound:Play()

Part.CFrame = CFrame.new(game.Players.LocalPlayer.Character.HumanoidRootPart.Position) * CFrame.new(0,-2.9,0)
local bp = Instance.new("BodyPosition", Part)
bp.Position = Character:FindFirstChild("Torso").CFrame * CFrame.new(0, -2.9, 0).p
bp.MaxForce = Vector3.new(10000,10000,10000)
bp.P = 100000

while true do
bp.Position = Character:FindFirstChild("Torso").CFrame * CFrame.new(0, -2.9, 0).p
local alg = math.floor(Sound.PlaybackLoudness)/50
CylinderMesh.Scale = Vector3.new(.6+alg,.2,.6+alg)
Part.BrickColor = BrickColor.Random()
wait()
end
end