From 38b51f3f1dc8dc046b6c3bf80d5fe2885ff38a3c Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Tue, 1 Nov 2022 19:48:52 +0700 Subject: Added Terminal, nice try to do Free Roam test, welp --- ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb | 40 +++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb (limited to 'ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb') diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb new file mode 100644 index 0000000..d669242 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb @@ -0,0 +1,40 @@ +Imports System.IO + +Public Class Form1 + + Public Shared ActualBuildLab As String + Public Shared BuildLab() As String + + Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + BuildLab = File.ReadAllLines("D:\ShiftOSBuildLab.txt") + If BuildLab(0) = "No" Then + Dim BuildNum As Integer = BuildLab(1) + BuildNum = BuildLab(1) + 1 + ActualBuildLab = "ShiftOS_TheRevival." & BuildLab(3) & "." & BuildNum & "." & Date.Today.Year & Date.Today.Month & Date.Today.Day + BuildLab(1) = BuildNum + File.WriteAllLines("D:\ShiftOSBuildLab.txt", BuildLab) + End If + lbl_BuildString.Text = ActualBuildLab + Catch ex As Exception + MsgBox("Why? Because of " & ex.Message) + End Try + End Sub + + Private Sub btn_Exit_Click(sender As Object, e As EventArgs) Handles btn_Exit.Click + Close() + End Sub + + Private Sub btn_FreeRoam_Click(sender As Object, e As EventArgs) Handles btn_FreeRoam.Click + Try + Strings.GameState(0) = "Free" + TerminalPrompt.Show() + Close() + Catch ex As Exception + Dim NewBugSlap As New BugSlap + NewBugSlap.Show() + NewBugSlap.TextBox1.Text = ex.Message + Close() + End Try + End Sub +End Class -- cgit v1.2.3