local lp = game.Players.LocalPlayer
local char = lp.Character or lp.CharacterAdded:Wait()
local BODY_ID = "81906373347969"
local SPIKE_ID = "130498427585184"

local function Morph()
    -- 1. CLEANUP MODERN AVATAR & FACE
    for _, v in pairs(char:GetDescendants()) do
        if v:IsA("Accessory") or v:IsA("Shirt") or v:IsA("Pants") or v:IsA("CharacterMesh") then
            v:Destroy()
        elseif v:IsA("Decal") and v.Name == "face" then
            v.Transparency = 1
        elseif v:IsA("BasePart") and v.Name ~= "HumanoidRootPart" then
            v.Transparency = 1 
        end
    end

    -- 2. LOAD BODY MODEL & PURGE RIGHT ARM
    local bSuccess, bObjects = pcall(function() return game:GetObjects("rbxassetid://" .. BODY_ID) end)
    if bSuccess and bObjects[1] then
        local doeRig = bObjects[1]:Clone()
        doeRig.Parent = char
        
        -- Delete the model's right arm so it doesn't double-up with the spike
        local modelRightArm = doeRig:FindFirstChild("Right Arm")
        if modelRightArm then modelRightArm:Destroy() end

        if doeRig:FindFirstChild("HumanoidRootPart") then doeRig.HumanoidRootPart:Destroy() end
        if doeRig:FindFirstChildOfClass("Humanoid") then doeRig:FindFirstChildOfClass("Humanoid"):Destroy() end

        local limbs = {"Head", "Torso", "Left Arm", "Left Leg", "Right Leg"}
        for _, part in pairs(doeRig:GetDescendants()) do
            if part:IsA("BasePart") and table.find(limbs, part.Name) then
                part.CanCollide = false
                part.Massless = true
                local realLimb = char:FindFirstChild(part.Name)
                if realLimb then
                    local weld = Instance.new("Weld")
                    weld.Part0 = realLimb
                    weld.Part1 = part
                    weld.C0 = CFrame.new(0, 0, 0)
                    weld.Parent = part
                end
            end
        end
    end

    -- 3. LOAD SPIKE ACCESSORY (Perfect Alignment)
    local sSuccess, sObjects = pcall(function() return game:GetObjects("rbxassetid://" .. SPIKE_ID) end)
    if sSuccess and sObjects[1] then
        local acc = sObjects[1]
        acc.Parent = char
        local handle = acc:FindFirstChild("Handle")
        if handle then
            handle.CanCollide = false
            local realRightArm = char:FindFirstChild("Right Arm")
            if realRightArm then
                local weld = Instance.new("Weld")
                weld.Part0 = realRightArm
                weld.Part1 = handle
                -- Using our perfected offset to keep it out of the head
                weld.C0 = CFrame.new(0, -0.2, 0) 
                weld.Parent = handle
            end
        end
    end

    -- 4. PERMANENT FACE ERASE (Fast loop)
    task.spawn(function()
        while char.Parent do
            local h = char:FindFirstChild("Head")
            if h then
                for _, d in pairs(h:GetChildren()) do
                    if d:IsA("Decal") then d.Transparency = 1 end
                end
            end
            task.wait(0.1)
        end
    end)
end

Morph()