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/BugSlap.Designer.vb | 63 +++++++++ ShiftOS-TheRevival/MainForms/BugSlap.resx | 120 +++++++++++++++++ ShiftOS-TheRevival/MainForms/BugSlap.vb | 3 + .../MainForms/ShiftOS Menu.Designer.vb | 140 -------------------- ShiftOS-TheRevival/MainForms/ShiftOS Menu.resx | 120 ----------------- ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb | 27 ---- .../MainForms/ShiftOSMenu.Designer.vb | 145 +++++++++++++++++++++ ShiftOS-TheRevival/MainForms/ShiftOSMenu.resx | 123 +++++++++++++++++ ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb | 40 ++++++ ShiftOS-TheRevival/MainForms/Strings.vb | 35 +++++ .../MainForms/TerminalPrompt.Designer.vb | 54 ++++++++ ShiftOS-TheRevival/MainForms/TerminalPrompt.resx | 120 +++++++++++++++++ ShiftOS-TheRevival/MainForms/TerminalPrompt.vb | 27 ++++ .../My Project/Application.Designer.vb | 12 +- ShiftOS-TheRevival/My Project/Application.myapp | 5 +- .../My Project/Resources.Designer.vb | 27 ---- ShiftOS-TheRevival/My Project/Resources.resx | 9 -- ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj | 30 ++++- 18 files changed, 763 insertions(+), 337 deletions(-) create mode 100644 ShiftOS-TheRevival/MainForms/BugSlap.Designer.vb create mode 100644 ShiftOS-TheRevival/MainForms/BugSlap.resx create mode 100644 ShiftOS-TheRevival/MainForms/BugSlap.vb delete mode 100644 ShiftOS-TheRevival/MainForms/ShiftOS Menu.Designer.vb delete mode 100644 ShiftOS-TheRevival/MainForms/ShiftOS Menu.resx delete mode 100644 ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb create mode 100644 ShiftOS-TheRevival/MainForms/ShiftOSMenu.Designer.vb create mode 100644 ShiftOS-TheRevival/MainForms/ShiftOSMenu.resx create mode 100644 ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb create mode 100644 ShiftOS-TheRevival/MainForms/Strings.vb create mode 100644 ShiftOS-TheRevival/MainForms/TerminalPrompt.Designer.vb create mode 100644 ShiftOS-TheRevival/MainForms/TerminalPrompt.resx create mode 100644 ShiftOS-TheRevival/MainForms/TerminalPrompt.vb diff --git a/ShiftOS-TheRevival/MainForms/BugSlap.Designer.vb b/ShiftOS-TheRevival/MainForms/BugSlap.Designer.vb new file mode 100644 index 0000000..654c600 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/BugSlap.Designer.vb @@ -0,0 +1,63 @@ + _ +Partial Class BugSlap + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.Label1 = New System.Windows.Forms.Label() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Arial Narrow", 36.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(13, 13) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(456, 57) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Bug has been slapped!" + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(23, 74) + Me.TextBox1.Multiline = True + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(765, 364) + Me.TextBox1.TabIndex = 1 + ' + 'BugSlap + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.Label1) + Me.Name = "BugSlap" + Me.Text = "BugSlap" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Label1 As Label + Friend WithEvents TextBox1 As TextBox +End Class diff --git a/ShiftOS-TheRevival/MainForms/BugSlap.resx b/ShiftOS-TheRevival/MainForms/BugSlap.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/BugSlap.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/BugSlap.vb b/ShiftOS-TheRevival/MainForms/BugSlap.vb new file mode 100644 index 0000000..7dd057c --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/BugSlap.vb @@ -0,0 +1,3 @@ +Public Class BugSlap + +End Class \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/ShiftOS Menu.Designer.vb b/ShiftOS-TheRevival/MainForms/ShiftOS Menu.Designer.vb deleted file mode 100644 index 4e27707..0000000 --- a/ShiftOS-TheRevival/MainForms/ShiftOS Menu.Designer.vb +++ /dev/null @@ -1,140 +0,0 @@ - _ -Partial Class Form1 - Inherits System.Windows.Forms.Form - - 'Form overrides dispose to clean up the component list. - _ - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer - - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - _ - Private Sub InitializeComponent() - Me.Label1 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.btn_Aboot = New System.Windows.Forms.Button() - Me.lbl_BuildString = New System.Windows.Forms.Label() - Me.btn_StoryMode = New System.Windows.Forms.Button() - Me.btn_FreeRoam = New System.Windows.Forms.Button() - Me.btn_Exit = New System.Windows.Forms.Button() - Me.SuspendLayout() - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Consolas", 36.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.ForeColor = System.Drawing.Color.White - Me.Label1.Location = New System.Drawing.Point(12, 9) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(206, 56) - Me.Label1.TabIndex = 0 - Me.Label1.Text = "ShiftOS" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Font = New System.Drawing.Font("Consolas", 12.0!) - Me.Label2.ForeColor = System.Drawing.Color.White - Me.Label2.Location = New System.Drawing.Point(18, 65) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(162, 19) - Me.Label2.TabIndex = 1 - Me.Label2.Text = "Shift is your way" - ' - 'btn_Aboot - ' - Me.btn_Aboot.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn_Aboot.ForeColor = System.Drawing.Color.White - Me.btn_Aboot.Location = New System.Drawing.Point(22, 166) - Me.btn_Aboot.Name = "btn_Aboot" - Me.btn_Aboot.Size = New System.Drawing.Size(158, 23) - Me.btn_Aboot.TabIndex = 2 - Me.btn_Aboot.Text = "About" - Me.btn_Aboot.UseVisualStyleBackColor = True - ' - 'lbl_BuildString - ' - Me.lbl_BuildString.AutoSize = True - Me.lbl_BuildString.ForeColor = System.Drawing.Color.White - Me.lbl_BuildString.Location = New System.Drawing.Point(13, 416) - Me.lbl_BuildString.Name = "lbl_BuildString" - Me.lbl_BuildString.Size = New System.Drawing.Size(39, 13) - Me.lbl_BuildString.TabIndex = 3 - Me.lbl_BuildString.Text = "Label3" - ' - 'btn_StoryMode - ' - Me.btn_StoryMode.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn_StoryMode.ForeColor = System.Drawing.Color.White - Me.btn_StoryMode.Location = New System.Drawing.Point(22, 108) - Me.btn_StoryMode.Name = "btn_StoryMode" - Me.btn_StoryMode.Size = New System.Drawing.Size(158, 23) - Me.btn_StoryMode.TabIndex = 2 - Me.btn_StoryMode.Text = "Story Mode" - Me.btn_StoryMode.UseVisualStyleBackColor = True - ' - 'btn_FreeRoam - ' - Me.btn_FreeRoam.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn_FreeRoam.ForeColor = System.Drawing.Color.White - Me.btn_FreeRoam.Location = New System.Drawing.Point(22, 137) - Me.btn_FreeRoam.Name = "btn_FreeRoam" - Me.btn_FreeRoam.Size = New System.Drawing.Size(158, 23) - Me.btn_FreeRoam.TabIndex = 2 - Me.btn_FreeRoam.Text = "Free Roam Mode" - Me.btn_FreeRoam.UseVisualStyleBackColor = True - ' - 'btn_Exit - ' - Me.btn_Exit.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn_Exit.ForeColor = System.Drawing.Color.White - Me.btn_Exit.Location = New System.Drawing.Point(22, 195) - Me.btn_Exit.Name = "btn_Exit" - Me.btn_Exit.Size = New System.Drawing.Size(158, 23) - Me.btn_Exit.TabIndex = 2 - Me.btn_Exit.Text = "Exit" - Me.btn_Exit.UseVisualStyleBackColor = True - ' - 'Form1 - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.Black - Me.ClientSize = New System.Drawing.Size(624, 441) - Me.Controls.Add(Me.lbl_BuildString) - Me.Controls.Add(Me.btn_FreeRoam) - Me.Controls.Add(Me.btn_StoryMode) - Me.Controls.Add(Me.btn_Exit) - Me.Controls.Add(Me.btn_Aboot) - Me.Controls.Add(Me.Label2) - Me.Controls.Add(Me.Label1) - Me.MaximizeBox = False - Me.Name = "Form1" - Me.ShowIcon = False - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "Main Menu" - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - - Friend WithEvents Label1 As Label - Friend WithEvents Label2 As Label - Friend WithEvents btn_Aboot As Button - Friend WithEvents lbl_BuildString As Label - Friend WithEvents btn_StoryMode As Button - Friend WithEvents btn_FreeRoam As Button - Friend WithEvents btn_Exit As Button -End Class diff --git a/ShiftOS-TheRevival/MainForms/ShiftOS Menu.resx b/ShiftOS-TheRevival/MainForms/ShiftOS Menu.resx deleted file mode 100644 index 1af7de1..0000000 --- a/ShiftOS-TheRevival/MainForms/ShiftOS Menu.resx +++ /dev/null @@ -1,120 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb b/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb deleted file mode 100644 index ebfe7f2..0000000 --- a/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb +++ /dev/null @@ -1,27 +0,0 @@ -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 -End Class diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.Designer.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.Designer.vb new file mode 100644 index 0000000..69e79e9 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.Designer.vb @@ -0,0 +1,145 @@ + _ +Partial Class Form1 + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.btn_Aboot = New System.Windows.Forms.Button() + Me.lbl_BuildString = New System.Windows.Forms.Label() + Me.btn_StoryMode = New System.Windows.Forms.Button() + Me.btn_FreeRoam = New System.Windows.Forms.Button() + Me.btn_Exit = New System.Windows.Forms.Button() + Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Consolas", 36.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(12, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(206, 56) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "ShiftOS" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Consolas", 12.0!) + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(18, 65) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(162, 19) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Shift is your way" + ' + 'btn_Aboot + ' + Me.btn_Aboot.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_Aboot.ForeColor = System.Drawing.Color.White + Me.btn_Aboot.Location = New System.Drawing.Point(22, 166) + Me.btn_Aboot.Name = "btn_Aboot" + Me.btn_Aboot.Size = New System.Drawing.Size(158, 23) + Me.btn_Aboot.TabIndex = 2 + Me.btn_Aboot.Text = "About" + Me.btn_Aboot.UseVisualStyleBackColor = True + ' + 'lbl_BuildString + ' + Me.lbl_BuildString.AutoSize = True + Me.lbl_BuildString.ForeColor = System.Drawing.Color.White + Me.lbl_BuildString.Location = New System.Drawing.Point(13, 416) + Me.lbl_BuildString.Name = "lbl_BuildString" + Me.lbl_BuildString.Size = New System.Drawing.Size(39, 13) + Me.lbl_BuildString.TabIndex = 3 + Me.lbl_BuildString.Text = "Label3" + ' + 'btn_StoryMode + ' + Me.btn_StoryMode.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_StoryMode.ForeColor = System.Drawing.Color.White + Me.btn_StoryMode.Location = New System.Drawing.Point(22, 108) + Me.btn_StoryMode.Name = "btn_StoryMode" + Me.btn_StoryMode.Size = New System.Drawing.Size(158, 23) + Me.btn_StoryMode.TabIndex = 2 + Me.btn_StoryMode.Text = "Story Mode" + Me.btn_StoryMode.UseVisualStyleBackColor = True + ' + 'btn_FreeRoam + ' + Me.btn_FreeRoam.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_FreeRoam.ForeColor = System.Drawing.Color.White + Me.btn_FreeRoam.Location = New System.Drawing.Point(22, 137) + Me.btn_FreeRoam.Name = "btn_FreeRoam" + Me.btn_FreeRoam.Size = New System.Drawing.Size(158, 23) + Me.btn_FreeRoam.TabIndex = 2 + Me.btn_FreeRoam.Text = "Free Roam Mode" + Me.btn_FreeRoam.UseVisualStyleBackColor = True + ' + 'btn_Exit + ' + Me.btn_Exit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_Exit.ForeColor = System.Drawing.Color.White + Me.btn_Exit.Location = New System.Drawing.Point(22, 195) + Me.btn_Exit.Name = "btn_Exit" + Me.btn_Exit.Size = New System.Drawing.Size(158, 23) + Me.btn_Exit.TabIndex = 2 + Me.btn_Exit.Text = "Exit" + Me.btn_Exit.UseVisualStyleBackColor = True + ' + 'BackgroundWorker1 + ' + ' + 'Form1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Black + Me.ClientSize = New System.Drawing.Size(624, 441) + Me.Controls.Add(Me.lbl_BuildString) + Me.Controls.Add(Me.btn_FreeRoam) + Me.Controls.Add(Me.btn_StoryMode) + Me.Controls.Add(Me.btn_Exit) + Me.Controls.Add(Me.btn_Aboot) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.MaximizeBox = False + Me.Name = "Form1" + Me.ShowIcon = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Main Menu" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents btn_Aboot As Button + Friend WithEvents lbl_BuildString As Label + Friend WithEvents btn_StoryMode As Button + Friend WithEvents btn_FreeRoam As Button + Friend WithEvents btn_Exit As Button + Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker +End Class diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.resx b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.resx new file mode 100644 index 0000000..71e4907 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file 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 diff --git a/ShiftOS-TheRevival/MainForms/Strings.vb b/ShiftOS-TheRevival/MainForms/Strings.vb new file mode 100644 index 0000000..15303d2 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Strings.vb @@ -0,0 +1,35 @@ +Public Class Strings + Public Shared OSInfo() As String + Public Shared ComputerInfo() As String + Public Shared GameState() As String + Public Shared OnceInfo() As String + + 'STRING CATEGORIZATION WRITING RULES! + 'THIS IS IN ORDER TO REMAIN COMPATIBLE WITH OLDER VERSIONS! + ' + 'General string : + '(Row Number) = Function/Subject (default value : default) + ' + 'Each have to placed in numerical order + 'If there's moved strings for newer version, example: + '0 = Computer Name (0.1) => OS Version (0.2) => Root Location (0.3), etc. + 'If there's removed strings for newer version, example: + '69 = Secret Easter Egg (removed in 0.420) + 'If there's repurposed strings for newer version after removed, example: + '5 = FreeRoam enabled? (removed in 0.4) => Story Mode State + ' + 'ALWAYS WRITE THE NOTES IN COMMENTS, THIS CLASS ONLY IS FOR STORING STRINGS AND DEPLOYING STRINGS TO DISK + + 'OSInfo Strings: + '0 = OSVersion (default : dependant) + ' + 'OnceInfo Strings: + '0 = IsRoot? (default : 0) + ' + 'ComputerInfo Strings: + '0 = Computer Name (default : shiftos) + '1 = Username (default : user) + ' + 'GameState Strings: + '0 = Playing Mode (default : Story) +End Class diff --git a/ShiftOS-TheRevival/MainForms/TerminalPrompt.Designer.vb b/ShiftOS-TheRevival/MainForms/TerminalPrompt.Designer.vb new file mode 100644 index 0000000..f73536b --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/TerminalPrompt.Designer.vb @@ -0,0 +1,54 @@ + _ +Partial Class TerminalPrompt + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.SuspendLayout() + ' + 'TextBox1 + ' + Me.TextBox1.BackColor = System.Drawing.Color.Black + Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TextBox1.ForeColor = System.Drawing.Color.Silver + Me.TextBox1.Location = New System.Drawing.Point(0, 0) + Me.TextBox1.Multiline = True + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(800, 450) + Me.TextBox1.TabIndex = 0 + ' + 'Terminal + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Black + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.TextBox1) + Me.Name = "Terminal" + Me.Text = "Terminal" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents TextBox1 As TextBox +End Class diff --git a/ShiftOS-TheRevival/MainForms/TerminalPrompt.resx b/ShiftOS-TheRevival/MainForms/TerminalPrompt.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/TerminalPrompt.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file 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 diff --git a/ShiftOS-TheRevival/My Project/Application.Designer.vb b/ShiftOS-TheRevival/My Project/Application.Designer.vb index a2e4b61..38484b7 100644 --- a/ShiftOS-TheRevival/My Project/Application.Designer.vb +++ b/ShiftOS-TheRevival/My Project/Application.Designer.vb @@ -13,24 +13,24 @@ Option Explicit On Namespace My - + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, ' or if you encounter build errors in this file, go to the Project Designer ' (go to Project Properties or double-click the My Project node in ' Solution Explorer), and make changes on the Application tab. ' Partial Friend Class MyApplication - - _ + + _ Public Sub New() MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) Me.IsSingleInstance = false Me.EnableVisualStyles = true Me.SaveMySettingsOnExit = true - Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose End Sub - - _ + + _ Protected Overrides Sub OnCreateMainForm() Me.MainForm = Global.ShiftOS_TheRevival.Form1 End Sub diff --git a/ShiftOS-TheRevival/My Project/Application.myapp b/ShiftOS-TheRevival/My Project/Application.myapp index 1243847..effc3c8 100644 --- a/ShiftOS-TheRevival/My Project/Application.myapp +++ b/ShiftOS-TheRevival/My Project/Application.myapp @@ -3,9 +3,8 @@ true Form1 false - 0 + 1 true 0 - 0 true - + \ No newline at end of file diff --git a/ShiftOS-TheRevival/My Project/Resources.Designer.vb b/ShiftOS-TheRevival/My Project/Resources.Designer.vb index 1b5c31f..271c441 100644 --- a/ShiftOS-TheRevival/My Project/Resources.Designer.vb +++ b/ShiftOS-TheRevival/My Project/Resources.Designer.vb @@ -60,33 +60,6 @@ Namespace My.Resources End Set End Property - ''' - ''' Looks up a localized string similar to ewindows. - ''' - Friend ReadOnly Property BuildLab() As String - Get - Return ResourceManager.GetString("BuildLab", resourceCulture) - End Get - End Property - - ''' - ''' Looks up a localized string similar to 8. - ''' - Friend ReadOnly Property BuildNumber() As String - Get - Return ResourceManager.GetString("BuildNumber", resourceCulture) - End Get - End Property - - ''' - ''' Looks up a localized string similar to No. - ''' - Friend ReadOnly Property ReleasedExe() As String - Get - Return ResourceManager.GetString("ReleasedExe", resourceCulture) - End Get - End Property - ''' ''' Looks up a localized string similar to No '''12 diff --git a/ShiftOS-TheRevival/My Project/Resources.resx b/ShiftOS-TheRevival/My Project/Resources.resx index bbfb66c..bcce77f 100644 --- a/ShiftOS-TheRevival/My Project/Resources.resx +++ b/ShiftOS-TheRevival/My Project/Resources.resx @@ -117,15 +117,6 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ewindows - - - 8 - - - No - ..\Resources\ShiftOSBuildLab.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252 diff --git a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj index 48676cf..43de5df 100644 --- a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj +++ b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj @@ -72,17 +72,31 @@ - + + BugSlap.vb + + + Form + + Form - - ShiftOS Menu.vb + + ShiftOSMenu.vb + Form + + + + TerminalPrompt.vb + + Form True Application.myapp + True True @@ -96,14 +110,20 @@ + + BugSlap.vb + + + TerminalPrompt.vb + VbMyResourcesResXFileCodeGenerator Resources.Designer.vb My.Resources Designer - - ShiftOS Menu.vb + + ShiftOSMenu.vb -- cgit v1.2.3