diff options
| author | EverythingWindows <[email protected]> | 2022-11-13 09:00:34 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-13 09:00:34 +0700 |
| commit | 6f1a5bfa56fc68853ae150a065950714f490a7f0 (patch) | |
| tree | 24dd87f58c0c59e2da9bf66b017be53e27289360 /ShiftOS-TheRevival/MainForms/Epilepsy.vb | |
| parent | 850353a885d40f15cac96d7f31fdad81fa2093a4 (diff) | |
| download | shiftos-therevival-old-6f1a5bfa56fc68853ae150a065950714f490a7f0.tar.gz shiftos-therevival-old-6f1a5bfa56fc68853ae150a065950714f490a7f0.tar.bz2 shiftos-therevival-old-6f1a5bfa56fc68853ae150a065950714f490a7f0.zip | |
Epilepsy Warning dedicated
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/Epilepsy.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/Epilepsy.vb | 28 |
1 files changed, 28 insertions, 0 deletions
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 |