Terrible Selection Based Dialog Sequence Thing

game.Selection.SelectionChanged:connect(function ()
    local object = game.Selection:Get()[1]
    if object then
        if object:IsA("BindableEvent") then
            game:GetService("Chat"):Chat(workspace.Player1.Torso,"(Firing Event: "..object.Name..")","Green")
            object:Fire()
        elseif object:IsA("BindableFunction") then
            game:GetService("Chat"):Chat(workspace.Player1.Torso,"(Invoking Function: "..object.Name..")","Green")
            object:Invoke()
        elseif object:IsA("Accoutrement") then
            game:GetService("Chat"):Chat(workspace.Player1.Torso,object.Name,"Blue")
        elseif object:IsA("BoolValue") then
            game:GetService("Chat"):Chat(workspace.Player1.Torso,"Collecting Loot","Blue")
        end
    end
end)