Integrating Chapter 2 into the game and minor changes to check the story

3 files changed, 56 insertions, 2 deletions

diff --git a/ShiftOS-TheRevival/Functions/InGame/LoreManager/IntroStoryTell.vb b/ShiftOS-TheRevival/Functions/InGame/LoreManager/IntroStoryTell.vb
index 53eacad..ff69a3e 100644
--- a/ShiftOS-TheRevival/Functions/InGame/LoreManager/IntroStoryTell.vb
+++ b/ShiftOS-TheRevival/Functions/InGame/LoreManager/IntroStoryTell.vb
@@ -1,4 +1,18 @@
 Module IntroStoryTell
+    Public NextChapter As Boolean
+
+    Public Sub CheckNextChapterEligibility()
+        Select Case Strings.ComputerInfo(3)
+            Case 0
+                If Strings.ComputerInfo(4) = 35 Then
+                    Strings.ComputerInfo(3) = 1
+                    NextChapter = True
+                Else
+                    NextChapter = False
+                End If
+        End Select
+    End Sub
+
     Public Sub StoryLineIntro(Timestamp As Integer)
         Select Case Strings.ComputerInfo(3)
             Case 0
@@ -65,6 +79,17 @@
                         NewLine("<null> : Once you able to afford it and installing it, there's a guide to use the window manager")
                     Case 600
                         NewLine("<null> : Alright, I gotta go now and see you in the next progress.")
+                    Case 630
+                        NewLine("<null> Disconnected")
+                    Case 675
+                        Console.StoryOnlyTimer.Stop()
+                        Console.TextBox1.Text = Nothing
+                        Console.TextBox1.ReadOnly = False
+                        Strings.AvailableFeature(35) = 0
+                        Terminal_CheckFeature()
+                        Terminal_PrintPrompt()
+                        Terminal_AssignPrompt()
+                        TextRebind()
                 End Select
         End Select
     End Sub
diff --git a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
index a8e423c..761c6b2 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(35) As String
+    Public Shared AvailableFeature(37) As String
     Public Shared CLIInterpreter As String
     Public Shared SaveFile As String
     Public Shared Achievement As String
@@ -50,6 +50,8 @@
     '7 = Window Manager (0.2.7) (default : 0)
     '
     'AvailableFeature (Default is defined on the Story Mode, Free Mode automatically assigns every available feature to 1, Unavailable in the Shiftorium assigned as 2, Upgraded assigned as 3) Strings:
+    'Chapter 1
+    '
     '0 = MAN command [Manual on each command] (0.2) (default : 0)
     '1 = CLEAR command [Clearing the screen] (0.2) (default : 0)
     '2 = PRINT command [Printing a string] (0.2.2) (default : 0)
@@ -86,6 +88,10 @@
     '33 = Unzip command [Ability to extract file in a zip file] (default : 0)
     '34 = MathQuiz [Simple arithmatical question game to get codepoint] (default : 0)
     '
+    'Chapter 2 for ShiftOS
+    '35 = Dual Window Manager [Simple Window Manager for ShiftOS] (default : 0)
+    '36 = Shifter [Customization program for ShiftOS, DuWM version] (default : 0)
+    '
     'Features bought hierarchy :
     '
     'Chapter 1:
@@ -128,7 +134,6 @@
     '
     'Chpater 2:
     '>Dual Window Manager (200 CP)
-    '>>Console Scrollbra (200 CP)
     '>>DuWM RGB Support (225 CP)
     '>>>DuWM 16 Colors Support (275 CP)
     '>>Shifter (250 CP)
diff --git a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
index 5dd7222..9a8d6af 100644
--- a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
+++ b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
@@ -6,6 +6,7 @@
         'Only AvailableFeature that are in the value of 0 can be displayed in the list
         NewLine("Shiftorium Available Feature(s)")
         NewLine(Nothing)
+        'This is for Chapter 1 features of ShiftOS
         If Strings.AvailableFeature(11) = 0 Then
             NewLine("(key | 5 CP) ShiftOS Key")
         Else
@@ -134,6 +135,10 @@
                 End If
             End If
         End If
+        'This is for Chapter 2 packages for ShiftOS
+        If Strings.AvailableFeature(35) = 0 Then
+            NewLine("(duwm | 200 CP) Dual Window Manager")
+        End If
     End Sub
 
     Public Sub Shiftorium_InformationFeatures()
@@ -435,6 +440,17 @@
                     NewLine(ManHeader(1))
                     NormalCommand()
                 End If
+            Case "duwm"
+                If Strings.AvailableFeature(35) = 0 Then
+                    ManHeader(0) = "Dual Window Manager"
+                    ManHeader(1) = "200 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Simple tiling window manager for ShiftOS")
+                    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"
@@ -549,6 +565,10 @@
             Case "mathquiz"
                 Shiftorium_InstallFeatures(True, "mathquiz", 34, 60)
                 NormalCommand()
+            'Chapter 2 packages
+            Case "duwm"
+                Shiftorium_InstallFeatures(True, "duwm", 35, 200)
+                NormalCommand()
             Case Else
                 NormalCommand()
                 NewLine("Shiftorium: Bad command or not available")
@@ -712,6 +732,10 @@
                         Case "mathquiz"
                             Strings.AvailableFeature(34) = "1"
                             success = True
+                        'Chapter 2 packages
+                        Case "duwm"
+                            Strings.AvailableFeature(35) = "1"
+                            success = True
                     End Select
                     If success = False Then
                         If IsCLI = True Then