-- Services
local Players = game:GetService("Players")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local LocalPlayer = Players.LocalPlayer
local VirtualUser = game:GetService("VirtualUser")

-- Remote Events
local PurchaseMachine = ReplicatedStorage:WaitForChild("Remotes"):WaitForChild("Events"):WaitForChild("PurchaseMachine")
local ClaimCrypto = ReplicatedStorage:WaitForChild("Remotes"):WaitForChild("Events"):WaitForChild("ClaimCrypto")

-- GUI
local gui = Instance.new("ScreenGui")
gui.Name = "CryptoFarmGUI"
gui.ResetOnSpawn = false
gui.Parent = LocalPlayer:WaitForChild("PlayerGui")

-- Carré R6 (toujours visible, petit, déplaçable, au-dessus du menu)
local r6Btn = Instance.new("TextButton")
r6Btn.Size = UDim2.new(0,40,0,40)
r6Btn.Position = UDim2.new(0.5,-20,0.5,-20)
r6Btn.BackgroundColor3 = Color3.new(0,0,0)
r6Btn.Text = "R6"
r6Btn.TextColor3 = Color3.new(1,1,1)
r6Btn.Font = Enum.Font.SourceSansBold
r6Btn.TextSize = 18
r6Btn.Active = true
r6Btn.Draggable = true
r6Btn.Visible = true
r6Btn.ZIndex = 10
r6Btn.Parent = gui

-- Frame principal
local frame = Instance.new("Frame")
frame.Size = UDim2.new(0,400,0,500)
frame.Position = UDim2.new(0.5,-200,0.5,-250)
frame.BackgroundColor3 = Color3.fromRGB(40,40,40)
frame.Visible = false
frame.ZIndex = 1 -- derrière le carré
frame.Parent = gui

-- Titre et sous-titre
local title = Instance.new("TextLabel")
title.Size = UDim2.new(1,0,0,30)
title.Position = UDim2.new(0,0,0,0)
title.BackgroundTransparency = 1
title.Text = "Grow a Crypto Farm Script"
title.Font = Enum.Font.SourceSansBold
title.TextSize = 24
title.TextColor3 = Color3.new(1,1,1)
title.Parent = frame

local subtitle = Instance.new("TextLabel")
subtitle.Size = UDim2.new(1,0,0,20)
subtitle.Position = UDim2.new(0,0,0,30)
subtitle.BackgroundTransparency = 1
subtitle.Text = "by R6_Player"
subtitle.Font = Enum.Font.SourceSansItalic
subtitle.TextSize = 14
subtitle.TextColor3 = Color3.new(1,1,1)
subtitle.TextTransparency = 0.4
subtitle.Parent = frame

-- Bouton fermer
local closeBtn = Instance.new("TextButton")
closeBtn.Size = UDim2.new(0,30,0,30)
closeBtn.Position = UDim2.new(1,-30,0,0)
closeBtn.Text = "X"
closeBtn.Font = Enum.Font.SourceSansBold
closeBtn.TextSize = 20
closeBtn.TextColor3 = Color3.new(1,1,1)
closeBtn.BackgroundColor3 = Color3.fromRGB(200,0,0)
closeBtn.Parent = frame
closeBtn.MouseButton1Click:Connect(function()
    frame.Visible = false
end)

-- Clic sur carré R6 ouvre/ferme le menu
r6Btn.MouseButton1Click:Connect(function()
    frame.Visible = not frame.Visible
end)

-- Onglets
local tabs = {}
local pages = {}

local function createTab(name, x, y, color)
    local btn = Instance.new("TextButton")
    btn.Size = UDim2.new(0,200,0,30)
    btn.Position = UDim2.new(0,x,0,y)
    btn.Text = name
    btn.Font = Enum.Font.SourceSans
    btn.TextSize = 16
    btn.TextColor3 = Color3.new(1,1,1)
    btn.BackgroundColor3 = color
    btn.Parent = frame
    tabs[name] = btn

    local page = Instance.new("ScrollingFrame")
    page.Size = UDim2.new(1,0,1,-150)
    page.Position = UDim2.new(0,0,0,130)
    page.BackgroundColor3 = Color3.fromRGB(50,50,50)
    page.Visible = false
    page.CanvasSize = UDim2.new(0,0,0,800)
    page.Parent = frame
    pages[name] = page

    btn.MouseButton1Click:Connect(function()
        for k,v in pairs(pages) do
            v.Visible = false
        end
        page.Visible = true
    end)
    return page
