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

local LP = Players.LocalPlayer
local PlayerGui = LP:WaitForChild("PlayerGui")
local Mouse = LP:GetMouse()

local ProfileData = LP:WaitForChild("ProfileData", 5)
if not ProfileData then return end
local Inventory = ProfileData:WaitForChild("BrainrotInventory", 5)
if not Inventory then return end

local SwordHitRemote = ReplicatedStorage:WaitForChild("Remotes"):WaitForChild("SwordHit")

local AUTO_HIT = false
local HIT_INTERVAL = 0.12
local SelectedCrateType = "All"
local CrateTypeNames = {"All","CommonCrate","UncommonCrate","RareCrate","EpicCrate","LegendaryCrate","MythicalCrate","SecretCrate"}
local ActiveCratesFolder = Workspace:WaitForChild("ActiveCrates")
local hitCoroutine = nil

local AUTO_COLLECT = false
local collectParts = {}
local myPlot = nil
local plotSlotsFolder = nil

local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "rdreadpirateSuite"
ScreenGui.ResetOnSpawn = false
ScreenGui.Parent = PlayerGui

local Main = Instance.new("Frame")
Main.Name = "MainWindow"
Main.Size = UDim2.new(0, 720, 0, 450)
Main.Position = UDim2.new(0.5, -360, 0.5, -225)
Main.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
Main.BorderSizePixel = 0
Main.Parent = ScreenGui

local MainCorner = Instance.new("UICorner")
MainCorner.CornerRadius = UDim.new(0, 8)
MainCorner.Parent = Main

local Title = Instance.new("TextLabel")
Title.Name = "TitleBar"
Title.Size = UDim2.new(1, -40, 0, 40)
Title.Position = UDim2.new(0, 10, 0, 0)
Title.BackgroundTransparency = 1
Title.Text = "rdreadpirate - Slice A Brainrot - Free Suite"
Title.TextColor3 = Color3.fromRGB(255, 255, 255)
Title.Font = Enum.Font.GothamBold
Title.TextSize = 16
Title.TextXAlignment = Enum.TextXAlignment.Left
Title.Parent = Main

local CloseBtn = Instance.new("TextButton")
CloseBtn.Name = "CloseButton"
CloseBtn.Size = UDim2.new(0, 30, 0, 30)
CloseBtn.Position = UDim2.new(1, -35, 0, 5)
CloseBtn.BackgroundColor3 = Color3.fromRGB(180, 50, 50)
CloseBtn.Text = "X"
CloseBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
CloseBtn.Font = Enum.Font.GothamBold
CloseBtn.TextSize = 14
CloseBtn.Parent = Main

local CloseCorner = Instance.new("UICorner")
CloseCorner.CornerRadius = UDim.new(0, 6)
CloseCorner.Parent = CloseBtn

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

local TabsFrame = Instance.new("Frame", Main)
TabsFrame.Name = "TabsFrame"
TabsFrame.Size = UDim2.new(1, -20, 0, 36)
TabsFrame.Position = UDim2.new(0, 10, 0, 45)
TabsFrame.BackgroundTransparency = 1

local function createTabButton(name, order)
    local btn = Instance.new("TextButton", TabsFrame)
    btn.Name = name .. "Tab"
    local width = 0.32
    btn.Size = UDim2.new(width, -4, 1, 0)
    btn.Position = UDim2.new((width * (order - 1)), (order - 1) * 4, 0, 0)
    btn.BackgroundColor3 = Color3.fromRGB(40,40,40)
    btn.Text = name
    btn.TextColor3 = Color3.fromRGB(255,255,255)
    btn.Font = Enum.Font.GothamBold
    btn.TextSize = 14
    
    local c = Instance.new("UICorner")
    c.CornerRadius = UDim.new(0, 6)
    c.Parent = btn
    
    return btn
end

local ContentFrame = Instance.new("Frame", Main)
ContentFrame.Name = "Content"
ContentFrame.Size = UDim2.new(1, -20, 1, -95)
ContentFrame.Position = UDim2.new(0, 10, 0, 85)
ContentFrame.BackgroundTransparency = 1

local AutoDestroyBtn = createTabButton("Destroy Crates", 1)
local AutoCollectBtn = createTabButton("Auto Collect", 2)
local AutoMutationBtn = createTabButton("Mutation", 3)

