Revise paste Fragrama and Chocrama auto buy / #roblox__ego...

-- FragramaChocrama v5 (final)
-- 50 clics/s, recherche multiple, activation multiple, draggable toggle
-- Debug: Attempts / Last found / Last method / History (10 dernières tentatives)
-- Le même bouton spamBtn démarre/arrête le spam

local Players = game:GetService("Players")
local LocalPlayer = Players.LocalPlayer
local UserInputService = game:GetService("UserInputService")
local RunService = game:GetService("RunService")

-- Parent du GUI : CoreGui si possible, sinon PlayerGui
local parentGui
pcall(function() parentGui = game:GetService("CoreGui") end)
if not (parentGui and parentGui:IsA("Instance")) then
    parentGui = LocalPlayer:WaitForChild("PlayerGui")
end

-- Création du ScreenGui
local screenGui = Instance.new("ScreenGui")
screenGui.Name = "FragramaChocrama_MainGui"
screenGui.ResetOnSpawn = false
screenGui.Parent = parentGui

-- Utilitaire : rendre un GUI draggable (souris + tactile)
local function makeDraggable(guiObject)
    local dragging = false
    local dragInput
    local dragStart
    local startPos

local function update(input)
        local delta = input.Position - dragStart
        guiObject.Position = UDim2.new(
            math.clamp(startPos.X.Scale, 0, 1),
            math.clamp(startPos.X.Offset + delta.X, -10000, 10000),
            math.clamp(startPos.Y.Scale, 0, 1),
            math.clamp(startPos.Y.Offset + delta.Y, -10000, 10000)
        )
    end

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

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

guiObject.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
            pcall(update, input)
        end
    end)
end

-- Utilitaire : obtenir un chemin lisible pour un Instance
local function getInstancePath(inst)
    if not inst or not inst:IsA("Instance") then return "nil" end
    local parts = {}
    local current = inst
    while current do
        table.insert(parts, 1, current.Name or tostring(current.ClassName))
        current = current.Parent
    end
    return table.concat(parts, "/")
end

-- UI : toggle draggable (container)
local toggleContainer = Instance.new("Frame")
toggleContainer.Size = UDim2.new(0, 160, 0, 36)
toggleContainer.Position = UDim2.new(0.02, 0, 0.80, 0)
toggleContainer.AnchorPoint = Vector2.new(0,0)
toggleContainer.BackgroundColor3 = Color3.fromRGB(40,40,40)
toggleContainer.BorderSizePixel = 0
toggleContainer.Parent = screenGui

local toggleVisibilityBtn = Instance.new("TextButton")
toggleVisibilityBtn.Size = UDim2.new(1, -6, 1, -6)
toggleVisibilityBtn.Position = UDim2.new(0, 3, 0, 3)
toggleVisibilityBtn.Text = "Show GUI"
toggleVisibilityBtn.Font = Enum.Font.SourceSansBold
toggleVisibilityBtn.TextSize = 16
toggleVisibilityBtn.BackgroundTransparency = 1
toggleVisibilityBtn.TextColor3 = Color3.fromRGB(230,230,230)
toggleVisibilityBtn.Parent = toggleContainer
toggleVisibilityBtn.AutoButtonColor = true

makeDraggable(toggleContainer)

-- Menu (initialement caché)
local menuFrame = Instance.new("Frame")
menuFrame.Size = UDim2.new(0, 420, 0, 140)
menuFrame.Position = UDim2.new(0.02, 0, 0.60, 0)
menuFrame.BackgroundTransparency = 0.12
menuFrame.BackgroundColor3 = Color3.fromRGB(20,20,20)
menuFrame.BorderSizePixel = 0
menuFrame.Visible = false
menuFrame.Parent = screenGui

local title = Instance.new("TextLabel")
title.Size = UDim2.new(1, -10, 0, 24)
title.Position = UDim2.new(0, 5, 0, 5)
title.BackgroundTransparency = 1
title.Text = "Menu Fragrama"
title.Font = Enum.Font.SourceSansBold
title.TextSize = 16
title.TextXAlignment = Enum.TextXAlignment.Left
title.TextColor3 = Color3.fromRGB(220,220,220)
title.Parent = menuFrame

local spamBtn = Instance.new("TextButton")
spamBtn.Size = UDim2.new(0, 220, 0, 40)
spamBtn.Position = UDim2.new(0, 5, 0, 36)
spamBtn.Text = "Fragrama and Chocrama"
spamBtn.Font = Enum.Font.SourceSansBold
spamBtn.TextSize = 16
spamBtn.Parent = menuFrame
spamBtn.AutoButtonColor = true

