Honey

-- Services
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")

local player = Players.LocalPlayer
local playerGui = player:WaitForChild("PlayerGui")

-- ScreenGui
local screenGui = Instance.new("ScreenGui")
screenGui.Name = "MobileAutoClickGUI"
screenGui.IgnoreGuiInset = true
screenGui.Parent = playerGui

-- Main Frame
local frame = Instance.new("Frame")
frame.Size = UDim2.new(0,260,0,140)
frame.Position = UDim2.new(0.5,-130,0.5,-70)
frame.BackgroundColor3 = Color3.fromRGB(0,0,0)
frame.Active = true
frame.Draggable = true
frame.Parent = screenGui
Instance.new("UICorner",frame).CornerRadius = UDim.new(0,15)

-- Button creator
local function createButton(text,y)
	local b = Instance.new("TextButton")
	b.Size = UDim2.new(1,-20,0,40)
	b.Position = UDim2.new(0,10,0,y)
	b.BackgroundColor3 = Color3.fromRGB(40,40,40)
	b.Text = text
	b.TextSize = 18
	b.TextColor3 = Color3.fromRGB(255,255,255)
	b.Parent = frame
	Instance.new("UICorner",b).CornerRadius = UDim.new(0,10)
	return b
end

-- Buttons
local listButton = createButton("List",10)
local autoClickButton = createButton("Auto Click : Off",60)

-- List Frame
local listFrame = Instance.new("Frame")
listFrame.Size = UDim2.new(0,220,0,260)
listFrame.Position = UDim2.new(1,10,0,0)
listFrame.BackgroundColor3 = Color3.fromRGB(0,0,0)
listFrame.Visible = false
listFrame.Parent = frame
Instance.new("UICorner",listFrame).CornerRadius = UDim.new(0,15)

local scroll = Instance.new("ScrollingFrame")
scroll.Size = UDim2.new(1,-10,1,-10)
scroll.Position = UDim2.new(0,5,0,5)
scroll.ScrollBarThickness = 6
scroll.BackgroundTransparency = 1
scroll.Parent = listFrame

-- Selected ImageButtons
local selected = {}
local autoClick = false

-- Refresh list
local function refreshList()
	scroll:ClearAllChildren()
	local y = 0

	for _,obj in pairs(playerGui:GetDescendants()) do
		if obj:IsA("ImageButton") then
			local btn = Instance.new("TextButton")
			btn.Size = UDim2.new(1,-10,0,36)
			btn.Position = UDim2.new(0,5,0,y)
			btn.BackgroundColor3 = Color3.fromRGB(50,50,50)
			btn.Text = obj.Name
			btn.TextSize = 16
			btn.TextColor3 = Color3.fromRGB(255,255,255)
			btn.Parent = scroll
			Instance.new("UICorner",btn).CornerRadius = UDim.new(0,8)

			btn.MouseButton1Click:Connect(function()
				if selected[obj] then
					selected[obj] = nil
					btn.TextColor3 = Color3.fromRGB(255,255,255)
				else
					selected[obj] = true
					btn.TextColor3 = Color3.fromRGB(0,255,255)
				end
			end)

			y += 40
		end
	end

	scroll.CanvasSize = UDim2.new(0,0,0,y)
end

-- Button logic
listButton.MouseButton1Click:Connect(function()
	listFrame.Visible = not listFrame.Visible
	if listFrame.Visible then
		refreshList()
	end
end)

autoClickButton.MouseButton1Click:Connect(function()
	autoClick = not autoClick
	autoClickButton.Text = "Auto Click : " .. (autoClick and "On" or "Off")
end)

-- Auto click (40 CPS)
local acc = 0
RunService.Heartbeat:Connect(function(dt)
	if not autoClick then return end

	acc += dt
	while acc >= 1/40 do
		for img,_ in pairs(selected) do
			if img and img.Parent then
				for _,c in pairs(getconnections(img.MouseButton1Click)) do
					pcall(function() c:Fire() end)
				end
				for _,c in pairs(getconnections(img.Activated)) do
					pcall(function() c:Fire() end)
				end
			end
		end
		acc -= 1/40
	end
end)

-- Credit Label (FOLLOWS FRAME)
local label = Instance.new("TextLabel")
label.Size = UDim2.new(1,0,0,30)
label.Position = UDim2.new(0,0,1,5)
label.BackgroundTransparency = 1
label.Text = "Made by Nahwinreals"
label.Font = Enum.Font.SourceSansBold
label.TextSize = 18
label.Parent = frame

-- Rainbow text
local h = 0
RunService.Heartbeat:Connect(function(dt)
	h = (h + dt*0.3) % 1
	label.TextColor3 = Color3.fromHSV(h,1,1)
end)