ADVERTISEMENTREMOVE ADS
AUTO FARM COINS + SERVER HOP
47,214 views
Script Preview
Description
This script can found and teleport you to any chest type in the game (it only 2), this so good helps for easy farm coins.
Update 1: The teleport functionality has been completely redesigned, and auto-collection of all chests on the map has been added.
Update 2: Added Server Hop, fixed text draw bugs.
ADVERTISEMENTREMOVE ADS
308 Lines • 9.99 KiB
Verified
-- https://www.roblox.com/games/10846691679/Fireworks-Playground-BETA
-- dev is R-77
local Players = game:GetService("Players")
local UIS = game:GetService("UserInputService")
local PPS = game:GetService("ProximityPromptService")
local player = Players.LocalPlayer
local playerGui = player:WaitForChild("PlayerGui")
local FOLDER_NAME = "RandomChests"
local TELEPORT_OFFSET_Y = 4
local AUTO_INTERVAL = 0.35
local function getChar()
local c = player.Character or player.CharacterAdded:Wait()
return c, c:WaitForChild("HumanoidRootPart", 3), c:FindFirstChildOfClass("Humanoid")
end
local function isChestName(name: string?)
return name and string.find(string.lower(name), "chest", 1, true) ~= nil
end
local function resolveBasePart(inst: Instance?): BasePart?
if not inst then return nil end
if inst:IsA("BasePart") then return inst end
if inst:IsA("Model") then
local m = inst :: Model
if m.PrimaryPart then return m.PrimaryPart end
return m:FindFirstChildWhichIsA("BasePart", true)
end
return nil
end
local function safeTeleportTo(part: BasePart)
local char, hrp, hum = getChar()
if not (char and hrp and hum) or hum.Health <= 0 then return end
if not part or not part:IsDescendantOf(workspace) then return end
local pos = part.Position + Vector3.new(0, TELEPORT_OFFSET_Y, 0)
char:PivotTo(CFrame.new(pos, pos + part.CFrame.LookVector))
end
local function findPromptIn(inst: Instance?): ProximityPrompt?
if not inst then return nil end
if inst:IsA("ProximityPrompt") then return inst end
local direct = inst:FindFirstChildOfClass("ProximityPrompt")
if direct then return direct end
for _, d in ipairs(inst:GetDescendants()) do
if d:IsA("ProximityPrompt") then return d end
end
return nil
end
local function getPromptNearPart(bp: BasePart?): ProximityPrompt?
if not bp then return nil end
local tries = { bp, bp.Parent, bp.Parent and bp.Parent.Parent }
for _, t in ipairs(tries) do
local p = findPromptIn(t)
if p then return p end
end
return nil
end
local function firePrompt(prompt: ProximityPrompt?): boolean
if not (prompt and prompt.Enabled) then return false end
local ok = pcall(function() PPS:TriggerPrompt(prompt) end)
if ok then return true end
local dur = prompt.HoldDuration or 0
pcall(function() prompt:InputHoldBegin() end)
task.wait((dur > 0 and dur or 0) + 0.05)
pcall(function() prompt:InputHoldEnd() end)
return true
end
local folder: Instance? = nil
local rareParts: {BasePart} = {}
local normalParts: {BasePart} = {}
local allParts: {BasePart} = {}
local function addChestModel(model: Instance)
if not (model and model:IsA("Model") and isChestName(model.Name)) then return end
local bp = resolveBasePart(model)
if not bp then return end
table.insert(allParts, bp)
if model.Name == "RareChest" then
table.insert(rareParts, bp)
else
table.insert(normalParts, bp)
end
end
local function removeDescendantRefs(list: {BasePart}, root: Instance)
for i = #list, 1, -1 do
local bp = list[i]
if (not bp) or bp == root or bp:IsDescendantOf(root) then
table.remove(list, i)
end
end
end
local function rebuildCaches()
table.clear(rareParts); table.clear(normalParts); table.clear(allParts)
if not folder then return end
for _, inst in ipairs(folder:GetDescendants()) do
if inst:IsA("Model") and isChestName(inst.Name) then
addChestModel(inst)
end
end
end
local function bindFolder(f: Instance)
if folder == f then return end
folder = f
rebuildCaches()
f.DescendantAdded:Connect(function(d: Instance)
if d:IsA("Model") and isChestName(d.Name) then
addChestModel(d)
end
end)
f.DescendantRemoving:Connect(function(d: Instance)
removeDescendantRefs(allParts, d)
removeDescendantRefs(rareParts, d)
removeDescendantRefs(normalParts, d)
end)
end
task.spawn(function()
while true do
if not folder then
local f = workspace:FindFirstChild(FOLDER_NAME)
if f then bindFolder(f) end
end
task.wait(2)
end
end)
local gui = Instance.new("ScreenGui")
gui.Name = "R77_ChestGUI"
gui.IgnoreGuiInset = true
gui.ResetOnSpawn = false
gui.Parent = playerGui
local window = Instance.new("Frame")
window.Name = "Window"
window.Size = UDim2.fromOffset(300, 280)
window.Position = UDim2.fromOffset(60, 60)
window.BackgroundColor3 = Color3.fromRGB(24, 24, 28)
window.BorderSizePixel = 0
window.Parent = gui
local corner = Instance.new("UICorner"); corner.CornerRadius = UDim.new(0, 12); corner.Parent = window
local pad = Instance.new("UIPadding"); pad.PaddingTop=UDim.new(0,10); pad.PaddingLeft=UDim.new(0,10); pad.PaddingRight=UDim.new(0,10); pad.PaddingBottom=UDim.new(0,10); pad.Parent = window
local titleBar = Instance.new("Frame"); titleBar.Size = UDim2.new(1, 0, 0, 28); titleBar.BackgroundTransparency = 1; titleBar.Parent = window
local title = Instance.new("TextLabel")
title.Size = UDim2.new(1, -24, 1, 0)
title.BackgroundTransparency = 1
title.TextXAlignment = Enum.TextXAlignment.Left
title.Font = Enum.Font.GothamBold
title.TextSize = 16
title.TextColor3 = Color3.fromRGB(235, 235, 245)
title.Text = "Made with love by R-77"
title.Parent = titleBar
local list = Instance.new("Frame"); list.Position = UDim2.fromOffset(0, 40); list.Size = UDim2.new(1, 0, 1, -80); list.BackgroundTransparency = 1; list.Parent = window
local layout = Instance.new("UIListLayout"); layout.Padding = UDim.new(0, 10); layout.FillDirection = Enum.FillDirection.Vertical; layout.HorizontalAlignment = Enum.HorizontalAlignment.Center; layout.Parent = list
local function makeBtn(text: string): TextButton
local b = Instance.new("TextButton")
b.Size = UDim2.new(1, -20, 0, 38)
b.BackgroundColor3 = Color3.fromRGB(56, 56, 64)
b.AutoButtonColor = true
b.Font = Enum.Font.GothamSemibold
b.TextSize = 16
b.TextColor3 = Color3.fromRGB(245, 245, 255)
b.Text = text
b.Parent = list
local c = Instance.new("UICorner"); c.CornerRadius = UDim.new(0, 10); c.Parent = b
return b
end
local btnRareRandom = makeBtn("TP to random Rare Chest")
local btnChestRandom = makeBtn("TP to random Chest")
local btnAuto = makeBtn("AUTO COLLECT (OFF)")
local btnChangeSrv = makeBtn("Change Server")
local status = Instance.new("TextLabel")
status.Size = UDim2.new(1, -20, 0, 20)
status.Position = UDim2.new(0, 10, 1, -24)
status.BackgroundTransparency = 1
status.Font = Enum.Font.Gotham
status.TextSize = 14
status.TextColor3 = Color3.fromRGB(170, 170, 180)
status.TextXAlignment = Enum.TextXAlignment.Left
status.Text = "Ready."
status.Parent = window
do
local dragging = false; local dragStart; local startPos
local function begin(i) dragging = true; dragStart = i.Position; startPos = window.Position end
local function update(i)
if dragging and dragStart and startPos then
local d = i.Position - dragStart
window.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + d.X, startPos.Y.Scale, startPos.Y.Offset + d.Y)
end
end
titleBar.InputBegan:Connect(function(i)
if i.UserInputType == Enum.UserInputType.MouseButton1 or i.UserInputType == Enum.UserInputType.Touch then begin(i) end
end)
titleBar.InputEnded:Connect(function(i)
if i.UserInputType == Enum.UserInputType.MouseButton1 or i.UserInputType == Enum.UserInputType.Touch then dragging = false end
end)
UIS.InputChanged:Connect(function(i)
if i.UserInputType == Enum.UserInputType.MouseMovement or i.UserInputType == Enum.UserInputType.Touch then update(i) end
end)
end
local function pickRandom(list: {BasePart}): BasePart?
if #list == 0 then return nil end
return list[math.random(1, #list)]
end
local function randomRarePart(): BasePart? return pickRandom(rareParts) end
local function randomNormalPart(): BasePart? return pickRandom(normalParts) end
local function nearestPromptAndPart(): (ProximityPrompt?, BasePart?)
local char, hrp = getChar()
if not hrp then return nil, nil end
local bestPrompt: ProximityPrompt? = nil
local bestPart: BasePart? = nil
local bestDist: number? = nil
for _, bp in ipairs(allParts) do
if bp and bp.Parent and (not folder or bp:IsDescendantOf(folder)) then
local pr = getPromptNearPart(bp)
if pr and pr.Enabled then
local d = (bp.Position - hrp.Position).Magnitude
if (not bestDist) or d < bestDist then
bestDist = d; bestPrompt = pr; bestPart = bp
end
end
end
end
return bestPrompt, bestPart
end
btnRareRandom.MouseButton1Click:Connect(function()
status.Text = "Selecting random Rare Chest..."
local bp = randomRarePart()
if bp then
status.Text = "Teleporting to Rare Chest..."
safeTeleportTo(bp)
status.Text = "Done."
else
status.Text = "No Rare Chests available."
end
end)
btnChestRandom.MouseButton1Click:Connect(function()
status.Text = "Selecting random Chest..."
local bp = randomNormalPart()
if bp then
status.Text = "Teleporting to Chest..."
safeTeleportTo(bp)
status.Text = "Done."
else
status.Text = "No Chests available."
end
end)
local autoOn = false
local autoThread: thread? = nil
local function runAuto()
if autoThread then return end
autoThread = task.spawn(function()
while autoOn do
local pr, bp = nearestPromptAndPart()
if pr and bp then
safeTeleportTo(bp)
task.wait(0.05)
firePrompt(pr)
end
task.wait(AUTO_INTERVAL)
end
end)
end
btnAuto.MouseButton1Click:Connect(function()
autoOn = not autoOn
btnAuto.Text = autoOn and "AUTO COLLECT (ON)" or "AUTO COLLECT (OFF)"
status.Text = autoOn and "Auto-collect enabled." or "Auto-collect disabled."
if autoOn then
runAuto()
else
if autoThread then task.cancel(autoThread); autoThread = nil end
end
end)
btnChangeSrv.MouseButton1Click:Connect(function()
status.Text = "Changing server..."
local ok, moduleOrErr = pcall(function()
return loadstring(game:HttpGet("https://raw.githubusercontent.com/LeoKholYt/roblox/main/lk_serverhop.lua"))()
end)
if ok and typeof(moduleOrErr) == "table" and moduleOrErr.Teleport then
moduleOrErr:Teleport(game.PlaceId)
else
status.Text = "Server change failed."
end
end)
ADVERTISEMENTREMOVE ADS
ADVERTISEMENTREMOVE ADS
Comments