2P1ooo1P2

Odjdidjd

Jul 20th, 2025
5,004
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.99 KB | None | 0 0
  1. local a = game:GetService("Players")
  2. local b = game:GetService("RunService")
  3. local c = game:GetService("TweenService")
  4. local d = a.LocalPlayer
  5. local e = d:WaitForChild("PlayerGui")
  6.  
  7. local f = Instance.new("ScreenGui", e)
  8. f.Name = "ScriptBoxGUI"
  9.  
  10. local g = Instance.new("Frame", f)
  11. g.Size = UDim2.new(0, 250, 0, 130)
  12. g.Position = UDim2.new(0, 20, 0, 20)
  13. g.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
  14. g.Active = true
  15. g.Draggable = true
  16.  
  17. local h = Instance.new("TextLabel", g)
  18. h.Size = UDim2.new(1, 0, 0, 30)
  19. h.Position = UDim2.new(0, 0, 0, 0)
  20. h.BackgroundTransparency = 1
  21. h.TextColor3 = Color3.new(1, 1, 1)
  22. h.Font = Enum.Font.GothamBold
  23. h.TextSize = 20
  24. h.Text = "Script Gather Speed"
  25.  
  26. local i = Instance.new("TextButton", g)
  27. i.Size = UDim2.new(0, 230, 0, 40)
  28. i.Position = UDim2.new(0, 10, 0, 40)
  29. i.Text = "Teleport: OFF"
  30. i.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
  31. i.TextColor3 = Color3.new(1, 1, 1)
  32.  
  33. local j = Instance.new("TextLabel", g)
  34. j.Size = UDim2.new(1, 0, 0, 30)
  35. j.Position = UDim2.new(0, 0, 1, -30)
  36. j.Text = "Script Created By ScriptBox"
  37. j.TextColor3 = Color3.new(1, 1, 1)
  38. j.BackgroundTransparency = 1
  39.  
  40. local k = false
  41. i.MouseButton1Click:Connect(function()
  42. k = not k
  43. i.Text = k and "Teleport: ON" or "Teleport: OFF"
  44. end)
  45.  
  46. local function l(m)
  47. local n = d.Character and d.Character:FindFirstChild("HumanoidRootPart")
  48. if n and m and m:IsA("BasePart") then
  49. local o = {CFrame = m.CFrame * CFrame.new(0, -5, 0)}
  50. local p = TweenInfo.new(1, Enum.EasingStyle.Linear)
  51. local q = c:Create(n, p, o)
  52. q:Play()
  53. end
  54. end
  55.  
  56. b.RenderStepped:Connect(function()
  57. if not k then return end
  58. local r = workspace:FindFirstChild("Debris")
  59. if not r then return end
  60.  
  61. local s = r:FindFirstChild("Highlight")
  62. if s and s:IsA("BasePart") then
  63. l(s)
  64. wait(2)
  65. end
  66.  
  67. for _, t in ipairs(r:GetChildren()) do
  68. if t:IsA("BasePart") and t.Name == "HitDetector" then
  69. local u = t:GetAttribute("For")
  70. if u == d.Name then
  71. l(t)
  72. wait(2)
  73. end
  74. end
  75. end
  76. end)
Add Comment
Please, Sign In to add comment