diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb | 6 | ||||
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb | 6 |
2 files changed, 12 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb index bd61679..6404c76 100644 --- a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb +++ b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb @@ -47,6 +47,8 @@ Module SaveLoadSystem Strings.AvailableFeature(30) = "2" '0.2.6 Features Strings.AvailableFeature(31) = "2" + Strings.AvailableFeature(32) = "2" + Strings.AvailableFeature(33) = "2" End Sub Public Sub FreeRoamMode() @@ -90,6 +92,8 @@ Module SaveLoadSystem Strings.AvailableFeature(30) = "1" '0.2.6 Features Strings.AvailableFeature(31) = "1" + Strings.AvailableFeature(32) = "1" + Strings.AvailableFeature(33) = "1" End Sub Public Sub GodMode() @@ -132,6 +136,8 @@ Module SaveLoadSystem Strings.AvailableFeature(30) = "2" '0.2.6 Features Strings.AvailableFeature(31) = "2" + Strings.AvailableFeature(32) = "2" + Strings.AvailableFeature(33) = "2" End Sub Public Sub SaveGame() diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb index 53f4fef..8a65f59 100644 --- a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb +++ b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb @@ -167,9 +167,15 @@ Public Class ShiftOSMenu Else Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved") End If + If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS") = True Then + + Else + Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS") + End If Else Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS") Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS") + Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS") Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved") File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt", My.Resources.CurrentVersion) End If |