diff options
| author | EverythingWindows <[email protected]> | 2022-11-23 21:30:54 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-23 21:30:54 +0700 |
| commit | 537ba4982ec7c8b3a1a3609fe13bc6f0624fee73 (patch) | |
| tree | b410910ebbce89e8d432215c7de3d8ac5f24c734 /ShiftOS-TheRevival/Functions/InGame/LoreManager/IntroStoryTell.vb | |
| parent | 2c4952012f194936e6b677f3b95e07fdadd3b337 (diff) | |
| download | shiftos-therevival-old-537ba4982ec7c8b3a1a3609fe13bc6f0624fee73.tar.gz shiftos-therevival-old-537ba4982ec7c8b3a1a3609fe13bc6f0624fee73.tar.bz2 shiftos-therevival-old-537ba4982ec7c8b3a1a3609fe13bc6f0624fee73.zip | |
Integrating Chapter 2 into the game and minor changes to check the story
Diffstat (limited to 'ShiftOS-TheRevival/Functions/InGame/LoreManager/IntroStoryTell.vb')
| -rw-r--r-- | ShiftOS-TheRevival/Functions/InGame/LoreManager/IntroStoryTell.vb | 25 |
1 files changed, 25 insertions, 0 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 |
