What's new
Heapleak - Scripthub

Get the most out of HeapLeak by creating a free account! Once signed in, you’ll gain full access to restricted content, be able to share your own scripts, and participate in our member-only discussions.

retroslop swarm

Version / Update: v1.0.0
Download / Script Link
--!strict
local Players=game:GetService("Players")local TweenService=game:GetService("TweenService")local UserInputService=game:GetService("UserInputService")local VirtualInputManager=game:GetService("VirtualInputManager")local VirtualUser=game:GetService("VirtualUser")local HttpService=game:GetService("HttpService")local GuiService=game:GetService("GuiService")

type Mode="Sword"|"Rocket Launcher"|"Slingshot" type Priority="Lowest First"|"Highest First" type Monster="Slime First"|"Zombie First" type HP="Low HP First"|"High HP First" type Filter="All"|"Bricks Only"|"Snowflakes Only" type BloomPrio="Low Pollen First"|"High Pollen First"

local C=table.freeze({Bg=Color3.fromRGB(18,18,22),Bg2=Color3.fromRGB(28,28,35),Hover=Color3.fromRGB(38,38,48),Border=Color3.fromRGB(55,55,65),Text=Color3.fromRGB(235,235,240),Dim=Color3.fromRGB(130,130,145),Accent=Color3.fromRGB(88,166,255),Ok=Color3.fromRGB(72,199,142),Bad=Color3.fromRGB(255,80,80)})

local DECALS=table.freeze({Bricks="rbxassetid://6869119000",Snow="rbxassetid://6087969886"})
local ITEMS=table.freeze({Swords={"Buy Classic Sword","Buy Firebrand","Buy Illumina"},Range={"Buy Slingshot","Buy Rocket Launcher"},Tools={"Buy Trowel"},Boost={"Buy Bloxiade","Buy Bloxy Cola","Buy Chez Burger","Buy Pizza"},Bricks={"Buy 10 Bricks Button","Buy 100 Bricks Button"},Bees={"Level Up Rental Bees","Unlock Bees Button"}})

local DISCORD="https://discord.gg/wNQq2ebkcq"

local P=Players.LocalPlayer local PG=P:WaitForChild("PlayerGui")
local Char,Hum,Root,Tool,Cam=nil,nil,nil,nil,workspace.CurrentCamera
local StartTime=os.time()

local Cfg={On=false,Mode="Sword"::Mode,Level="Lowest First"::Priority,Mon="Slime First"::Monster,HP="Low HP First"::HP,Filter="All"::Filter,Tokens=false,Blooms=false,BloomPrio="Low Pollen First"::BloomPrio,Bait=false}
local Bloom,Collected,Conns=nil,{},{}

local FarmBg,FarmKnob,TokenBg,TokenKnob,BloomBg,BloomKnob,BaitBg,BaitKnob
local SlimeLbl,ZombieLbl,BrickLbl,RoundLbl,WaveLbl,HiveLbl,TimeLbl
local Content local Collapsed=false

local function Con(c)table.insert(Conns,c)end
local function Refs()Char=P.Character if not Char then return false end Root=Char:FindFirstChild("HumanoidRootPart")Hum=Char:FindFirstChildOfClass("Humanoid")Tool=Char:FindFirstChildOfClass("Tool")return Root~=nil and Hum~=nil end
local function CM()return workspace:FindFirstChild("ClassicMinigame")end
local function DelSpawn()local m=CM()if m then local a,b=m:FindFirstChild("ClassicSpawnerCaveWall"),m:FindFirstChild("ClassicSpawnerShade")if a then pcall(function()a:Destroy()end)end if b then pcall(function()b:Destroy()end)end end end
local function NoCol()if Char then for _,p in Char:GetDescendants()do if p:IsA("BasePart")then p.CanCollide=false end end end end
local function YesCol()if Char then for _,p in Char:GetDescendants()do if p:IsA("BasePart")then p.CanCollide=true end end end end
local function LockCam(t)if Cam and Root then Cam.CameraType=Enum.CameraType.Scriptable Cam.CFrame=CFrame.new(Root.Position+Vector3.new(0,10,15),t)end end
local function UnlockCam()if Cam then Cam.CameraType=Enum.CameraType.Custom end end
local function NoFall()if Root then Root.AssemblyLinearVelocity,Root.AssemblyAngularVelocity=Vector3.zero,Vector3.zero end if Hum then Hum:ChangeState(Enum.HumanoidStateType.Physics)end end
local function YesFall()if Hum then Hum:ChangeState(Enum.HumanoidStateType.GettingUp)end end

