Advertisement
vL4d_4eVer

u dont have to look at dis

Jul 31st, 2018
460
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 4.48 KB | None | 0 0
  1. plr = game.Players.LocalPlayer
  2. plrg = game.Players.LocalPlayer.PlayerGui
  3. char = game.Players.LocalPlayer.Character
  4. rut = char.HumanoidRootPart
  5. mouse = plr:GetMouse()
  6. typing = false
  7. rad = math.rad
  8. musica=Instance.new("Sound",char)
  9. musica.Volume= 1
  10. musica.Looped =true
  11. musica.SoundId="rbxassetid://1306847940"
  12. musica:Play()
  13. ArtificialHB = Instance.new("BindableEvent", script)
  14. ArtificialHB.Name = "Heartbeat"
  15.  
  16. script:WaitForChild("Heartbeat")
  17.  
  18. frame = 1 / 60
  19. tf = 0
  20. allowframeloss = false
  21. tossremainder = false
  22. lastframe = tick()
  23. script.Heartbeat:Fire()
  24.  
  25. game:GetService("RunService").Heartbeat:connect(function(s, p)
  26.     tf = tf + s
  27.     if tf >= frame then
  28.         if allowframeloss then
  29.             script.Heartbeat:Fire()
  30.             lastframe = tick()
  31.         else
  32.             for i = 1, math.floor(tf / frame) do
  33.                 script.Heartbeat:Fire()
  34.             end
  35.             lastframe = tick()
  36.         end
  37.         if tossremainder then
  38.             tf = 0
  39.         else
  40.             tf = tf - frame * math.floor(tf / frame)
  41.         end
  42.     end
  43. end)
  44.  
  45. function swait(num)
  46.     if num == 0 or num == nil then
  47.         ArtificialHB.Event:wait()
  48.     else
  49.         for i = 0, num do
  50.             ArtificialHB.Event:wait()
  51.         end
  52.     end
  53. end
  54.  
  55. local scr = Instance.new("ScreenGui",plrg)
  56. 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 = ""
  57. 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)
  58. 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"
  59. 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"
  60. song1.MouseButton1Click:connect(function()
  61.     musica.SoundId = "rbxassetid://1098220376"
  62.     musica:Play()
  63.     song1.TextTransparency = 1
  64.     song2.TextTransparency = 1
  65.     for i = 0,1,.05 do
  66.         frame.Size = frame.Size:lerp(UDim2.new(0,0,.25,0),i)
  67.         swait()
  68.     end
  69. end)
  70. song2.MouseButton1Click:connect(function()
  71.     musica.SoundId = "rbxassetid://1913132034"
  72.     musica:Play()
  73.     song2.TextTransparency = 1
  74.     song1.TextTransparency = 1
  75.     for i = 0,1,.05 do
  76.         frame.Size = frame.Size:lerp(UDim2.new(0,0,.25,0),i)
  77.         swait()
  78.     end
  79. end)
  80. mouse.KeyDown:connect(function(key)
  81.     if key == "e" and not typing then
  82.         box:CaptureFocus()
  83.         for i = 0,1,.05 do
  84.             box.Size = box.Size:lerp(UDim2.new(.15,0,.03,0),i)
  85.             swait()
  86.         end
  87.     end
  88. end)
  89. id = "rbxassetid://1306847940"
  90. id2 = "rbxassetid://554435540"
  91. box.FocusLost:connect(function()
  92.         if box.Text:lower():sub(1, 2) == "id" then
  93.         local idd = box.Text:sub(4,999)
  94.         musica.SoundId = "rbxassetid://"..idd
  95.         musica:Play()
  96.         box.Text = ""
  97.         else
  98.         end
  99.         if box.Text:lower():sub(1,5) == "reset" then
  100.             musica.SoundId = id
  101.             musica:Play()
  102.             box.Text = ""
  103.         end
  104.         if box.Text:lower():sub(1,4) == "stop" then
  105.             musica:Stop()
  106.         end
  107.         if box.Text:lower():sub(1,4) == "play" then
  108.             musica:Play()
  109.         end
  110.         if box.Text:lower():sub(1,4) == "vlad" then
  111.             musica.SoundId = id2
  112.             musica:Play()
  113.         end
  114.             if box.Text:lower():sub(1,5) == "pause" then
  115.             musica:Pause()
  116.         end
  117.         if box.Text:lower():sub(1,6) == "resume" then
  118.             musica:Resume()
  119.         end
  120.         if box.Text:lower():sub(1,6) == "volume" then
  121.             local vol = box.Text:sub(8,20)
  122.             musica.Volume = vol
  123.         end
  124.         if box.Text:lower():sub(1,5) == "pitch" then
  125.             local pit = box.Text:sub(7,20)
  126.             musica.Pitch = pit
  127.         end
  128.         if box.Text:lower():sub(1,8) == "songlist" then
  129.             song1.TextTransparency = 0
  130.             song2.TextTransparency = 0
  131.             for i = 0,1,.05 do
  132.                 frame.Size = frame.Size:lerp(UDim2.new(.15,0,.25,0),i)
  133.                 swait()
  134.             end
  135.         end
  136.         if box.Text:lower():sub(1,15) == "supersecretsong" then
  137.             musica.SoundId =  "rbxassetid://2039029608"
  138.             musica:Play()
  139.         end
  140.         box.Text = ""
  141.     for i = 0,1,.05 do
  142.         box.Size = box.Size:lerp(UDim2.new(0,0,.03,0),i)
  143.         swait()
  144.     end
  145. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement