Plant Adventure script – (INF Gems)

local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local ReplicatedStorage = game:GetService("ReplicatedStorage")

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

-- REMOTE
local rewardRemote = ReplicatedStorage
	:WaitForChild("Events")
	:WaitForChild("Reward")

-- GUI
local gui = Instance.new("ScreenGui")
gui.ResetOnSpawn = false
gui.Parent = playerGui

local main = Instance.new("Frame", gui)
main.Size = UDim2.new(0, 230, 0, 155)
main.Position = UDim2.new(0.5, -115, 0.4, 0)
main.BackgroundColor3 = Color3.fromRGB(35,35,35)
main.BorderSizePixel = 0
Instance.new("UICorner", main).CornerRadius = UDim.new(0,12)

-- DRAG
local dragging, dragStart, startPos
main.InputBegan:Connect(function(i)
	if i.UserInputType == Enum.UserInputType.MouseButton1
	or i.UserInputType == Enum.UserInputType.Touch then
		dragging = true
		dragStart = i.Position
		startPos = main.Position
	end
end)
main.InputChanged:Connect(function(i)
	if dragging then
		local d = i.Position - dragStart
		main.Position = UDim2.new(
			startPos.X.Scale, startPos.X.Offset + d.X,
			startPos.Y.Scale, startPos.Y.Offset + d.Y
		)
	end
end)
main.InputEnded:Connect(function()
	dragging = false
end)

-- TITLE
local title = Instance.new("TextLabel", main)
title.Size = UDim2.new(1,0,0,26)
title.Text = "Reward Executor"
title.TextSize = 14
title.Font = Enum.Font.GothamBold
title.TextColor3 = Color3.new(1,1,1)
title.BackgroundTransparency = 1

-- INPUT (KEYBOARD)
local box = Instance.new("TextBox", main)
box.Size = UDim2.new(1,-20,0,34)
box.Position = UDim2.new(0,10,0,32)
box.Text = "1000"
box.PlaceholderText = "Enter amount"
box.TextSize = 16
box.Font = Enum.Font.Gotham
box.TextColor3 = Color3.new(1,1,1)
box.BackgroundColor3 = Color3.fromRGB(60,60,60)
box.ClearTextOnFocus = false
box.TextXAlignment = Enum.TextXAlignment.Center
Instance.new("UICorner", box).CornerRadius = UDim.new(0,8)

-- NUMBERS ONLY
box:GetPropertyChangedSignal("Text"):Connect(function()
	box.Text = box.Text:gsub("%D", "")
end)

-- EXECUTE BUTTON
local exec = Instance.new("TextButton", main)
exec.Size = UDim2.new(1,-20,0,36)
exec.Position = UDim2.new(0,10,1,-40)
exec.Text = "EXECUTE"
exec.TextSize = 14
exec.Font = Enum.Font.GothamBold
exec.TextColor3 = Color3.new(1,1,1)
exec.BackgroundColor3 = Color3.fromRGB(70,140,70)
Instance.new("UICorner", exec).CornerRadius = UDim.new(0,10)

-- FAST EXECUTION LOGIC
exec.MouseButton1Click:Connect(function()
	local amount = tonumber(box.Text)
	if not amount or amount <= 0 then return end

	local fired = 0
	local PER_FRAME = 800 -- increase if your device can handle it

	local conn
	conn = RunService.Heartbeat:Connect(function()
		for i = 1, PER_FRAME do
			if fired >= amount then
				conn:Disconnect()
				return
			end
			rewardRemote:FireServer(1229, 100)
			fired += 1
		end
	end)
end)