diff options
Diffstat (limited to 'ShiftOS-TheRevival/Functions')
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 |