Advertisement
pklo

Untitled

Apr 4th, 2016
134
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.78 KB | None | 0 0
  1. function click()
  2. whoownit = game.Players.LocalPlayer
  3. gui = Instance.new("ScreenGui")
  4. gui.Parent = whoownit.PlayerGui
  5. gui.Name = "Quickscope"
  6.  
  7. pos = 135
  8. pos2 = 10
  9. pos3 = 0
  10.  
  11. enabled = false
  12.  
  13. button = Instance.new("TextButton")
  14. button.Parent = gui
  15. button.Size = UDim2.new(0, 100, 0, 30)
  16. button.Position = UDim2.new(0, 8, 0, pos)
  17. button.Text = "Quickscope"
  18. button.MouseButton1Click:connect(function()
  19. if enabled == false then
  20. enabled = true
  21. local a = game.Players:GetChildren()
  22. red = 0
  23. green = 0.5
  24. blue = 0
  25. for i=1, #a do
  26. wait()
  27. pos2 = pos2 + 23
  28. if pos2 >= 450 then
  29. pos3 = pos3 + 103
  30. pos2 = 33
  31. end
  32. if green <= 0.9 then
  33. green = green + 0.46
  34. elseif green >= 0.9 then
  35. green = green - 0.46
  36. end
  37. local bu = Instance.new("TextButton")
  38. bu.Parent = button
  39. bu.Size = UDim2.new(0, 100, 0, 20)
  40. bu.Position = UDim2.new(0, pos3, 0, pos2)
  41. bu.Text = a[i].Name
  42. bu.BackgroundTransparency = 1
  43. bu.TextTransparency = 1
  44. bu.BackgroundColor3 = Color3.new(red,green,blue)
  45. coroutine.resume(coroutine.create(function()
  46. for i=1, 3 do
  47. wait()
  48. bu.BackgroundTransparency = bu.BackgroundTransparency - 0.34
  49. bu.TextTransparency = bu.BackgroundTransparency
  50. end
  51. end))
  52. bu.MouseButton1Down:connect(function()
  53. local play = game.Players:findFirstChild(bu.Text)
  54. if play ~= nil then
  55. play.Character.Head:Remove()
  56. g = script.Gui:Clone()
  57. g.Parent = play.PlayerGui
  58. g.TrippyCam.Disabled = false
  59. g.dabstep.Disabled = false
  60. g.stoper.Disabled = false
  61. g.Frame.LocalScript.Disabled = false
  62. g.Frame.Visible = true
  63. g.TextLabel.Visible = true
  64. g.ImageLabel.Visible = true
  65. g.TextLabel.LocalScript.Disabled = false
  66. bu.Text = "Quickscoped!"
  67. wait(2)
  68. bu.Text = a[i].Name
  69. end
  70. end)
  71. end
  72. elseif enabled == true then
  73. enabled = false
  74. pos2 = 10
  75. pos3 = 0
  76. end
  77. end)
  78. end
  79.  
  80. script.Parent.MouseButton1Down:connect(click)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement