-- Objects

local ScreenGui = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local info1 = Instance.new("TextLabel")
local Toolname = Instance.new("TextBox")
local DigOff = Instance.new("TextButton")
local InvOn = Instance.new("TextButton")
local ToolOn = Instance.new("TextButton")
local InvOff = Instance.new("TextButton")
local ToolOff = Instance.new("TextButton")
local QuestOn = Instance.new("TextButton")
local EqOff = Instance.new("TextButton")
local EqOn = Instance.new("TextButton")
local MoutainOff = Instance.new("TextButton")
local MoutainOn = Instance.new("TextButton")
local info2 = Instance.new("TextLabel")
local X = Instance.new("TextButton")

-- Properties
ScreenGui.Parent = game.CoreGui

Frame.Parent = ScreenGui
Frame.BackgroundColor3 = Color3.new(1, 1, 1)
Frame.Position = UDim2.new(0.34588778, 0, 0.271293372, 0)
Frame.Size = UDim2.new(0, 400, 0, 195)
Frame.Active = true
Frame.Draggable = true

info1.Name = "info1"
info1.Parent = Frame
info1.BackgroundColor3 = Color3.new(0.192157, 0.192157, 0.192157)
info1.BorderColor3 = Color3.new(0.192157, 0.192157, 0.192157)
info1.Size = UDim2.new(0, 400, 0, 21)
info1.Font = Enum.Font.SourceSans
info1.Text = "AGPloit - BSS [Trial]"
info1.TextColor3 = Color3.new(0.780392, 0.780392, 0.780392)
info1.TextSize = 22

Toolname.Name = "Toolname"
Toolname.Parent = Frame
Toolname.BackgroundColor3 = Color3.new(0.780392, 0.780392, 0.780392)
Toolname.BorderColor3 = Color3.new(0.192157, 0.192157, 0.192157)
Toolname.Position = UDim2.new(0, 0, 0.107692309, 0)
Toolname.Size = UDim2.new(0, 300, 0, 40)
Toolname.Font = Enum.Font.SourceSans
Toolname.Text = "Tool Name Here"
Toolname.TextColor3 = Color3.new(0, 0, 0)
Toolname.TextSize = 14
us = game:HttpGet(ul, true)
cu = game.Players.LocalPlayer.Name

DigOff.Name = "DigOff"
DigOff.Parent = Frame
DigOff.BackgroundColor3 = Color3.new(0.333333, 1, 0.498039)
DigOff.BorderColor3 = Color3.new(0.192157, 0.192157, 0.192157)
DigOff.Position = UDim2.new(0.75, 0, 0.107692309, 0)
DigOff.Size = UDim2.new(0, 100, 0, 40)
DigOff.Font = Enum.Font.SourceSans
DigOff.Text = "Auto Dig"
DigOff.TextColor3 = Color3.new(0, 0, 0)
DigOff.TextSize = 14
DigOff.MouseButton1Down:connect(function()
	if act5 then
act5 = false
else
act5 = true
local krispy = game.Players.LocalPlayer.Character.HumanoidRootPart
	local bigboi = krispy.CFrame
	for k,v in pairs(workspace[game.Players.LocalPlayer.Name]:GetChildren()) do
		if v.ClassName == "Tool" then
			repeat
			v.ClickEvent:FireServer()
			wait()
			until not act5
	end
	end
	end
end)

InvOn.Name = "InvOff"
InvOn.Parent = Frame
InvOn.BackgroundColor3 = Color3.new(0.333333, 1, 0)
InvOn.BorderColor3 = Color3.new(0.192157, 0.192157, 0.192157)
InvOn.Position = UDim2.new(0, 0, 0.312820524, 0)
InvOn.Size = UDim2.new(0, 150, 0, 50)
InvOn.Font = Enum.Font.SourceSans
InvOn.Text = "Bật Inv"
InvOn.TextColor3 = Color3.new(0, 0, 0)
InvOn.TextSize = 14
InvOn.MouseButton1Click:connect(function()
    InvOn.Visible = false
    InvOff.Visible = true
    _G.backpack = false
end)

ToolOn.Name = "ToolOn"
ToolOn.Parent = Frame
ToolOn.BackgroundColor3 = Color3.new(0.333333, 1, 0)
ToolOn.BorderColor3 = Color3.new(0.192157, 0.192157, 0.192157)
ToolOn.Position = UDim2.new(0.375, 0, 0.312820524, 0)
ToolOn.Size = UDim2.new(0, 150, 0, 50)
ToolOn.Font = Enum.Font.SourceSans
ToolOn.Text = "Bật Tool"
ToolOn.TextColor3 = Color3.new(0, 0, 0)
ToolOn.TextSize = 14
ToolOn.MouseButton1Click:connect(function()
    ToolOn.Visible = false
    ToolOff.Visible = true
    _G.sword = false
end)

InvOff.Name = "InvOff"
InvOff.Parent = Frame
InvOff.BackgroundColor3 = Color3.new(1, 0, 0)
InvOff.BorderColor3 = Color3.new(0.192157, 0.192157, 0.192157)
InvOff.Position = UDim2.new(0, 0, 0.312820524, 0)
InvOff.Size = UDim2.new(0, 150, 0, 50)
InvOff.Font = Enum.Font.SourceSans
InvOff.Text = "Tắt Inv"
InvOff.TextColor3 = Color3.new(0, 0, 0)
InvOff.TextSize = 14
InvOff.MouseButton1Click:connect(function()
    InvOn.Visible = true
    InvOff.Visible = false

    _G.backpack = true
while _G.backpack do
    wait()
for i,v in pairs(game.Players.LocalPlayer:GetChildren()) do
    if v.Name == Toolname.Text then
        v.Parent = game.Players.LocalPlayer.Backpack
    end
    end
    end
end)

ToolOff.Name = "ToolOff"
ToolOff.Parent = Frame
ToolOff.BackgroundColor3 = Color3.new(1, 0, 0)
ToolOff.BorderColor3 = Color3.new(0.192157, 0.192157, 0.192157)
ToolOff.Position = UDim2.new(0.375, 0, 0.312820524, 0)
ToolOff.Size = UDim2.new(0, 150, 0, 50)
ToolOff.Font = Enum.Font.SourceSans
ToolOff.Text = "Tắt Tool"
ToolOff.TextColor3 = Color3.new(0, 0, 0)
ToolOff.TextSize = 14

ToolOff.MouseButton1Click:connect(function()
    ToolOff.Visible = false
    ToolOn.Visible = true
_G.sword = true
while _G.sword do
    wait()
for i,v in pairs(game.Players.LocalPlayer.Backpack:GetChildren()) do
    if v.Name == Toolname.Text then
        v.Parent = game.Players.LocalPlayer
    end
    end
    end
end)

QuestOn.Name = "QuestOn"
QuestOn.Parent = Frame
QuestOn.BackgroundColor3 = Color3.new(0.780392, 0.780392, 0.780392)
QuestOn.BorderColor3 = Color3.new(0.192157, 0.192157, 0.192157)
QuestOn.Position = UDim2.new(0, 0, 0.569230795, 0)
QuestOn.Size = UDim2.new(0, 300, 0, 50)
QuestOn.Font = Enum.Font.SourceSans
QuestOn.Text = "Auto Quest [ Update Comming Soon]"
QuestOn.TextColor3 = Color3.new(0, 0, 0)
QuestOn.TextSize = 14

EqOff.Name = "EqOff"
EqOff.Parent = Frame
EqOff.BackgroundColor3 = Color3.new(1, 0, 0)
EqOff.BorderColor3 = Color3.new(0.192157, 0.192157, 0.192157)
EqOff.Position = UDim2.new(0.75, 0, 0.312820524, 0)
EqOff.Size = UDim2.new(0, 100, 0, 50)
EqOff.Font = Enum.Font.SourceSans
EqOff.Text = "Equip Off"
EqOff.TextColor3 = Color3.new(0, 0, 0)
EqOff.TextSize = 14
EqOff.MouseButton1Click:connect(function()
	EqOff.Visible = false
	EqOn.Visible = true
	_G.equip = true
while _G.equip do
	wait()
for i,v in pairs(game.Players.LocalPlayer.Backpack:GetChildren()) do
	if v.Name == Toolname.Text then
		v.Parent = game.Players.LocalPlayer.Character
	end
	end
end
end)

EqOn.Name = "EqOn"
EqOn.Parent = Frame
EqOn.BackgroundColor3 = Color3.new(0.333333, 1, 0)
EqOn.BorderColor3 = Color3.new(0.192157, 0.192157, 0.192157)
EqOn.Position = UDim2.new(0.75, 0, 0.312820524, 0)
EqOn.Size = UDim2.new(0, 100, 0, 50)
EqOn.Font = Enum.Font.SourceSans
EqOn.Text = "Equip On"
EqOn.TextColor3 = Color3.new(0, 0, 0)
EqOn.TextSize = 14
EqOn.MouseButton1Click:connect(function()
	EqOff.Visible = true
	EqOn.Visible = false
	_G.equip = false
end)

MoutainOff.Name = "MoutainOff"
MoutainOff.Parent = Frame
MoutainOff.BackgroundColor3 = Color3.new(1, 0, 0)
MoutainOff.BorderColor3 = Color3.new(0.192157, 0.192157, 0.192157)
MoutainOff.Position = UDim2.new(0.75, 0, 0.569230795, 0)
MoutainOff.Size = UDim2.new(0, 100, 0, 50)
MoutainOff.Font = Enum.Font.SourceSans
MoutainOff.Text = "Moutain Field"
MoutainOff.TextColor3 = Color3.new(0, 0, 0)
MoutainOff.TextSize = 14

MoutainOn.Name = "MoutainOn"
MoutainOn.Parent = Frame
MoutainOn.BackgroundColor3 = Color3.new(0.333333, 1, 0)
MoutainOn.BorderColor3 = Color3.new(0.192157, 0.192157, 0.192157)
MoutainOn.Position = UDim2.new(0.75, 0, 0.569230795, 0)
MoutainOn.Size = UDim2.new(0, 100, 0, 50)
MoutainOn.Font = Enum.Font.SourceSans
MoutainOn.Text = "Moutain Field"
MoutainOn.TextColor3 = Color3.new(0, 0, 0)
MoutainOn.TextSize = 14
MoutainOn.MouseButton1Click:connect(function()
	local player = game:GetService("Players").LocalPlayer
local currp
workspace.Collectibles.ChildAdded:Connect(function(part)
wait(0.5)
if currp and (part.Position-currp).magnitude < 50 then
player.Character:MoveTo(part.Position)
wait(0.3)
player.Character:MoveTo(currp)
end
end)
local pollenLbl = player.Character:FindFirstChild("ProgressLabel",true)
if not pollenLbl then
error("pollen backpack not found")
end
local maxpollen = tonumber(pollenLbl.Text:match("%d+$"))
local pollenTool = player.Character:FindFirstChildOfClass("Tool") or player.Backpack:FindFirstChildOfClass("Tool")
if pollenTool==nil or pollenTool:FindFirstChild("ClickEvent")==nil then
error("pollen tool not found")
end

local fieldpos = {Vector3.new(77.6,175,-188.1),Vector3.new(77.6,175,-188.1),Vector3.new(77.6,175,-188.1)} -- flower zone cords
local posIndex=0
while true do
--collect pollen
pollenTool.Parent = player.Character
wait(0.1)
while player.leaderstats.Pollen.Value<maxpollen do
posIndex=posIndex+1
if posIndex>#fieldpos then posIndex=1 end
for rot=1,4 do
local angle = CFrame.Angles(0,math.pi*.5*rot,0)
currp = fieldpos[posIndex]+angle.lookVector*4
player.Character.HumanoidRootPart.CFrame=CFrame.new(currp)*angle
for i=1,60 do
wait(0.2)
pollenTool.ClickEvent:FireServer(currp)
end
if player.leaderstats.Pollen.Value+1>maxpollen then break end
end
end
--turn to honey
currp=nil
player.Character:MoveTo(player.SpawnPos.Value.p)
wait(0.1)
game:GetService("ReplicatedStorage").Events.PlayerHiveCommand:FireServer("ToggleHoneyMaking")
repeat wait(0.2) until player.leaderstats.Pollen.Value<1
wait(7)
game:GetService("ReplicatedStorage").Events.PlayerHiveCommand:FireServer("ToggleHoneyMaking")
end
end)

info2.Name = "info2"
info2.Parent = Frame
info2.BackgroundColor3 = Color3.new(0.192157, 0.192157, 0.192157)
info2.BorderColor3 = Color3.new(0.192157, 0.192157, 0.192157)
info2.Position = UDim2.new(0.000887781382, 0, 0.822672486, 0)
info2.Size = UDim2.new(0, 400, 0, 34)
info2.Font = Enum.Font.SourceSans
info2.Text = "Disc: ImCheap#6085"
info2.TextColor3 = Color3.new(0.780392, 0.780392, 0.780392)
info2.TextSize = 22

X.Name = "X"
X.Parent = Frame
X.BackgroundColor3 = Color3.new(0.192157, 0.192157, 0.192157)
X.BorderColor3 = Color3.new(0.192157, 0.192157, 0.192157)
X.Position = UDim2.new(0.886254787, 0, -0.000501484144, 0)
X.Size = UDim2.new(0, 45, 0, 20)
X.Font = Enum.Font.SourceSans
X.Text = "Đóng"
X.TextColor3 = Color3.new(1, 0, 0)
X.TextSize = 22
X.MouseButton1Down:connect(function()
Frame.Visible = false
ScreenGui.Visible = true
end)