nice try on file skimmer lol

4 files changed, 175 insertions, 49 deletions

diff --git a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
index 9ebbd3e..e9c28a1 100644
--- a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
+++ b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
@@ -3,7 +3,7 @@
     Public Shared ComputerInfo(7) As String
     Public Shared IsFree As Boolean
     Public Shared OnceInfo(8) As String
-    Public Shared AvailableFeature(41) As String
+    Public Shared AvailableFeature(42) As String
     Public Shared CLIInterpreter As String
     Public Shared SaveFile As String
     Public Shared Achievement As String
@@ -96,6 +96,7 @@
     '39 = KI Fruits [Adds fruit category into the Knowledge Input] (default : 0)
     '40 = DuWM RGB Support [Adds RGB and its other variant support to DuWM] (default : 0)
     '41 = DuWM 16 Colors Support [Adds mix of RGB color support into ShiftOS] (default : 0)
+    '42 = KI US States [Adds United States States category into the Knowledge Input] (default : 0)
     '
     'Features bought hierarchy :
     '
@@ -145,4 +146,5 @@
     '>>Knowledge Input (KNOWLEDGE) (275 CP)
     '>>>KI Animals (KI_ANIMALS) (300 CP)
     '>>>KI Fruits (KI_FRUITS) (300 CP)
+    '>>>KI US States (KI_US) (300 CP)
 End Class
diff --git a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
index 098e782..d13c40c 100644
--- a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
+++ b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
@@ -159,8 +159,11 @@
                 If Strings.AvailableFeature(39) = 0 Then
                     NewLine("(ki_fruits | 300 CP) KI Fruits")
                 End If
+                If Strings.AvailableFeature(42) = 0 Then
+                    NewLine("(ki_us | 300 CP) KI US States")
+                End If
+            End If
             End If
-        End If
     End Sub
 
     Public Sub Shiftorium_InformationFeatures()
@@ -495,6 +498,61 @@
                     NewLine(ManHeader(1))
                     NormalCommand()
                 End If
+            Case "ki_animals"
+                If Strings.AvailableFeature(38) = 0 Then
+                    ManHeader(0) = "KI Animals"
+                    ManHeader(1) = "300 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds animals category into Knowledge Input")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "ki_fruits"
+                If Strings.AvailableFeature(39) = 0 Then
+                    ManHeader(0) = "KI Fruits"
+                    ManHeader(1) = "300 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds fruits category into Knowledge Input")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "duwmrgb"
+                If Strings.AvailableFeature(40) = 0 Then
+                    ManHeader(0) = "DuWM RGB support"
+                    ManHeader(1) = "225 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds Red, Green, and Blue and its darker/lighter color support for Dual Window Manager")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "duwmrgb2"
+                If Strings.AvailableFeature(41) = 0 Then
+                    ManHeader(0) = "DuWM 16 Colors support"
+                    ManHeader(1) = "275 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds 16 colors support for Dual Window Manager")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
+            Case "ki_us"
+                If Strings.AvailableFeature(42) = 0 Then
+                    ManHeader(0) = "KI US States"
+                    ManHeader(1) = "300 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds US States category into Knowledge Input")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
             Case Else
                 NormalCommand()
                 Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
@@ -631,6 +689,9 @@
             Case "duwmrgb2"
                 Shiftorium_InstallFeatures(True, "duwmrgb2", 41, 275)
                 NormalCommand()
+            Case "ki_us"
+                Shiftorium_InstallFeatures(True, "ki_us", 42, 300)
+                NormalCommand()
             Case Else
                 NormalCommand()
                 NewLine("Shiftorium: Bad command or not available")
@@ -811,6 +872,7 @@
                             Strings.AvailableFeature(37) = "1"
                             Strings.AvailableFeature(38) = "0"
                             Strings.AvailableFeature(39) = "0"
+                            Strings.AvailableFeature(42) = "0"
                             success = True
                         Case "ki_animals"
                             Strings.AvailableFeature(38) = "1"
@@ -825,6 +887,9 @@
                             Strings.AvailableFeature(40) = "3"
                             Strings.AvailableFeature(41) = "1"
                             success = True
+                        Case "ki_us"
+                            Strings.AvailableFeature(42) = "1"
+                            success = True
                     End Select
                     If success = False Then
                         If IsCLI = True Then
