aboutsummaryrefslogtreecommitdiff
path: root/ShiftOS-TheRevival/Functions/InGame/LoreManager/IntroStoryTell.vb
diff options
context:
space:
mode:
authorEverythingWindows <[email protected]>2022-11-23 21:30:54 +0700
committerEverythingWindows <[email protected]>2022-11-23 21:30:54 +0700
commit537ba4982ec7c8b3a1a3609fe13bc6f0624fee73 (patch)
treeb410910ebbce89e8d432215c7de3d8ac5f24c734 /ShiftOS-TheRevival/Functions/InGame/LoreManager/IntroStoryTell.vb
parent2c4952012f194936e6b677f3b95e07fdadd3b337 (diff)
downloadshiftos-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.vb25
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