OP more than 1k Sword LAG

local Players = game:GetService("Players")
local player = Players.LocalPlayer

local screenGui = Instance.new("ScreenGui")
screenGui.Name = "RodEventGui"
screenGui.Parent = player:WaitForChild("PlayerGui")

local button = Instance.new("TextButton")
button.Size = UDim2.new(0, 160, 0, 70)
button.Position = UDim2.new(0.5, -70, 0.5, -20)
button.Text = "OP +1k Fish - ByDuyVn        (Drop your rod and click. Wait a min for catch fish done)"
button.BackgroundColor3 = Color3.fromRGB(0, 76, 153)
button.TextColor3 = Color3.new(1,1,1)
button.Font = Enum.Font.SourceSansBold
button.TextScaled = true
button.Parent = screenGui
button.Active = true

local dragging
local dragInput
local dragStart
local startPos

local function update(input)
    local delta = input.Position - dragStart
    button.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
end

button.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
        dragging = true
        dragStart = input.Position
        startPos = button.Position

        input.Changed:Connect(function()
            if input.UserInputState == Enum.UserInputState.End then
                dragging = false
            end
        end)
    end
end)

button.InputChanged:Connect(function(input)
    if dragging and (input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch) then
        dragInput = input
    end
end)

game:GetService("UserInputService").InputChanged:Connect(function(input)
    if dragging and input == dragInput then
        update(input)
    end
end)


button.MouseButton1Click:Connect(function()
    for _, tool in ipairs(player.Character:GetChildren()) do
        if tool:FindFirstChild("RodEvent") and tool.RodEvent.FireServer then
            local args = {
                [1] = { ["action"] = "Catch" }
            }
            for i = 1, 3500 do
                tool.RodEvent:FireServer(unpack(args))
            end
        end
    end
end)