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/TerminalPrompt.vb | 27 ++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 ShiftOS-TheRevival/MainForms/TerminalPrompt.vb (limited to 'ShiftOS-TheRevival/MainForms/TerminalPrompt.vb') diff --git a/ShiftOS-TheRevival/MainForms/TerminalPrompt.vb b/ShiftOS-TheRevival/MainForms/TerminalPrompt.vb new file mode 100644 index 0000000..b86e071 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/TerminalPrompt.vb @@ -0,0 +1,27 @@ +Public Class TerminalPrompt + Private Sub Terminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load + FormBorderStyle = FormBorderStyle.None + WindowState = FormWindowState.Maximized + If Strings.GameState(0) = "Free" Then + Strings.ComputerInfo(0) = "shiftos" + Strings.ComputerInfo(1) = "user" + PrintPrompt() + End If + End Sub + + Public Sub PrintPrompt() + If TextBox1.Text = Nothing Then + If Strings.OnceInfo(0) = "No" Then + TextBox1.Text = "root@" & Strings.ComputerInfo(0) & " #> " + Else + TextBox1.Text = Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> " + End If + Else + If Strings.OnceInfo(0) = "No" Then + TextBox1.Text = TextBox1.Text & Environment.NewLine & "root@" & Strings.ComputerInfo(0) & " #> " + Else + TextBox1.Text = TextBox1.Text & Environment.NewLine & Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> " + End If + End If + End Sub +End Class \ No newline at end of file -- cgit v1.2.3