aboutsummaryrefslogtreecommitdiff
path: root/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb
diff options
context:
space:
mode:
authorEverythingWindows <[email protected]>2022-11-05 05:36:43 +0700
committerEverythingWindows <[email protected]>2022-11-05 05:36:43 +0700
commit60b6ce686dfd812c6f808a01463473610787e15c (patch)
treed7361a19c15d58f25f2eba4e0f8280cd77f47403 /ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb
parent552304f614c30c8be8d2e5f042b39cadf3477bcf (diff)
downloadshiftos-therevival-old-60b6ce686dfd812c6f808a01463473610787e15c.tar.gz
shiftos-therevival-old-60b6ce686dfd812c6f808a01463473610787e15c.tar.bz2
shiftos-therevival-old-60b6ce686dfd812c6f808a01463473610787e15c.zip
neofetch ported to shiftfetch
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb')
-rw-r--r--ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb8
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