Frame

if game:GetService("CoreGui"):FindFirstChild("ScreenGui") then
game:GetService("CoreGui"):FindFirstChild("ScreenGui"):Destroy()
end
local ScreenGui = Instance.new("ScreenGui")
local CoreFrame = Instance.new("ImageLabel")
local CoreFrameUICorner = Instance.new("UICorner")
local CloseButton = Instance.new("TextButton")
local UserInputService = game:GetService("UserInputService")
local Button1 = Instance.new("TextButton")
local Button2 = Instance.new("TextButton")
local Button3 = Instance.new("TextButton")
local Button4 = Instance.new("TextButton")
local UICorner_1 = Instance.new("UICorner")
local UICorner_2 = Instance.new("UICorner")
local UICorner_3 = Instance.new("UICorner")
local UICorner_4 = Instance.new("UICorner")
local LP = game.Players.LocalPlayer

ScreenGui.Name = "ScreenGui"
ScreenGui.Parent = game.CoreGui
game.CoreGui.ScreenGui.Enabled = true

CoreFrame.Name = "CoreFrame"
CoreFrame.Parent = ScreenGui
CoreFrame.Position = UDim2.new(0.1, 0, 0.1, 0)
CoreFrame.Size = UDim2.new(0.55, 0, 0.9, 0)
CoreFrame.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
CoreFrame.Image = "rbxassetid://16035728503"

CoreFrameUICorner.Parent = CoreFrame

CloseButton.Name = "CloseButton"
CloseButton.Position = UDim2.new(0.93, 0, 0.02, 0)
CloseButton.Parent = CoreFrame
CloseButton.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
CloseButton.LayoutOrder = 1
CloseButton.Size = UDim2.new(0, 25, 0, 25)
CloseButton.AutoButtonColor = false
CloseButton.Font = Enum.Font.SourceSansBold
CloseButton.Text = "X"
CloseButton.BorderSizePixel = 0
CloseButton.TextColor3 = Color3.fromRGB(255, 255, 255)
CloseButton.TextSize = 30

CloseButton.MouseButton1Click:Connect(function()
ScreenGui:Destroy()
end)

Button1.Name = "Button1"
Button1.Position = UDim2.new(0.03, 0, 0.1, 0)
Button1.Parent = CoreFrame
Button1.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
Button1.LayoutOrder = 1
Button1.BackgroundTransparency = 0.7
Button1.Size = UDim2.new(0, 250, 0, 100)
Button1.AutoButtonColor = false
Button1.Font = Enum.Font.SourceSansBold
Button1.Text = "Anti AFK"
Button1.BorderSizePixel = 0
Button1.TextColor3 = Color3.fromRGB(255, 255, 255)
Button1.TextSize = 30

local Button1AntiAfk = Button1.MouseButton1Click:Connect(function()
local function ClearConnections(exception)
    for i,v in pairs(getconnections(LP.Idled)) do
        if v ~= exception then
            v:Disable()
        end
    end
end
ClearConnections()
local Connect
Connect = LP.Idled:Connect(function()
    ClearConnections(Connect)

end)
Button1.Text = "Anti AFK Enabled"
Button1AntiAfk:Disconnect()
end)

UICorner_1.Parent = Button1

Button2.Name = "Button2"
Button2.Position = UDim2.new(0.25, 0, 0.1, 0)
Button2.Parent = CoreFrame
Button2.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
Button2.LayoutOrder = 1
Button2.BackgroundTransparency = 0.7
Button2.Size = UDim2.new(0, 250, 0, 100)
Button2.AutoButtonColor = false
Button2.Font = Enum.Font.SourceSansBold
Button2.Text = "Auto Farm"
Button2.BorderSizePixel = 0
Button2.TextColor3 = Color3.fromRGB(255, 255, 255)
Button2.TextSize = 30

Button2.MouseButton1Click:Connect(function()
Amount = 99999999
game.ReplicatedStorage.Remotes.SetSettings:FireServer("Money",99999999)
end)

UICorner_2.Parent = Button2

Button3.Name = "Button3"
Button3.Position = UDim2.new(0.03, 0, 0.25, 0)
Button3.Parent = CoreFrame
Button3.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
Button3.LayoutOrder = 1
Button3.BackgroundTransparency = 0.7
Button3.Size = UDim2.new(0, 250, 0, 100)
Button3.AutoButtonColor = false
Button3.Font = Enum.Font.SourceSansBold
Button3.Text = "Auto Farm (loop)"
Button3.BorderSizePixel = 0
Button3.TextColor3 = Color3.fromRGB(255, 255, 255)
Button3.TextSize = 30

Button3.MouseButton1Click:Connect(function()
while wait() do
Amount = 99999999
game.ReplicatedStorage.Remotes.SetSettings:FireServer("Money",99999999)
end
end)

UICorner_3.Parent = Button3



















local gui = CoreFrame

local dragging
local dragInput
local dragStart
local startPos


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

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

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

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

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