From ec630f54d67fa37e0ad79936c3eaf9cf1cd2ac1f Mon Sep 17 00:00:00 2001
From: EverythingWindows <windowseverything61@gmail.com>
Date: Thu, 3 Nov 2022 04:28:19 +0700
Subject: story mode completed

---
 ShiftOS-TheRevival/MainForms/IntroStory.vb | 35 ++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 ShiftOS-TheRevival/MainForms/IntroStory.vb

(limited to 'ShiftOS-TheRevival/MainForms/IntroStory.vb')

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
-- 
cgit v1.2.3