local function paineletbilumaster()
	 local escolhermusica = vgui.Create("DFrame")
		escolhermusica:SetSize(300,100)
		escolhermusica:SetPos(12,12)
		escolhermusica:SetVisible(true)
		escolhermusica:MakePopup()
		escolhermusica:Center()
		escolhermusica:SetTitle( "Choose a song from the list below:")

	 local qualmusica = vgui.Create( "DComboBox", escolhermusica )
		qualmusica:SetPos( 25, 30 )
		qualmusica:SetSize( 250, 20 )
		qualmusica:SetSortItems(false)
		qualmusica:SetValue( "Songs Avaiable" )
		qualmusica:AddChoice( "Despacito - Luis Fonsi, Daddy Yankee ft. Justin Bieber" )
		qualmusica:AddChoice( "Something Just Like This - The Chainsmokers/Coldplay" )
		qualmusica:AddChoice( "Ed Sheeran - Shape of You" )
		qualmusica:AddChoice( "Rockabye - Clean Bandit ft. Sean Paul & Anne-Marie" )
		qualmusica:AddChoice( "Alan Walker - Faded" )
		qualmusica:AddChoice( "The Girl From Ipanema - Astrud Gilberto & Stan Getz" )
		qualmusica:AddChoice( "The Weeknd - Starboy ft. Daft Punk" )
		qualmusica.OnSelect = function( panel, index, value )
		musicaescolhida = ""
			if value == "Despacito - Luis Fonsi, Daddy Yankee ft. Justin Bieber" then
				musicaescolhida = 1
			elseif value == "Something Just Like This - The Chainsmokers/Coldplay" then
				musicaescolhida = 2
			elseif value == "Ed Sheeran - Shape of You" then
				musicaescolhida = 3
			elseif value == "Rockabye - Clean Bandit ft. Sean Paul & Anne-Marie" then
				musicaescolhida = 4
			elseif value == "Alan Walker - Faded" then
				musicaescolhida = 5
			elseif value == "The Girl From Ipanema - Astrud Gilberto & Stan Getz" then
				musicaescolhida = 6
			elseif value == "The Weeknd - Starboy ft. Daft Punk" then
				musicaescolhida = 7
			end
		end
	local botaoplay = vgui.Create( "DButton", escolhermusica )
		botaoplay:SetText( "Close (After closing, press Mouse1 to play that)" )
		botaoplay:SetPos( 25, 50 )
		botaoplay:SetSize( 250, 30 )
		botaoplay.DoClick = function()
			escolhermusica:Close()
		end
end

concommand.Add("ebmusicpanel", paineletbilumaster)