Fully functional and partially working Shifter

3 files changed, 99 insertions, 7 deletions

diff --git a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
index 86c30f3..9ebbd3e 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(37) As String
+    Public Shared AvailableFeature(41) As String
     Public Shared CLIInterpreter As String
     Public Shared SaveFile As String
     Public Shared Achievement As String
@@ -92,6 +92,10 @@
     '35 = Dual Window Manager [Simple Window Manager for ShiftOS] (default : 0)
     '36 = Shifter [Customization program for ShiftOS, DuWM version] (default : 0)
     '37 = Knowledge Input [Guess how much things as many as you can] (default : 0)
+    '38 = KI Animals [Adds animal category into the Knowledge Input] (default : 0)
+    '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)
     '
     'Features bought hierarchy :
     '
@@ -134,9 +138,11 @@
     '>>>>>>>>>>>>Date by general (DATE, GENERALDATE (95 CP))
     '
     'Chpater 2:
-    '>Dual Window Manager (200 CP)
-    '>>DuWM RGB Support (225 CP)
-    '>>>DuWM 16 Colors Support (275 CP)
-    '>>Shifter (250 CP)
-    '>>Knowledge Input (275 CP)
+    '>Dual Window Manager (DUWM) (200 CP)
+    '>>DuWM RGB Support (DUWMRGB) (225 CP)
+    '>>>DuWM 16 Colors Support (DUWMRGB2) (275 CP)
+    '>>Shifter (SHIFTER) (250 CP)
+    '>>Knowledge Input (KNOWLEDGE) (275 CP)
+    '>>>KI Animals (KI_ANIMALS) (300 CP)
+    '>>>KI Fruits (KI_FRUITS) (300 CP)
 End Class
diff --git a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
index 066b9fd..f525073 100644
--- a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
+++ b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
@@ -141,6 +141,24 @@
         Else
             If Strings.AvailableFeature(36) = 0 Then
                 NewLine("(shifter | 250 CP) Shifter")
+            Else
+                If Strings.AvailableFeature(40) = 0 Then
+                    NewLine("(duwmrgb | 225 CP) DuWM RGB Support")
+                Else
+                    If Strings.AvailableFeature(41) = 0 Then
+                        NewLine("(duwmrgb2 | 275 CP) DuWM 16 Color Support")
+                    End If
+                End If
+            End If
+                If Strings.AvailableFeature(37) = 0 Then
+                NewLine("(knowledge | 275 CP) Knowledge Input")
+            Else
+                If Strings.AvailableFeature(38) = 0 Then
+                    NewLine("(ki_animals | 300 CP) KI Animals")
+                End If
+                If Strings.AvailableFeature(39) = 0 Then
+                    NewLine("(ki_fruits | 300 CP) KI Fruits")
+                End If
             End If
         End If
     End Sub
@@ -466,6 +484,17 @@
                     NewLine(ManHeader(1))
                     NormalCommand()
                 End If
+            Case "knowledge"
+                If Strings.AvailableFeature(37) = 0 Then
+                    ManHeader(0) = "Knowledge Input"
+                    ManHeader(1) = "275 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Puzzle game where you have to guess as many things as you want")
+                    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"
@@ -584,6 +613,24 @@
             Case "duwm"
                 Shiftorium_InstallFeatures(True, "duwm", 35, 200)
                 NormalCommand()
+            Case "shifter"
+                Shiftorium_InstallFeatures(True, "shifter", 36, 250)
+                NormalCommand()
+            Case "knowledge"
+                Shiftorium_InstallFeatures(True, "knowledge", 37, 275)
+                NormalCommand()
+            Case "ki_animals"
+                Shiftorium_InstallFeatures(True, "ki_animals", 38, 300)
+                NormalCommand()
+            Case "ki_fruits"
+                Shiftorium_InstallFeatures(True, "ki_animals", 39, 300)
+                NormalCommand()
+            Case "duwmrgb"
+                Shiftorium_InstallFeatures(True, "duwmrgb", 40, 225)
+                NormalCommand()
+            Case "duwmrgb2"
+                Shiftorium_InstallFeatures(True, "duwmrgb2", 41, 275)
+                NormalCommand()
             Case Else
                 NormalCommand()
                 NewLine("Shiftorium: Bad command or not available")
@@ -751,6 +798,30 @@
                         Case "duwm"
                             Strings.AvailableFeature(35) = "1"
                             Strings.AvailableFeature(36) = "0"
+                            Strings.AvailableFeature(37) = "0"
+                            success = True
+                        Case "shifter"
+                            Strings.AvailableFeature(36) = "1"
+                            Strings.AvailableFeature(40) = "0"
+                            Strings.AvailableFeature(41) = "0"
+                            success = True
+                        Case "knowledge"
+                            Strings.AvailableFeature(37) = "1"
+                            Strings.AvailableFeature(38) = "0"
+                            Strings.AvailableFeature(39) = "0"
+                            success = True
+                        Case "ki_animals"
+                            Strings.AvailableFeature(38) = "1"
+                            success = True
+                        Case "ki_fruits"
+                            Strings.AvailableFeature(39) = "1"
+                            success = True
+                        Case "duwmrgb"
+                            Strings.AvailableFeature(40) = "1"
+                            success = True
+                        Case "duwmrgb2"
+                            Strings.AvailableFeature(40) = "3"
+                            Strings.AvailableFeature(41) = "1"
                             success = True
                     End Select
                     If success = False Then
diff --git a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
index be9269c..5747e1d 100644
--- a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
+++ b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
@@ -55,6 +55,11 @@ Module SaveLoadSystem
         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"
     End Sub
 
     Public Sub FreeRoamMode()
@@ -105,6 +110,11 @@ Module SaveLoadSystem
         Strings.AvailableFeature(34) = "1"
         Strings.AvailableFeature(35) = "1"
         Strings.AvailableFeature(36) = "1"
+        Strings.AvailableFeature(37) = "1"
+        Strings.AvailableFeature(38) = "1"
+        Strings.AvailableFeature(39) = "1"
+        Strings.AvailableFeature(40) = "3"
+        Strings.AvailableFeature(41) = "1"
     End Sub
 
     Public Sub GodMode()
@@ -153,6 +163,11 @@ Module SaveLoadSystem
         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"
     End Sub
 
     Public Sub SaveGame()
@@ -171,4 +186,4 @@ Module SaveLoadSystem
             Strings.AvailableFeature = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos")
         End If
     End Sub
-End Module
+End Module
\ No newline at end of file