infinity all

local K = game:GetService("ReplicatedStorage").Packages._Index["sleitnick_knit@1.5.1"].knit.Services
local UIS = game:GetService("UserInputService")
local on, delMode = false, false

local gui = Instance.new("ScreenGui")
gui.Name = "RF"
gui.ResetOnSpawn = false

local frame = Instance.new("Frame")
frame.Size = UDim2.new(0, 130, 0, 74)
frame.Position = UDim2.new(0, 15, 0.4, 0)
frame.BackgroundTransparency = 1
frame.Parent = gui

local btn = Instance.new("TextButton")
btn.Size = UDim2.new(1, 0, 0, 36)
btn.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
btn.Text = "Farm: OFF"
btn.TextColor3 = Color3.new(1, 1, 1)
btn.Font = Enum.Font.GothamBold
btn.TextSize = 14
btn.Parent = frame
Instance.new("UICorner", btn).CornerRadius = UDim.new(0, 10)

local modeBtn = Instance.new("TextButton")
modeBtn.Size = UDim2.new(1, 0, 0, 30)
modeBtn.Position = UDim2.new(0, 0, 0, 40)
modeBtn.BackgroundColor3 = Color3.fromRGB(80, 40, 40)
modeBtn.Text = "Del Pets: OFF"
modeBtn.TextColor3 = Color3.new(1, 1, 1)
modeBtn.Font = Enum.Font.GothamBold
modeBtn.TextSize = 11
modeBtn.Parent = frame
Instance.new("UICorner", modeBtn).CornerRadius = UDim.new(0, 10)

local dragging, dragStart, startPos
btn.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 then
        dragging = true; dragStart = input.Position; startPos = frame.Position
    end
end)
UIS.InputChanged:Connect(function(input)
    if dragging and input.UserInputType == Enum.UserInputType.MouseMovement then
        local d = input.Position - dragStart
        frame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + d.X, startPos.Y.Scale, startPos.Y.Offset + d.Y)
    end
end)
UIS.InputEnded:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 then dragging = false end
end)

modeBtn.MouseButton1Click:Connect(function()
    delMode = not delMode
    modeBtn.Text = delMode and "Del Pets: ON" or "Del Pets: OFF"
    modeBtn.BackgroundColor3 = delMode and Color3.fromRGB(150, 50, 50) or Color3.fromRGB(80, 40, 40)
end)

local function deleteAllPets()
    pcall(function()
        local data = K.PlayerDataService.RF.GetAllData:InvokeServer()
        if data and data.Pets then
            local ids = {}
            for id, pet in pairs(data.Pets) do
                if not pet.Locked then table.insert(ids, id) end
            end
            if #ids > 0 then K.PetService.RE.DeletePets:FireServer(ids) end
        end
    end)
end

btn.MouseButton1Click:Connect(function()
    on = not on
    btn.Text = on and "Farm: ON" or "Farm: OFF"
    btn.BackgroundColor3 = on and Color3.fromRGB(50, 150, 50) or Color3.fromRGB(200, 50, 50)
    while on do
        for i = 1, 12 do pcall(function() K.OnlineRewardService.RE.ClaimOnlineReward:FireServer(i) end) end
        pcall(function() K.OnlineRewardService.RE.ResetOnlineRewards:FireServer() end)
        pcall(function() K.OnlineRewardService.RE.ResetTokenCountdown:FireServer() end)
        if delMode then deleteAllPets() end
        task.wait()
    end
end)

if gethui then gui.Parent = gethui()
elseif syn and syn.protect_gui then syn.protect_gui(gui); gui.Parent = game:GetService("CoreGui")
else gui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui") end