local Players = game:GetService("Players")
local player = Players.LocalPlayer
local nome = "oi"

local gravando = false
local quadros = {}
local inicio = tick()
local HttpService = game:GetService("HttpService")
local RunService = game:GetService("RunService")
local conexao

-- Clonagem
local function clonar(personagem)
    personagem.Archivable = true
    local clone = personagem:Clone()
    personagem.Archivable = false
    return clone
end

local function soldar(parte1, parte2)
    local solda = Instance.new("Weld")
    solda.Part0 = parte1
    solda.Part1 = parte2
    solda.C0 = parte1.CFrame:ToObjectSpace(parte1.CFrame)
    solda.C1 = parte2.CFrame:ToObjectSpace(parte2.CFrame)
    solda.Parent = parte1
    return solda
end

local function criarWeld(nome, pai, parte1, parte2, c0, c1)
    local solda = Instance.new("Weld")
    solda.Name = nome
    solda.Part0 = parte1
    solda.Part1 = parte2
    solda.C0 = c0
    solda.C1 = c1
    solda.Parent = pai
    return solda
end

local function encontrarAnexo(pai, nomeAnexo)
    for _, filho in pairs(pai:GetChildren()) do
        if filho:IsA("Attachment") and filho.Name == nomeAnexo then
            return filho
        elseif not filho:IsA("Accessory") and not filho:IsA("Tool") then
            local anexo = encontrarAnexo(filho, nomeAnexo)
            if anexo then
                return anexo
            end
        end
    end
end

local function anexar(personagem, acessorio)
    acessorio.Parent = personagem
    local cabo = acessorio:FindFirstChild("Handle")
    if cabo then
        local anexo = cabo:FindFirstChildOfClass("Attachment")
        if anexo then
            local correspondente = encontrarAnexo(personagem, anexo.Name)
            if correspondente then
                soldar(correspondente, anexo)
            end
        else
            local cabeca = personagem:FindFirstChild("Head")
            if cabeca then
                criarWeld("WeldCabeca", cabeca, cabeca, cabo, CFrame.new(0, 0, 0), acessorio.AttachmentPoint)
            end
        end
    end
end

local function mudarAparencia(clone, id)
    local sucesso, aparencia = pcall(function()
        return Players:GetCharacterAppearanceAsync(id)
    end)

    if sucesso and aparencia then
        for _, item in pairs(clone:GetChildren()) do
            if item:IsA("Shirt") or item:IsA("Pants") or item:IsA("Accessory") or item:IsA("CharacterMesh") or item:IsA("BodyColors") or item:IsA("Decal") then
                item:Destroy()
            end
        end

        for _, item in pairs(aparencia:GetChildren()) do
            local itemClone = item:Clone()
            itemClone.Parent = clone
        end

        for _, acessorio in pairs(aparencia:GetChildren()) do
            if acessorio:IsA("Accessory") then
                anexar(clone, acessorio)
            end
        end
    else
        warn("Erro ao carregar usuário com ID:", id)
    end
end

local function criarClone(id)
    local personagem = player.Character or player.CharacterAdded:Wait()
    local clone = clonar(personagem)
    clone.Parent = game.Workspace
    clone:SetPrimaryPartCFrame(personagem.PrimaryPart.CFrame + Vector3.new(0, 5, 0))

    -- Desativando colisão no clone
    for _, parte in pairs(clone:GetChildren()) do
        if parte:IsA("BasePart") then
            parte.CanCollide = false
        end
    end

    mudarAparencia(clone, id)

    wait()

    local sucesso, usuario = pcall(function()
        return Players:GetNameFromUserIdAsync(id)
    end)

    if not sucesso then
        usuario = "Usuário não existe / banido."
    end

    -- Atualizar o nome
    local emojis = {"[💻]", "[📱]"}
    local emoji = emojis[math.random(1, #emojis)]
    local nomeDisplay = emoji .. " - " .. usuario

    if clone then
        local humanoide = clone:FindFirstChildOfClass("Humanoid")
        if humanoide then
            -- Atualizando o nome
            local NomeTexto = clone:FindFirstChild("Nome")
            if NomeTexto then
                NomeTexto.Text = nomeDisplay
                NomeTexto.TextColor3 = Color3.fromRGB(255, 255, 0)
            end

            -- Atualizando o texto da divisão
            local Divisao = clone:FindFirstChild("Divisão")
            if Divisao then
                local DivisaoTexto = Divisao:FindFirstChild("DivisãoTexto")
                if DivisaoTexto then
                    DivisaoTexto.Text = "[CV]"
                    DivisaoTexto.TextColor3 = Color3.fromRGB(255, 255, 0)
                end
            end

            -- Atualizando o texto da patente
            local Patente = clone:FindFirstChild("Patente")
            if Patente then
                local PatenteTexto = Patente:FindFirstChild("PatenteTexto")
                if PatenteTexto then
                    PatenteTexto.Text = "Civil"
                    PatenteTexto.TextColor3 = Color3.fromRGB(255, 255, 0)
                end
            end
        end
    end
end

-- Macro
local function iniciar()
    quadros = {}
    gravando = true
    inicio = tick()
    while gravando do
        RunService.Heartbeat:Wait()
        local personagem = player.Character
        local raiz = personagem:FindFirstChild("HumanoidRootPart")
        local humanoide = personagem:FindFirstChild("Humanoid")
        if raiz and humanoide then
            table.insert(quadros, {
                {raiz.CFrame:GetComponents()},
                humanoide:GetState().Value,
                tick() - inicio
            })
        end
    end
end

local function parar()
    gravando = false
end

local function reproduzir()
    if #quadros == 0 then
        warn("Nenhuma gravação encontrada.")
        return
    end
    local personagem = player.Character
    local cFrameInicial = CFrame.new(unpack(quadros[1][1]))
    personagem:SetPrimaryPartCFrame(cFrameInicial)
    for _, quadro in pairs(quadros) do
        wait(0.03)
        personagem:MoveTo(Vector3.new(unpack(quadro[1])))
    end
end

-- GUI
local function carregarUI()
    local DrRayLibrary = loadstring(game:HttpGet("https://raw.githubusercontent.com/AZYsGithub/DrRay-UI-Library/main/DrRay.lua"))()

    local janela = DrRayLibrary:Load("Macroability", "Default")

    local aba1 = DrRayLibrary.newTab("Gravação", "18155304028")
    aba1.newButton("Iniciar gravação", "Começa a gravação.", iniciar)
    aba1.newButton("Parar gravação", "Para a gravação.", parar)
    aba1.newButton("Reproduzir gravação", "Reproduz a gravação.", reproduzir)

    local aba2 = DrRayLibrary.newTab("Clonagem", "13025876355")
    aba2.newLabel("Falsificação de relatório de recrutamento")
    aba2.newInput("Nome do jogador", "Digite o nome do jogador", function(nomeDigitado)
        nome = nomeDigitado
    end)

    aba2.newButton("Criar Clone", "Cria um clone do jogador.", function()
        local sucesso, id = pcall(function()
            return Players:GetUserIdFromNameAsync(nome)
        end)

        if sucesso then
            criarClone(id)
        else
            warn("Usuário não encontrado.")
        end
    end)

    local aba3 = DrRayLibrary.newTab("Créditos", "13025876355")
    aba3.newLabel("Crédito original: tomato.txt")
    aba3.newLabel("Reformado por: sanctuary")
end

carregarUI()