-- Delta RGB - Icon A Edition
local Player = game.Players.LocalPlayer
local CoreGui = game:GetService("CoreGui")
local RunService = game:GetService("RunService")
local TextService = game:GetService("TextService")
local ReplicatedStorage = game:GetService("ReplicatedStorage")

-- Brookhaven Remote
local SayMessage = ReplicatedStorage:FindFirstChild("DefaultChatSystemChatEvents") and ReplicatedStorage.DefaultChatSystemChatEvents:FindFirstChild("SayMessageRequest")

-- Cleanup
if CoreGui:FindFirstChild("DeltaASystem") then CoreGui.DeltaASystem:Destroy() end

local Root = Instance.new("ScreenGui", CoreGui)
Root.Name = "DeltaASystem"
Root.DisplayOrder = 99999
Root.IgnoreGuiInset = true

local SpamEnabled = false

---------------------------------------------------
-- RGB HANDLER
---------------------------------------------------
local function ApplyRGB(object, property)
    task.spawn(function()
        while object and object.Parent do
            local hue = tick() % 5 / 5
            object[property] = Color3.fromHSV(hue, 0.8, 1)
            RunService.RenderStepped:Wait()
        end
    end)
end

---------------------------------------------------
-- THE 'A' ICON (The Toggle)
---------------------------------------------------
local AIcon = Instance.new("TextButton", Root)
AIcon.Name = "AIcon"
AIcon.Size = UDim2.new(0, 70, 0, 70)
AIcon.Position = UDim2.new(0, 20, 0.45, 0)
AIcon.BackgroundColor3 = Color3.fromRGB(15, 15, 15)
AIcon.Text = "A" -- Changed to A
AIcon.Font = Enum.Font.GothamBold
AIcon.TextSize = 40
AIcon.ZIndex = 100
AIcon.Draggable = true
AIcon.Active = true

local ACorner = Instance.new("UICorner", AIcon)
ACorner.CornerRadius = UDim.new(0, 18)
local AStroke = Instance.new("UIStroke", AIcon)
AStroke.Thickness = 4

ApplyRGB(AIcon, "TextColor3")
ApplyRGB(AStroke, "Color")

---------------------------------------------------
-- MAIN GUI
---------------------------------------------------
local Main = Instance.new("Frame", Root)
Main.Name = "MainFrame"
Main.Size = UDim2.new(0, 520, 0, 440)
Main.Position = UDim2.new(0.5, -260, 0.5, -220)
Main.BackgroundColor3 = Color3.fromRGB(10, 10, 12)
Main.Visible = false 
Main.Active = true
Main.Draggable = true
Main.ZIndex = 50

Instance.new("UICorner", Main).CornerRadius = UDim.new(0, 15)
local MainStroke = Instance.new("UIStroke", Main)
MainStroke.Thickness = 3
ApplyRGB(MainStroke, "Color")

-- Header
local Title = Instance.new("TextLabel", Main)
Title.Size = UDim2.new(1, 0, 0, 45)
Title.Text = "   DELTA RGB (A-MODE)"
Title.BackgroundTransparency = 1
Title.Font = Enum.Font.GothamBold
Title.TextSize = 18
Title.TextXAlignment = Enum.TextXAlignment.Left
Title.ZIndex = 51
ApplyRGB(Title, "TextColor3")

-- Spam Toggle
local SpamBtn = Instance.new("TextButton", Main)
SpamBtn.Size = UDim2.new(0, 110, 0, 35)
SpamBtn.Position = UDim2.new(1, -125, 0, 10)
SpamBtn.BackgroundColor3 = Color3.fromRGB(30, 30, 35)
SpamBtn.Text = "SPAM: OFF"
SpamBtn.TextColor3 = Color3.new(1, 1, 1)
SpamBtn.Font = Enum.Font.GothamBold
SpamBtn.ZIndex = 52
Instance.new("UICorner", SpamBtn).CornerRadius = UDim.new(0, 8)

