-- GUI do Grupo Azul - Executor com Drag

-- Remove GUI antiga se existir
pcall(function() game.CoreGui.GrupoAzul:Destroy() end)

-- Criar a GUI
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "GrupoAzul"
ScreenGui.ResetOnSpawn = false
ScreenGui.Parent = game:GetService("CoreGui")

local Frame = Instance.new("Frame")
Frame.Size = UDim2.new(0, 300, 0, 200)
Frame.Position = UDim2.new(0.5, -150, 0.5, -100)
Frame.BackgroundColor3 = Color3.fromRGB(30, 60, 90)
Frame.BorderSizePixel = 0
Frame.Active = true
Frame.Draggable = true -- Permite mover o frame com mouse ou toque
Frame.Parent = ScreenGui

-- Título
local Titulo = Instance.new("TextLabel")
Titulo.Size = UDim2.new(1, 0, 0, 30)
Titulo.BackgroundTransparency = 1
Titulo.Text = "Grupo Azul - Executor"
Titulo.TextColor3 = Color3.fromRGB(255, 255, 255)
Titulo.Font = Enum.Font.SourceSansBold
Titulo.TextSize = 20
Titulo.Parent = Frame

-- Caixa de Texto (entrada do script)
local CaixaTexto = Instance.new("TextBox")
CaixaTexto.Position = UDim2.new(0, 10, 0, 40)
CaixaTexto.Size = UDim2.new(1, -20, 0, 80)
CaixaTexto.MultiLine = true
CaixaTexto.PlaceholderText = "Digite o script aqui..."
CaixaTexto.Text = ""
CaixaTexto.TextWrapped = true
CaixaTexto.TextXAlignment = Enum.TextXAlignment.Left
CaixaTexto.TextYAlignment = Enum.TextYAlignment.Top
CaixaTexto.ClearTextOnFocus = false
CaixaTexto.Font = Enum.Font.Code
CaixaTexto.TextSize = 14
CaixaTexto.Parent = Frame

-- Botão Executar
local BotaoExecutar = Instance.new("TextButton")
BotaoExecutar.Position = UDim2.new(0, 10, 0, 130)
BotaoExecutar.Size = UDim2.new(0.4, -15, 0, 40)
BotaoExecutar.Text = "Executar"
BotaoExecutar.BackgroundColor3 = Color3.fromRGB(76, 175, 80)
BotaoExecutar.TextColor3 = Color3.new(1, 1, 1)
BotaoExecutar.Font = Enum.Font.SourceSansBold
BotaoExecutar.TextSize = 18
BotaoExecutar.Parent = Frame

-- Botão Apagar
local BotaoApagar = Instance.new("TextButton")
BotaoApagar.Position = UDim2.new(0.6, 5, 0, 130)
BotaoApagar.Size = UDim2.new(0.4, -15, 0, 40)
BotaoApagar.Text = "Apagar"
BotaoApagar.BackgroundColor3 = Color3.fromRGB(220, 53, 69)
BotaoApagar.TextColor3 = Color3.new(1, 1, 1)
BotaoApagar.Font = Enum.Font.SourceSansBold
BotaoApagar.TextSize = 18
BotaoApagar.Parent = Frame

-- Lógica dos botões
BotaoExecutar.MouseButton1Click:Connect(function()
    local scriptCode = CaixaTexto.Text
    if scriptCode and scriptCode ~= "" then
        local func = loadstring(scriptCode)
        if func then
            pcall(func)
        else
            warn("Erro ao carregar o script.")
        end
    end
end)

BotaoApagar.MouseButton1Click:Connect(function()
    CaixaTexto.Text = ""
end)