local statusLabel = Instance.new("TextLabel")
statusLabel.Size = UDim2.new(0, 180, 0, 18)
statusLabel.Position = UDim2.new(0, 235, 0, 46)
statusLabel.BackgroundTransparency = 1
statusLabel.Text = "OFF"
statusLabel.Font = Enum.Font.SourceSans
statusLabel.TextSize = 14
statusLabel.TextXAlignment = Enum.TextXAlignment.Left
statusLabel.TextColor3 = Color3.fromRGB(200,200,200)
statusLabel.Parent = menuFrame

-- Debug frame (Attempts / Last / Method / History)
local debugFrame = Instance.new("Frame")
debugFrame.Size = UDim2.new(0, 410, 0, 70)
debugFrame.Position = UDim2.new(0, 5, 0, 82)
debugFrame.BackgroundTransparency = 0.2
debugFrame.BackgroundColor3 = Color3.fromRGB(15,15,15)
debugFrame.BorderSizePixel = 0
debugFrame.Parent = menuFrame

local attemptsLabel = Instance.new("TextLabel")
attemptsLabel.Size = UDim2.new(0, 200, 0, 18)
attemptsLabel.Position = UDim2.new(0, 6, 0, 4)
attemptsLabel.BackgroundTransparency = 1
attemptsLabel.Text = "Attempts: 0"
attemptsLabel.Font = Enum.Font.SourceSans
attemptsLabel.TextSize = 14
attemptsLabel.TextXAlignment = Enum.TextXAlignment.Left
attemptsLabel.TextColor3 = Color3.fromRGB(200,200,200)
attemptsLabel.Parent = debugFrame

local lastMethodLabel = Instance.new("TextLabel")
lastMethodLabel.Size = UDim2.new(0, 200, 0, 18)
lastMethodLabel.Position = UDim2.new(0, 210, 0, 4)
lastMethodLabel.BackgroundTransparency = 1
lastMethodLabel.Text = "Last method: -"
lastMethodLabel.Font = Enum.Font.SourceSans
lastMethodLabel.TextSize = 14
lastMethodLabel.TextXAlignment = Enum.TextXAlignment.Left
lastMethodLabel.TextColor3 = Color3.fromRGB(200,200,200)
lastMethodLabel.Parent = debugFrame

local lastFoundLabel = Instance.new("TextLabel")
lastFoundLabel.Size = UDim2.new(1, -10, 0, 18)
lastFoundLabel.Position = UDim2.new(0, 6, 0, 24)
lastFoundLabel.BackgroundTransparency = 1
lastFoundLabel.Text = "Last: Not found"
lastFoundLabel.Font = Enum.Font.SourceSans
lastFoundLabel.TextSize = 14
lastFoundLabel.TextXAlignment = Enum.TextXAlignment.Left
lastFoundLabel.TextColor3 = Color3.fromRGB(200,200,200)
lastFoundLabel.Parent = debugFrame

local historyLabel = Instance.new("TextLabel")
historyLabel.Size = UDim2.new(1, -10, 0, 24)
historyLabel.Position = UDim2.new(0, 6, 0, 44)
historyLabel.BackgroundTransparency = 1
historyLabel.Text = "History:"
historyLabel.Font = Enum.Font.SourceSans
historyLabel.TextSize = 13
historyLabel.TextXAlignment = Enum.TextXAlignment.Left
historyLabel.TextYAlignment = Enum.TextYAlignment.Top
historyLabel.TextWrapped = true
historyLabel.ClipsDescendants = true
historyLabel.TextColor3 = Color3.fromRGB(200,200,200)
historyLabel.Parent = debugFrame

-- Etat et variables pour spam / debug
local spamming = false
local spamCoroutine = nil
local attemptCounter = 0
local lastFoundInstance = nil
local lastMethodUsed = "-"
local history = {} -- table of strings, newest first
local historyMax = 10
local debugUpdateInterval = 0.1 -- UI update interval

-- Heuristiques de détection (comme avant)
local function isCandidateButton(inst)
    if not inst or not inst:IsA("Instance") then return false end

if inst:IsA("TextButton") or inst:IsA("ImageButton") then
        if inst:IsA("TextButton") and inst.Text and inst.Text ~= "" then
            local txt = tostring(inst.Text)
            if txt:find("%$%s*40%s*[Bb]") or txt:lower():find("40b") or txt:lower():find("40 b") then
                return true
            end
            if txt:lower():find("buy") and txt:lower():find("40") then
                return true
            end
        end

