From be79ac82e2a542d21f15222119be99051f32dfa8 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Thu, 17 Nov 2022 11:22:51 +0700 Subject: More structured in functions --- .../Functions/InGame/IntroStoryTell.vb | 41 ---------------------- 1 file changed, 41 deletions(-) delete mode 100644 ShiftOS-TheRevival/Functions/InGame/IntroStoryTell.vb (limited to 'ShiftOS-TheRevival/Functions/InGame/IntroStoryTell.vb') diff --git a/ShiftOS-TheRevival/Functions/InGame/IntroStoryTell.vb b/ShiftOS-TheRevival/Functions/InGame/IntroStoryTell.vb deleted file mode 100644 index 048b61f..0000000 --- a/ShiftOS-TheRevival/Functions/InGame/IntroStoryTell.vb +++ /dev/null @@ -1,41 +0,0 @@ -Module IntroStoryTell - Public Sub StoryLineIntro(Timestamp As Integer) - Select Case Strings.ComputerInfo(3) - Case "0" - Select Case Timestamp - Case 5 - ResetLine("Connected to ") - Case 25 - NewLine(": Hey there, Unknown user!") - Case 60 - NewLine(": Congratulaions! You have been involuntarily selected for a test on my experimental operating system, ShiftOS.") - Case 125 - NewLine(": ShiftOS is an operating system that will evolve itself as you use it as I progressively add more features into ShiftOS.") - Case 160 - NewLine(": Currently ShiftOS isn't much from a basic command-line operating system.") - Case 210 - NewLine(": I don't wish to reveal my indentity at this point in time.") - Case 270 - NewLine(": I will install ShiftOS on your system once I leave while I work on... something else.") - Case 335 - NewLine(": Once you have ShiftOS rich feature enough, I will come back to you. In the mean time, goodbye!") - Case 400 - NewLine(" Disconnected") - Case 430 - ResetLine("Installing ShiftOS...") - Case 550 - ResetLine("ShiftOS Installed, The computer will restart in a few seconds") - Case 600 - Console.StoryOnlyTimer.Stop() - Console.TextBox1.Text = Nothing - Console.TextBox1.ReadOnly = False - Strings.ComputerInfo(0) = "shiftos" - Strings.ComputerInfo(1) = "user" - Console.CheckFeature() - Terminal_PrintPrompt() - Terminal_AssignPrompt() - TextRebind() - End Select - End Select - End Sub -End Module -- cgit v1.2.3