Music Player GUI 1.3.0

-- adchand2's music player 1.3.0

--[[

  what's new?

- 1.1.0
· prints starting message
· you can now choose what colour (cyan by default) you want it to be if you want to post this as a new script/paste
· clicking the play button now shows bgm info on top
· main frame is now draggable (might not work but could be fixed soon)

- 1.2.0
· now you can set the font for the music player itself
· dragging the gui still doesn't work
· new bgm info appears above character

- 1.3.0
· bgm info appears above screen again
· GUI now has sounds
· default appearance changed

]]

print("Starting adchand2's music player 1.3.0...")

-- define player variable
local Player=game.Players.LocalPlayer

-- appearance
col=Color3.fromRGB(183,18,92)
font=Enum.Font.Cartoon

-- creation of gui
local scrg=Instance.new("ScreenGui",Player.PlayerGui)
local credit=Instance.new("TextLabel",scrg)
credit.BackgroundColor3=Color3.fromRGB(255,255,255)
credit.BackgroundTransparency=1
credit.Position=UDim2.new(0,0,1,-18)
credit.Size=UDim2.new(1,0,0,18)
credit.Font=font
credit.FontSize=Enum.FontSize.Size18
credit.Text="More SCRIPTS by adchand2 available at: http://pastebin.com/u/memesbruh03"
credit.TextColor3=Color3.fromRGB(255,255,255)
credit.TextScaled=true
credit.TextStrokeTransparency=0.5
credit.TextWrapped=true
credit.TextXAlignment=Enum.TextXAlignment.Left
local main=Instance.new("Frame",scrg)
main.BackgroundColor3=Color3.fromRGB(0,0,0)
main.BackgroundTransparency=0.5
main.BorderColor3=col
main.BorderSizePixel=5
main.Position=UDim2.new(0,0,0.5,-100)
main.Size=UDim2.new(0,300,0,90)
main.Selectable=true
main.Draggable=true
local loopcol=Instance.new("Frame",main)
loopcol.BackgroundTransparency=1
loopcol.Size=UDim2.new(1,0,0.2,0)
local ltitle=Instance.new("TextLabel",loopcol)
ltitle.BackgroundColor3=Color3.fromRGB(255,255,255)
ltitle.BackgroundTransparency=1
ltitle.Size=UDim2.new(1,0,1,0)
ltitle.Font=font
ltitle.FontSize=Enum.FontSize.Size18
ltitle.Text="Looped"
ltitle.TextColor3=col
ltitle.TextXAlignment=Enum.TextXAlignment.Left
ltitle.Active=false
local ltrue=Instance.new("TextButton",loopcol)
ltrue.BackgroundColor3=Color3.fromRGB(0,0,0)
ltrue.BackgroundTransparency=0.5
ltrue.BorderSizePixel=0
ltrue.Position=UDim2.new(0.5,0,0,0)
ltrue.Size=UDim2.new(0.25,0,1,0)
ltrue.Font=font
ltrue.FontSize=Enum.FontSize.Size18
ltrue.Text="true"
ltrue.TextColor3=Color3.fromRGB(255,255,255)
local lfalse=Instance.new("TextButton",loopcol)
lfalse.Name="TextButton2"
lfalse.BackgroundColor3=Color3.fromRGB(0,0,0)
lfalse.BackgroundTransparency=0.5
lfalse.BorderSizePixel=0
lfalse.Position=UDim2.new(0.75,0,0,0)
lfalse.Size=UDim2.new(0.25,0,1,0)
lfalse.Font=font
lfalse.FontSize=Enum.FontSize.Size18
lfalse.Text="false"
lfalse.TextColor3=Color3.fromRGB(255,255,255)
local pscol=Instance.new("Frame",main)
pscol.Name="Frame2"
pscol.BackgroundTransparency=1
pscol.Position=UDim2.new(0,0,0.2,0)
pscol.Size=UDim2.new(1,0,0.2,0)
local pstitle=Instance.new("TextLabel",pscol)
pstitle.BackgroundTransparency=1
pstitle.Size=UDim2.new(1,0,1,0)
pstitle.Font=font
pstitle.FontSize=Enum.FontSize.Size18
pstitle.Text="PlaybackSpeed"
pstitle.TextColor3=col
pstitle.TextXAlignment=Enum.TextXAlignment.Left
pstitle.Active=false
local psfield=Instance.new("TextBox",pscol)
psfield.BackgroundColor3=Color3.fromRGB(0,0,0)
psfield.BackgroundTransparency=0.5
psfield.BorderSizePixel=0
psfield.Position=UDim2.new(0.5,0,0,0)
psfield.Size=UDim2.new(0.5,0,1,0)
psfield.Font=font
psfield.FontSize=Enum.FontSize.Size18
psfield.Text="Input Here"
psfield.TextColor3=Color3.fromRGB(255,255,255)
local sidcol=Instance.new("Frame",main)
sidcol.Name="Frame3"
sidcol.BackgroundTransparency=1
sidcol.Position=UDim2.new(0,0,0.4,0)
sidcol.Size=UDim2.new(1,0,0.2,0)
local sidtitle=Instance.new("TextLabel",sidcol)
sidtitle.BackgroundColor3=Color3.fromRGB(255,255,255)
sidtitle.BackgroundTransparency=1
sidtitle.Size=UDim2.new(1,0,1,0)
sidtitle.Font=font
sidtitle.FontSize=Enum.FontSize.Size18
sidtitle.Text="SoundId"
sidtitle.TextColor3=col
sidtitle.TextXAlignment=Enum.TextXAlignment.Left
sidtitle.Active=false
local sidfield=Instance.new("TextBox",sidcol)
sidfield.BackgroundColor3=Color3.fromRGB(0,0,0)
sidfield.BackgroundTransparency=0.5
sidfield.BorderSizePixel=0
sidfield.Position=UDim2.new(0.5,0,0,0)
sidfield.Size=UDim2.new(0.5,0,1,0)
sidfield.Font=font
sidfield.FontSize=Enum.FontSize.Size18
sidfield.Text="Input Here"
sidfield.TextColor3=Color3.fromRGB(255,255,255)
local volucol=Instance.new("Frame",main)
volucol.Name="Frame4"
volucol.BackgroundColor3=Color3.new(1,1,1)
volucol.BackgroundTransparency=1
volucol.Position=UDim2.new(0,0,0.6,0)
volucol.Size=UDim2.new(1,0,0.2,0)
local volutitle=Instance.new("TextLabel",volucol)
volutitle.BackgroundColor3=Color3.fromRGB(255,255,255)
volutitle.BackgroundTransparency=1
volutitle.Size=UDim2.new(1,0,1,0)
volutitle.Font=font
volutitle.FontSize=Enum.FontSize.Size18
volutitle.Text="Volume"
volutitle.TextColor3=col
volutitle.TextXAlignment=Enum.TextXAlignment.Left
volutitle.Active=false
local volufield= Instance.new("TextBox",volucol)
volufield.BackgroundColor3=Color3.fromRGB(0,0,0)
volufield.BackgroundTransparency=0.5
volufield.BorderSizePixel=0
volufield.Position=UDim2.new(0.5,0,0,0)
volufield.Size=UDim2.new(0.5,0,1,0)
volufield.Font=font
volufield.FontSize=Enum.FontSize.Size18
volufield.Text="Input Here"
volufield.TextColor3=Color3.fromRGB(255,255,255)
local control=Instance.new("Frame",main)
control.Name="Frame5"
control.BackgroundColor3=Color3.fromRGB(255,255,255)
control.BackgroundTransparency=1
control.Position=UDim2.new(0,0,0.8,0)
control.Size=UDim2.new(1,0,0.2,0)
local pleh=Instance.new("TextButton",control)
pleh.BackgroundColor3=Color3.fromRGB(0,0,0)
pleh.BackgroundTransparency=0.5
pleh.BorderSizePixel=0
pleh.Size=UDim2.new(0.5,0,1,0)
pleh.Font=font
pleh.FontSize=Enum.FontSize.Size18
pleh.Text="Play Music"
pleh.TextColor3=Color3.fromRGB(255,255,255)
local stahp=Instance.new("TextButton",control)
stahp.Name="TextButton2"
stahp.BackgroundColor3=Color3.fromRGB(0,0,0)
stahp.BackgroundTransparency=0.5
stahp.BorderSizePixel=0
stahp.Position=UDim2.new(0.5, 0, 0, 0)
stahp.Size=UDim2.new(0.5, 0, 1, 0)
stahp.Font=font
stahp.FontSize=Enum.FontSize.Size18
stahp.Text="Stop Music"
stahp.TextColor3=Color3.fromRGB(255,255,255)
-- yay! creation is finished!
-- but wait... ...there's more...

