From 60b6ce686dfd812c6f808a01463473610787e15c Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sat, 5 Nov 2022 05:36:43 +0700 Subject: neofetch ported to shiftfetch --- ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb') 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 -- cgit v1.2.3