story mode completed

1 files changed, 35 insertions, 0 deletions

diff --git a/ShiftOS-TheRevival/MainForms/IntroStory.vb b/ShiftOS-TheRevival/MainForms/IntroStory.vb
new file mode 100644
index 0000000..f7d30d9
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/IntroStory.vb
@@ -0,0 +1,35 @@
+Public Class IntroStory
+    Dim TimerDisplay As Integer = 1
+    Private Sub IntroStory_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        FormBorderStyle = FormBorderStyle.None
+        WindowState = FormWindowState.Maximized
+        OpacityPlay.Start()
+    End Sub
+
+    Private Sub OpacityPlay_Tick(sender As Object, e As EventArgs) Handles OpacityPlay.Tick
+        Select Case TimerDisplay
+            Case 1, 5, 9, 13, 17
+                Visible = True
+                TimerDisplay = TimerDisplay + 1
+            Case 3, 7, 11, 15, 19
+                Visible = False
+                TimerDisplay = TimerDisplay + 1
+            Case 21
+                BackColor = Color.Black
+                Visible = True
+                Opacity = 0.1
+                TimerDisplay = 22
+            Case 22
+                If Opacity = 1 Then
+                    Strings.ComputerInfo(3) = "0"
+                    Strings.IsFree = False
+                    Terminal.Show()
+                    Close()
+                Else
+                    Opacity = Opacity + 0.05
+                End If
+            Case Else
+                TimerDisplay = TimerDisplay + 1
+        End Select
+    End Sub
+End Class
\ No newline at end of file