From 2fa56446be7a049994786931e9145043362e8adb Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sun, 20 Nov 2022 16:43:01 +0700 Subject: Guide command, MathQuiz App, ShiftOS About, and more --- .../Functions/OutGame/SaveLoadSystem.vb | 164 +++++++++++++++++++++ 1 file changed, 164 insertions(+) create mode 100644 ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb (limited to 'ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb') diff --git a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb new file mode 100644 index 0000000..69adc94 --- /dev/null +++ b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb @@ -0,0 +1,164 @@ +Imports System.IO + +Module SaveLoadSystem + + Public Sub NewGameMode() + 'Sets all features to 2 (Unavailable for Shiftorium) except ShiftOS Key (AvailableFeatures(11)) + Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", True) + Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS", 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\SysShiftFS") + 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" + Strings.AvailableFeature(1) = "2" + Strings.AvailableFeature(2) = "2" + Strings.AvailableFeature(3) = "2" + Strings.AvailableFeature(4) = "2" + Strings.AvailableFeature(5) = "2" + Strings.AvailableFeature(6) = "2" + Strings.AvailableFeature(7) = "2" + Strings.AvailableFeature(8) = "2" + Strings.AvailableFeature(9) = "2" + Strings.AvailableFeature(10) = "2" + Strings.AvailableFeature(11) = "0" + Strings.AvailableFeature(12) = "2" + Strings.AvailableFeature(13) = "2" + Strings.AvailableFeature(14) = "2" + Strings.AvailableFeature(15) = "2" + '0.2.4 Features + Strings.AvailableFeature(16) = "2" + Strings.AvailableFeature(17) = "2" + Strings.AvailableFeature(18) = "2" + Strings.AvailableFeature(19) = "2" + Strings.AvailableFeature(20) = "2" + Strings.AvailableFeature(21) = "2" + Strings.AvailableFeature(22) = "2" + '0.2.5 Features + Strings.AvailableFeature(23) = "2" + Strings.AvailableFeature(24) = "2" + Strings.AvailableFeature(25) = "2" + Strings.AvailableFeature(26) = "2" + Strings.AvailableFeature(27) = "2" + Strings.AvailableFeature(28) = "2" + Strings.AvailableFeature(29) = "2" + Strings.AvailableFeature(30) = "2" + '0.2.6 Features + Strings.AvailableFeature(31) = "2" + Strings.AvailableFeature(32) = "2" + Strings.AvailableFeature(33) = "2" + '0.2.7 Features + Strings.AvailableFeature(34) = "2" + End Sub + + Public Sub FreeRoamMode() + 'Sets all features to as bought + Strings.ComputerInfo(0) = "shiftos" + Strings.ComputerInfo(1) = "user" + Strings.ComputerInfo(2) = "0" + Strings.ComputerInfo(4) = "31" + Strings.AvailableFeature(0) = "1" + Strings.AvailableFeature(1) = "1" + Strings.AvailableFeature(2) = "1" + Strings.AvailableFeature(3) = "1" + Strings.AvailableFeature(4) = "1" + Strings.AvailableFeature(5) = "3" + Strings.AvailableFeature(6) = "3" + Strings.AvailableFeature(7) = "3" + Strings.AvailableFeature(8) = "1" + Strings.AvailableFeature(9) = "1" + Strings.AvailableFeature(10) = "1" + Strings.AvailableFeature(11) = "1" + Strings.AvailableFeature(12) = "3" + Strings.AvailableFeature(13) = "1" + Strings.AvailableFeature(14) = "1" + Strings.AvailableFeature(15) = "1" + '0.2.4 Features + Strings.AvailableFeature(16) = "1" + Strings.AvailableFeature(17) = "1" + Strings.AvailableFeature(18) = "1" + Strings.AvailableFeature(19) = "1" + Strings.AvailableFeature(20) = "1" + Strings.AvailableFeature(21) = "1" + Strings.AvailableFeature(22) = "1" + '0.2.5 Features + Strings.AvailableFeature(23) = "1" + Strings.AvailableFeature(24) = "3" + Strings.AvailableFeature(25) = "3" + Strings.AvailableFeature(26) = "3" + Strings.AvailableFeature(27) = "3" + Strings.AvailableFeature(28) = "3" + Strings.AvailableFeature(29) = "1" + Strings.AvailableFeature(30) = "1" + '0.2.6 Features + Strings.AvailableFeature(31) = "1" + Strings.AvailableFeature(32) = "1" + Strings.AvailableFeature(33) = "1" + '0.2.7 Features + Strings.AvailableFeature(34) = "1" + End Sub + + Public Sub GodMode() + 'Same as new game but codepoints automatically assigned to 9999 and not saved into the FS + Strings.ComputerInfo(0) = "shiftos" + Strings.ComputerInfo(1) = "user" + Strings.ComputerInfo(2) = 9999 + Strings.ComputerInfo(4) = "0" + Strings.AvailableFeature(0) = "2" + Strings.AvailableFeature(1) = "2" + Strings.AvailableFeature(2) = "2" + Strings.AvailableFeature(3) = "2" + Strings.AvailableFeature(4) = "2" + Strings.AvailableFeature(5) = "2" + Strings.AvailableFeature(6) = "2" + Strings.AvailableFeature(7) = "2" + Strings.AvailableFeature(8) = "2" + Strings.AvailableFeature(9) = "2" + Strings.AvailableFeature(10) = "2" + Strings.AvailableFeature(11) = "0" + Strings.AvailableFeature(12) = "2" + Strings.AvailableFeature(14) = "2" + Strings.AvailableFeature(15) = "2" + '0.2.4 Features + Strings.AvailableFeature(16) = "2" + Strings.AvailableFeature(17) = "2" + Strings.AvailableFeature(18) = "2" + Strings.AvailableFeature(19) = "2" + Strings.AvailableFeature(20) = "2" + Strings.AvailableFeature(21) = "2" + Strings.AvailableFeature(22) = "2" + '0.2.5 Features + Strings.AvailableFeature(23) = "2" + Strings.AvailableFeature(24) = "2" + Strings.AvailableFeature(25) = "2" + Strings.AvailableFeature(26) = "2" + Strings.AvailableFeature(27) = "2" + Strings.AvailableFeature(28) = "2" + Strings.AvailableFeature(29) = "2" + Strings.AvailableFeature(30) = "2" + '0.2.6 Features + Strings.AvailableFeature(31) = "2" + Strings.AvailableFeature(32) = "2" + Strings.AvailableFeature(33) = "2" + '0.2.7 Features + Strings.AvailableFeature(34) = "2" + End Sub + + Public Sub SaveGame() + If Strings.OnceInfo(6) = "story" Then + 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 + End Sub + + Public Sub LoadGame() + If Strings.OnceInfo(6) = "story" Then + Strings.ComputerInfo = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\ComputerInfo.sos") + Strings.AvailableFeature = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos") + End If + End Sub +End Module -- cgit v1.2.3