Music Gui (Over 100 Musics)

local plr=game.Players.LocalPlayer
local songs={
[1]={'Beyond her garden',160779288};
[2]={'Carl Poppa',179725230};
[3]={'Adele Hello',313694441};
[4]={'L.A. love',185089050};
[5]={'Xenogenesis',216318362};
[6]={'Monody',338876528};
[7]={'Wrecking Ball',281923177};
[8]={'Paul Walker',235855135};
[9]={'Minecraft Hunger Games',142397652};
[10]={'Happy',145170576};
[11]={'Flo rida GDFR',228951484};
[12]={'We like to party',194376012};
[13]={'Take me to church',208342479};
[14]={'Tokyo Drift theme',143735294};
[15]={'Crank Dat',174655936};
[16]={'Just do it remix',287570590};
[17]={'Follow me',246068214};
[18]={'Outside',240063191};
[19]={'Slow motion',238098497};
[20]={'Sugar-Maroon Five',221896283};
[21]={'Summer',154309298};
[22]={'Animals',177956804};
[23]={'Time Lapse',247787125};
[24]={'Irrestible Fall out boys',202043408};
[25]={'Lips are movin',207106257};
[26]={'Shell Shocked',172573617};
[27]={'Headlines',143854033};
[28]={'Stereo Hearts',249285612};
[29]={'Shake it off',173713435};
[30]={'Pentatonix',320802674};
[31]={'Stay with me',162220205};
[32]={'Panic!At the disco;Hallelujah!',241864564};
[33]={'Hero',170199461};
[34]={'U.S. Pop mash up',148092137};
[35]={'Ghost Assasin',249311958};
[36]={'DJ Earworm Mash up for What!',162880181};
[37]={"Since you've been gone",162705847};
[38]={'Use Sombody',160191956};
[39]={'All of me',144676410};
[40]={'Glory',220731206};
[41]={'Fairty Tail OTS 12',253801434}; --change
[42]={'Undertale - Memory',318502757};
[43]={'J.B Sorry',313512044};
[44]={'Naruto My Name',143475050};
[45]={'Dark Horse-Katy Perry',143204341};
[46]={'Raining Tacos',142376088};
[47]={'Chandelier',158422661};
[48]={'Daylight',159530936};
[49]={'Whistle remix',220602040};
[50]={'Wild ones',183438255};
[51]={'Panic! At the disco- This is Gospel',144707702};
[52]={'Maroon 5 Maps',163538022};
[53]={'Gravity Falls piano',142549047};
[54]={'Monster[Dubstep How should I feel!]',148492408};
[55]={'Pika girl',147223327};
[56]={"OMFG- I love you",225000651};
[57]={'Evanescence Bring me to life',142513155};
[58]={'FOIL',166856063};
[59]={'Die in a fire',244182652};
[60]={'Jurassic Park remix',151247252};
[61]={'Mambo!',147788015};
[62]={'Attack on Titan OTS 1',157264356};
[63]={'DJ-Pewdiepie',148158859};
[64]={'Eminem and The Script Hall of Fame',152879311};
[65]={'Titanium',177930116};
[66]={'Pewds Hero',150206210};
[67]={'Wildest Dreams',235653436};
[68]={'8 bit gravity falls',156026545};
[69]={'Empire state of mind',152677207};
[70]={"Scatman's world",142365030};
[71]={'Airplanes Eminem verse',174283992};
[72]={'Thinking about you remix',217383677};
[73]={'Take on me',144195439},
[74]={'Wayward Son',160854126},
[75]={'DJ Earworm U.S of pop',193620451},
[76]={'Uma Thurman Fall out Boy',223590624},
[77]={'Pitch Perfect 2 (DSM) Light Em Up',257284894},
[78]={'Uptown Funk',210232032},
[79]={'L Train-Steven Universe Theme',253071526},
[80]={'Locked Away',274427825},
[81]={'Sympathy For The Devil',154824672},
[82]={'Just do it auto tune',274504661},
[83]={'Into the Jungle',244502305},
[84]={'All I do is Win',157469995},
[85]={'Renegades- X Ambassadors',242485310},
[86]={'Downtown macklemore x ryan lewis',291735914},
[87]={'Lolipop Trap remix',189624963},
[88]={'Little Einteins',219701493},
[89]={"Emperor's New Clothes",313723217},
[90]={"Benjamin won't back down",243297620},
[91]={'Spooky Scary Skeletons Dubsteps',200519201},
[92]={'MLG snoopdog',186664725},
[93]={"Cheerleader - Pentatonix (OMI Cover)",288649295},
[94]={'Sweet Dreams',161067287},
[95]={'If you could see me now',190144614},
[96]={'Youth(Adventure club remix',175872898},
[97]={'Breathe Zagor remix',171026180},
[98]={'Dawin Dessert',229990159},
[99]={'Undertale- Megalovania',334286966},
[100]={"Where'd you go",180129368},
[101]={"Timmy Trumpets Freaks",257201201},
[102]={"You stupid",179691806},
[103]={"Twenty One Pilots - Stressed Out",243372213},
[104]={"Shawn Mendes-Stitches",228676342},
[105]={"Bet you cant do it like me",315030036},
[106]={"OMI - Cheerleader Remix",254690279},
[107]={"Flo Rida My House",319758951}
}
local curSong
function playSong(id)
	pcall(function() curSong.PlayOnRemove=false;curSong.Parent=workspace;curSong:Stop();curSong:Destroy() end)
	curSong=Instance.new("Sound")
	curSong.PlayOnRemove=true
	curSong.SoundId="http://www.roblox.com/asset/?id="..id
	curSong.Volume=plr:WaitForChild'Volume'.Value
	curSong.Parent=workspace
	curSong:remove()
