From f20fb77b7d168ca501c68c6b3c8fe1ee0c4c7a87 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sun, 6 Nov 2022 07:21:26 +0700 Subject: time accuracy to PM and AM and story mode fixing few bugs --- ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) (limited to 'ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb') diff --git a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb index 4a51917..7fe5613 100644 --- a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb +++ b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb @@ -3,8 +3,8 @@ Public Sub NewGameMode() Strings.ComputerInfo(2) = "0" Strings.ComputerInfo(4) = "0" - Strings.AvailableFeature(0) = "0" - Strings.AvailableFeature(1) = "0" + Strings.AvailableFeature(0) = "2" + Strings.AvailableFeature(1) = "2" Strings.AvailableFeature(2) = "2" Strings.AvailableFeature(3) = "2" Strings.AvailableFeature(4) = "2" @@ -14,11 +14,13 @@ Strings.AvailableFeature(8) = "2" Strings.AvailableFeature(9) = "2" Strings.AvailableFeature(10) = "2" + Strings.AvailableFeature(11) = "0" + Strings.AvailableFeature(12) = "2" End Sub Public Sub FreeRoamMode() Strings.ComputerInfo(2) = "0" - Strings.ComputerInfo(4) = "11" + Strings.ComputerInfo(4) = "12" Strings.AvailableFeature(0) = "1" Strings.AvailableFeature(1) = "1" Strings.AvailableFeature(2) = "1" @@ -26,17 +28,19 @@ Strings.AvailableFeature(4) = "1" Strings.AvailableFeature(5) = "3" Strings.AvailableFeature(6) = "3" - Strings.AvailableFeature(7) = "1" + Strings.AvailableFeature(7) = "3" Strings.AvailableFeature(8) = "1" Strings.AvailableFeature(9) = "1" Strings.AvailableFeature(10) = "1" + Strings.AvailableFeature(11) = "1" + Strings.AvailableFeature(12) = "1" End Sub Public Sub GodMode() Strings.ComputerInfo(2) = 9999 Strings.ComputerInfo(4) = "0" - Strings.AvailableFeature(0) = "0" - Strings.AvailableFeature(1) = "0" + Strings.AvailableFeature(0) = "2" + Strings.AvailableFeature(1) = "2" Strings.AvailableFeature(2) = "2" Strings.AvailableFeature(3) = "2" Strings.AvailableFeature(4) = "2" @@ -46,5 +50,7 @@ Strings.AvailableFeature(8) = "2" Strings.AvailableFeature(9) = "2" Strings.AvailableFeature(10) = "2" + Strings.AvailableFeature(11) = "0" + Strings.AvailableFeature(12) = "2" End Sub End Module -- cgit v1.2.3