From e64dca3f481806a3dc8ab6fe747e6b51dbc8317c Mon Sep 17 00:00:00 2001 From: ZeqMacaw Date: Wed, 4 Mar 2020 10:53:11 -0500 Subject: [PATCH] FIXED: Changing to Private or Hidden for Visibility fails to change the item. --- CrowbarSteamPipe/CrowbarSteamPipe.vb | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/CrowbarSteamPipe/CrowbarSteamPipe.vb b/CrowbarSteamPipe/CrowbarSteamPipe.vb index db4607b..2500a56 100644 --- a/CrowbarSteamPipe/CrowbarSteamPipe.vb +++ b/CrowbarSteamPipe/CrowbarSteamPipe.vb @@ -127,7 +127,7 @@ Public Module CrowbarSteamPipe #If DEBUG Then 'For debugging, keep console open until Enter Is pressed. - 'Console.ReadLine() + Console.ReadLine() #End If End Try End Sub @@ -1544,10 +1544,12 @@ Public Module CrowbarSteamPipe Dim output As Steamworks.ERemoteStoragePublishedFileVisibility If input = "Public" Then output = Steamworks.ERemoteStoragePublishedFileVisibility.k_ERemoteStoragePublishedFileVisibilityPublic - ElseIf input = "Private" Then - output = Steamworks.ERemoteStoragePublishedFileVisibility.k_ERemoteStoragePublishedFileVisibilityPrivate - Else + ElseIf input = "FriendsOnly" Then output = Steamworks.ERemoteStoragePublishedFileVisibility.k_ERemoteStoragePublishedFileVisibilityFriendsOnly + ElseIf input = "Unlisted" Then + output = Steamworks.ERemoteStoragePublishedFileVisibility.k_ERemoteStoragePublishedFileVisibilityUnlisted + Else + output = Steamworks.ERemoteStoragePublishedFileVisibility.k_ERemoteStoragePublishedFileVisibilityPrivate End If Return output End Function