-- LocalScript seguro (StarterGui)
local Players = game:GetService("Players")
local StarterGui = game:GetService("StarterGui")
local player = Players.LocalPlayer
local playerGui = player:WaitForChild("PlayerGui")

-- Função para converter número em texto (1 a 100)
local nomes = {
	"UM","DOIS","TRÊS","QUATRO","CINCO","SEIS","SETE","OITO","NOVE","DEZ",
	"ONZE","DOZE","TREZE","CATORZE","QUINZE","DEZESSEIS","DEZESSETE","DEZOITO","DEZENOVE","VINTE",
	"VINTE E UM","VINTE E DOIS","VINTE E TRÊS","VINTE E QUATRO","VINTE E CINCO",
	"VINTE E SEIS","VINTE E SETE","VINTE E OITO","VINTE E NOVE","TRINTA",
	"TRINTA E UM","TRINTA E DOIS","TRINTA E TRÊS","TRINTA E QUATRO","TRINTA E CINCO",
	"TRINTA E SEIS","TRINTA E SETE","TRINTA E OITO","TRINTA E NOVE","QUARENTA",
	"QUARENTA E UM","QUARENTA E DOIS","QUARENTA E TRÊS","QUARENTA E QUATRO","QUARENTA E CINCO",
	"QUARENTA E SEIS","QUARENTA E SETE","QUARENTA E OITO","QUARENTA E NOVE","CINQUENTA",
	"CINQUENTA E UM","CINQUENTA E DOIS","CINQUENTA E TRÊS","CINQUENTA E QUATRO","CINQUENTA E CINCO",
	"CINQUENTA E SEIS","CINQUENTA E SETE","CINQUENTA E OITO","CINQUENTA E NOVE","SESSENTA",
	"SESSENTA E UM","SESSENTA E DOIS","SESSENTA E TRÊS","SESSENTA E QUATRO","SESSENTA E CINCO",
	"SESSENTA E SEIS","SESSENTA E SETE","SESSENTA E OITO","SESSENTA E NOVE","SETENTA",
	"SETENTA E UM","SETENTA E DOIS","SETENTA E TRÊS","SETENTA E QUATRO","SETENTA E CINCO",
	"SETENTA E SEIS","SETENTA E SETE","SETENTA E OITO","SETENTA E NOVE","OITENTA",
	"OITENTA E UM","OITENTA E DOIS","OITENTA E TRÊS","OITENTA E QUATRO","OITENTA E CINCO",
	"OITENTA E SEIS","OITENTA E SETE","OITENTA E OITO","OITENTA E NOVE","NOVENTA",
	"NOVENTA E UM","NOVENTA E DOIS","NOVENTA E TRÊS","NOVENTA E QUATRO","NOVENTA E CINCO",
	"NOVENTA E SEIS","NOVENTA E SETE","NOVENTA E OITO","NOVENTA E NOVE","CEM"
}

-- Cria interface moderna
local screenGui = Instance.new("ScreenGui")
screenGui.Parent = playerGui
screenGui.ResetOnSpawn = false

local frame = Instance.new("Frame")
frame.Size = UDim2.new(0, 320, 0, 160)
frame.Position = UDim2.new(0.5, -160, 0.8, -80)
frame.BackgroundColor3 = Color3.fromRGB(30,30,30)
frame.BackgroundTransparency = 0.1
frame.BorderSizePixel = 0
frame.AnchorPoint = Vector2.new(0.5,0.5)
frame.Parent = screenGui
frame.Visible = true
frame.ClipsDescendants = true

local title = Instance.new("TextLabel")
title.Text = "🧠 CONTADOR DE LETRAS"
title.Size = UDim2.new(1, 0, 0, 30)
title.TextColor3 = Color3.fromRGB(255,255,255)
title.Font = Enum.Font.SourceSansBold
title.TextSize = 20
title.BackgroundTransparency = 1
title.Parent = frame

local startBtn = Instance.new("TextButton")
startBtn.Size = UDim2.new(0, 120, 0, 40)
startBtn.Position = UDim2.new(0.5, -130, 0.5, -20)
startBtn.BackgroundColor3 = Color3.fromRGB(0, 170, 0)
startBtn.Text = "INICIAR"
startBtn.TextColor3 = Color3.new(1,1,1)
startBtn.Font = Enum.Font.SourceSansBold
startBtn.TextSize = 22
startBtn.Parent = frame

local stopBtn = Instance.new("TextButton")
stopBtn.Size = UDim2.new(0, 120, 0, 40)
stopBtn.Position = UDim2.new(0.5, 10, 0.5, -20)
stopBtn.BackgroundColor3 = Color3.fromRGB(170, 0, 0)
stopBtn.Text = "PARAR"
stopBtn.TextColor3 = Color3.new(1,1,1)
stopBtn.Font = Enum.Font.SourceSansBold
stopBtn.TextSize = 22
stopBtn.Parent = frame

local statusLabel = Instance.new("TextLabel")
statusLabel.Size = UDim2.new(1, -20, 0, 30)
statusLabel.Position = UDim2.new(0, 10, 1, -35)
statusLabel.BackgroundTransparency = 1
statusLabel.Text = "Aguardando..."
statusLabel.TextColor3 = Color3.new(1,1,1)
statusLabel.Font = Enum.Font.SourceSans
statusLabel.TextSize = 18
statusLabel.Parent = frame

-- Contador automático
local counting = false
local stopRequested = false

local function sendChatMessage(msg)
	-- Mostra a mensagem no chat local (sem afetar o servidor)
	game:GetService("StarterGui"):SetCore("ChatMakeSystemMessage", {
		Text = msg;
		Color = Color3.new(1,1,1);
		Font = Enum.Font.SourceSansBold;
		FontSize = Enum.FontSize.Size36;
	})
end

local function startCounting()
	if counting then return end
	counting = true
	stopRequested = false
	statusLabel.Text = "Contando..."
	for i = 1, #nomes do
		if stopRequested then
			statusLabel.Text = "Parado."
			break
		end
		sendChatMessage(nomes[i] .. "!")
		wait(5) -- 5 segundos entre cada
	end
	if not stopRequested then
		statusLabel.Text = "✅ Finalizado!"
	end
	counting = false
end

startBtn.MouseButton1Click:Connect(function()
	if counting then
		statusLabel.Text = "Já está contando!"
		return
	end
	startCounting()
end)

stopBtn.MouseButton1Click:Connect(function()
	if counting then
		stopRequested = true
	else
		statusLabel.Text = "Nada pra parar."
	end
end)