-- this is the fun part...

-- define looped variable
looped=true

function create()
local sound=Instance.new("Sound",workspace)
sound.Name="MusicGUIsong"
end

function del()
if workspace.MusicGUIsong.IsPlaying==true then
workspace.MusicGUIsong:Destroy()
end
end

function informii()
--[[local doublecheckplayer=game.Players.LocalPlayer.Name
local wp=workspace:findFirstChild(doublecheckplayer)
local hed=wp.Head
local b=Instance.new("BillboardGui",hed)
b.StudsOffset=Vector3.new(0,4,0)
b.Size=UDim2.new(18,0,4,0)
b.Adornee=hed
local t=Instance.new("TextLabel",b)
t.BackgroundTransparency=1
t.TextColor3=col]]
--t.Text=[[SoundId playing: ]]..sidfield.Text..[[
--PlaybackSpeed: ]]..psfield.Text..[[
--Volume: ]]..volufield.Text
--[[t.Font=font
t.Size=UDim2.new(1,0,1,0)   -- keeping this here in case I want to use it again
t.TextScaled=true
wait(5)
t:Destroy()]]
local h=Instance.new("Hint",workspace)
h.Text="SoundId playing: "..sidfield.Text.." - PlaybackSpeed: "..psfield.Text.." - Volume: "..volufield.Text
wait(5)
h:Destroy()
end