end
function slider(objs)
	local dragging=false
	local mouse=plr:GetMouse()
	local control=objs:FindFirstChild'Control'
	local bar=control:FindFirstChild'Bar'
	local click=control:FindFirstChild'Click'
	local val=plr:WaitForChild(objs.Name)

	if control and bar and click then
		--bar.Position=UDim2.new(0.5,-2,0,bar.Size.Y.Offset+10)
		local function checkPos()
			if not dragging then return end
			dragging=false
			click.Position=UDim2.new(0,0,0,bar.Position.Y.Offset-10)
		end

		click.MouseButton1Down:connect(function()
			dragging=true
		end)
		game:GetService('UserInputService').InputEnded:connect(function(input,gameProcessed)
			if input.UserInputType==Enum.UserInputType.MouseButton1 then
				checkPos()
			end
		end)
		click.MouseButton1Up:connect(function()
			checkPos()
		end)
		click.Changed:connect(function()
			if dragging then
				drag(click,bar,val)
			end
		end)
		click.Position=UDim2.new(0,0,0,math.ceil(bar.Size.Y.Offset*val.Value))
		drag(click,bar,val)
		click.Position=UDim2.new(0,0,0,bar.Position.Y.Offset-10)
	end
end

function drag(dragObj,bar,val)
	if bar.Position.Y.Offset>=10 then
		if bar.Position.Y.Offset<=bar.Size.Y.Offset then
			bar.Position=UDim2.new(0.5,-2,0,dragObj.Position.Y.Offset)
		else
			bar.Position=UDim2.new(0.5,-2,0,bar.Size.Y.Offset)
		end
	else
		bar.Position=UDim2.new(.5,-2,0,10)
	end
	val.Value=1-(bar.Position.Y.Offset/bar.Size.Y.Offset)
end

