Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local a = game:GetService("Players")
- local b = game:GetService("RunService")
- local c = game:GetService("TweenService")
- local d = a.LocalPlayer
- local e = d:WaitForChild("PlayerGui")
- local f = Instance.new("ScreenGui", e)
- f.Name = "ScriptBoxGUI"
- local g = Instance.new("Frame", f)
- g.Size = UDim2.new(0, 250, 0, 130)
- g.Position = UDim2.new(0, 20, 0, 20)
- g.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
- g.Active = true
- g.Draggable = true
- local h = Instance.new("TextLabel", g)
- h.Size = UDim2.new(1, 0, 0, 30)
- h.Position = UDim2.new(0, 0, 0, 0)
- h.BackgroundTransparency = 1
- h.TextColor3 = Color3.new(1, 1, 1)
- h.Font = Enum.Font.GothamBold
- h.TextSize = 20
- h.Text = "Script Gather Speed"
- local i = Instance.new("TextButton", g)
- i.Size = UDim2.new(0, 230, 0, 40)
- i.Position = UDim2.new(0, 10, 0, 40)
- i.Text = "Teleport: OFF"
- i.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
- i.TextColor3 = Color3.new(1, 1, 1)
- local j = Instance.new("TextLabel", g)
- j.Size = UDim2.new(1, 0, 0, 30)
- j.Position = UDim2.new(0, 0, 1, -30)
- j.Text = "Script Created By ScriptBox"
- j.TextColor3 = Color3.new(1, 1, 1)
- j.BackgroundTransparency = 1
- local k = false
- i.MouseButton1Click:Connect(function()
- k = not k
- i.Text = k and "Teleport: ON" or "Teleport: OFF"
- end)
- local function l(m)
- local n = d.Character and d.Character:FindFirstChild("HumanoidRootPart")
- if n and m and m:IsA("BasePart") then
- local o = {CFrame = m.CFrame * CFrame.new(0, -5, 0)}
- local p = TweenInfo.new(1, Enum.EasingStyle.Linear)
- local q = c:Create(n, p, o)
- q:Play()
- end
- end
- b.RenderStepped:Connect(function()
- if not k then return end
- local r = workspace:FindFirstChild("Debris")
- if not r then return end
- local s = r:FindFirstChild("Highlight")
- if s and s:IsA("BasePart") then
- l(s)
- wait(2)
- end
- for _, t in ipairs(r:GetChildren()) do
- if t:IsA("BasePart") and t.Name == "HitDetector" then
- local u = t:GetAttribute("For")
- if u == d.Name then
- l(t)
- wait(2)
- end
- end
- end
- end)
Add Comment
Please, Sign In to add comment