local UIS = game:GetService("UserInputService")
local SG = Instance.new("ScreenGui")
local Success, Parent = pcall(function() return game:GetService("CoreGui") end)
SG.Parent = Success and Parent or game:GetService("Players").LocalPlayer:WaitForChild("PlayerGui")
SG.Name = "FrekySpammerWithKey"

local CorrectKey = "BLAIREONTOP"
local Running = false
local Items = {"Mercury", "Venus", "Mars", "Jupiter", "Saturn", "Neptune", "Andromeda", "Black Hole", "Supernova", "Notebook", "Pencil", "Everest", "Galaxy", "Nebula"}

-- [[ KEY SYSTEM UI ]] --
local KeyFrame = Instance.new("Frame", SG)
KeyFrame.Size = UDim2.new(0, 250, 0, 150)
KeyFrame.Position = UDim2.new(0.5, -125, 0.5, -75)
KeyFrame.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
KeyFrame.Active = true

local KeyTitle = Instance.new("TextLabel", KeyFrame)
KeyTitle.Size = UDim2.new(1, 0, 0, 40)
KeyTitle.Text = "ENTER KEY"
KeyTitle.TextColor3 = Color3.new(1, 1, 1)
KeyTitle.BackgroundTransparency = 1

local KeyInput = Instance.new("TextBox", KeyFrame)
KeyInput.Size = UDim2.new(0.8, 0, 0, 35)
KeyInput.Position = UDim2.new(0.1, 0, 0.35, 0)
KeyInput.PlaceholderText = "Type Key Here..."
KeyInput.Text = ""
KeyInput.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
KeyInput.TextColor3 = Color3.new(1, 1, 1)

local KeyBtn = Instance.new("TextButton", KeyFrame)
KeyBtn.Size = UDim2.new(0.8, 0, 0, 35)
KeyBtn.Position = UDim2.new(0.1, 0, 0.7, 0)
KeyBtn.Text = "CHECK KEY"
KeyBtn.BackgroundColor3 = Color3.fromRGB(0, 120, 255)
KeyBtn.TextColor3 = Color3.new(1, 1, 1)

-- [[ MAIN SPAMMER UI (Hidden initially) ]] --
local MainFrame = Instance.new("Frame", SG)
MainFrame.Size = UDim2.new(0, 220, 0, 280)
MainFrame.Position = UDim2.new(0.5, -110, 0.5, -140)
MainFrame.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
MainFrame.Visible = false

local CircleBtn = Instance.new("TextButton", SG)
CircleBtn.Size = UDim2.new(0, 50, 0, 50)
CircleBtn.Position = UDim2.new(0, 15, 0.5, 0)
CircleBtn.Text = "FREKY"
CircleBtn.BackgroundColor3 = Color3.new(0, 0, 0)
CircleBtn.TextColor3 = Color3.new(1, 1, 1)
CircleBtn.Visible = false
local UICorner = Instance.new("UICorner", CircleBtn)
UICorner.CornerRadius = UDim.new(1, 0)

-- Inputs
local function CreateInp(y, ph)
    local t = Instance.new("TextBox", MainFrame)
    t.Size = UDim2.new(0.9, 0, 0, 30)
    t.Position = UDim2.new(0.05, 0, y, 0)
    t.PlaceholderText = ph
    t.Text = ""
    t.BackgroundColor3 = Color3.fromRGB(45, 45, 45)
    t.TextColor3 = Color3.new(1, 1, 1)
    return t
end

local T1 = CreateInp(0.15, "Target 1 (3s)")
local T2 = CreateInp(0.30, "Target 2 (6s)")
local T3 = CreateInp(0.45, "Target 3 (9s)")

local Action = Instance.new("TextButton", MainFrame)
Action.Size = UDim2.new(0.9, 0, 0, 40)
Action.Position = UDim2.new(0.05, 0, 0.75, 0)
Action.Text = "START"
Action.BackgroundColor3 = Color3.new(0, 0.7, 0)
Action.TextColor3 = Color3.new(1, 1, 1)

-- [[ LOGIC ]] --

local function Send(txt)
    if not txt or txt == "" then return end
    local msg = string.rep("_", 100) .. " " .. txt .. " Tmkc mai " .. Items[math.random(1, #Items)]
    local TCS = game:GetService("TextChatService")
    if TCS.ChatVersion == Enum.ChatVersion.TextChatService then
        pcall(function() TCS.TextChannels.RBXGeneral:SendAsync(msg) end)
    else
        pcall(function() game:GetService("ReplicatedStorage").DefaultChatSystemChatEvents.SayMessageRequest:FireServer(msg, "All") end)
    end
end

-- Key Check
KeyBtn.MouseButton1Click:Connect(function()
    if KeyInput.Text == CorrectKey then
        KeyFrame.Visible = false
        CircleBtn.Visible = true
        print("Key Correct!")
    else
        KeyBtn.Text = "WRONG KEY!"
        task.wait(1)
        KeyBtn.Text = "CHECK KEY"
    end
end)

CircleBtn.MouseButton1Click:Connect(function() MainFrame.Visible = not MainFrame.Visible end)

Action.MouseButton1Click:Connect(function()
    Running = not Running
    Action.Text = Running and "STOP" or "START"
    Action.BackgroundColor3 = Running and Color3.new(0.7, 0, 0) or Color3.new(0, 0.7, 0)
end)

-- Loops
task.spawn(function() while task.wait(3) do if Running then Send(T1.Text) end end end)
task.spawn(function() while task.wait(6) do if Running then Send(T2.Text) end end end)
task.spawn(function() while task.wait(9) do if Running then Send(T3.Text) end end end)

-- Dragging for Circle
local d = false
CircleBtn.InputBegan:Connect(function(i) if i.UserInputType == Enum.UserInputType.Touch or i.UserInputType.MouseButton1 then d = true end end)
UIS.InputChanged:Connect(function(i) if d and (i.UserInputType == Enum.UserInputType.Touch or i.UserInputType.MouseMovement) then 
    CircleBtn.Position = UDim2.new(0, i.Position.X - 25, 0, i.Position.Y - 25) 
end end)
UIS.InputEnded:Connect(function() d = false end)