diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb index b6e5816..caaf46a 100644 --- a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb +++ b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb @@ -1,6 +1,8 @@ Module SaveLoadSystem Public Sub NewGameMode() + Strings.ComputerInfo(2) = "0" + Strings.ComputerInfo(4) = "0" Strings.AvailableFeature(0) = "0" Strings.AvailableFeature(1) = "0" Strings.AvailableFeature(2) = "2" @@ -9,9 +11,12 @@ Strings.AvailableFeature(5) = "2" Strings.AvailableFeature(6) = "2" Strings.AvailableFeature(7) = "2" + Strings.AvailableFeature(8) = "2" End Sub Public Sub FreeRoamMode() + Strings.ComputerInfo(2) = "0" + Strings.ComputerInfo(4) = "9" Strings.AvailableFeature(0) = "1" Strings.AvailableFeature(1) = "1" Strings.AvailableFeature(2) = "1" @@ -20,10 +25,12 @@ Strings.AvailableFeature(5) = "3" Strings.AvailableFeature(6) = "3" Strings.AvailableFeature(7) = "1" + Strings.AvailableFeature(8) = "1" End Sub Public Sub GodMode() Strings.ComputerInfo(2) = 9999 + Strings.ComputerInfo(4) = "0" Strings.AvailableFeature(0) = "0" Strings.AvailableFeature(1) = "0" Strings.AvailableFeature(2) = "2" @@ -32,5 +39,6 @@ Strings.AvailableFeature(5) = "2" Strings.AvailableFeature(6) = "2" Strings.AvailableFeature(7) = "2" + Strings.AvailableFeature(8) = "2" End Sub End Module |