Coin/Gem Farmer

-- By Logical

-- Efficiency based on your best pets.

local pets = {}
local looping = false -- set to true to loop until rejoin

-- DO NOT CHANGE ANYTHING HERE UNLESS I HAVE MARKED IT.
workspace.__THINGS.__REMOTES:FindFirstChild("unequip all pets"):InvokeServer({})
workspace.__THINGS.__REMOTES:FindFirstChild("equip best pets"):InvokeServer({})

wait(2)

for i,v in pairs(game.Players.LocalPlayer.PlayerGui.Inventory.Frame.Main.Pets:GetChildren()) do
    if v:IsA("TextButton") then
        if v.Equipped.Visible then
            table.insert(pets, v.Name)
        end
    end
end

repeat
    for i,coin in pairs(workspace.__THINGS.Coins:GetChildren()) do
        if workspace.__THINGS.Coins:FindFirstChild(coin.Name) then
            if (game.Players.LocalPlayer.Character.HumanoidRootPart.Position - coin:FindFirstChildOfClass("MeshPart").Position).magnitude <= 200 then -- to change the radius change this number next to '<='
                workspace.__THINGS.__REMOTES:FindFirstChild("join coin"):InvokeServer({coin.Name,pets})
                for i, fpet in pairs(pets) do
                    workspace.__THINGS.__REMOTES:FindFirstChild("change pet target"):FireServer({fpet,"Coin",coin.Name})
                    workspace.__THINGS.__REMOTES:FindFirstChild("farm coin"):FireServer({coin.Name,fpet})
                end
                repeat wait() until not workspace.__THINGS.Coins:FindFirstChild(coin.Name)
            end
        end
    end
    for i, orb in pairs(workspace.__THINGS.Orbs:GetChildren()) do
        local plrcf = game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame
        if workspace.__THINGS.Orbs:FindFirstChild(orb.Name) then
            repeat game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = orb.CFrame wait(1) until not workspace.__THINGS.Orbs:FindFirstChild(orb.Name)
        end
        game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = plrcf
    end
    for i, bag in pairs(workspace.__THINGS.Lootbags:GetChildren()) do
        local plrcf = game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame
        if workspace.__THINGS.Lootbags:FindFirstChild(bag.Name) then
            repeat game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = bag.CFrame wait(2) until not workspace.__THINGS.Lootbags:FindFirstChild(bag.Name)
        end
        game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = plrcf
    end
until not looping