local AD = Instance.new("Frame", ContentFrame)
AD.Name = "AutoDestroyFrame"
AD.Size = UDim2.new(1, 0, 1, 0)
AD.BackgroundTransparency = 1
AD.Visible = true

local AC = Instance.new("Frame", ContentFrame)
AC.Name = "AutoCollectFrame"
AC.Size = UDim2.new(1, 0, 1, 0)
AC.BackgroundTransparency = 1
AC.Visible = false

local AM = Instance.new("Frame", ContentFrame)
AM.Name = "AutoMutationFrame"
AM.Size = UDim2.new(1, 0, 1, 0)
AM.BackgroundTransparency = 1
AM.Visible = false

local function setActiveTab(btnActive)
    for _, b in pairs({AutoMutationBtn, AutoDestroyBtn, AutoCollectBtn}) do
        if b == btnActive then
            b.BackgroundColor3 = Color3.fromRGB(0, 120, 215)
        else
            b.BackgroundColor3 = Color3.fromRGB(40,40,40)
        end
    end
    AD.Visible = (btnActive == AutoDestroyBtn)
    AC.Visible = (btnActive == AutoCollectBtn)
    AM.Visible = (btnActive == AutoMutationBtn)
end

setActiveTab(AutoDestroyBtn)

AutoDestroyBtn.MouseButton1Click:Connect(function() setActiveTab(AutoDestroyBtn) end)
AutoCollectBtn.MouseButton1Click:Connect(function() setActiveTab(AutoCollectBtn) end)
AutoMutationBtn.MouseButton1Click:Connect(function() setActiveTab(AutoMutationBtn) end)

local AMPlaceholder = Instance.new("TextLabel", AM)
AMPlaceholder.Size = UDim2.new(1, 0, 1, 0)
AMPlaceholder.BackgroundTransparency = 1
AMPlaceholder.Text = "🧠 Mutation Manager\n\n- Work In Progress 🚧 -"
AMPlaceholder.TextColor3 = Color3.fromRGB(0, 120, 215)
AMPlaceholder.Font = Enum.Font.GothamBold
AMPlaceholder.TextSize = 24
AMPlaceholder.TextYAlignment = Enum.TextYAlignment.Center

local dragging, dragInput, dragStart, startPos
local function update(input)
    local delta = input.Position - dragStart
    Main.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
end
Title.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
        dragging = true
        dragStart = input.Position
        startPos = Main.Position
        input.Changed:Connect(function()
            if input.UserInputState == Enum.UserInputState.End then dragging = false end
        end)
    end
end)
Title.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)

local ADControls = Instance.new("Frame", AD)
ADControls.Position = UDim2.new(0, 0, 0, 0)
ADControls.Size = UDim2.new(0, 300, 1, 0)
ADControls.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
local ADCCorner = Instance.new("UICorner", ADControls)
ADCCorner.CornerRadius = UDim.new(0, 6)

local CrateDropdownBtn = Instance.new("TextButton", ADControls)
CrateDropdownBtn.Position = UDim2.new(0, 10, 0, 10)
CrateDropdownBtn.Size = UDim2.new(1, -20, 0, 35)
CrateDropdownBtn.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
CrateDropdownBtn.Text = "Target: All"
CrateDropdownBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
CrateDropdownBtn.Font = Enum.Font.Gotham
local CDBCorner = Instance.new("UICorner", CrateDropdownBtn)
CDBCorner.CornerRadius = UDim.new(0, 6)

local CrateOptionsFrame = Instance.new("Frame", ADControls)
CrateOptionsFrame.Position = UDim2.new(0, 10, 0, 50)
CrateOptionsFrame.Size = UDim2.new(1, -20, 0, #CrateTypeNames * 26)
CrateOptionsFrame.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
CrateOptionsFrame.Visible = false
CrateOptionsFrame.ZIndex = 10
local COFCorner = Instance.new("UICorner", CrateOptionsFrame)
COFCorner.CornerRadius = UDim.new(0, 6)

local COL = Instance.new("UIListLayout", CrateOptionsFrame)
COL.Padding = UDim.new(0, 2)

for _, name in ipairs(CrateTypeNames) do
    local b = Instance.new("TextButton", CrateOptionsFrame)
    b.Size = UDim2.new(1, 0, 0, 25)
    b.BackgroundColor3 = Color3.fromRGB(45, 45, 45)
    b.TextColor3 = Color3.fromRGB(255,255,255)
    b.Text = name
    b.ZIndex = 11
    b.MouseButton1Click:Connect(function()
        SelectedCrateType = name
        CrateDropdownBtn.Text = "Target: " .. name
        CrateOptionsFrame.Visible = false
    end)
end
CrateDropdownBtn.MouseButton1Click:Connect(function() CrateOptionsFrame.Visible = not CrateOptionsFrame.Visible end)

local EnableADBtn = Instance.new("TextButton", ADControls)
EnableADBtn.Position = UDim2.new(0, 10, 1, -50)
EnableADBtn.Size = UDim2.new(0.45, 0, 0, 40)
EnableADBtn.BackgroundColor3 = Color3.fromRGB(0, 140, 60)
EnableADBtn.Text = "ENABLE"
EnableADBtn.Font = Enum.Font.GothamBold
EnableADBtn.TextColor3 = Color3.fromRGB(255,255,255)
local EADCorner = Instance.new("UICorner", EnableADBtn)
EADCorner.CornerRadius = UDim.new(0, 6)

local DisableADBtn = Instance.new("TextButton", ADControls)
DisableADBtn.Position = UDim2.new(0.55, 0, 1, -50)
DisableADBtn.Size = UDim2.new(0.45, -10, 0, 40)
DisableADBtn.BackgroundColor3 = Color3.fromRGB(140, 40, 40)
DisableADBtn.Text = "DISABLE"
DisableADBtn.Font = Enum.Font.GothamBold
DisableADBtn.TextColor3 = Color3.fromRGB(255,255,255)
local DADCorner = Instance.new("UICorner", DisableADBtn)
DADCorner.CornerRadius = UDim.new(0, 6)

local ADStatus = Instance.new("TextLabel", ADControls)
ADStatus.Position = UDim2.new(0, 10, 1, -90)
ADStatus.Size = UDim2.new(1, -20, 0, 30)
ADStatus.BackgroundTransparency = 1
ADStatus.Text = "Status: Disabled"
ADStatus.TextColor3 = Color3.fromRGB(200, 200, 200)
ADStatus.Font = Enum.Font.Gotham

local ADPreview = Instance.new("TextLabel", AD)
ADPreview.Position = UDim2.new(0, 310, 0, 0)
ADPreview.Size = UDim2.new(1, -310, 1, 0)
ADPreview.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
ADPreview.TextColor3 = Color3.fromRGB(220, 220, 220)
ADPreview.Text = "Matches will appear here..."
ADPreview.TextWrapped = true
ADPreview.TextYAlignment = Enum.TextYAlignment.Top
local ADPCorner = Instance.new("UICorner", ADPreview)
ADPCorner.CornerRadius = UDim.new(0, 6)

local function autoHitLoop()
    while AUTO_HIT do
        for _, crate in ipairs(ActiveCratesFolder:GetChildren()) do
            if crate and crate:IsA("Model") then
                if SelectedCrateType == "All" or crate.Name == SelectedCrateType then
                    pcall(function() SwordHitRemote:FireServer(crate) end)
                end
            end
        end
        task.wait(HIT_INTERVAL)
    end
end

EnableADBtn.MouseButton1Click:Connect(function()
    if not AUTO_HIT then
        AUTO_HIT = true
        ADStatus.Text = "Status: Active"
        task.spawn(autoHitLoop)
    end
end)
DisableADBtn.MouseButton1Click:Connect(function() AUTO_HIT = false; ADStatus.Text = "Status: Disabled" end)

task.spawn(function()
    while true do
        if AUTO_HIT then
            local count = 0
            for _, crate in ipairs(ActiveCratesFolder:GetChildren()) do
                if crate:IsA("Model") and (SelectedCrateType == "All" or crate.Name == SelectedCrateType) then count = count + 1 end
            end
            ADPreview.Text = "Active & Firing.\nMatches found: " .. count
        end
        task.wait(0.5)
    end
end)

local ACStatusLabel = Instance.new("TextLabel", AC)
ACStatusLabel.Size = UDim2.new(1, 0, 0, 40)
ACStatusLabel.Position = UDim2.new(0, 0, 0, 10)
ACStatusLabel.BackgroundTransparency = 1
ACStatusLabel.Text = "Auto Collect Slots"
ACStatusLabel.Font = Enum.Font.GothamBold
ACStatusLabel.TextSize = 18
ACStatusLabel.TextColor3 = Color3.fromRGB(255, 255, 255)

local PlotInfoLabel = Instance.new("TextLabel", AC)
PlotInfoLabel.Size = UDim2.new(1, 0, 0, 30)
PlotInfoLabel.Position = UDim2.new(0, 0, 0, 50)
PlotInfoLabel.BackgroundTransparency = 1
PlotInfoLabel.TextColor3 = Color3.fromRGB(180, 180, 180)
PlotInfoLabel.Font = Enum.Font.Gotham

local ToggleCollectBtn = Instance.new("TextButton", AC)
ToggleCollectBtn.Size = UDim2.new(0, 200, 0, 50)
ToggleCollectBtn.Position = UDim2.new(0.5, -100, 0.4, 0)
ToggleCollectBtn.BackgroundColor3 = Color3.fromRGB(140, 40, 40)
ToggleCollectBtn.Text = "DISABLED"
ToggleCollectBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
ToggleCollectBtn.Font = Enum.Font.GothamBold
ToggleCollectBtn.TextSize = 18
local TCCorner = Instance.new("UICorner", ToggleCollectBtn)
TCCorner.CornerRadius = UDim.new(0, 8)

local function setupPlot()
    local plotNum = LP:GetAttribute("PlotNumber")
    if not plotNum then
        PlotInfoLabel.Text = "Waiting for PlotNumber attribute..."
        return false
    end
    local pName = "Plot" .. plotNum
    myPlot = Workspace.Plots:FindFirstChild(pName)
    if not myPlot then
        PlotInfoLabel.Text = "Could not find " .. pName
        return false
    end
    plotSlotsFolder = myPlot:WaitForChild("Slots")
    PlotInfoLabel.Text = "Linked to: " .. pName
    return true
end

local function refreshCollectParts()
    collectParts = {}
    if not plotSlotsFolder then return end
    for _, slot in ipairs(plotSlotsFolder:GetChildren()) do
        local cp = slot:FindFirstChild("Collect")
        if cp and cp:IsA("Part") then
            cp.Transparency = 1
            cp.CanCollide = false
            cp.LocalTransparencyModifier = 1
            table.insert(collectParts, cp)
        end
    end
end

local fireTouch = firetouchinterest or function(partA, partB, mode)
    if mode == 0 then partA.Touched:Fire(partB) end
end

task.spawn(function()
    while not setupPlot() do task.wait(1) end
    plotSlotsFolder.ChildAdded:Connect(refreshCollectParts)
    plotSlotsFolder.ChildRemoved:Connect(refreshCollectParts)
    refreshCollectParts()
    
    while true do
        if AUTO_COLLECT then
            local char = LP.Character
            local hrp = char and char:FindFirstChild("HumanoidRootPart")
            if hrp then
                refreshCollectParts()
                for _, part in ipairs(collectParts) do
                    if part and part:IsDescendantOf(Workspace) then
                        part.CFrame = hrp.CFrame * CFrame.new(0, 0.05, 0)
                        fireTouch(hrp, part, 0)
                        fireTouch(hrp, part, 1)
                    end
                end
            end
            task.wait(0.1)
        else
            task.wait(0.5)
        end
    end
end)

ToggleCollectBtn.MouseButton1Click:Connect(function()
    AUTO_COLLECT = not AUTO_COLLECT
    if AUTO_COLLECT then
        ToggleCollectBtn.Text = "ENABLED"
        ToggleCollectBtn.BackgroundColor3 = Color3.fromRGB(0, 140, 60)
    else
        ToggleCollectBtn.Text = "DISABLED"
        ToggleCollectBtn.BackgroundColor3 = Color3.fromRGB(140, 40, 40)
    end
end)

print("rdreadpirate Suite Loaded")