-- not made by ai, I MADE IT MYSELF
local Players = game:GetService("Players")
local LocalPlayer = Players.LocalPlayer

local function CreateMorphGUI()
    local existingGui = LocalPlayer.PlayerGui:FindFirstChild("MorphGUI")
    if existingGui then
        existingGui:Destroy()
    end
    
    local ScreenGui = Instance.new("ScreenGui")
    ScreenGui.Name = "MorphGUI"
    ScreenGui.Parent = LocalPlayer:WaitForChild("PlayerGui")
    ScreenGui.ResetOnSpawn = false

    local MainFrame = Instance.new("Frame")
    MainFrame.Size = UDim2.new(0, 400, 0, 600)
    MainFrame.Position = UDim2.new(0.5, -200, 0.5, -300)
    MainFrame.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
    MainFrame.BackgroundTransparency = 0.1
    MainFrame.BorderSizePixel = 0
    MainFrame.Active = true
    MainFrame.Draggable = true
    MainFrame.Parent = ScreenGui

    local Title = Instance.new("TextLabel")
    Title.Size = UDim2.new(1, 0, 0, 40)
    Title.Position = UDim2.new(0, 0, 0, 0)
    Title.BackgroundColor3 = Color3.fromRGB(40, 40, 40)
    Title.BackgroundTransparency = 0.1
    Title.BorderSizePixel = 0
    Title.Text = "Morphs Selector"
    Title.TextColor3 = Color3.fromRGB(255, 255, 255)
    Title.TextScaled = true
    Title.Font = Enum.Font.GothamBold
    Title.Parent = MainFrame

    local CloseButton = Instance.new("TextButton")
    CloseButton.Size = UDim2.new(0, 30, 0, 30)
    CloseButton.Position = UDim2.new(1, -35, 0, 5)
    CloseButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
    CloseButton.BorderSizePixel = 0
    CloseButton.Text = "X"
    CloseButton.TextColor3 = Color3.fromRGB(255, 255, 255)
    CloseButton.TextScaled = true
    CloseButton.Font = Enum.Font.GothamBold
    CloseButton.Parent = MainFrame

    CloseButton.MouseButton1Click:Connect(function()
        ScreenGui:Destroy()
    end)

    local Credits = Instance.new("TextLabel")
    Credits.Size = UDim2.new(1, 0, 0, 20)
    Credits.Position = UDim2.new(0, 0, 1, -20)
    Credits.BackgroundTransparency = 1
    Credits.Text = "Created by worriedBr4"
    Credits.TextColor3 = Color3.fromRGB(150, 150, 150)
    Credits.TextScaled = true
    Credits.Font = Enum.Font.Gotham
    Credits.Parent = MainFrame

    local ScrollingFrame = Instance.new("ScrollingFrame")
    ScrollingFrame.Size = UDim2.new(1, -10, 1, -70)
    ScrollingFrame.Position = UDim2.new(0, 5, 0, 45)
    ScrollingFrame.BackgroundColor3 = Color3.fromRGB(20, 20, 20)
    ScrollingFrame.BackgroundTransparency = 0.1
    ScrollingFrame.BorderSizePixel = 0
    ScrollingFrame.CanvasSize = UDim2.new(0, 0, 0, 0)
    ScrollingFrame.ScrollBarThickness = 10
    ScrollingFrame.Parent = MainFrame

    local ListLayout = Instance.new("UIListLayout")
    ListLayout.SortOrder = Enum.SortOrder.LayoutOrder
    ListLayout.Padding = UDim.new(0, 5)
    ListLayout.Parent = ScrollingFrame

    local function CreateMorphButton(morphName)
        local Button = Instance.new("TextButton")
        Button.Size = UDim2.new(1, -10, 0, 40)
        Button.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
        Button.BorderSizePixel = 0
        Button.Text = morphName
        Button.TextColor3 = Color3.fromRGB(255, 255, 255)
        Button.TextScaled = true
        Button.Font = Enum.Font.Gotham
        Button.Parent = ScrollingFrame
        
        Button.MouseEnter:Connect(function()
            Button.BackgroundColor3 = Color3.fromRGB(70, 70, 70)
        end)
        
        Button.MouseLeave:Connect(function()
            Button.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
        end)
        
        Button.MouseButton1Click:Connect(function()
            local Event = game:GetService("ReplicatedStorage"):FindFirstChild("DefaultMorphRespond")
            if not Event then
                return
            end
            
            local Morph = game:GetService("ReplicatedStorage"):FindFirstChild("Morphs")
            if not Morph then
                return
            end
            
            local TargetMorph = Morph:FindFirstChild(morphName)
            if not TargetMorph then
                return
            end
            
            Event:FireServer(TargetMorph)
            
            Button.BackgroundColor3 = Color3.fromRGB(100, 200, 100)
            task.wait(0.2)
            Button.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
        end)
    end

    local MorphsFolder = game:GetService("ReplicatedStorage"):FindFirstChild("Morphs")

    if MorphsFolder then
        local morphs = MorphsFolder:GetChildren()
        
        if #morphs > 0 then
            table.sort(morphs, function(a, b)
                return a.Name < b.Name
            end)
            
            for _, morph in ipairs(morphs) do
                if morph:IsA("Folder") or morph:IsA("Model") then
                    CreateMorphButton(morph.Name)
                end
            end
            
            local contentHeight = #morphs * 45 + 10
            ScrollingFrame.CanvasSize = UDim2.new(0, 0, 0, contentHeight)
        else
            local NoMorphs = Instance.new("TextLabel")
            NoMorphs.Size = UDim2.new(1, -10, 0, 40)
            NoMorphs.BackgroundTransparency = 1
            NoMorphs.Text = "Literally, no morphs found, are u in doors rp game?"
            NoMorphs.TextColor3 = Color3.fromRGB(255, 255, 255)
            NoMorphs.TextScaled = true
            NoMorphs.Font = Enum.Font.Gotham
            NoMorphs.Parent = ScrollingFrame
        end
    else
        local ErrorLabel = Instance.new("TextLabel")
        ErrorLabel.Size = UDim2.new(1, -10, 0, 40)
        ErrorLabel.BackgroundTransparency = 1
        ErrorLabel.Text = "Morphs folder not found!"
        ErrorLabel.TextColor3 = Color3.fromRGB(255, 50, 50)
        ErrorLabel.TextScaled = true
        ErrorLabel.Font = Enum.Font.Gotham
        ErrorLabel.Parent = ScrollingFrame
    end

    local function MakeDraggable(frame)
        local dragging = false
        local dragStart = nil
        local startPos = nil
        
        frame.InputBegan:Connect(function(input)
            if input.UserInputType == Enum.UserInputType.MouseButton1 then
                dragging = true
                dragStart = input.Position
                startPos = frame.Position
            end
        end)
        
        frame.InputChanged:Connect(function(input)
            if dragging and input.UserInputType == Enum.UserInputType.MouseMovement then
                local delta = input.Position - dragStart
                frame.Position = UDim2.new(
                    startPos.X.Scale,
                    startPos.X.Offset + delta.X,
                    startPos.Y.Scale,
                    startPos.Y.Offset + delta.Y
                )
            end
        end)
        
        frame.InputEnded:Connect(function(input)
            if input.UserInputType == Enum.UserInputType.MouseButton1 then
                dragging = false
            end
        end)
    end

    MakeDraggable(MainFrame)
end

CreateMorphGUI()

LocalPlayer.CharacterAdded:Connect(function()
    task.wait(0.5)
    CreateMorphGUI()
end)

LocalPlayer:GetPropertyChangedSignal("PlayerGui"):Connect(function()
    if not LocalPlayer.PlayerGui:FindFirstChild("MorphGUI") then
        task.wait(0.5)
        CreateMorphGUI()
    end
end)