From 344a0ff99e1adc6b3cd97e0d4ce7496b12d624b9 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Tue, 8 Nov 2022 13:02:02 +0700 Subject: rework on introstory --- ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb | 32 ++++++++++++++++++++++++++++- 1 file changed, 31 insertions(+), 1 deletion(-) (limited to 'ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb') diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb index 12b7dfe..c4a6145 100644 --- a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb +++ b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb @@ -32,7 +32,10 @@ Public Class ShiftOSMenu End Sub Private Sub btn_Exit_Click(sender As Object, e As EventArgs) Handles btn_Exit.Click - Close() + Select Case btn_Exit.Text + Case "Exit" + Close() + End Select End Sub Private Sub btn_FreeRoam_Click(sender As Object, e As EventArgs) Handles btn_FreeRoam.Click @@ -81,6 +84,17 @@ Public Class ShiftOSMenu btn_Aboot.Visible = False btn_Exit.Visible = False Case "Yes" + Label3.Text = "Choose Chapter" + btn_StoryMode.Text = "Chapter 1" & Environment.NewLine & "Hijacked!" + btn_FreeRoam.Text = "Chapter 2" & Environment.NewLine & "Exploration" + btn_Aboot.Text = "Chapter 3" & Environment.NewLine & "Escaped" + btn_Exit.Text = "Chapter 4" & Environment.NewLine & "The known" + btn_Aboot.Visible = True + btn_Exit.Visible = True + btn_Chapter5.Visible = True + btn_Back.Visible = True + Case "Chapter 1" & Environment.NewLine & "Hijacked!" + MsgBox(My.Resources.epilepsy) Strings.IsFree = False Strings.OnceInfo(6) = "story" IntroStory.Show() @@ -99,6 +113,22 @@ Public Class ShiftOSMenu End Select End Sub + Private Sub btn_Chapter5_Click(sender As Object, e As EventArgs) Handles btn_Chapter5.Click + + End Sub + + Private Sub btn_Back_Click(sender As Object, e As EventArgs) Handles btn_Back.Click + Label3.Visible = False + btn_StoryMode.Text = "Story Mode" + btn_FreeRoam.Text = "Free Roam Mode" + btn_Aboot.Text = "About" + btn_Exit.Text = "Exit" + btn_Aboot.Visible = True + btn_Exit.Visible = True + btn_Chapter5.Visible = False + btn_Back.Visible = False + End Sub + Private Sub CheckUpdate() Try If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SOS_NewVer.txt") = True Then -- cgit v1.2.3