for _, d in ipairs(inst:GetDescendants()) do
            if d:IsA("TextLabel") or d:IsA("TextButton") then
                if d.Text and d.Text ~= "" then
                    local txt = tostring(d.Text)
                    if txt:find("%$%s*40%s*[Bb]") or txt:lower():find("40b") or txt:lower():find("buy") then
                        return true
                    end
                end
            end
        end

if inst.Name and (inst.Name:lower():find("40") or inst.Name:lower():find("buy")) then
            return true
        end
    end

if inst:IsA("TextLabel") and inst.Text and inst.Text ~= "" then
        local txt = tostring(inst.Text)
        if txt:find("%$%s*40%s*[Bb]") or txt:lower():find("40b") or txt:lower():find("buy") then
            return true
        end
    end

if inst:IsA("ImageLabel") or inst:IsA("ImageButton") then
        for _, d in ipairs(inst:GetDescendants()) do
            if d:IsA("TextLabel") or d:IsA("TextButton") then
                if d.Text and d.Text ~= "" then
                    local txt = tostring(d.Text)
                    if txt:find("%$%s*40%s*[Bb]") or txt:lower():find("40b") or txt:lower():find("buy") then
                        return true
                    end
                end
            end
        end
    end

if inst:IsA("ClickDetector") or inst:IsA("ProximityPrompt") then
        if inst.Parent and inst.Parent.Name and (inst.Parent.Name:lower():find("40") or inst.Parent.Name:lower():find("buy") or inst.Parent.Name:lower():find("purchase")) then
            return true
        end
        if inst:IsA("ProximityPrompt") then
            local a = tostring(inst.ActionText or "")
            local o = tostring(inst.ObjectText or "")
            if a:lower():find("40") or o:lower():find("40") or a:lower():find("buy") or o:lower():find("buy") then
                return true
            end
        end
    end

return false
end

-- Recherche robuste
local function findBuyButton()
    local places = {}
    pcall(function() table.insert(places, LocalPlayer:WaitForChild("PlayerGui")) end)
    pcall(function() table.insert(places, game:GetService("CoreGui")) end)
    pcall(function() table.insert(places, workspace)) end
    pcall(function() table.insert(places, game:GetService("StarterGui")) end)
    pcall(function() table.insert(places, game:GetService("ReplicatedFirst")) end)

for _, container in ipairs(places) do
        if container and container:IsA("Instance") then
            for _, inst in ipairs(container:GetDescendants()) do
                local ok, res = pcall(isCandidateButton, inst)
                if ok and res then
                    return inst
                end
            end
        end
    end

-- dernier recours : recherche par nom
    local namePatterns = {"$40B", "40B", "40 b", "40", "buy", "purchase", "buy40"}
    for _, container in ipairs(places) do
        if container and container:IsA("Instance") then
            for _, inst in ipairs(container:GetDescendants()) do
                for _, pat in ipairs(namePatterns) do
                    if inst.Name and inst.Name:lower():find(pat:lower()) then
                        return inst
                    end
                end
            end
        end
    end

return nil
end

-- Méthodes d'activation multiples
-- Retourne (success:boolean, method:string)
local function tryActivateButton(btn)
    if not btn or not btn.Parent then return false, "invalid" end

-- 1) :Activate()
    local ok = false
    pcall(function() ok = btn:Activate() or true end)
    if ok then return true, ":Activate()" end

-- 2) MouseButton1Click:Fire()
    local fired = false
    pcall(function()
        if btn.MouseButton1Click and typeof(btn.MouseButton1Click.Fire) == "function" then
            btn.MouseButton1Click:Fire()
            fired = true
        end
    end)
    if fired then return true, "MouseButton1Click:Fire()" end

-- 3) getconnections sur Activated / MouseButton1Click
    if type(getconnections) == "function" then
        local function tryFireEvent(ev)
            local successLocal = false
            local okConns = {}
            pcall(function() okConns = getconnections(ev) end)
            for _, c in ipairs(okConns or {}) do
                pcall(function() c.Function() end)
                successLocal = true
            end
            return successLocal
        end

local evFired = false
        pcall(function()
            if btn.Activated then
                if tryFireEvent(btn.Activated) then evFired = true end
            end
            if btn.MouseButton1Click then
                if tryFireEvent(btn.MouseButton1Click) then evFired = true end
            end
        end)