diff --git a/ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb b/ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb
index 25dabb2..263c5ff 100644
--- a/ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb
+++ b/ShiftOS-TheRevival/Functions/InGame/SystemManager/Terminate.vb
@@ -12,6 +12,7 @@
         Cursor.Show()
         NewLine("Shutting down...")
         ShiftOSMenu.Show()
+        Cursor.Show()
         If IsStartG = False Then
             Console.Close()
         End If
diff --git a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
index 187fcbd..97721fe 100644
--- a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
+++ b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
@@ -2,7 +2,7 @@
 
 Module SaveLoadSystem
 
-    Public Sub NewGameMode()
+    Public Sub NewGameMode(Chapter As Integer)
         'Sets all features to 2 (Unavailable for Shiftorium) except ShiftOS Key (AvailableFeatures(11))
         Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", True)
         Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS", True)
@@ -14,52 +14,106 @@ Module SaveLoadSystem
         Strings.ComputerInfo(1) = "user"
         Strings.ComputerInfo(2) = "0"
         Strings.ComputerInfo(4) = "0"
-        Strings.AvailableFeature(0) = "2"
-        Strings.AvailableFeature(1) = "2"
-        Strings.AvailableFeature(2) = "2"
-        Strings.AvailableFeature(3) = "2"
-        Strings.AvailableFeature(4) = "2"
-        Strings.AvailableFeature(5) = "2"
-        Strings.AvailableFeature(6) = "2"
-        Strings.AvailableFeature(7) = "2"
-        Strings.AvailableFeature(8) = "2"
-        Strings.AvailableFeature(9) = "2"
-        Strings.AvailableFeature(10) = "2"
-        Strings.AvailableFeature(11) = "0"
-        Strings.AvailableFeature(12) = "2"
-        Strings.AvailableFeature(13) = "2"
-        Strings.AvailableFeature(14) = "2"
-        Strings.AvailableFeature(15) = "2"
-        '0.2.4 Features
-        Strings.AvailableFeature(16) = "2"
-        Strings.AvailableFeature(17) = "2"
-        Strings.AvailableFeature(18) = "2"
-        Strings.AvailableFeature(19) = "2"
-        Strings.AvailableFeature(20) = "2"
-        Strings.AvailableFeature(21) = "2"
-        Strings.AvailableFeature(22) = "2"
-        '0.2.5 Features
-        Strings.AvailableFeature(23) = "2"
-        Strings.AvailableFeature(24) = "2"
-        Strings.AvailableFeature(25) = "2"
-        Strings.AvailableFeature(26) = "2"
-        Strings.AvailableFeature(27) = "2"
-        Strings.AvailableFeature(28) = "2"
-        Strings.AvailableFeature(29) = "2"
-        Strings.AvailableFeature(30) = "2"
-        '0.2.6 Features
-        Strings.AvailableFeature(31) = "2"
-        Strings.AvailableFeature(32) = "2"
-        Strings.AvailableFeature(33) = "2"
-        '0.2.7 Features
-        Strings.AvailableFeature(34) = "2"
-        Strings.AvailableFeature(35) = "2"
-        Strings.AvailableFeature(36) = "2"
-        Strings.AvailableFeature(37) = "2"
-        Strings.AvailableFeature(38) = "2"
-        Strings.AvailableFeature(39) = "2"
-        Strings.AvailableFeature(40) = "2"
-        Strings.AvailableFeature(41) = "2"
+        Select Case Chapter
+            Case 0
+                Strings.AvailableFeature(0) = "2"
+                Strings.AvailableFeature(1) = "2"
+                Strings.AvailableFeature(2) = "2"
+                Strings.AvailableFeature(3) = "2"
+                Strings.AvailableFeature(4) = "2"
+                Strings.AvailableFeature(5) = "2"
+                Strings.AvailableFeature(6) = "2"
+                Strings.AvailableFeature(7) = "2"
+                Strings.AvailableFeature(8) = "2"
+                Strings.AvailableFeature(9) = "2"
+                Strings.AvailableFeature(10) = "2"
+                Strings.AvailableFeature(11) = "0"
+                Strings.AvailableFeature(12) = "2"
+                Strings.AvailableFeature(13) = "2"
+                Strings.AvailableFeature(14) = "2"
+                Strings.AvailableFeature(15) = "2"
+                '0.2.4 Features
+                Strings.AvailableFeature(16) = "2"
+                Strings.AvailableFeature(17) = "2"
+                Strings.AvailableFeature(18) = "2"
+                Strings.AvailableFeature(19) = "2"
+                Strings.AvailableFeature(20) = "2"
+                Strings.AvailableFeature(21) = "2"
+                Strings.AvailableFeature(22) = "2"
+                '0.2.5 Features
+                Strings.AvailableFeature(23) = "2"
+                Strings.AvailableFeature(24) = "2"
+                Strings.AvailableFeature(25) = "2"
+                Strings.AvailableFeature(26) = "2"
+                Strings.AvailableFeature(27) = "2"
+                Strings.AvailableFeature(28) = "2"
+                Strings.AvailableFeature(29) = "2"
+                Strings.AvailableFeature(30) = "2"
+                '0.2.6 Features
+                Strings.AvailableFeature(31) = "2"
+                Strings.AvailableFeature(32) = "2"
+                Strings.AvailableFeature(33) = "2"
+                '0.2.7 Features
+                Strings.AvailableFeature(34) = "2"
+                Strings.AvailableFeature(35) = "2"
+                Strings.AvailableFeature(36) = "2"
+                Strings.AvailableFeature(37) = "2"
+                Strings.AvailableFeature(38) = "2"
+                Strings.AvailableFeature(39) = "2"
+                Strings.AvailableFeature(40) = "2"
+                Strings.AvailableFeature(41) = "2"
+                '0.2.8 Features
+                Strings.AvailableFeature(42) = "2"
+            Case 1
+                Strings.AvailableFeature(0) = "1"
+                Strings.AvailableFeature(1) = "1"
+                Strings.AvailableFeature(2) = "1"
+                Strings.AvailableFeature(3) = "1"
+                Strings.AvailableFeature(4) = "1"
+                Strings.AvailableFeature(5) = "3"
+                Strings.AvailableFeature(6) = "3"
+                Strings.AvailableFeature(7) = "3"
+                Strings.AvailableFeature(8) = "1"
+                Strings.AvailableFeature(9) = "1"
+                Strings.AvailableFeature(10) = "1"
+                Strings.AvailableFeature(11) = "1"
+                Strings.AvailableFeature(12) = "3"
+                Strings.AvailableFeature(13) = "1"
+                Strings.AvailableFeature(14) = "1"
+                Strings.AvailableFeature(15) = "1"
+                '0.2.4 Features
+                Strings.AvailableFeature(16) = "1"
+                Strings.AvailableFeature(17) = "1"
+                Strings.AvailableFeature(18) = "1"
+                Strings.AvailableFeature(19) = "1"
+                Strings.AvailableFeature(20) = "1"
+                Strings.AvailableFeature(21) = "1"
+                Strings.AvailableFeature(22) = "1"
+                '0.2.5 Features
+                Strings.AvailableFeature(23) = "1"
+                Strings.AvailableFeature(24) = "3"
+                Strings.AvailableFeature(25) = "3"
+                Strings.AvailableFeature(26) = "3"
+                Strings.AvailableFeature(27) = "3"
+                Strings.AvailableFeature(28) = "3"
+                Strings.AvailableFeature(29) = "1"
+                Strings.AvailableFeature(30) = "1"
+                '0.2.6 Features
+                Strings.AvailableFeature(31) = "1"
+                Strings.AvailableFeature(32) = "1"
+                Strings.AvailableFeature(33) = "1"
+                '0.2.7 Features
+                Strings.AvailableFeature(34) = "1"
+                Strings.AvailableFeature(35) = "2"
+                Strings.AvailableFeature(36) = "2"
+                Strings.AvailableFeature(37) = "2"
+                Strings.AvailableFeature(38) = "2"
+                Strings.AvailableFeature(39) = "2"
+                Strings.AvailableFeature(40) = "2"
+                Strings.AvailableFeature(41) = "2"
+                '0.2.8 Features
+                Strings.AvailableFeature(42) = "2"
+        End Select
     End Sub
 
     Public Sub FreeRoamMode()
@@ -115,6 +169,8 @@ Module SaveLoadSystem
         Strings.AvailableFeature(39) = "1"
         Strings.AvailableFeature(40) = "3"
         Strings.AvailableFeature(41) = "1"
+        '0.2.8 Features
+        Strings.AvailableFeature(42) = "1"
     End Sub
 
     Public Sub GodMode()
@@ -168,6 +224,8 @@ Module SaveLoadSystem
         Strings.AvailableFeature(39) = "2"
         Strings.AvailableFeature(40) = "2"
         Strings.AvailableFeature(41) = "2"
+        '0.2.8 Features
+        Strings.AvailableFeature(42) = "2"
     End Sub
 
     Public Sub SaveGame()