local function Monsters()return workspace:FindFirstChild("Monsters")end
local function Collectibles()return workspace:FindFirstChild("Collectibles")end
local function Blooms()local h=workspace:FindFirstChild("Happenings")return h and h:FindFirstChild("BrickBlooms")end
local function Buttons()local m=CM()return m and m:FindFirstChild("TycoonButtons")end
local function Dest()local m=CM()return m and m:FindFirstChild("MonsterDestination")end

local function Stats()local s={Elapsed=0,Hive=0,Round=0,Wave=0}local m=CM()if not m then return s end local g=m:FindFirstChild("GameStats")if not g then return s end local a,b,c,d=g:FindFirstChild("ElapsedSeconds"),g:FindFirstChild("HiveHealth"),g:FindFirstChild("Round"),g:FindFirstChild("SecondsUntilNextWave")if a then s.Elapsed=a.Value end if b then s.Hive=b.Value end if c then s.Round=c.Value end if d then s.Wave=d.Value end return s end

local function Bricks()local m=CM()if not m then return 0 end local g=m:FindFirstChild("GameStats")if not g then return 0 end local pf=g:FindFirstChild("Players")if not pf then return 0 end for i=1,4 do local f=pf:FindFirstChild("Player"..i)if f then local n=f:FindFirstChild("PlayerName")if n and tostring(n.Value)==P.Name then local b=f:FindFirstChild("Bricks")return b and b.Value or 0 end end end return 0 end

local function Lvl(n)local l=n:match("%(Lvl (%d+)%)")return l and tonumber(l)or 0 end
local function IsSlime(n)return n:lower():find("slime")~=nil end
local function IsZombie(n)return n:lower():find("zombie")~=nil end
local function Count()local mf=Monsters()if not mf then return 0,0 end local s,z=0,0 for _,m in mf:GetChildren()do if m:IsA("Model")then local h=m:FindFirstChildOfClass("Humanoid")if not h or h.Health>0 then if IsSlime(m.Name)then s+=1 elseif IsZombie(m.Name)then z+=1 end end end end return s,z end
local function HasEnemies()local s,z=Count()return s+z>0 end
local function HasZombies()local _,z=Count()return z>0 end

local function GetHP(m)local h=m:FindFirstChildOfClass("Humanoid")return h and h.Health or 0 end
local function DistToDest(m)local d=Dest()if not d then return math.huge end local r=m:FindFirstChild("HumanoidRootPart")or m.PrimaryPart return r and(r.Position-d.Position).Magnitude or math.huge end

local function FindMon()local mf=Monsters()if not mf or not HasEnemies()then return nil end local tar,best=nil,math.huge for _,m in mf:GetChildren()do if not m:IsA("Model")then continue end local r=m:FindFirstChild("HumanoidRootPart")or m.PrimaryPart if not r then continue end local h=m:FindFirstChildOfClass("Humanoid")if h and h.Health<=0 then continue end if Cfg.Bait and not IsZombie(m.Name)then continue end local iS,iZ,lv,dist,hp=IsSlime(m.Name),IsZombie(m.Name),Lvl(m.Name),DistToDest(m),GetHP(m)local ts=Cfg.Mon=="Slime First"and(iS and 0 or 1000)or(iZ and 0 or 1000)local ls=Cfg.Level=="Lowest First"and lv or-lv local hs=Cfg.HP=="Low HP First"and hp or-hp local sc=ts+ls*10+hs*0.1+dist*0.01 if sc<best then best,tar=sc,m end end return tar end

local function HasDecal(t,id)local d=t:FindFirstChild("FrontDecal")return d and d:IsA("Decal")and d.Texture==id end
local function FindToken()local cf=Collectibles()if not cf or not Root then return nil end local near,nd=nil,math.huge for _,t in cf:GetChildren()do if not t:IsA("BasePart")or Collected[t]then continue end local hb,hs=HasDecal(t,DECALS.Bricks),HasDecal(t,DECALS.Snow)if not hb and not hs then continue end if Cfg.Filter=="Bricks Only"and not hb then continue end if Cfg.Filter=="Snowflakes Only"and not hs then continue end local d=(t.Position-Root.Position).Magnitude if d<nd then nd,near=d,t end end if not near and next(Collected)then table.clear(Collected)return FindToken()end return near end

local function FindBloom()local bf=Blooms()if not bf then return nil end local best,bs=nil,Cfg.BloomPrio=="Low Pollen First"and math.huge or-1 for _,b in bf:GetChildren()do if not b:IsA("Model")or b.Name~="BrickBloomModel"then continue end local cp=b:FindFirstChild("CenterPart")if not cp then continue end best=best or b local att=cp:FindFirstChild("Attachment")if not att then continue end local gui=att:FindFirstChild("Gui")if not gui then continue end local br=gui:FindFirstChild("BarRow")if not br then continue end local bar=br:FindFirstChild("Bar")if not bar or not bar:IsA("Frame")then continue end local bc=bar.BackgroundColor3 if math.floor(bc.R*255)~=15 or math.floor(bc.G*255)~=118 or math.floor(bc.B*255)~=34 then continue end local nl=bar:FindFirstChild("NumberLabel")if not nl or not nl:IsA("TextLabel")then continue end local cur=nl.Text:match("([%d,]+)/")if not cur then continue end local pol=tonumber(cur:gsub(",",""))or 0 if Cfg.BloomPrio=="Low Pollen First"then if pol<bs then bs,best=pol,b end else if pol>bs then bs,best=pol,b end end end return best end

local function Pos(m)local r=m:FindFirstChild("HumanoidRootPart")or m.PrimaryPart return r and r.Position end
local function CF(m)local r=m:FindFirstChild("HumanoidRootPart")or m.PrimaryPart return r and r.CFrame end
local function TP(p)if Root then Root.CFrame=CFrame.new(p)end end
local function TPLook(p,l)if Root then Root.CFrame=CFrame.new(p,l)end end

local function TPMon(m)local mp=Pos(m)if not mp then return end local mcf=CF(m)NoFall()if Cfg.Bait then local d=Dest()if d then local dir=(mp-d.Position).Unit TPLook(mp+dir*10+Vector3.new(0,10,0),mp)LockCam(mp)end return end local tp,lk if Cfg.Mode=="Sword"then tp=mp+Vector3.new(0,-7,0)lk=tp+Vector3.new(0,100,0)elseif Cfg.Mode=="Rocket Launcher"then tp=mp+Vector3.new(0,50,0)lk=mp elseif Cfg.Mode=="Slingshot"then if mcf then tp=mp+mcf.LookVector*15 tp=Vector3.new(tp.X,mp.Y,tp.Z)else tp=mp+Vector3.new(0,0,15)end lk=mp else tp,lk=mp,mp end TPLook(tp,lk)LockCam(mp)end

local function TPToken(t)Collected[t]=true TP(t.Position+Vector3.new(0,3,0))LockCam(t.Position)end
local function TPBloom(b)local cp=b:FindFirstChild("CenterPart")if cp and cp:IsA("BasePart")then TP(cp.Position+Vector3.new(0,5,0))LockCam(cp.Position)end end

local function Click()if not Cfg.On then return end local vs=Cam.ViewportSize pcall(function()VirtualInputManager:SendMouseButtonEvent(vs.X/2,vs.Y/2,0,true,game,1)VirtualInputManager:SendMouseButtonEvent(vs.X/2,vs.Y/2,0,false,game,1)end)end
local function Activate()if not Cfg.On or not HasEnemies()then return end if not Tool then Tool=Char and Char:FindFirstChildOfClass("Tool")end if Tool then if Cfg.Mode=="Sword"then pcall(function()Tool:Activate()end)else Click()end end end

local function Attack()while Cfg.On do if HasEnemies()then Activate()NoFall()end task.wait(0.025)end end
local function FarmLoop()while Cfg.On do if not Refs()then task.wait(0.3)continue end if HasEnemies()then NoCol()NoFall()local m=FindMon()if m then TPMon(m)end end task.wait(0.12)end YesCol()YesFall()UnlockCam()end
local function TokenLoop()while Cfg.Tokens do if not Refs()then task.wait(0.3)continue end local t=FindToken()if t and t.Parent then TPToken(t)end task.wait(0.2)end table.clear(Collected)UnlockCam()end
local function BloomLoop()while Cfg.Blooms do if not Refs()then task.wait(0.3)continue end if Bloom and Bloom.Parent and Bloom:FindFirstChild("CenterPart")then task.wait(0.4)continue end local nb=FindBloom()if not nb then Cfg.Blooms=false Vis(BloomBg,BloomKnob,false)break end Bloom=nb TPBloom(nb)task.wait(0.4)end Bloom=nil UnlockCam()end

local function Vis(bg,knob,on)if not bg or not knob then return end TweenService:Create(knob,TweenInfo.new(0.12),{Position=on and UDim2.new(1,-12,0.5,0)or UDim2.new(0,2,0.5,0)}):Play()TweenService:Create(bg,TweenInfo.new(0.12),{BackgroundColor3=on and C.Ok or C.Hover}):Play()end

local function SetFarm(e)if e and Cfg.Tokens then Cfg.Tokens=false Vis(TokenBg,TokenKnob,false)end Cfg.On=e Vis(FarmBg,FarmKnob,e)if e then task.spawn(FarmLoop)task.spawn(Attack)else YesCol()YesFall()UnlockCam()end end
local function SetTokens(e)if e and Cfg.On then Cfg.On=false Vis(FarmBg,FarmKnob,false)YesCol()YesFall()UnlockCam()end Cfg.Tokens=e Vis(TokenBg,TokenKnob,e)if e then task.spawn(TokenLoop)else UnlockCam()end end
local function SetBlooms(e)Cfg.Blooms=e Vis(BloomBg,BloomKnob,e)if e then task.spawn(BloomLoop)else UnlockCam()end end
local function SetBait(e)if e and not HasZombies()then return end Cfg.Bait=e Vis(BaitBg,BaitKnob,e)end
local function Toggle()SetFarm(not Cfg.On)end

local function UpdateStats()while task.wait(0.5)do local s,z=Count()local b=Bricks()local gs=Stats()if SlimeLbl then SlimeLbl.Text="🟢 "..s end if ZombieLbl then ZombieLbl.Text="🧟 "..z end if BrickLbl then BrickLbl.Text="🧱 "..b end if RoundLbl then RoundLbl.Text="🔄 "..(gs.Round or 0)end if WaveLbl then WaveLbl.Text="⏱️ "..(gs.Wave or 0).."s"end if HiveLbl then HiveLbl.Text="❤️ "..(gs.Hive or 0)end if TimeLbl then local e=gs.Elapsed or 0 TimeLbl.Text=string.format("⏰ %d:%02d",math.floor(e/60),e%60)end end end

local function Buy(n)local tb=Buttons()if not tb then return end local im=tb:FindFirstChild(n)if not im then return end local b=im:FindFirstChild("Button")if b and b:IsA("BasePart")then TP(b.Position+Vector3.new(0,3,0))end end
local function AntiAFK()Con(P.Idled:Connect(function()VirtualUser:CaptureController()VirtualUser:ClickButton2(Vector2.new())end))end
local function Copy(t)pcall(function()if setclipboard then setclipboard(t)elseif toclipboard then toclipboard(t)end end)end

local function New(c,p)local i=Instance.new(c)for k,v in p do if k~="Parent"then i[k]=v end end if p.Parent then i.Parent=p.Parent end return i end
local function Corn(p,r)New("UICorner",{CornerRadius=UDim.new(0,r or 6),Parent=p})end
local function Stk(p)New("UIStroke",{Color=C.Border,Thickness=1,Parent=p})end

