diff options
| author | EverythingWindows <[email protected]> | 2022-11-09 06:30:53 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-09 06:30:53 +0700 |
| commit | 680d108f072a4505ba6e2148d619bc8b6de6ad84 (patch) | |
| tree | 34e1e50788d9a63478fcc812f7f165a2efb504aa /ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb | |
| parent | 344a0ff99e1adc6b3cd97e0d4ce7496b12d624b9 (diff) | |
| download | shiftos-therevival-old-680d108f072a4505ba6e2148d619bc8b6de6ad84.tar.gz shiftos-therevival-old-680d108f072a4505ba6e2148d619bc8b6de6ad84.tar.bz2 shiftos-therevival-old-680d108f072a4505ba6e2148d619bc8b6de6ad84.zip | |
rev and cowsay added
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb index a88976e..efafee8 100644 --- a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb +++ b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb @@ -33,13 +33,15 @@ Module SaveLoadSystem Strings.AvailableFeature(18) = "2" Strings.AvailableFeature(19) = "2" Strings.AvailableFeature(20) = "2" + Strings.AvailableFeature(21) = "2" + Strings.AvailableFeature(22) = "2" End Sub Public Sub FreeRoamMode() Strings.ComputerInfo(0) = "shiftos" Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(2) = "0" - Strings.ComputerInfo(4) = "21" + Strings.ComputerInfo(4) = "23" Strings.AvailableFeature(0) = "1" Strings.AvailableFeature(1) = "1" Strings.AvailableFeature(2) = "1" @@ -62,6 +64,8 @@ Module SaveLoadSystem Strings.AvailableFeature(18) = "1" Strings.AvailableFeature(19) = "1" Strings.AvailableFeature(20) = "1" + Strings.AvailableFeature(21) = "1" + Strings.AvailableFeature(22) = "1" End Sub Public Sub GodMode() @@ -90,6 +94,8 @@ Module SaveLoadSystem Strings.AvailableFeature(18) = "2" Strings.AvailableFeature(19) = "2" Strings.AvailableFeature(20) = "2" + Strings.AvailableFeature(21) = "2" + Strings.AvailableFeature(22) = "2" End Sub Public Sub SaveGame() |