if evFired then return true, "getconnections()" end
    end

-- 4) ProximityPrompt / ClickDetector handling
    if btn:IsA("ProximityPrompt") then
        pcall(function() btn:InputHoldBegin() end)
        pcall(function() btn:InputHoldEnd() end)
        return true, "ProximityPrompt"
    end
    if btn:IsA("ClickDetector") then
        if type(fireclickdetector) == "function" then
            pcall(function() fireclickdetector(btn) end)
            return true, "fireclickdetector()"
        end
    end

-- 5) Tentative : simuler InputBegan (exploit-specific)
    local simulated = false
    pcall(function()
        if btn.InputBegan then
            local fake = {
                UserInputType = Enum.UserInputType.MouseButton1,
                Position = Vector2.new(0,0),
                UserInputState = Enum.UserInputState.Begin
            }
            -- certains environnements permettent Fire; protégé en pcall
            pcall(function() btn.InputBegan:Fire(fake) end)
            simulated = true
        end
    end)
    if simulated then return true, "InputBegan:Fire()" end

-- 6) Rien d'autre fonctionne
    return false, "none"
end

-- Ajoute une entrée dans l'historique (nouveau au début), garde max historyMax
local function pushHistory(entry)
    table.insert(history, 1, entry)
    if #history > historyMax then
        for i = historyMax+1, #history do
            history[i] = nil
        end
    end
end

-- Spam loop — 50 clics/s => wait(0.02)
local function spamLoop()
    while spamming do
        attemptCounter = attemptCounter + 1
        local btn = findBuyButton()
        lastFoundInstance = btn
        if btn then
            local success, method = pcall(function() return tryActivateButton(btn) end)
            local ok, usedMethod
            if success then
                ok, usedMethod = tryActivateButton(btn)
            else
                ok = false
                usedMethod = "error"
            end

if ok then
                lastMethodUsed = usedMethod or "unknown"
                local name = "[" .. tostring(btn.ClassName) .. "] " .. tostring(btn.Name)
                local path = getInstancePath(btn)
                pushHistory("[" .. lastMethodUsed .. "] " .. name)
            else
                lastMethodUsed = usedMethod or "none"
                pushHistory("[fail] " .. (btn.Name or "unknown"))
            end
        else
            lastMethodUsed = "Not found"
            pushHistory("[fail] Not found")
        end
        -- tempo pour 50 clics/sec
        wait(0.02)
    end
end

-- Coroutine de mise à jour debug (toutes les 0.1s)
spawn(function()
    while true do
        attemptsLabel.Text = "Attempts: " .. tostring(attemptCounter)
        lastMethodLabel.Text = "Last method: " .. tostring(lastMethodUsed)
        if lastFoundInstance and lastFoundInstance:IsA("Instance") then
            local nm = "[" .. tostring(lastFoundInstance.ClassName) .. "] " .. tostring(lastFoundInstance.Name)
            local path = getInstancePath(lastFoundInstance)
            lastFoundLabel.Text = "Last: " .. nm .. "  |  " .. path
        else
            lastFoundLabel.Text = "Last: Not found"
        end

-- Construire texte history (les N dernières)
        local histText = "History:"
        for i = 1, math.min(#history, historyMax) do
            histText = histText .. "\n" .. tostring(history[i])
        end
        historyLabel.Text = histText

wait(debugUpdateInterval)
    end
end)

-- Handler du bouton spam (start/stop) — même bouton pour démarrer / arrêter
spamBtn.MouseButton1Click:Connect(function()
    spamming = not spamming
    statusLabel.Text = spamming and "ON" or "OFF"
    if spamming then
        if not spamCoroutine or coroutine.status(spamCoroutine) == "dead" then
            spamCoroutine = coroutine.create(function() spamLoop() end)
            coroutine.resume(spamCoroutine)
        end
    end
end)

-- Show/Hide menu
local visible = false
toggleVisibilityBtn.MouseButton1Click:Connect(function()
    visible = not visible
    menuFrame.Visible = visible
    toggleVisibilityBtn.Text = visible and "Hide GUI" or "Show GUI"
end)

-- Hover textes
spamBtn.MouseEnter:Connect(function() spamBtn.Text = "Clique pour toggle spam ($40B)" end)
spamBtn.MouseLeave:Connect(function() spamBtn.Text = "Fragrama and Chocrama" end)

print("[FragramaChocrama v5] Chargé — debug complet (Attempts / Last / Method / History).")