local plrs = game:GetService("Players")
local uis = game:GetService("UserInputService")
local rs = game:GetService("ReplicatedStorage")
local me = plrs.LocalPlayer
local gui_parent = game:GetService("CoreGui") or me:WaitForChild("PlayerGui")
local sg = Instance.new("ScreenGui")
sg.Name = "Farmer"
sg.ResetOnSpawn = false
sg.Parent = gui_parent
local frame = Instance.new("Frame")
frame.BackgroundColor3 = Color3.fromRGB(45, 45, 55)
frame.BorderColor3 = Color3.fromRGB(80, 80, 100)
frame.BorderSizePixel = 2
frame.Position = UDim2.new(0.4, 0, 0.3, 0)
frame.Size = UDim2.new(0, 260, 0, 100)
frame.Parent = sg
local tbar = Instance.new("Frame")
tbar.BackgroundColor3 = Color3.fromRGB(60, 60, 80)
tbar.BorderColor3 = Color3.fromRGB(80, 80, 100)
tbar.BorderSizePixel = 1
tbar.Size = UDim2.new(1, 0, 0, 24)
tbar.Parent = frame
local tlabel = Instance.new("TextLabel")
tlabel.BackgroundTransparency = 1
tlabel.Position = UDim2.new(0, 6, 0, 0)
tlabel.Size = UDim2.new(1, -90, 1, 0)
tlabel.Font = Enum.Font.Code
tlabel.Text = "Be a streamer auto farmer"
tlabel.TextColor3 = Color3.fromRGB(220, 220, 240)
tlabel.TextSize = 12
tlabel.TextXAlignment = Enum.TextXAlignment.Left
tlabel.Parent = tbar
local cbtn = Instance.new("TextButton")
cbtn.BackgroundColor3 = Color3.fromRGB(220, 70, 70)
cbtn.BorderSizePixel = 0
cbtn.Position = UDim2.new(1, -22, 0.5, -8)
cbtn.Size = UDim2.new(0, 16, 0, 16)
cbtn.Font = Enum.Font.Code
cbtn.Text = "X"
cbtn.TextColor3 = Color3.fromRGB(25, 25, 25)
cbtn.TextSize = 10
cbtn.Parent = tbar
local mbtn = Instance.new("TextButton")
mbtn.BackgroundColor3 = Color3.fromRGB(220, 190, 60)
mbtn.BorderSizePixel = 0
mbtn.Position = UDim2.new(1, -42, 0.5, -8)
mbtn.Size = UDim2.new(0, 16, 0, 16)
mbtn.Font = Enum.Font.Code
mbtn.Text = "_"
mbtn.TextColor3 = Color3.fromRGB(25, 25, 25)
mbtn.TextSize = 10
mbtn.Parent = tbar
local toggles = {}
local function mktoggle(txt, y, fn)
local row = Instance.new("Frame")
row.BackgroundTransparency = 1
row.Position = UDim2.new(0, 8, 0, y)
row.Size = UDim2.new(1, -16, 0, 18)
row.Parent = frame
local lbl = Instance.new("TextLabel")
lbl.BackgroundTransparency = 1
lbl.Size = UDim2.new(1, -22, 1, 0)
lbl.Font = Enum.Font.Code
lbl.Text = txt
lbl.TextColor3 = Color3.fromRGB(220, 220, 220)
lbl.TextSize = 11
lbl.TextXAlignment = Enum.TextXAlignment.Left
lbl.Parent = row
local box = Instance.new("TextButton")
box.BackgroundColor3 = Color3.fromRGB(35, 35, 45)
box.BorderColor3 = Color3.fromRGB(80, 80, 100)
box.BorderSizePixel = 1
box.Position = UDim2.new(1, -16, 0.5, -7)
box.Size = UDim2.new(0, 14, 0, 14)
box.Font = Enum.Font.Code
box.Text = ""
box.TextColor3 = Color3.fromRGB(200, 200, 255)
box.TextSize = 10
box.Parent = row
local on = false
box.MouseButton1Click:Connect(function()
on = not on
box.Text = on and "X" or ""
box.BackgroundColor3 = on and Color3.fromRGB(70, 100, 70) or Color3.fromRGB(35, 35, 45)
fn(on)
end)
end
local sevt = rs:WaitForChild("StreamingEvent")
local gmbox = rs:WaitForChild("GetMailBox")
mktoggle("Auto Respond", 32, function(s)
toggles.respond = s
if not s then return end
task.spawn(function()
while toggles.respond do
sevt:FireServer("Responded")
task.wait(0.1)
end
end)
end)
mktoggle("Auto Collect", 54, function(s)
toggles.collect = s
if not s then return end
task.spawn(function()
while toggles.collect do
gmbox:FireServer()
task.wait(0.1)
end
end)
end)
cbtn.MouseButton1Click:Connect(function()
sg:Destroy()
end)
local minimized = false
mbtn.MouseButton1Click:Connect(function()
minimized = not minimized
for _, c in ipairs(frame:GetChildren()) do
if c ~= tbar then
c.Visible = not minimized
end
end
frame.Size = minimized and UDim2.new(0, 260, 0, 24) or UDim2.new(0, 260, 0, 452)
end)
local drag, ds, sp
tbar.InputBegan:Connect(function(i)
if i.UserInputType == Enum.UserInputType.MouseButton1 then
drag = true
ds = i.Position
sp = frame.Position
end
end)
tbar.InputEnded:Connect(function(i)
if i.UserInputType == Enum.UserInputType.MouseButton1 then
drag = false
end
end)
uis.InputChanged:Connect(function(i)
if drag and i.UserInputType == Enum.UserInputType.MouseMovement then
local d = i.Position - ds
frame.Position = UDim2.new(sp.X.Scale, sp.X.Offset + d.X, sp.Y.Scale, sp.Y.Offset + d.Y)
end
end)
local pp_connections = {}
local function patch_pp(pp)
if pp:IsA("ProximityPrompt") then
pp.HoldDuration = 0
end
end
local function start_pp_patch()
-- patch all existing prompts
for _, v in ipairs(workspace:GetDescendants()) do
patch_pp(v)
end
-- watch for new ones
local c = workspace.DescendantAdded:Connect(function(v)
patch_pp(v)
end)
table.insert(pp_connections, c)
end
local function stop_pp_patch()
for _, c in ipairs(pp_connections) do
c:Disconnect()
end
pp_connections = {}
end
mktoggle("Instant ProxPrompt", 76, function(s)
toggles.proxprompt = s
if s then
start_pp_patch()
else
stop_pp_patch()
end
end)
Comments
LIKE SCRIPT
Sorry about the UI getting bigger when you minimize and maximize it idk how I messed that up