function custom(texts) -- custom notification
local wp=workspace:findFirstChild(Player)
local hed=wp.Head
local b=Instance.new("BillboardGui",hed)
b.StudsOffset=Vector3.new(0,4,0)
b.Size=UDim2.new(18,0,2,0)
b.Adornee=hed
local t=Instance.new("TextLabel",b)
t.BackgroundTransparency=1
t.TextColor3=col
t.Text=texts
t.Font=font
t.Size=UDim2.new(1,0,1,0)
wait(5)
t:Destroy()
end

function makesound(id)
local s=Instance.new("Sound",main)
s.SoundId=id
s.Volume=1
s.PlaybackSpeed=1
s:Play()
end

ltrue.MouseButton1Click:connect(function()
looped=true
end)
lfalse.MouseButton1Click:connect(function()
looped=false
end)
pleh.MouseButton1Click:connect(function()
create()
workspace.MusicGUIsong.Looped=looped
workspace.MusicGUIsong.PlaybackSpeed=psfield.Text
workspace.MusicGUIsong.SoundId="rbxassetid://"..sidfield.Text
workspace.MusicGUIsong.Volume=volufield.Text
workspace.MusicGUIsong:Play()
informii()
end)
stahp.MouseButton1Click:connect(function()
del()
end)

-- sounds

ltrue.MouseButton1Click:connect(function()
makesound("rbxassetid://156785206")
end)

lfalse.MouseButton1Click:connect(function()
makesound("rbxassetid://156785206")
end)

psfield.Focused:connect(function()
makesound("rbxassetid://156785206")
end)

psfield.InputChanged:connect(function()
makesound("rbxasset://sounds/switch.mp3")
end)

sidfield.Focused:connect(function()
makesound("rbxassetid://156785206")
end)

sidfield.InputChanged:connect(function()
makesound("rbxasset://sounds/switch.mp3")
end)

volufield.Focused:connect(function()
makesound("rbxassetid://156785206")
end)

volufield.InputChanged:connect(function()
makesound("rbxassetid://156785206")
end)

custom("adchand2's music player 1.3.0 is now prepared")
print("adchand2's music player 1.3.0 is at the end!")
print(_VERSION.." is cool!")