The Not-My-Faces Gui

print'https://pastebin.com/Y9T2fMVL'

local function FaceGui1(player)
    local pchar = player.Character
    if pchar then
        local phead = pchar:FindFirstChild'Head'
        if phead then
            for _,v in pairs(phead:GetChildren())do
                if v:IsA'Decal'then
                    if v.Face==Enum.NormalId.Front then
                        v:Destroy()
                    end
                end
            end
        end
    end

    local gui = Instance.new("ScreenGui",player:FindFirstChildWhichIsA'PlayerGui')
    gui.ResetOnSpawn = false

    local frame = Instance.new('Frame',gui)
    frame.BackgroundTransparency = .5
    frame.Position = UDim2.new(1,0,.25,0)
    frame.Size = UDim2.new(.5,0,.5,0)
    frame.Active = true
    frame.Selectable = true
    frame.Draggable = false

    local hidebutton = Instance.new("TextButton",gui)
    hidebutton.Position = UDim2.new(1-.125,0,1-.125,0)
    hidebutton.Size = UDim2.new(.125,0,.125,0)
    hidebutton.BackgroundColor3 = Color3.fromRGB(255, 204, 153)
    hidebutton.TextScaled = true
    hidebutton.TextColor3 = Color3.new(255,255,255)
    hidebutton.Font = Enum.Font.Code
    hidebutton.Text = 'Hide'

    local ident1 = Instance.new("TextLabel",frame)
    ident1.Size = UDim2.new(1,0,.25,0)
    ident1.Text = 'Not my faces lol. But enjoy.'

    local mainop1_left = Instance.new("TextButton",frame)
    mainop1_left.Position = UDim2.new(0,0,.25,0)
    mainop1_left.Text = '<-'

    local tl_1 = Instance.new("TextLabel",frame)
    tl_1.Position = UDim2.new(1/3,0,.25,0)
    tl_1.Text = 'Brows'

    local mainop1_right = Instance.new('TextButton',frame)
    mainop1_right.Position = UDim2.new(2/3,0,.25,0)
    mainop1_right.Text = '->'

    local subop_left = Instance.new("TextButton",frame)
    subop_left.Position = UDim2.new(0,0,.5,0)
    subop_left.Text = '<-'

    local image_l = Instance.new("ImageLabel",frame)
    image_l.Position = UDim2.new(1/3,0,.5,0)
    image_l.Image = 'rbxassetid://0'

    local subop_right = Instance.new('TextButton',frame)
    subop_right.Position = UDim2.new(2/3,0,.5,0)
    subop_right.Text = '->'

    for _,v in pairs(gui:GetDescendants())do
        if v:IsA'GuiObject'then
            if v~=image_l then
                v.BackgroundColor3 = Color3.new(0,0,0)
            else
                v.BackgroundColor3 = Color3.fromRGB(255, 204, 153)
            end
            if v:IsA'TextLabel'or v:IsA'TextButton'then
                v.TextScaled = true
                v.TextColor3 = Color3.new(255,255,255)
                v.Font = Enum.Font.Code
            end
            if v~=ident1 and v~=frame and v~=hidebutton then
                v.Size = UDim2.new(1/3,0,.25,0)
            end
        end
    end

    local assetprefix = 'rbxassetid://'
    local maintext_list = {'Brows','Facial Effects','Eyes','Mouth'}

    local l_brow = {'0','3092652338','3092652187','3092652003','3092651804','3092651590','3092651333',
    }
    local l_facial_Effects = {'0','3092648925','3092649136','3121148677'
    }
    local l_eyes = {'0','3092651141','3092650935','3092650273','3092650082','3092649878','3092649750'
        ,'3092649554','3092649405','3092649275','3093234717','3093233030','3093865385',
    }
    local l_mouth = {'0','3092647756','3092647442','3092647307','3092646998','3092646828','3104581126',
        '3104581126','3090328519','3104580878','3104580259','3090331650','3090332460','3090333969',
        '3090334536','3090335087','3090336601','3090335778','3090327828','3093242463','3093245467',
        '3090330710','3090329837','3114542180'
    }

    local face_folder = player:FindFirstChild'∞SavedFaces'
    if face_folder==nil then
        face_folder = Instance.new("Folder",player)
        face_folder.Name = '∞SavedFaces'
    end

    local function MakeDecal(valname,id)
        local val = face_folder:FindFirstChild(valname)
        if val==nil then
            val = Instance.new("StringValue",face_folder)
            val.Name = valname
        end
        val.Value = id
        local pchar = player.Character
        if pchar then
            local phead = pchar:FindFirstChild'Head'
            if phead then
                local face_type = phead:FindFirstChild(val.Name)
                if face_type==nil then
                    face_type = Instance.new('Decal',phead)
                    face_type.Name = val.Name
                end
                face_type.Texture = val.Value
            end
        end
    end
    local function LoadFaces()
        local pchar = player.Character
        if pchar then
            local phead = pchar:FindFirstChild'Head'
            if phead then
                for _,v in pairs(face_folder:GetChildren())do
                    MakeDecal(v.Name,v.Value)
                end
            end
        end
    end
    local function GetTablePosition(tab,value)
        for i,v in pairs(tab)do
            if value==v then
                return i
            end
        end
        return nil
    end

    LoadFaces()

    local mt_pos = 1

    local brow_pos = 1
    if face_folder:FindFirstChild'brows' then
        brow_pos = GetTablePosition(l_brow,face_folder:FindFirstChild'brows'.Value)
        if brow_pos==nil then
            brow_pos = 1
        end
    end
    local fe_pos = 1
    if face_folder:FindFirstChild'facial_effects' then
        fe_pos = GetTablePosition(l_facial_Effects,face_folder:FindFirstChild'facial_effects'.Value)
        if fe_pos==nil then
            fe_pos = 1
        end
    end
    local eyes_pos = 1
    if face_folder:FindFirstChild'eyes_ef' then
        eyes_pos = GetTablePosition(l_eyes,face_folder:FindFirstChild'eyes_ef'.Value)
        if eyes_pos==nil then
            eyes_pos = 1
        end
    end
    local mouth_pos = 1
    if face_folder:FindFirstChild'mouth_ef' then
        mouth_pos = GetTablePosition(l_mouth,face_folder:FindFirstChild'mouth_ef'.Value)
        if mouth_pos==nil then
            mouth_pos = 1
        end
    end

    mainop1_left.MouseButton1Click:Connect(function()
        mt_pos = mt_pos - 1
        if mt_pos==0 then
            mt_pos = #maintext_list
        end
        local option_arg1 = 'brows'
        if mt_pos==1 then
            if brow_pos==0 then
                brow_pos = #l_brow
            end
            image_l.Image = (assetprefix..l_brow[brow_pos])
        elseif mt_pos==2 then
            if fe_pos==0 then
                fe_pos = #l_facial_Effects
            end
            image_l.Image = (assetprefix.. l_facial_Effects [fe_pos])
            option_arg1 = 'facial_effects'
        elseif mt_pos==3 then
            if eyes_pos==0 then
                eyes_pos = #l_eyes
            end
            image_l.Image = (assetprefix..l_eyes[eyes_pos])
            option_arg1 = 'eyes_ef'
        elseif mt_pos==4 then
            if mouth_pos==0 then
                mouth_pos = #l_mouth
            end
            image_l.Image = (assetprefix..l_mouth[mouth_pos])
            option_arg1 = 'mouth_ef'
        end
        MakeDecal(option_arg1,image_l.Image)
        ident1.Text = ('Asset Id = '.. image_l.Image )
        tl_1.Text = maintext_list[mt_pos]
    end)
    mainop1_right.MouseButton1Click:Connect(function()
        mt_pos = mt_pos + 1
        if mt_pos==#maintext_list+1 then
            mt_pos = 1
        end
        local option_arg1 = 'brows'
        if mt_pos==1 then
            if brow_pos==0 then
                brow_pos = #l_brow
            end
            image_l.Image = (assetprefix..l_brow[brow_pos])
        elseif mt_pos==2 then
            if fe_pos==0 then
                fe_pos = #l_facial_Effects
            end
            image_l.Image = (assetprefix.. l_facial_Effects [fe_pos])
            option_arg1 = 'facial_effects'
        elseif mt_pos==3 then
            if eyes_pos==0 then
                eyes_pos = #l_eyes
            end
            image_l.Image = (assetprefix..l_eyes[eyes_pos])
            option_arg1 = 'eyes_ef'
        elseif mt_pos==4 then
            if mouth_pos==0 then
                mouth_pos = #l_mouth
            end
            image_l.Image = (assetprefix..l_mouth[mouth_pos])
            option_arg1 = 'mouth_ef'
        end
        MakeDecal(option_arg1,image_l.Image)
        ident1.Text = ('Asset Id = '.. image_l.Image )
        tl_1.Text = maintext_list[mt_pos]
    end)

    subop_left.MouseButton1Click:Connect(function()
        local option_arg1 = 'brows'
        if mt_pos==1 then
            brow_pos = brow_pos - 1
            if brow_pos==0 then
                brow_pos = #l_brow
            end
            image_l.Image = (assetprefix..l_brow[brow_pos])
        elseif mt_pos==2 then
            fe_pos = fe_pos - 1
            if fe_pos==0 then
                fe_pos = #l_facial_Effects
            end
            image_l.Image = (assetprefix.. l_facial_Effects [fe_pos])
            option_arg1 = 'facial_effects'
        elseif mt_pos==3 then
            eyes_pos = eyes_pos - 1
            if eyes_pos==0 then
                eyes_pos = #l_eyes
            end
            image_l.Image = (assetprefix..l_eyes[eyes_pos])
            option_arg1 = 'eyes_ef'
        elseif mt_pos==4 then
            mouth_pos = mouth_pos - 1
            if mouth_pos==0 then
                mouth_pos = #l_mouth
            end
            image_l.Image = (assetprefix..l_mouth[mouth_pos])
            option_arg1 = 'mouth_ef'
        end
        MakeDecal(option_arg1,image_l.Image)
        ident1.Text = ('Asset Id = '.. image_l.Image )
    end)
    subop_right.MouseButton1Click:Connect(function()
        local option_arg1 = 'brows'
        if mt_pos==1 then
            brow_pos = brow_pos + 1
            if brow_pos==#l_brow+1 then
                brow_pos = 1
            end
            image_l.Image = (assetprefix..l_brow[brow_pos])
        elseif mt_pos==2 then
            fe_pos = fe_pos + 1
            if fe_pos==#l_facial_Effects+1 then
                fe_pos = 1
            end
            image_l.Image = (assetprefix.. l_facial_Effects [fe_pos])
            option_arg1 = 'facial_effects'
        elseif mt_pos==3 then
            eyes_pos = eyes_pos + 1
            if eyes_pos==#l_eyes+1 then
                eyes_pos = 1
            end
            image_l.Image = (assetprefix..l_eyes[eyes_pos])
            option_arg1 = 'eyes_ef'
        elseif mt_pos==4 then
            mouth_pos = mouth_pos + 1
            if mouth_pos==#l_mouth+1 then
                mouth_pos = 1
            end
            image_l.Image = (assetprefix..l_mouth[mouth_pos])
            option_arg1 = 'mouth_ef'
        end
        MakeDecal(option_arg1,image_l.Image)
        ident1.Text = ('Asset Id = '.. image_l.Image )
    end)

    local open = false
    local deb = true
    hidebutton.MouseButton1Click:Connect(function()
        if deb then
            deb = false
            frame.Draggable = false
            hidebutton:TweenPosition(UDim2.new(1,0,1-.125,0))
            wait(1)
            if open==false then
                frame:TweenPosition(UDim2.new(.25,0,.25,0))
                open = true
            else
                frame:TweenPosition(UDim2.new(1,0,.25,0))
                open = false
            end
            hidebutton:TweenPosition(UDim2.new(1-.125,0,1-.125,0))
            wait(1)
            if open then
                frame.Draggable = true
            end
            deb = true
        end
    end)

    player.CharacterAdded:Connect(function()
        wait(.1)
        local pchar = player.Character
        if pchar then
            local phead = pchar:FindFirstChild'Head'
            if phead then
                for _,v in pairs(phead:GetChildren())do
                    if v:IsA'Decal'then
                        if v.Face==Enum.NormalId.Front then
                            v:Destroy()
                        end
                    end
                end
            end
            LoadFaces()
        end
    end)

end

wait(1.5)

FaceGui1(owner)