-- Scroll Area
local Scroll = Instance.new("ScrollingFrame", Main)
Scroll.Size = UDim2.new(0.94, 0, 0.68, 0)
Scroll.Position = UDim2.new(0.03, 0, 0.13, 0)
Scroll.BackgroundTransparency = 1
Scroll.ZIndex = 51
Scroll.ScrollBarThickness = 4
local UIList = Instance.new("UIListLayout", Scroll)
UIList.Padding = UDim.new(0, 8)

-- Input Box
local InputFrame = Instance.new("Frame", Main)
InputFrame.Size = UDim2.new(0.94, 0, 0, 55)
InputFrame.Position = UDim2.new(0.03, 0, 0.84, 0)
InputFrame.BackgroundColor3 = Color3.fromRGB(20, 20, 25)
InputFrame.ZIndex = 51
Instance.new("UICorner", InputFrame).CornerRadius = UDim.new(0, 10)

local TextBox = Instance.new("TextBox", InputFrame)
TextBox.Size = UDim2.new(1, -20, 1, 0)
TextBox.Position = UDim2.new(0, 10, 0, 0)
TextBox.BackgroundTransparency = 1
TextBox.PlaceholderText = "Click 'A' to hide... Type here..."
TextBox.Text = ""
TextBox.TextColor3 = Color3.new(1, 1, 1)
TextBox.Font = Enum.Font.GothamMedium
TextBox.TextSize = 18
TextBox.ZIndex = 52

---------------------------------------------------
-- TOGGLE LOGIC WITH CLICK EFFECT
---------------------------------------------------

AIcon.MouseButton1Down:Connect(function()
    -- Quick Visual Feedback
    AIcon.Size = UDim2.new(0, 65, 0, 65) 
    task.wait(0.05)
    AIcon.Size = UDim2.new(0, 70, 0, 70)
    
    -- Toggle
    Main.Visible = not Main.Visible
end)

---------------------------------------------------
-- CHAT & SPAM LOGIC
---------------------------------------------------

SpamBtn.MouseButton1Down:Connect(function()
    SpamEnabled = not SpamEnabled
    SpamBtn.Text = SpamEnabled and "SPAM: ON" or "SPAM: OFF"
    SpamBtn.BackgroundColor3 = SpamEnabled and Color3.fromRGB(150, 0, 0) or Color3.fromRGB(30, 30, 35)
end)

local function AddMessage(user, msg)
    local Label = Instance.new("TextLabel", Scroll)
    Label.Size = UDim2.new(1, -10, 0, 25)
    Label.BackgroundTransparency = 1
    Label.RichText = true
    Label.Text = "<b>" .. user .. "</b>: " .. msg
    Label.TextColor3 = Color3.new(1,1,1)
    Label.TextSize = 18
    Label.Font = Enum.Font.Gotham
    Label.TextXAlignment = Enum.TextXAlignment.Left
    Label.TextWrapped = true
    Label.ZIndex = 55

    if user == Player.DisplayName then ApplyRGB(Label, "TextColor3") end

    local s = TextService:GetTextSize(Label.Text, Label.TextSize, Label.Font, Vector2.new(Scroll.AbsoluteSize.X - 20, 1000))
    Label.Size = UDim2.new(1, -10, 0, s.Y)

    Scroll.CanvasSize = UDim2.new(0, 0, 0, UIList.AbsoluteContentSize.Y)
    Scroll.CanvasPosition = Vector2.new(0, UIList.AbsoluteContentSize.Y)
end

TextBox.FocusLost:Connect(function(enter)
    if enter and TextBox.Text ~= "" then
        local msg = TextBox.Text
        local count = SpamEnabled and 5 or 1
        TextBox.Text = ""
        
        task.spawn(function()
            for i = 1, count do
                if SayMessage then SayMessage:FireServer(msg, "All") end
                AddMessage(Player.DisplayName, msg)
                task.wait(0.35) -- Safety delay for Brookhaven anti-spam
            end
        end)
    end
end)

AddMessage("SYSTEM", "A-Icon RGB Mode Loaded. Click the 'A' to toggle.")