Fast and working autofarm script

loadstring([[
local Players=game:GetService("Players")
local RS=game:GetService("ReplicatedStorage")
local TS=game:GetService("TweenService")
local UIS=game:GetService("UserInputService")
local VIM=game:GetService("VirtualInputManager")
local lp=Players.LocalPlayer
local pg=lp:WaitForChild("PlayerGui")
local farming,guiOn=false,true
local lastClick,lastSell,lastCache=0,0,0
local target,zoneCenter,rockList=nil,nil,{}
local ZONE=48
local ACCENT=Color3.fromRGB(255,145,45)
local BG=Color3.fromRGB(14,10,8)
local CARD=Color3.fromRGB(24,16,12)
local TEXT=Color3.fromRGB(255,236,210)
local DIM=Color3.fromRGB(160,120,90)
local function tw(o,p,t)TS:Create(o,TweenInfo.new(t or 0.15,Enum.EasingStyle.Quint,Enum.EasingDirection.Out),p):Play()end
local function hrp()local c=lp.Character return c and c:FindFirstChild("HumanoidRootPart")end
local function hum()local c=lp.Character return c and c:FindFirstChildOfClass("Humanoid")end
local function inZone(pos)if not zoneCenter or not pos then return false end return (pos-zoneCenter).Magnitude<=ZONE end
local function partOf(obj)if obj:IsA("BasePart")then return obj end if obj:IsA("Model")then return obj.PrimaryPart or obj:FindFirstChildWhichIsA("BasePart",true)end return nil end
local function rebuild()
rockList={}
if not zoneCenter then return end
for _,obj in ipairs(workspace:GetDescendants())do
local n=obj.Name local ok=false
if typeof(n)=="string"then local low=n:lower() if low:find("rockspawn")or(low:find("rock")and not low:find("bedrock"))then ok=true end end
if not ok and obj:IsA("Model")then if obj:FindFirstChildWhichIsA("BillboardGui",true)then ok=true end end
if ok then local p=partOf(obj) if p and p.Parent and p.Transparency<0.85 and p.Size.Magnitude<50 and inZone(p.Position)then table.insert(rockList,{part=p,model=obj})end end
end
end
local function nearest()
local root=hrp() if not root then return nil end
local best,bestD=nil,ZONE+1
for i=#rockList,1,-1 do
local e=rockList[i]
if not e.part or not e.part.Parent or e.part.Transparency>=0.85 or not inZone(e.part.Position)then table.remove(rockList,i)
else local d=(e.part.Position-root.Position).Magnitude if d<bestD then bestD=d best=e end end
end