local function Sec(p,t,o)local s=New("Frame",{Size=UDim2.new(1,0,0,0),AutomaticSize=Enum.AutomaticSize.Y,BackgroundTransparency=1,LayoutOrder=o,Parent=p})New("UIListLayout",{SortOrder=Enum.SortOrder.LayoutOrder,Padding=UDim.new(0,3),Parent=s})New("TextLabel",{Size=UDim2.new(1,0,0,14),BackgroundTransparency=1,Text=t,TextColor3=C.Dim,TextSize=10,Font=Enum.Font.SourceSansBold,TextXAlignment=Enum.TextXAlignment.Left,LayoutOrder=0,Parent=s})return s end

local function Tog(p,t,d,o,cb)local f=New("Frame",{Size=UDim2.new(1,0,0,24),BackgroundColor3=C.Bg2,LayoutOrder=o,Parent=p})Corn(f)Stk(f)New("TextLabel",{Position=UDim2.new(0,8,0,0),Size=UDim2.new(1,-44,1,0),BackgroundTransparency=1,Text=t,TextColor3=C.Text,TextSize=11,Font=Enum.Font.SourceSansSemibold,TextXAlignment=Enum.TextXAlignment.Left,Parent=f})local bg=New("Frame",{Position=UDim2.new(1,-36,0.5,0),AnchorPoint=Vector2.new(0,0.5),Size=UDim2.new(0,28,0,14),BackgroundColor3=d and C.Ok or C.Hover,Parent=f})Corn(bg,7)local kn=New("Frame",{Position=d and UDim2.new(1,-12,0.5,0)or UDim2.new(0,2,0.5,0),AnchorPoint=Vector2.new(0,0.5),Size=UDim2.new(0,10,0,10),BackgroundColor3=C.Text,Parent=bg})Corn(kn,5)local on=d local btn=New("TextButton",{Size=UDim2.new(1,0,1,0),BackgroundTransparency=1,Text="",Parent=f})btn.MouseButton1Click:Connect(function()on=not on TweenService:Create(kn,TweenInfo.new(0.12),{Position=on and UDim2.new(1,-12,0.5,0)or UDim2.new(0,2,0.5,0)}):Play()TweenService:Create(bg,TweenInfo.new(0.12),{BackgroundColor3=on and C.Ok or C.Hover}):Play()cb(on)end)return f,bg,kn end

