Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- plr = game.Players.LocalPlayer
- plrg = game.Players.LocalPlayer.PlayerGui
- char = game.Players.LocalPlayer.Character
- rut = char.HumanoidRootPart
- mouse = plr:GetMouse()
- typing = false
- rad = math.rad
- musica=Instance.new("Sound",char)
- musica.Volume= 1
- musica.Looped =true
- musica.SoundId="rbxassetid://1306847940"
- musica:Play()
- ArtificialHB = Instance.new("BindableEvent", script)
- ArtificialHB.Name = "Heartbeat"
- script:WaitForChild("Heartbeat")
- frame = 1 / 60
- tf = 0
- allowframeloss = false
- tossremainder = false
- lastframe = tick()
- script.Heartbeat:Fire()
- game:GetService("RunService").Heartbeat:connect(function(s, p)
- tf = tf + s
- if tf >= frame then
- if allowframeloss then
- script.Heartbeat:Fire()
- lastframe = tick()
- else
- for i = 1, math.floor(tf / frame) do
- script.Heartbeat:Fire()
- end
- lastframe = tick()
- end
- if tossremainder then
- tf = 0
- else
- tf = tf - frame * math.floor(tf / frame)
- end
- end
- end)
- function swait(num)
- if num == 0 or num == nil then
- ArtificialHB.Event:wait()
- else
- for i = 0, num do
- ArtificialHB.Event:wait()
- end
- end
- end
- local scr = Instance.new("ScreenGui",plrg)
- local box = Instance.new("TextBox",scr) box.Size = UDim2.new(0,0,.05,0) box.Position = UDim2.new(0,0,.85,0) box.BorderSizePixel = 0 box.TextScaled = true box.BackgroundColor3 = Color3.fromRGB(40,40,40) box.TextColor3 = Color3.new(1,1,1) box.Text = ""
- local frame = Instance.new("Frame",scr) frame.Size = UDim2.new(0,0,.25,0) frame.BorderSizePixel = 0 frame.Position = UDim2.new(0,0,.60,0) frame.BackgroundColor3 = Color3.fromRGB(40,40,40)
- local song1 = Instance.new("TextButton",frame) song1.TextTransparency = 1 song1.Size = UDim2.new(1,0,.2,0) song1.TextScaled = true song1.BorderSizePixel = 0 song1.BackgroundColor3 = Color3.fromRGB(40,40,40) song1.TextColor3 = Color3.new(1,1,1) song1.Text = "Debris & Our Psych - Omerta"
- local song2 = Instance.new("TextButton",frame) song2.TextTransparency = 1 song2.Position = UDim2.new(0,0,.2,0) song2.Size = UDim2.new(1,0,.2,0) song2.TextScaled = true song2.BorderSizePixel = 0 song2.BackgroundColor3 = Color3.fromRGB(40,40,40) song2.TextColor3 = Color3.new(1,1,1) song2.Text = "CG5 - Uncrowned"
- song1.MouseButton1Click:connect(function()
- musica.SoundId = "rbxassetid://1098220376"
- musica:Play()
- song1.TextTransparency = 1
- song2.TextTransparency = 1
- for i = 0,1,.05 do
- frame.Size = frame.Size:lerp(UDim2.new(0,0,.25,0),i)
- swait()
- end
- end)
- song2.MouseButton1Click:connect(function()
- musica.SoundId = "rbxassetid://1913132034"
- musica:Play()
- song2.TextTransparency = 1
- song1.TextTransparency = 1
- for i = 0,1,.05 do
- frame.Size = frame.Size:lerp(UDim2.new(0,0,.25,0),i)
- swait()
- end
- end)
- mouse.KeyDown:connect(function(key)
- if key == "e" and not typing then
- box:CaptureFocus()
- for i = 0,1,.05 do
- box.Size = box.Size:lerp(UDim2.new(.15,0,.03,0),i)
- swait()
- end
- end
- end)
- id = "rbxassetid://1306847940"
- id2 = "rbxassetid://554435540"
- box.FocusLost:connect(function()
- if box.Text:lower():sub(1, 2) == "id" then
- local idd = box.Text:sub(4,999)
- musica.SoundId = "rbxassetid://"..idd
- musica:Play()
- box.Text = ""
- else
- end
- if box.Text:lower():sub(1,5) == "reset" then
- musica.SoundId = id
- musica:Play()
- box.Text = ""
- end
- if box.Text:lower():sub(1,4) == "stop" then
- musica:Stop()
- end
- if box.Text:lower():sub(1,4) == "play" then
- musica:Play()
- end
- if box.Text:lower():sub(1,4) == "vlad" then
- musica.SoundId = id2
- musica:Play()
- end
- if box.Text:lower():sub(1,5) == "pause" then
- musica:Pause()
- end
- if box.Text:lower():sub(1,6) == "resume" then
- musica:Resume()
- end
- if box.Text:lower():sub(1,6) == "volume" then
- local vol = box.Text:sub(8,20)
- musica.Volume = vol
- end
- if box.Text:lower():sub(1,5) == "pitch" then
- local pit = box.Text:sub(7,20)
- musica.Pitch = pit
- end
- if box.Text:lower():sub(1,8) == "songlist" then
- song1.TextTransparency = 0
- song2.TextTransparency = 0
- for i = 0,1,.05 do
- frame.Size = frame.Size:lerp(UDim2.new(.15,0,.25,0),i)
- swait()
- end
- end
- if box.Text:lower():sub(1,15) == "supersecretsong" then
- musica.SoundId = "rbxassetid://2039029608"
- musica:Play()
- end
- box.Text = ""
- for i = 0,1,.05 do
- box.Size = box.Size:lerp(UDim2.new(0,0,.03,0),i)
- swait()
- end
- end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement