From 9754f495672581abd7098c39027b512525b5f9ab Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Thu, 24 Nov 2022 21:26:45 +0700 Subject: Fully functional and partially working Shifter --- ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 'ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb') diff --git a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb index be9269c..5747e1d 100644 --- a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb +++ b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb @@ -55,6 +55,11 @@ Module SaveLoadSystem Strings.AvailableFeature(34) = "2" Strings.AvailableFeature(35) = "2" Strings.AvailableFeature(36) = "2" + Strings.AvailableFeature(37) = "2" + Strings.AvailableFeature(38) = "2" + Strings.AvailableFeature(39) = "2" + Strings.AvailableFeature(40) = "2" + Strings.AvailableFeature(41) = "2" End Sub Public Sub FreeRoamMode() @@ -105,6 +110,11 @@ Module SaveLoadSystem Strings.AvailableFeature(34) = "1" Strings.AvailableFeature(35) = "1" Strings.AvailableFeature(36) = "1" + Strings.AvailableFeature(37) = "1" + Strings.AvailableFeature(38) = "1" + Strings.AvailableFeature(39) = "1" + Strings.AvailableFeature(40) = "3" + Strings.AvailableFeature(41) = "1" End Sub Public Sub GodMode() @@ -153,6 +163,11 @@ Module SaveLoadSystem Strings.AvailableFeature(34) = "2" Strings.AvailableFeature(35) = "2" Strings.AvailableFeature(36) = "2" + Strings.AvailableFeature(37) = "2" + Strings.AvailableFeature(38) = "2" + Strings.AvailableFeature(39) = "2" + Strings.AvailableFeature(40) = "2" + Strings.AvailableFeature(41) = "2" End Sub Public Sub SaveGame() @@ -171,4 +186,4 @@ Module SaveLoadSystem Strings.AvailableFeature = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos") End If End Sub -End Module +End Module \ No newline at end of file -- cgit v1.2.3