From 6f1a5bfa56fc68853ae150a065950714f490a7f0 Mon Sep 17 00:00:00 2001
From: EverythingWindows <windowseverything61@gmail.com>
Date: Sun, 13 Nov 2022 09:00:34 +0700
Subject: Epilepsy Warning dedicated

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

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

diff --git a/ShiftOS-TheRevival/MainForms/Epilepsy.vb b/ShiftOS-TheRevival/MainForms/Epilepsy.vb
new file mode 100644
index 0000000..f1d86c1
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/Epilepsy.vb
@@ -0,0 +1,28 @@
+Public Class Epilepsy
+    Dim AutoClosed As Integer = 0
+
+    Private Sub Epilepsy_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        AutoClose.Start()
+    End Sub
+
+    Private Sub AutoClose_Tick(sender As Object, e As EventArgs) Handles AutoClose.Tick
+        AutoClosed = AutoClosed + 1
+        Select Case AutoClosed
+            Case 6, 18, 30, 42, 54, 66, 78, 90, 102, 114
+                Label1.Visible = False
+            Case 12, 24, 36, 48, 60, 72, 84, 96, 108, 120
+                Label1.Visible = True
+            Case 125
+                Strings.IsFree = False
+                Strings.OnceInfo(6) = "story"
+                IntroStory.Show()
+                ShiftOSMenu.Close()
+                NewGameMode()
+                Close()
+        End Select
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Close()
+    End Sub
+End Class
\ No newline at end of file
-- 
cgit v1.2.3