diff options
| author | EverythingWindows <[email protected]> | 2022-11-08 10:22:01 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-08 10:22:01 +0700 |
| commit | f96d01a788001a9747da8b27be11de785093c28d (patch) | |
| tree | 1d10653298bea6c9cab2d2835a380ae2f464887f /ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb | |
| parent | 0a2b03e31283da77d6feaa2fd9d65349a9e82602 (diff) | |
| download | shiftos-therevival-old-f96d01a788001a9747da8b27be11de785093c28d.tar.gz shiftos-therevival-old-f96d01a788001a9747da8b27be11de785093c28d.tar.bz2 shiftos-therevival-old-f96d01a788001a9747da8b27be11de785093c28d.zip | |
minor moving fixes
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb index 37f03d7..f8a9153 100644 --- a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb +++ b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb @@ -3,6 +3,12 @@ Module SaveLoadSystem Public Sub NewGameMode() + Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", True) + Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved", True) + Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS") + Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved") + Strings.ComputerInfo(0) = "shiftos" + Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(2) = "0" Strings.ComputerInfo(4) = "0" Strings.AvailableFeature(0) = "2" @@ -24,11 +30,16 @@ Module SaveLoadSystem '0.2.4 Features Strings.AvailableFeature(16) = "2" Strings.AvailableFeature(17) = "2" + Strings.AvailableFeature(18) = "2" + Strings.AvailableFeature(19) = "2" + Strings.AvailableFeature(20) = "2" End Sub Public Sub FreeRoamMode() + Strings.ComputerInfo(0) = "shiftos" + Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(2) = "0" - Strings.ComputerInfo(4) = "16" + Strings.ComputerInfo(4) = "19" Strings.AvailableFeature(0) = "1" Strings.AvailableFeature(1) = "1" Strings.AvailableFeature(2) = "1" @@ -48,9 +59,14 @@ Module SaveLoadSystem '0.2.4 Features Strings.AvailableFeature(16) = "1" Strings.AvailableFeature(17) = "1" + Strings.AvailableFeature(18) = "1" + Strings.AvailableFeature(19) = "1" + Strings.AvailableFeature(20) = "1" End Sub Public Sub GodMode() + Strings.ComputerInfo(0) = "shiftos" + Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(2) = 9999 Strings.ComputerInfo(4) = "0" Strings.AvailableFeature(0) = "2" @@ -71,6 +87,9 @@ Module SaveLoadSystem '0.2.4 Features Strings.AvailableFeature(16) = "2" Strings.AvailableFeature(17) = "2" + Strings.AvailableFeature(18) = "2" + Strings.AvailableFeature(19) = "2" + Strings.AvailableFeature(20) = "2" End Sub Public Sub SaveGame() |