[LUA] ROBLOX KeyBind Music Script [Volume & Pitch Control]

--[[ Created By Siarius
Copyright, KeyBind Music Player, KBMS, all things KBMS, and KeyBind Music Player]--

Player = game.Players.LocalPlayer
c = Player.Character
mouse = Player:GetMouse()

c.Humanoid.MaxHealth = math.huge
c.Humanoid.Health = math.huge

h = Instance.new("Hint", game.Workspace)
h.Text = "Loading Siarius's KeyBind Music Player."
wait(1.5)
h.Text = "Loading Siarius's KeyBind Music Player.."
wait(1.5)
h.Text = "Loading Siarius's KeyBind Music Player..."
wait(1.5)
h.Text = "Loading Siarius's KeyBind Music Player...."
wait(1.5)
h.Text = "Loading Siarius's KeyBind Music Player."
wait(1.5)
h.Text = "Loading Siarius's KeyBind Music Player.."
wait(1.5)
h.Text = "Loading Siarius's KeyBind Music Player..."
wait(1.5)
h.Text = "Loading Siarius's KeyBind Music Player...."
wait(1.5)
h.Text = "Loading Siarius's KeyBind Music Player."
wait(1.5)
h.Text = "Siarius's KeyBind Music Player Loaded!"
wait(1.5)
game:GetService("Chat"):Chat(c, "Left Click To End ANY Song, All Keyboard Keys Have A Song Except for W,A,S,D,I, and O")
wait(8)
game:GetService("Chat"):Chat(c, "[ And ] Control Volume. - And = Control Pitch")
wait(8)
game:GetService("Chat"):Chat(c, "KeyBind Music Player, By Siarius [V0.50]")

s = Instance.new("Sound", c.Head)
s.Looped = true
s.Volume = 1

mouse.Button1Down:connect(function()
	s:Stop()
end)

mouse.KeyDown:connect(function(key)
	if key == "[" then
		s.Volume = s.Volume -.1
game:GetService("Chat"):Chat(c, "Volume Is Now : "..s.Volume)
	end
end)

mouse.KeyDown:connect(function(key)
	if key == "]" then
		s.Volume = s.Volume +.1
game:GetService("Chat"):Chat(c, "Volume Is Now : "..s.Volume)
	end
end)

mouse.KeyDown:connect(function(key)
	if key == "-" then
		s.Pitch = s.Pitch -.1
game:GetService("Chat"):Chat(c, "Pitch Is Now : "..s.Pitch)
	end
end)

mouse.KeyDown:connect(function(key)
	if key == "=" then
		s.Pitch = s.Pitch +.1
game:GetService("Chat"):Chat(c, "Pitch Is Now : "..s.Pitch)
	end
end)

---Start of Looking For The Bae---
mouse.KeyDown:connect(function(key)
	print("Key Pressed : "..key)
if key == "q" then
	game:GetService("Chat"):Chat(c, "Now Playing : Looking For The Bae")
	s.SoundId = "rbxassetid://218017268"
	s:Play()
end
end)
---End of Looking For The Bae---

---Start of Demons---
mouse.KeyDown:connect(function(key)
if key == "e" then
	game:GetService("Chat"):Chat(c, "Now Playing : Demons")
	s.SoundId = "rbxassetid://225115335"
	s:Play()
end
end)
---End of Demons---

---Start of Uptown Funk---
mouse.KeyDown:connect(function(key)
if key == "r" then
	game:GetService("Chat"):Chat(c, "Now Playing : Uptown Funk")
	s.SoundId = "rbxassetid://235468324"
	s:Play()
end
end)
---End of Uptown Funk---

---Start of Harlem Shake---
mouse.KeyDown:connect(function(key)
if key == "y" then
	game:GetService("Chat"):Chat(c, "Now Playing : Harlem Shake")
	s.SoundId = "rbxassetid://142313816"
	s:Play()
end
end)
---End of Harlem Shake---

---Start of See You Again---
mouse.KeyDown:connect(function(key)
if key == "u" then
	game:GetService("Chat"):Chat(c, "Now Playing : See You Again")
	s.SoundId = "rbxassetid://235855135"
	s:Play()
end
end)
---End of See You Again---

---Start of Hello---
mouse.KeyDown:connect(function(key)
if key == "g" then
	game:GetService("Chat"):Chat(c, "Now Playing : Hello")
	s.SoundId = "rbxassetid://214902446"
	s:Play()
end
end)
---End of Hello---

---Start of I'm A 3.0---
mouse.KeyDown:connect(function(key)
if key == "t" then
	game:GetService("Chat"):Chat(c, "Now Playing : I'm A 3.0")
	s.SoundId = "rbxassetid://218530627"
	s:Play()
end
end)
---End of I'm A 3.0---

---Start of Watch Me---
mouse.KeyDown:connect(function(key)
if key == "z" then
	game:GetService("Chat"):Chat(c, "Now Playing : Watch Me")
	s.SoundId = "rbxassetid://215733323"
	s:Play()
end
end)
---End of Watch Me---

---Start of It's Time To Die---
mouse.KeyDown:connect(function(key)
if key == "x" then
	game:GetService("Chat"):Chat(c, "Now Playing : It's Time To Die")
	s.SoundId = "rbxassetid://223871924"
	s:Play()
end
end)
---End of It's Time To Die---

---Start of It's Turn Down For What---
mouse.KeyDown:connect(function(key)
if key == "f" then
	game:GetService("Chat"):Chat(c, "Now Playing : Turn Down For What")
	s.SoundId = "rbxassetid://143959455"
	s:Play()
end
end)
---End of It's Turn Down For What---

---Start of It's Throw Sum Mo---
mouse.KeyDown:connect(function(key)
if key == "c" then
	game:GetService("Chat"):Chat(c, "Now Playing : Throw Sum Mo")
	s.SoundId = "rbxassetid://209096212"
	s:Play()
end
end)
---End of It's Throw Sum Mo---

---Start of It's Dum Dee Dum---
mouse.KeyDown:connect(function(key)
if key == "v" then
	game:GetService("Chat"):Chat(c, "Now Playing : Dum Dee Dum")
	s.SoundId = "rbxassetid://151663136"
	s:Play()
end
end)
---End of It's Dum Dee Dum---

---Start of It's Freaks---
mouse.KeyDown:connect(function(key)
if key == "b" then
	game:GetService("Chat"):Chat(c, "Now Playing : Freaks")
	s.SoundId = "rbxassetid://234695144"
	s:Play()
end
end)
---End of It's Freaks---

---Start of It's Love Me Like You Do---
mouse.KeyDown:connect(function(key)
if key == "n" then
	game:GetService("Chat"):Chat(c, "Now Playing : Love Me Like You Do")
	s.SoundId = "rbxassetid://216767137"
	s:Play()
end
end)
---End of It's Love Me Like You Do---

---Start of It's Mmm Yeah Yeah---
mouse.KeyDown:connect(function(key)
if key == "m" then
	game:GetService("Chat"):Chat(c, "Now Playing : Mmm Yeah Yeah")
	s.SoundId = "rbxassetid://149811427"
	s:Play()
end
end)
---End of Mmm Yeah Yeah---

---Start of Warriors---
mouse.KeyDown:connect(function(key)
if key == "h" then
	game:GetService("Chat"):Chat(c, "Now Playing : Warriors")
	s.SoundId = "rbxassetid://194232694"
	s:Play()
end
end)
---End of Warriors---

---Start of No Flex Zone---
mouse.KeyDown:connect(function(key)
if key == "j" then
	game:GetService("Chat"):Chat(c, "Now Playing : No Flex Zone")
	s.SoundId = "rbxassetid://166886402"
	s:Play()
end
end)
---End of No Flex Zone---

---Start of Centuries---
mouse.KeyDown:connect(function(key)
if key == "k" then
	game:GetService("Chat"):Chat(c, "Now Playing : Centuries")
	s.SoundId = "rbxassetid://211626338"
	s:Play()
end
end)
---End of Centuries---

---Start of Lips Are Movin'---
mouse.KeyDown:connect(function(key)
if key == "l" then
	game:GetService("Chat"):Chat(c, "Now Playing : Lips Are Movin'")
	s.SoundId = "rbxassetid://207106257"
	s:Play()
end
end)
---End of Lips Are Movin'---

---Start of I Don't Mind---
mouse.KeyDown:connect(function(key)
if key == "p" then
	game:GetService("Chat"):Chat(c, "Now Playing : I Don't Mind")
	s.SoundId = "rbxassetid://208719506"
	s:Play()
end
end)
---End of I Don't Mind---

--</\>Copyright Siarius 2015</\>--