diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb | 18 |
1 files changed, 12 insertions, 6 deletions
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 |