function loadMenu()
	local gui=Instance.new("ScreenGui",plr.PlayerGui)
	local frm=Instance.new("Frame",gui);frm.Visible=false
	local buttonC=Instance.new("Frame",gui)
	buttonC.Size=UDim2.new(0,50,0,50)
	buttonC.Position=UDim2.new(0.5,-25,0,0)
	buttonC.BorderColor3=Color3.new(0,0,0)
	local button=Instance.new("TextButton",buttonC)
	button.Size=UDim2.new(1,0,1,0)
	button.Position=UDim2.new(0,0,0,0)
	button.BackgroundTransparency=1
	button.ZIndex=3
	button.Font=Enum.Font.ArialBold
	button.TextColor3=Color3.new(0,0,0)
	button.Text="KASH\nPLAYER"
	button.MouseButton1Down:connect(function()
		if not frm.Visible then
			frm.Visible=true
		else
			frm.Visible=false
		end
	end)
	local bars=Instance.new("Frame",buttonC)
	bars.Size=UDim2.new(1,0,1,0)
	bars.BackgroundTransparency=1
	bars.ZIndex=2
	local function gradient()
	local phase=0
	local center = 128;
	local width = 127;
	local frequency = math.pi*2/#bars:GetChildren();
		for i=1,#bars:GetChildren() do
			spawn(function()
				while true do
					if bars[i].Parent==nil then break end
					local red   = math.sin(frequency*i+2+phase) * width + center;
		   			local green = math.sin(frequency*i+0+phase) * width + center;
		    		local blue  = math.sin(frequency*i+4+phase) * width + center;
					bars[i].BackgroundColor3=Color3.new(1,green/255,1)
					phase=phase+.01
					game:GetService('RunService').RenderStepped:wait()
				end
			end)
		end
	end
	for i=1,10 do
		local bar=Instance.new("Frame",bars)
		bar.Name=i
		bar.ZIndex=2
		bar.Size=UDim2.new(1,0,.1,0)
		bar.BorderSizePixel=0
		bar.Position=UDim2.new(0,0,.1*(i-1),0)
	end
	gradient()
	frm.Size=UDim2.new(0,400,0,300)
	frm.Position=UDim2.new(0.5,-200,0.5,-150)
	frm.BackgroundTransparency=1

	local nav=Instance.new("Frame",frm)
	nav.Name="nav"
	nav.Size=UDim2.new(1,0,.1,0)
	nav.BackgroundColor3=Color3.new(1,1,1)
	nav.BorderSizePixel=0
	nav.ZIndex=2
	local title=Instance.new("TextLabel",nav)
	title.Size=UDim2.new(1,0,.25,2)
	title.BackgroundTransparency=1
	title.Text="None"
	title.TextColor3=Color3.new(0,0,0)
	title.Font=Enum.Font.ArialBold
	title.FontSize=Enum.FontSize.Size10
	title.ZIndex=2
	local player=Instance.new("Frame",nav)
	player.Name="Player"
	player.Size=UDim2.new(1,-20,0,4)
	player.BackgroundColor3=Color3.new(.7,.7,.7)
	player.BorderSizePixel=0
	player.ZIndex=2
	player.Position=UDim2.new(0,10,0.5,-2)
	local line=Instance.new("Frame",player)
	line.Size=UDim2.new(0,0,1,0)
	line.BackgroundColor3=Color3.new(0,0,0)
	line.BorderSizePixel=0
	line.ZIndex=2
	local hldr=Instance.new("Frame",frm)
	hldr.Name="Holder"
	hldr.Size=UDim2.new(1,0,.9,0)
	hldr.Position=UDim2.new(0,0,.1,0)
	hldr.BackgroundTransparency=1
	local function pagify(par,maxPages)
		local curPage=1
		par:ClearAllChildren()
		local cont=Instance.new("Frame",par)
		cont.Name="Cont"
		cont.Size=UDim2.new(.9,0,.9,0)
		cont.BackgroundTransparency=1
		local pageFrm=Instance.new("Frame",par)
		pageFrm.Name="Pages"
		pageFrm.Size=UDim2.new(1,0,.1,0)
		pageFrm.Position=UDim2.new(0,0,.9,0)
		pageFrm.BackgroundTransparency=1

		local nex=Instance.new("TextButton",pageFrm)
		nex.Name="nex"
		nex.Size=UDim2.new(0.25,0,1,0)
		nex.Position=UDim2.new(.75,0,0,0)
		nex.BackgroundColor3=Color3.new(.5,.5,.5)
		nex.BorderSizePixel=0
		nex.TextColor3=Color3.new(1,1,1)
		nex.Font=Enum.Font.ArialBold
		nex.TextStrokeTransparency=.9
		nex.ZIndex=2
		nex.Text="NEXT"
		local prev=nex:Clone()
		prev.Parent=pageFrm
		prev.Name="prev"
		prev.Position=UDim2.new(0,0,0,0)
		prev.Text="PREV"
		local count=Instance.new("TextLabel",pageFrm)
		count.Size=UDim2.new(.25,0,1,0)
		count.Position=UDim2.new(.25,0,0,0)
		count.BackgroundTransparency=1
		count.TextColor3=Color3.new(0,0,0)
		count.Font=Enum.Font.ArialBold
		count.FontSize=Enum.FontSize.Size18
		count.Text="Page 1"
		count.ZIndex=2
		local box=Instance.new("TextBox",pageFrm)
		box.Name="Box"
		box.Size=UDim2.new(.25,0,1,0)
		box.Position=UDim2.new(.5,0,0,0)
		box.BackgroundColor3=Color3.new(.8,.8,.8)
		box.BorderSizePixel=0
		box.TextColor3=Color3.new(0,0,0)
		box.ClipsDescendants=true
		box.FontSize=Enum.FontSize.Size14
		box.Text="SEARCH"
		box.Font=Enum.Font.ArialBold

		nex.MouseButton1Down:connect(function()
			if curPage<maxPages and cont:findFirstChild(curPage+1) then
				curPage=curPage+1
				for a,d in pairs(cont:GetChildren()) do
					if d:IsA'Frame' then
						d.Visible=false
					end
				end
				cont[curPage].Visible=true
				count.Text="Page "..curPage
			end
		end)
		prev.MouseButton1Down:connect(function()
			if curPage>1 and cont:findFirstChild(curPage-1) then
				curPage=curPage-1
				for a,d in pairs(cont:GetChildren()) do
					if d:IsA'Frame' then
						d.Visible=false
					end
				end
				cont[curPage].Visible=true
				count.Text="Page "..curPage
			end
		end)
		return cont
	end
	local playlist=Instance.new("Frame",hldr)
	playlist.Name="Playlist"
	playlist.Size=UDim2.new(1,0,1,0)
	playlist.BackgroundColor3=Color3.new(.9,.9,.9)
	playlist.BorderSizePixel=0
	local function music(list)
		table.sort(list,function(a,b)
			return a[1]<b[1]
		end)
		local curPg
		local pages=math.ceil(#list/10)
		local tab={}
		local songsCont=pagify(playlist,pages)
		for i=1,pages do
			local pg=Instance.new("Frame",songsCont)
			local dim=1
			pg.Name=i
			pg.Size=UDim2.new(1,0,1,0)
			pg.BackgroundTransparency=1
			if i~=1 then pg.Visible=false end
			for a=1,10 do
				if #tab<#list then
					local m=Instance.new("Frame",pg)
					table.insert(tab,m)
					m.Size=UDim2.new(1,0,0,24)
					m.ClipsDescendants=true
					m.Position=UDim2.new(0,0,0,(a-1)*24)
					m.BackgroundTransparency=1
					m.Name=a
					local label=Instance.new("TextButton",m)
					label.Size=UDim2.new(1,-20,1,0)
					label.Position=UDim2.new(0,20,0,0)
					label.AutoButtonColor=false
					label.BackgroundColor3=Color3.new(dim,dim,dim)
					label.BorderSizePixel=0
					label.TextColor3=Color3.new(1-dim,1-dim,1-dim)
					label.Font=Enum.Font.ArialBold
					label.FontSize=Enum.FontSize.Size18
					label.TextStrokeTransparency=.9
					label.Name=list[#tab][2]
					label.Text=list[#tab][1]
					label.MouseButton1Down:connect(function()
						playSong(label.Name)
						title.Text=label.Text
					end)
					local letter=Instance.new("TextLabel",m)
					letter.Size=UDim2.new(0,20,0,20)
					letter.Position=UDim2.new(0,0,.5,-10)
					letter. BackgroundTransparency=1
					letter.TextColor3=Color3.new(0,0,0)
					letter.Font=Enum.Font.ArialBold
					letter.FontSize=Enum.FontSize.Size14
					letter.Text=list[#tab][1]:sub(1,1):upper()
					dim=dim-.01
				end
			end
		end
		local function volumeC()
			local vol=Instance.new("Frame",songsCont.Parent)
			local val=Instance.new("NumberValue",plr)
			val.Name="Volume"
			val.Value=.5
			vol.Name="Volume"
			vol.Size=UDim2.new(.1,0,.9,0)
			vol.Position=UDim2.new(0.9,0,0,0)
			vol.BackgroundTransparency=1
			local control=Instance.new("Frame",vol)
			control.Name="Control"
			control.Size=UDim2.new(1,0,1,0)
			control.BackgroundTransparency=1
			control.ClipsDescendants=true
			local bar=Instance.new("Frame",control)
			bar.Name="Bar"
			bar.Size=UDim2.new(0,4,0,control.AbsoluteSize.Y)
			bar.Position=UDim2.new(.5,-2,0,10)
			bar.BackgroundColor3=Color3.new(1,1,1)
			bar.BorderSizePixel=0
			bar.ZIndex=2
			local back=Instance.new("Frame",control)
			back.Name="Back"
			back.Size=UDim2.new(0,4,0,bar.Size.Y.Offset-10)
			back.Position=UDim2.new(.5,-2,0,0)
			back.BackgroundColor3=Color3.new(.2,.2,.2)
			back.BorderSizePixel=0
			local mover=Instance.new("Frame",bar)
			mover.Size=UDim2.new(0,50,0,10)
			mover.Position=UDim2.new(0.5,-25,0,-10)
			mover.BackgroundColor3=Color3.new(0,0,0)
			mover.BorderSizePixel=0
			mover.ZIndex=3
			local click=Instance.new("TextButton",control)
			click.Name="Click"
			click.Size=UDim2.new(1,0,0,10)
			click.Position=UDim2.new(0,0,0,bar.Position.Y.Offset-10)
			click.BackgroundTransparency=1
			click.Text=""
			click.Draggable=true
			slider(vol)
			val.Changed:connect(function()
				pcall(function()
					curSong.Volume=val.Value
				end)
			end)
		end
		volumeC()
		local box=songsCont.Parent.Pages.Box
		local function query(m)
			local list={}
			for a,d in pairs(songs) do
				if d[1]:lower():find(m:lower()) then
					table.insert(list,d)
				end
			end
			return list
		end
		box.FocusLost:connect(function(e)
			if e then
				music(query(box.Text))
			end
		end)
		spawn(function()
			while wait() do
				if curSong then
					line.Size=UDim2.new(curSong.TimePosition/curSong.TimeLength,0,1,0)
				end
			end
		end)
	end
	music(songs)
end

loadMenu()