end

local pageMachines = createTab("Auto Purchase Machines",0,60,Color3.fromRGB(0,100,200))
local pageMisc = createTab("Misc",200,60,Color3.fromRGB(100,0,200))
local pageClaim = createTab("Claim All",0,100,Color3.fromRGB(200,100,0))

-- Machines
local machineNames = {
    "Retro Crypto Miner","Classic Crypto Miner","Cryptobyte","Crypto Desktop","Crypto Master",
    "Crypto Farm Mini","Plasma Miner","Gamer Miner","Crypto Vault","Graphics Miner",
    "Crypto Generator","Super Generator","Méga Miner","Guantum Miner","Crypto Tower",
    "Omega Miner","Amethyst Miner","Super Terminal","RGB Disco Computer"
}

for i=1,#machineNames do
    local toggle = Instance.new("TextButton")
    toggle.Size = UDim2.new(1,-20,0,30)
    toggle.Position = UDim2.new(0,10,0,10 + 35*i)
    toggle.BackgroundColor3 = Color3.fromRGB(80,80,80)
    toggle.TextColor3 = Color3.new(1,1,1)
    toggle.Font = Enum.Font.SourceSans
    toggle.TextSize = 18
    toggle.Text = machineNames[i]..": OFF"
    toggle.Name = "MachineToggle"..i
    toggle.Parent = pageMachines

    local state = false
    toggle.MouseButton1Click:Connect(function()
        state = not state
        toggle.Text = machineNames[i]..": "..(state and "ON" or "OFF")
        toggle.BackgroundColor3 = state and Color3.fromRGB(0,200,0) or Color3.fromRGB(80,80,80)
        if state then
            coroutine.wrap(function()
                while state do
                    PurchaseMachine:FireServer("Machine_"..i)
                    wait(0.5)
                end
            end)()
        end
    end)
end

-- Misc: Anti AFK
local antiAFKBtn = Instance.new("TextButton")
antiAFKBtn.Size = UDim2.new(0,200,0,30)
antiAFKBtn.Position = UDim2.new(0,10,0,10)
antiAFKBtn.Text = "Anti AFK: OFF"
antiAFKBtn.Font = Enum.Font.SourceSans
antiAFKBtn.TextSize = 18
antiAFKBtn.TextColor3 = Color3.new(1,1,1)
antiAFKBtn.BackgroundColor3 = Color3.fromRGB(80,80,80)
antiAFKBtn.Parent = pageMisc
local antiAFKState = false
antiAFKBtn.MouseButton1Click:Connect(function()
    antiAFKState = not antiAFKState
    antiAFKBtn.Text = "Anti AFK: "..(antiAFKState and "ON" or "OFF")
    if antiAFKState then
        LocalPlayer.Idled:Connect(function()
            VirtualUser:ClickButton1(Vector2.new())
        end)
    end
end)

-- Misc: WalkSpeed
local wsSlider = Instance.new("TextBox")
wsSlider.Size = UDim2.new(0,200,0,30)
wsSlider.Position = UDim2.new(0,10,0,50)
wsSlider.Text = "WalkSpeed: 16"
wsSlider.Font = Enum.Font.SourceSans
wsSlider.TextSize = 18
wsSlider.TextColor3 = Color3.new(1,1,1)
wsSlider.BackgroundColor3 = Color3.fromRGB(80,80,80)
wsSlider.ClearTextOnFocus = false
wsSlider.Parent = pageMisc
wsSlider.FocusLost:Connect(function()
    local val = tonumber(wsSlider.Text:match("%d+"))
    if val then
        if LocalPlayer.Character and LocalPlayer.Character:FindFirstChild("Humanoid") then
            LocalPlayer.Character.Humanoid.WalkSpeed = val
        end
    end
end)