local function Drop(p,t,opts,d,o,cb)local eh=math.min(24+#opts*20,140)local f=New("Frame",{Size=UDim2.new(1,0,0,24),BackgroundColor3=C.Bg2,ClipsDescendants=true,LayoutOrder=o,Parent=p})Corn(f)Stk(f)local sel=New("TextButton",{Size=UDim2.new(1,0,0,24),BackgroundTransparency=1,Text="",Parent=f})New("TextLabel",{Position=UDim2.new(0,8,0,0),Size=UDim2.new(0,50,1,0),BackgroundTransparency=1,Text=t..":",TextColor3=C.Dim,TextSize=10,Font=Enum.Font.SourceSans,TextXAlignment=Enum.TextXAlignment.Left,Parent=sel})local lbl=New("TextLabel",{Position=UDim2.new(0,60,0,0),Size=UDim2.new(1,-78,1,0),BackgroundTransparency=1,Text=d,TextColor3=C.Text,TextSize=11,Font=Enum.Font.SourceSansSemibold,TextXAlignment=Enum.TextXAlignment.Left,Parent=sel})local arr=New("TextLabel",{Position=UDim2.new(1,-18,0,0),Size=UDim2.new(0,14,1,0),BackgroundTransparency=1,Text="▼",TextColor3=C.Dim,TextSize=8,Font=Enum.Font.SourceSans,Parent=sel})local list=New("ScrollingFrame",{Position=UDim2.new(0,0,0,24),Size=UDim2.new(1,0,0,eh-24),BackgroundTransparency=1,BorderSizePixel=0,ScrollBarThickness=2,ScrollBarImageColor3=C.Accent,CanvasSize=UDim2.new(0,0,0,#opts*20),ScrollingDirection=Enum.ScrollingDirection.Y,Parent=f})New("UIListLayout",{SortOrder=Enum.SortOrder.LayoutOrder,Parent=list})local open=false for i,opt in opts do local b=New("TextButton",{Size=UDim2.new(1,-2,0,20),BackgroundColor3=C.Bg,Text="",LayoutOrder=i,Parent=list})Corn(b,3)New("TextLabel",{Position=UDim2.new(0,8,0,0),Size=UDim2.new(1,-8,1,0),BackgroundTransparency=1,Text=opt,TextColor3=C.Text,TextSize=10,Font=Enum.Font.SourceSans,TextXAlignment=Enum.TextXAlignment.Left,Parent=b})b.MouseEnter:Connect(function()b.BackgroundColor3=C.Accent end)b.MouseLeave:Connect(function()b.BackgroundColor3=C.Bg end)b.MouseButton1Click:Connect(function()lbl.Text=opt cb(opt)open=false TweenService:Create(f,TweenInfo.new(0.12),{Size=UDim2.new(1,0,0,24)}):Play()TweenService:Create(arr,TweenInfo.new(0.12),{Rotation=0}):Play()end)end sel.MouseButton1Click:Connect(function()open=not open TweenService:Create(f,TweenInfo.new(0.12),{Size=UDim2.new(1,0,0,open and eh or 24)}):Play()TweenService:Create(arr,TweenInfo.new(0.12),{Rotation=open and 180 or 0}):Play()end)end

local function Btn(p,t,o,cb)local f=New("Frame",{Size=UDim2.new(1,0,0,24),BackgroundColor3=C.Bg2,LayoutOrder=o,Parent=p})Corn(f)Stk(f)local b=New("TextButton",{Size=UDim2.new(1,0,1,0),BackgroundTransparency=1,Text=t,TextColor3=C.Text,TextSize=11,Font=Enum.Font.SourceSansSemibold,Parent=f})b.MouseEnter:Connect(function()f.BackgroundColor3=C.Hover end)b.MouseLeave:Connect(function()f.BackgroundColor3=C.Bg2 end)b.MouseButton1Click:Connect(cb)end

local function Stat(p,t,o)return New("TextLabel",{Size=UDim2.new(0.5,-2,0,14),BackgroundTransparency=1,Text=t,TextColor3=C.Text,TextSize=11,Font=Enum.Font.SourceSans,TextXAlignment=Enum.TextXAlignment.Left,LayoutOrder=o,Parent=p})end

local function Build()local old=PG:FindFirstChild("Retroslop")if old then old:Destroy()end local gui=New("ScreenGui",{Name="Retroslop",ResetOnSpawn=false,ZIndexBehavior=Enum.ZIndexBehavior.Sibling,IgnoreGuiInset=true,Parent=PG})local main=New("Frame",{Size=UDim2.new(0,220,0,0),AutomaticSize=Enum.AutomaticSize.Y,Position=UDim2.new(0,12,0.5,0),AnchorPoint=Vector2.new(0,0.5),BackgroundColor3=C.Bg,Parent=gui})Corn(main,8)Stk(main)New("UIListLayout",{SortOrder=Enum.SortOrder.LayoutOrder,Padding=UDim.new(0,0),Parent=main})

local title=New("Frame",{Size=UDim2.new(1,0,0,28),BackgroundColor3=C.Bg2,LayoutOrder=0,Parent=main})Corn(title,8)New("Frame",{Position=UDim2.new(0,0,0.5,0),Size=UDim2.new(1,0,0.5,0),BackgroundColor3=C.Bg2,BorderSizePixel=0,Parent=title})New("TextLabel",{Position=UDim2.new(0,10,0,0),Size=UDim2.new(0,80,1,0),BackgroundTransparency=1,Text="Retroslop",TextColor3=C.Text,TextSize=12,Font=Enum.Font.SourceSansBold,TextXAlignment=Enum.TextXAlignment.Left,Parent=title})

local col=New("TextButton",{Position=UDim2.new(1,-26,0.5,0),AnchorPoint=Vector2.new(0,0.5),Size=UDim2.new(0,18,0,18),BackgroundColor3=C.Hover,Text="−",TextColor3=C.Text,TextSize=12,Font=Enum.Font.SourceSansBold,Parent=title})Corn(col,4)

local help=New("TextLabel",{Size=UDim2.new(1,0,0,14),BackgroundTransparency=1,Text="Press M to start/stop farming",TextColor3=C.Text,TextSize=9,Font=Enum.Font.SourceSansItalic,LayoutOrder=1,Parent=main})

local drag,ds,sp=false,nil,nil title.InputBegan:Connect(function(i)if i.UserInputType==Enum.UserInputType.MouseButton1 or i.UserInputType==Enum.UserInputType.Touch then drag,ds,sp=true,i.Position,main.Position end end)Con(UserInputService.InputChanged:Connect(function(i)if drag and ds and sp and(i.UserInputType==Enum.UserInputType.MouseMovement or i.UserInputType==Enum.UserInputType.Touch)then local d=i.Position-ds main.Position=UDim2.new(sp.X.Scale,sp.X.Offset+d.X,sp.Y.Scale,sp.Y.Offset+d.Y)end end))Con(UserInputService.InputEnded:Connect(function(i)if i.UserInputType==Enum.UserInputType.MouseButton1 or i.UserInputType==Enum.UserInputType.Touch then drag=false end end))

Content=New("ScrollingFrame",{Size=UDim2.new(1,0,0,340),BackgroundTransparency=1,BorderSizePixel=0,ScrollBarThickness=3,ScrollBarImageColor3=C.Accent,CanvasSize=UDim2.new(0,0,0,0),AutomaticCanvasSize=Enum.AutomaticSize.Y,ScrollingDirection=Enum.ScrollingDirection.Y,LayoutOrder=2,Parent=main})New("UIPadding",{PaddingTop=UDim.new(0,8),PaddingBottom=UDim.new(0,8),PaddingLeft=UDim.new(0,8),PaddingRight=UDim.new(0,8),Parent=Content})New("UIListLayout",{SortOrder=Enum.SortOrder.LayoutOrder,Padding=UDim.new(0,8),Parent=Content})

col.MouseButton1Click:Connect(function()Collapsed=not Collapsed col.Text=Collapsed and"+"or"−"Content.Visible=not Collapsed help.Visible=not Collapsed end)

local ss=Sec(Content,"STATS",0)local r1=New("Frame",{Size=UDim2.new(1,0,0,14),BackgroundTransparency=1,LayoutOrder=1,Parent=ss})New("UIListLayout",{FillDirection=Enum.FillDirection.Horizontal,SortOrder=Enum.SortOrder.LayoutOrder,Padding=UDim.new(0,4),Parent=r1})SlimeLbl=Stat(r1,"🟢 0",1)ZombieLbl=Stat(r1,"🧟 0",2)local r2=New("Frame",{Size=UDim2.new(1,0,0,14),BackgroundTransparency=1,LayoutOrder=2,Parent=ss})New("UIListLayout",{FillDirection=Enum.FillDirection.Horizontal,SortOrder=Enum.SortOrder.LayoutOrder,Padding=UDim.new(0,4),Parent=r2})BrickLbl=Stat(r2,"🧱 0",1)RoundLbl=Stat(r2,"🔄 0",2)local r3=New("Frame",{Size=UDim2.new(1,0,0,14),BackgroundTransparency=1,LayoutOrder=3,Parent=ss})New("UIListLayout",{FillDirection=Enum.FillDirection.Horizontal,SortOrder=Enum.SortOrder.LayoutOrder,Padding=UDim.new(0,4),Parent=r3})WaveLbl=Stat(r3,"⏱️ 0s",1)HiveLbl=Stat(r3,"❤️ 0",2)local r4=New("Frame",{Size=UDim2.new(1,0,0,14),BackgroundTransparency=1,LayoutOrder=4,Parent=ss})TimeLbl=New("TextLabel",{Size=UDim2.new(1,0,1,0),BackgroundTransparency=1,Text="⏰ 0:00",TextColor3=C.Text,TextSize=11,Font=Enum.Font.SourceSans,TextXAlignment=Enum.TextXAlignment.Left,Parent=r4})

local fs=Sec(Content,"FARMING",1)Drop(fs,"Mode",{"Sword","Slingshot","Rocket Launcher"},"Sword",1,function(m)Cfg.Mode=m end)Drop(fs,"Monster",{"Slime First","Zombie First"},"Slime First",2,function(m)Cfg.Mon=m end)Drop(fs,"Level",{"Lowest First","Highest First"},"Lowest First",3,function(l)Cfg.Level=l end)Drop(fs,"HP",{"Low HP First","High HP First"},"Low HP First",4,function(h)Cfg.HP=h end)local _,fb,fk=Tog(fs,"Auto Farm",false,5,SetFarm)FarmBg,FarmKnob=fb,fk local _,bb,bk=Tog(fs,"Bait Zombies",false,6,SetBait)BaitBg,BaitKnob=bb,bk

local cs=Sec(Content,"COLLECTING",2)Drop(cs,"Filter",{"All","Bricks Only","Snowflakes Only"},"All",1,function(f)Cfg.Filter=f end)local _,tb,tk=Tog(cs,"Collect Tokens",false,2,SetTokens)TokenBg,TokenKnob=tb,tk

local bs=Sec(Content,"BLOOMS",3)Drop(bs,"Priority",{"Low Pollen First","High Pollen First"},"Low Pollen First",1,function(p)Cfg.BloomPrio=p end)local _,blb,blk=Tog(bs,"Teleport Blooms",false,2,SetBlooms)BloomBg,BloomKnob=blb,blk

local sws=Sec(Content,"SWORDS",4)for i,n in ITEMS.Swords do Btn(sws,n:gsub("Buy ",""),i,function()Buy(n)end)end
local rgs=Sec(Content,"RANGE",5)for i,n in ITEMS.Range do Btn(rgs,n:gsub("Buy ",""),i,function()Buy(n)end)end
local tls=Sec(Content,"TOOLS",6)for i,n in ITEMS.Tools do Btn(tls,n:gsub("Buy ",""),i,function()Buy(n)end)end
local bos=Sec(Content,"CONSUMABLES",7)for i,n in ITEMS.Boost do Btn(bos,n:gsub("Buy ",""),i,function()Buy(n)end)end
local brs=Sec(Content,"BRICKS",8)for i,n in ITEMS.Bricks do Btn(brs,n:gsub(" Button",""):gsub("Buy ",""),i,function()Buy(n)end)end
local bes=Sec(Content,"BEES",9)for i,n in ITEMS.Bees do Btn(bes,n:gsub(" Button",""):gsub("Buy ",""):gsub("Unlock ",""),i,function()Buy(n)end)end

local lock=New("Frame",{Size=UDim2.new(1,0,0,44),BackgroundColor3=C.Bg2,LayoutOrder=10,Parent=Content})Corn(lock)Stk(lock)New("UIListLayout",{SortOrder=Enum.SortOrder.LayoutOrder,Padding=UDim.new(0,2),HorizontalAlignment=Enum.HorizontalAlignment.Center,Parent=lock})New("UIPadding",{PaddingTop=UDim.new(0,6),Parent=lock})New("TextLabel",{Size=UDim2.new(1,0,0,14),BackgroundTransparency=1,Text="🔒 Join Discord for paid features",TextColor3=C.Dim,TextSize=10,Font=Enum.Font.SourceSansSemibold,LayoutOrder=1,Parent=lock})local copyBtn=New("TextButton",{Size=UDim2.new(0,100,0,18),BackgroundColor3=C.Accent,Text="Copy Link",TextColor3=C.Bg,TextSize=10,Font=Enum.Font.SourceSansBold,LayoutOrder=2,Parent=lock})Corn(copyBtn,4)copyBtn.MouseButton1Click:Connect(function()Copy(DISCORD)end)end

DelSpawn()Refs()AntiAFK()task.spawn(UpdateStats)
Con(UserInputService.InputBegan:Connect(function(i,g)if not g and i.KeyCode==Enum.KeyCode.M then Toggle()end end))
P.CharacterAdded:Connect(function(c)Char=c task.wait(0.3)Refs()DelSpawn()end)
Build()
[ View More ]
0c334510-320f-4fe1-97e3-e43e34dcde40.webp


basic farmer for the classic minigame. targets monsters, filters tokens and uses weapons. teleports to blooms and buys shop stuff. it isnt fully auto yet so dont complain, that part is gonna be paid later.
 
Click to expand...
You must log in or register to reply here.
Back
Top