diff options
| author | EverythingWindows <[email protected]> | 2022-11-24 08:18:00 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-24 08:18:00 +0700 |
| commit | a594d38810939c8afbf0e12fb970d8aa3fd880e5 (patch) | |
| tree | 0d4dc7b1453e5f619376589ae9c18a63c0e00335 /ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb | |
| parent | 537ba4982ec7c8b3a1a3609fe13bc6f0624fee73 (diff) | |
| download | shiftos-therevival-old-a594d38810939c8afbf0e12fb970d8aa3fd880e5.tar.gz shiftos-therevival-old-a594d38810939c8afbf0e12fb970d8aa3fd880e5.tar.bz2 shiftos-therevival-old-a594d38810939c8afbf0e12fb970d8aa3fd880e5.zip | |
Developing Chapter 2 stuff now
Diffstat (limited to 'ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb')
| -rw-r--r-- | ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb index a2dc8bc..be9269c 100644 --- a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb +++ b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb @@ -53,11 +53,13 @@ Module SaveLoadSystem Strings.AvailableFeature(33) = "2" '0.2.7 Features Strings.AvailableFeature(34) = "2" + Strings.AvailableFeature(35) = "2" + Strings.AvailableFeature(36) = "2" End Sub Public Sub FreeRoamMode() IsConsoleParent = True - 'Sets all features to as bought + 'Sets all features to as bought or either upgraded, Complete ShiftOS should have been like this Strings.ComputerInfo(0) = "shiftos" Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(2) = "0" @@ -101,6 +103,8 @@ Module SaveLoadSystem Strings.AvailableFeature(33) = "1" '0.2.7 Features Strings.AvailableFeature(34) = "1" + Strings.AvailableFeature(35) = "1" + Strings.AvailableFeature(36) = "1" End Sub Public Sub GodMode() @@ -147,10 +151,15 @@ Module SaveLoadSystem Strings.AvailableFeature(33) = "2" '0.2.7 Features Strings.AvailableFeature(34) = "2" + Strings.AvailableFeature(35) = "2" + Strings.AvailableFeature(36) = "2" End Sub Public Sub SaveGame() If Strings.OnceInfo(6) = "story" Then + If Strings.AvailableFeature(35) = 0 Then + MsgBox("Fuck you!!") + End If File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\ComputerInfo.sos", Strings.ComputerInfo) File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos", Strings.AvailableFeature) End If |