From 2fa56446be7a049994786931e9145043362e8adb Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sun, 20 Nov 2022 16:43:01 +0700 Subject: Guide command, MathQuiz App, ShiftOS About, and more --- .../MainForms/Applications/Console.Designer.vb | 107 +++++++++ .../MainForms/Applications/Console.resx | 129 +++++++++++ .../MainForms/Applications/Console.vb | 239 +++++++++++++++++++++ ShiftOS-TheRevival/MainForms/Console.Designer.vb | 107 --------- ShiftOS-TheRevival/MainForms/Console.resx | 129 ----------- ShiftOS-TheRevival/MainForms/Console.vb | 239 --------------------- ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb | 156 -------------- .../MainForms/ShiftOSAbout.Designer.vb | 209 ++++++++++++++++++ ShiftOS-TheRevival/MainForms/ShiftOSAbout.resx | 120 +++++++++++ ShiftOS-TheRevival/MainForms/ShiftOSAbout.vb | 25 +++ .../MainForms/ShiftOSMenu.Designer.vb | 6 +- ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb | 3 +- 12 files changed, 834 insertions(+), 635 deletions(-) create mode 100644 ShiftOS-TheRevival/MainForms/Applications/Console.Designer.vb create mode 100644 ShiftOS-TheRevival/MainForms/Applications/Console.resx create mode 100644 ShiftOS-TheRevival/MainForms/Applications/Console.vb delete mode 100644 ShiftOS-TheRevival/MainForms/Console.Designer.vb delete mode 100644 ShiftOS-TheRevival/MainForms/Console.resx delete mode 100644 ShiftOS-TheRevival/MainForms/Console.vb delete mode 100644 ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb create mode 100644 ShiftOS-TheRevival/MainForms/ShiftOSAbout.Designer.vb create mode 100644 ShiftOS-TheRevival/MainForms/ShiftOSAbout.resx create mode 100644 ShiftOS-TheRevival/MainForms/ShiftOSAbout.vb (limited to 'ShiftOS-TheRevival/MainForms') diff --git a/ShiftOS-TheRevival/MainForms/Applications/Console.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Console.Designer.vb new file mode 100644 index 0000000..78dbfbf --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Console.Designer.vb @@ -0,0 +1,107 @@ + +Partial Class Console + 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.components = New System.ComponentModel.Container() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.StoryOnlyTimer = New System.Windows.Forms.Timer(Me.components) + Me.InfoBar = New System.Windows.Forms.TextBox() + Me.InfoBarTimer = New System.Windows.Forms.Timer(Me.components) + Me.ToolBar = New System.Windows.Forms.TextBox() + Me.ShortcutHandler = New System.ComponentModel.BackgroundWorker() + Me.SuspendLayout() + ' + 'TextBox1 + ' + Me.TextBox1.BackColor = System.Drawing.Color.Black + Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TextBox1.Font = New System.Drawing.Font("Consolas", 11.0!) + Me.TextBox1.ForeColor = System.Drawing.Color.White + Me.TextBox1.Location = New System.Drawing.Point(0, 36) + Me.TextBox1.Multiline = True + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.ShortcutsEnabled = False + Me.TextBox1.Size = New System.Drawing.Size(800, 396) + Me.TextBox1.TabIndex = 0 + ' + 'StoryOnlyTimer + ' + ' + 'InfoBar + ' + Me.InfoBar.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.InfoBar.Dock = System.Windows.Forms.DockStyle.Bottom + Me.InfoBar.Font = New System.Drawing.Font("Consolas", 11.0!) + Me.InfoBar.ForeColor = System.Drawing.Color.Black + Me.InfoBar.Location = New System.Drawing.Point(0, 432) + Me.InfoBar.Name = "InfoBar" + Me.InfoBar.ReadOnly = True + Me.InfoBar.ShortcutsEnabled = False + Me.InfoBar.Size = New System.Drawing.Size(800, 18) + Me.InfoBar.TabIndex = 0 + Me.InfoBar.TabStop = False + Me.InfoBar.Text = "Infobar" + Me.InfoBar.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.InfoBar.Visible = False + ' + 'InfoBarTimer + ' + ' + 'ToolBar + ' + Me.ToolBar.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.ToolBar.Dock = System.Windows.Forms.DockStyle.Top + Me.ToolBar.Font = New System.Drawing.Font("Consolas", 11.0!) + Me.ToolBar.Location = New System.Drawing.Point(0, 0) + Me.ToolBar.Multiline = True + Me.ToolBar.Name = "ToolBar" + Me.ToolBar.Size = New System.Drawing.Size(800, 36) + Me.ToolBar.TabIndex = 1 + Me.ToolBar.Visible = False + ' + 'Console + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Red + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.InfoBar) + Me.Controls.Add(Me.ToolBar) + Me.ForeColor = System.Drawing.Color.White + Me.Name = "Console" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Terminal" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents TextBox1 As TextBox + Friend WithEvents StoryOnlyTimer As Timer + Friend WithEvents InfoBar As TextBox + Friend WithEvents InfoBarTimer As Timer + Friend WithEvents ToolBar As TextBox + Public WithEvents ShortcutHandler As System.ComponentModel.BackgroundWorker +End Class diff --git a/ShiftOS-TheRevival/MainForms/Applications/Console.resx b/ShiftOS-TheRevival/MainForms/Applications/Console.resx new file mode 100644 index 0000000..38ebc49 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Console.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 153, 17 + + + 274, 17 + + \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Applications/Console.vb b/ShiftOS-TheRevival/MainForms/Applications/Console.vb new file mode 100644 index 0000000..3ae1603 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/Applications/Console.vb @@ -0,0 +1,239 @@ +Imports System.IO + +Public Class Console + Public TrackPos As Integer 'Tracking the position of the caret in order to not bypass the user@hostname string + Public DefaultPrompt As String 'Default prompt to display in ShiftOS, usually it's user@hostname + Public BadCommand As Boolean 'Detect if it's a bad command or not + Public DisplayStory As Integer 'Keep record for displaying the DevX's or other's monologue + Public StoryToTell As String 'Which chapter that you're going to be in + Public ShouldChange As Boolean = False 'Indicates if the interpreter should changed to a specific program + Public ChangeInterpreter As Boolean = False 'Default interpreter is Terminal, if it's changed to True, there'll be other program used by Console + Public CurrentInterpreter As String 'Shows what program is using Console + Public CurrentDirectory As String 'Current Directory for ShiftOS Explorer + Public Pseudodir As String 'Pseudo-directory for ShiftFS + Public StayAtChapter As Boolean = False 'If this set to true, then intro for chapters are mostly going to be in + Public ToolBarUse As Boolean = False 'Either any program is using ToolBar or not + Public ReleaseCursor As Boolean = False 'Release cursor from TrackPos + Public ShOSKey As String 'DOSKEY tracking string for ShiftOS + Public Secure As Boolean 'Define either Secure Text mode is enabled or not (experimental!) + Public SecureString As String 'String for Secure Text mode (experimental) + + Private Sub Console_Load(sender As Object, e As EventArgs) Handles MyBase.Load + With ShortcutHandler + .WorkerSupportsCancellation = True + End With + Console_Full() + Cursor.Hide() + InitializeTerminal() + End Sub + + Private Sub txtterm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown + KeyInput = e.KeyData + InputKey = e.KeyData + ShortcutHandle() + If ReleaseCursor = True Then + + Else + Select Case e.KeyData + Case Keys.Enter + e.SuppressKeyPress = True + If Secure = True Then + Secure = False + TextBox1.ReadOnly = False + Terminal_ReadCommand() + NewLine(SecureString) + Terminal_PrintPrompt() + SecureString = Nothing + TextRebind() + Else + If TextBox1.ReadOnly = True Then + + Else + Terminal_ReadCommand() + If Strings.AvailableFeature(18) = 1 Then + ShOSKey_InputCommand(command) + End If + If ChangeInterpreter = True Then + DoChildCommand() + Terminal_PrintPrompt() + TextRebind() + Else + Terminal_DoCommand() + Terminal_PrintPrompt() + TextRebind() + End If + End If + End If + TrackPos = 0 + Case Keys.ShiftKey, Keys.LShiftKey, Keys.RShiftKey, Keys.Alt, Keys.ControlKey, Keys.LWin, Keys.RWin + e.SuppressKeyPress = True + TrackPos = TrackPos + Case Keys.Back + If TrackPos <= 0 Then + e.SuppressKeyPress = True + Else + TrackPos = TrackPos - 1 + 'If TextBox1.SelectedText.Length < 1 Then + ' TrackPos = TrackPos - 1 + 'Else + ' e.SuppressKeyPress = True + 'End If + End If + Case Keys.Right + If TextBox1.SelectionStart = TextBox1.TextLength Then + Else + TrackPos = TrackPos + 1 + End If + 'If TrackPos <= 0 Then + ' Dim CommandChar As String + ' CommandChar = TextBox1.Lines(TextBox1.Lines.Length - 1) + ' CommandChar = CommandChar.Replace(DefaultPrompt, "") + ' TrackPos = CommandChar.Length - 1 + ' TextBox1.Select(TextBox1.TextLength, 0) + ' TextBox1.ScrollToCaret() + 'End If + Case Keys.Left + If TextBox1.SelectionStart = 0 Then + e.SuppressKeyPress = True + Else + TrackPos = TrackPos - 1 + End If + If TrackPos <= 0 Then + Dim CommandChar As String + CommandChar = TextBox1.Lines(TextBox1.Lines.Length - 1) + CommandChar = CommandChar.Replace(DefaultPrompt, "") + TrackPos = CommandChar.Length - 1 + TextBox1.Select(TextBox1.TextLength, 0) + TextBox1.ScrollToCaret() + End If + 'If TrackPos < 1 Then + ' e.SuppressKeyPress = True + ' TrackPos = TrackPos - 1 + 'Else + ' TrackPos = TrackPos - 2 + 'End If + Case Keys.Up + e.SuppressKeyPress = True + If Strings.AvailableFeature(18) = 1 Then + ShOSKey_Display() + TextRebind() + End If + Case Keys.Down + e.SuppressKeyPress = True + If Strings.AvailableFeature(18) = 1 Then + ShOSKey_Display() + TextRebind() + End If + Case Else + If Secure = True Then + If e.Modifiers = Keys.Shift Then + SecureString = SecureString & Chr(e.KeyValue) + Else + SecureString = SecureString & Chr(e.KeyValue + 32) + End If + Else + TrackPos = TrackPos + 1 + End If + End Select + End If + 'If e.KeyCode = Keys.Enter Then + ' 'If command = "clear" Then + ' ' txtterm.Text = txtterm.Text + ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> " + ' ' txtterm.Select(txtterm.Text.Length, 0) + + ' 'Else + ' ' txtterm.Text = txtterm.Text + Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> " + ' ' txtterm.Select(txtterm.Text.Length, 0) + ' 'End If + 'Else + ' If e.KeyCode = Keys.Back Then + ' Else + ' TrackPos = TrackPos + 1 + ' End If + 'End If + + 'If e.KeyCode = Keys.Back Then + ' 'If TrackPos < 1 Then + ' ' e.SuppressKeyPress = True + ' 'Else + ' ' If TextBox1.SelectedText.Length < 1 Then + ' ' TrackPos = TrackPos - 1 + ' ' Else + ' ' e.SuppressKeyPress = True + ' ' End If + ' 'End If + 'End If + End Sub + + Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click, TextBox1.MouseDoubleClick + TextRebind() + End Sub + + Private Sub StoryOnlyTimer_Tick(sender As Object, e As EventArgs) Handles StoryOnlyTimer.Tick + StoryLineIntro(DisplayStory) + DisplayStory = DisplayStory + 1 + End Sub + + Private Sub InfoBarTimer_Tick(sender As Object, e As EventArgs) Handles InfoBarTimer.Tick + InfoBar.Text = "|" + If Strings.AvailableFeature(5) = "1" Then + InfoBar.Text = InfoBar.Text & " " & Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " |" + ElseIf Strings.AvailableFeature(5) = "3" Then + If Strings.AvailableFeature(6) = "1" Then + InfoBar.Text = InfoBar.Text & " " & Math.Floor(Date.Now.Subtract(Date.Today).TotalMinutes) & " |" + ElseIf Strings.AvailableFeature(6) = "3" Then + If Strings.AvailableFeature(7) = "1" Then + InfoBar.Text = InfoBar.Text & " " & Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " |" + ElseIf Strings.AvailableFeature(7) = "3" Then + If Strings.AvailableFeature(12) = "1" Then + If Date.Now.Hour < 12 Then + InfoBar.Text = InfoBar.Text & Environment.NewLine & " " & TimeOfDay.Hour & " AM |" + Else + InfoBar.Text = InfoBar.Text & Environment.NewLine & " " & TimeOfDay.Hour - 12 & " PM |" + End If + ElseIf Strings.AvailableFeature(12) = "3" Then + If Strings.AvailableFeature(23) = "1" Then + InfoBar.Text = InfoBar.Text & Environment.NewLine & " " & TimeOfDay.Hour & ":" & TimeOfDay.Minute & " |" + End If + End If + End If + End If + End If + If Strings.AvailableFeature(24) = 1 Then + InfoBar.Text = InfoBar.Text & " " & Date.Now.DayOfYear & " |" + ElseIf Strings.AvailableFeature(24) = 3 Then + If Strings.AvailableFeature(25) = 1 Then + Dim WeekOfYear As String = Date.Now.DayOfYear / 7 + InfoBar.Text = InfoBar.Text & " " & WeekOfYear.Substring(0, 2) & " |" + ElseIf Strings.AvailableFeature(25) = 3 Then + If Strings.AvailableFeature(26) = 1 Then + InfoBar.Text = InfoBar.Text & " " & Date.Now.Month & " |" + ElseIf Strings.AvailableFeature(26) = 3 Then + If Strings.AvailableFeature(27) = 1 Then + InfoBar.Text = InfoBar.Text & " " & Date.Now.Year & " |" + ElseIf Strings.AvailableFeature(27) = 3 Then + If Strings.AvailableFeature(28) = 1 Then + InfoBar.Text = InfoBar.Text & " " & Date.Now.Day & "/" & Date.Now.Month & " |" + ElseIf Strings.AvailableFeature(28) = 3 Then + If Strings.AvailableFeature(29) = 1 Then + InfoBar.Text = InfoBar.Text & " " & Date.Now.Day & "/" & Date.Now.Month & "/" & Date.Now.Year & " |" + End If + End If + End If + End If + End If + End If + If Strings.OnceInfo(0) = "Yes" Then + InfoBar.Text = InfoBar.Text & " root |" + Else + InfoBar.Text = InfoBar.Text & " user |" + End If + InfoBar.Text = InfoBar.Text & " " & CurrentInterpreter & " |" + InfoBar.Text = InfoBar.Text & " " & Strings.ComputerInfo(2) & " CP |" + InfoBar.Text = InfoBar.Text & " " & TrackPos & " |" + End Sub + + Private Sub TextBox1_Click(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseDoubleClick, TextBox1.Click + + End Sub +End Class \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Console.Designer.vb b/ShiftOS-TheRevival/MainForms/Console.Designer.vb deleted file mode 100644 index 78dbfbf..0000000 --- a/ShiftOS-TheRevival/MainForms/Console.Designer.vb +++ /dev/null @@ -1,107 +0,0 @@ - -Partial Class Console - 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.components = New System.ComponentModel.Container() - Me.TextBox1 = New System.Windows.Forms.TextBox() - Me.StoryOnlyTimer = New System.Windows.Forms.Timer(Me.components) - Me.InfoBar = New System.Windows.Forms.TextBox() - Me.InfoBarTimer = New System.Windows.Forms.Timer(Me.components) - Me.ToolBar = New System.Windows.Forms.TextBox() - Me.ShortcutHandler = New System.ComponentModel.BackgroundWorker() - Me.SuspendLayout() - ' - 'TextBox1 - ' - Me.TextBox1.BackColor = System.Drawing.Color.Black - Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill - Me.TextBox1.Font = New System.Drawing.Font("Consolas", 11.0!) - Me.TextBox1.ForeColor = System.Drawing.Color.White - Me.TextBox1.Location = New System.Drawing.Point(0, 36) - Me.TextBox1.Multiline = True - Me.TextBox1.Name = "TextBox1" - Me.TextBox1.ShortcutsEnabled = False - Me.TextBox1.Size = New System.Drawing.Size(800, 396) - Me.TextBox1.TabIndex = 0 - ' - 'StoryOnlyTimer - ' - ' - 'InfoBar - ' - Me.InfoBar.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.InfoBar.Dock = System.Windows.Forms.DockStyle.Bottom - Me.InfoBar.Font = New System.Drawing.Font("Consolas", 11.0!) - Me.InfoBar.ForeColor = System.Drawing.Color.Black - Me.InfoBar.Location = New System.Drawing.Point(0, 432) - Me.InfoBar.Name = "InfoBar" - Me.InfoBar.ReadOnly = True - Me.InfoBar.ShortcutsEnabled = False - Me.InfoBar.Size = New System.Drawing.Size(800, 18) - Me.InfoBar.TabIndex = 0 - Me.InfoBar.TabStop = False - Me.InfoBar.Text = "Infobar" - Me.InfoBar.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.InfoBar.Visible = False - ' - 'InfoBarTimer - ' - ' - 'ToolBar - ' - Me.ToolBar.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.ToolBar.Dock = System.Windows.Forms.DockStyle.Top - Me.ToolBar.Font = New System.Drawing.Font("Consolas", 11.0!) - Me.ToolBar.Location = New System.Drawing.Point(0, 0) - Me.ToolBar.Multiline = True - Me.ToolBar.Name = "ToolBar" - Me.ToolBar.Size = New System.Drawing.Size(800, 36) - Me.ToolBar.TabIndex = 1 - Me.ToolBar.Visible = False - ' - 'Console - ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BackColor = System.Drawing.Color.Red - Me.ClientSize = New System.Drawing.Size(800, 450) - Me.Controls.Add(Me.TextBox1) - Me.Controls.Add(Me.InfoBar) - Me.Controls.Add(Me.ToolBar) - Me.ForeColor = System.Drawing.Color.White - Me.Name = "Console" - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "Terminal" - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - - Friend WithEvents TextBox1 As TextBox - Friend WithEvents StoryOnlyTimer As Timer - Friend WithEvents InfoBar As TextBox - Friend WithEvents InfoBarTimer As Timer - Friend WithEvents ToolBar As TextBox - Public WithEvents ShortcutHandler As System.ComponentModel.BackgroundWorker -End Class diff --git a/ShiftOS-TheRevival/MainForms/Console.resx b/ShiftOS-TheRevival/MainForms/Console.resx deleted file mode 100644 index 38ebc49..0000000 --- a/ShiftOS-TheRevival/MainForms/Console.resx +++ /dev/null @@ -1,129 +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 - - - 17, 17 - - - 153, 17 - - - 274, 17 - - \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/Console.vb b/ShiftOS-TheRevival/MainForms/Console.vb deleted file mode 100644 index 3ae1603..0000000 --- a/ShiftOS-TheRevival/MainForms/Console.vb +++ /dev/null @@ -1,239 +0,0 @@ -Imports System.IO - -Public Class Console - Public TrackPos As Integer 'Tracking the position of the caret in order to not bypass the user@hostname string - Public DefaultPrompt As String 'Default prompt to display in ShiftOS, usually it's user@hostname - Public BadCommand As Boolean 'Detect if it's a bad command or not - Public DisplayStory As Integer 'Keep record for displaying the DevX's or other's monologue - Public StoryToTell As String 'Which chapter that you're going to be in - Public ShouldChange As Boolean = False 'Indicates if the interpreter should changed to a specific program - Public ChangeInterpreter As Boolean = False 'Default interpreter is Terminal, if it's changed to True, there'll be other program used by Console - Public CurrentInterpreter As String 'Shows what program is using Console - Public CurrentDirectory As String 'Current Directory for ShiftOS Explorer - Public Pseudodir As String 'Pseudo-directory for ShiftFS - Public StayAtChapter As Boolean = False 'If this set to true, then intro for chapters are mostly going to be in - Public ToolBarUse As Boolean = False 'Either any program is using ToolBar or not - Public ReleaseCursor As Boolean = False 'Release cursor from TrackPos - Public ShOSKey As String 'DOSKEY tracking string for ShiftOS - Public Secure As Boolean 'Define either Secure Text mode is enabled or not (experimental!) - Public SecureString As String 'String for Secure Text mode (experimental) - - Private Sub Console_Load(sender As Object, e As EventArgs) Handles MyBase.Load - With ShortcutHandler - .WorkerSupportsCancellation = True - End With - Console_Full() - Cursor.Hide() - InitializeTerminal() - End Sub - - Private Sub txtterm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown - KeyInput = e.KeyData - InputKey = e.KeyData - ShortcutHandle() - If ReleaseCursor = True Then - - Else - Select Case e.KeyData - Case Keys.Enter - e.SuppressKeyPress = True - If Secure = True Then - Secure = False - TextBox1.ReadOnly = False - Terminal_ReadCommand() - NewLine(SecureString) - Terminal_PrintPrompt() - SecureString = Nothing - TextRebind() - Else - If TextBox1.ReadOnly = True Then - - Else - Terminal_ReadCommand() - If Strings.AvailableFeature(18) = 1 Then - ShOSKey_InputCommand(command) - End If - If ChangeInterpreter = True Then - DoChildCommand() - Terminal_PrintPrompt() - TextRebind() - Else - Terminal_DoCommand() - Terminal_PrintPrompt() - TextRebind() - End If - End If - End If - TrackPos = 0 - Case Keys.ShiftKey, Keys.LShiftKey, Keys.RShiftKey, Keys.Alt, Keys.ControlKey, Keys.LWin, Keys.RWin - e.SuppressKeyPress = True - TrackPos = TrackPos - Case Keys.Back - If TrackPos <= 0 Then - e.SuppressKeyPress = True - Else - TrackPos = TrackPos - 1 - 'If TextBox1.SelectedText.Length < 1 Then - ' TrackPos = TrackPos - 1 - 'Else - ' e.SuppressKeyPress = True - 'End If - End If - Case Keys.Right - If TextBox1.SelectionStart = TextBox1.TextLength Then - Else - TrackPos = TrackPos + 1 - End If - 'If TrackPos <= 0 Then - ' Dim CommandChar As String - ' CommandChar = TextBox1.Lines(TextBox1.Lines.Length - 1) - ' CommandChar = CommandChar.Replace(DefaultPrompt, "") - ' TrackPos = CommandChar.Length - 1 - ' TextBox1.Select(TextBox1.TextLength, 0) - ' TextBox1.ScrollToCaret() - 'End If - Case Keys.Left - If TextBox1.SelectionStart = 0 Then - e.SuppressKeyPress = True - Else - TrackPos = TrackPos - 1 - End If - If TrackPos <= 0 Then - Dim CommandChar As String - CommandChar = TextBox1.Lines(TextBox1.Lines.Length - 1) - CommandChar = CommandChar.Replace(DefaultPrompt, "") - TrackPos = CommandChar.Length - 1 - TextBox1.Select(TextBox1.TextLength, 0) - TextBox1.ScrollToCaret() - End If - 'If TrackPos < 1 Then - ' e.SuppressKeyPress = True - ' TrackPos = TrackPos - 1 - 'Else - ' TrackPos = TrackPos - 2 - 'End If - Case Keys.Up - e.SuppressKeyPress = True - If Strings.AvailableFeature(18) = 1 Then - ShOSKey_Display() - TextRebind() - End If - Case Keys.Down - e.SuppressKeyPress = True - If Strings.AvailableFeature(18) = 1 Then - ShOSKey_Display() - TextRebind() - End If - Case Else - If Secure = True Then - If e.Modifiers = Keys.Shift Then - SecureString = SecureString & Chr(e.KeyValue) - Else - SecureString = SecureString & Chr(e.KeyValue + 32) - End If - Else - TrackPos = TrackPos + 1 - End If - End Select - End If - 'If e.KeyCode = Keys.Enter Then - ' 'If command = "clear" Then - ' ' txtterm.Text = txtterm.Text + ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> " - ' ' txtterm.Select(txtterm.Text.Length, 0) - - ' 'Else - ' ' txtterm.Text = txtterm.Text + Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> " - ' ' txtterm.Select(txtterm.Text.Length, 0) - ' 'End If - 'Else - ' If e.KeyCode = Keys.Back Then - ' Else - ' TrackPos = TrackPos + 1 - ' End If - 'End If - - 'If e.KeyCode = Keys.Back Then - ' 'If TrackPos < 1 Then - ' ' e.SuppressKeyPress = True - ' 'Else - ' ' If TextBox1.SelectedText.Length < 1 Then - ' ' TrackPos = TrackPos - 1 - ' ' Else - ' ' e.SuppressKeyPress = True - ' ' End If - ' 'End If - 'End If - End Sub - - Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click, TextBox1.MouseDoubleClick - TextRebind() - End Sub - - Private Sub StoryOnlyTimer_Tick(sender As Object, e As EventArgs) Handles StoryOnlyTimer.Tick - StoryLineIntro(DisplayStory) - DisplayStory = DisplayStory + 1 - End Sub - - Private Sub InfoBarTimer_Tick(sender As Object, e As EventArgs) Handles InfoBarTimer.Tick - InfoBar.Text = "|" - If Strings.AvailableFeature(5) = "1" Then - InfoBar.Text = InfoBar.Text & " " & Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " |" - ElseIf Strings.AvailableFeature(5) = "3" Then - If Strings.AvailableFeature(6) = "1" Then - InfoBar.Text = InfoBar.Text & " " & Math.Floor(Date.Now.Subtract(Date.Today).TotalMinutes) & " |" - ElseIf Strings.AvailableFeature(6) = "3" Then - If Strings.AvailableFeature(7) = "1" Then - InfoBar.Text = InfoBar.Text & " " & Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " |" - ElseIf Strings.AvailableFeature(7) = "3" Then - If Strings.AvailableFeature(12) = "1" Then - If Date.Now.Hour < 12 Then - InfoBar.Text = InfoBar.Text & Environment.NewLine & " " & TimeOfDay.Hour & " AM |" - Else - InfoBar.Text = InfoBar.Text & Environment.NewLine & " " & TimeOfDay.Hour - 12 & " PM |" - End If - ElseIf Strings.AvailableFeature(12) = "3" Then - If Strings.AvailableFeature(23) = "1" Then - InfoBar.Text = InfoBar.Text & Environment.NewLine & " " & TimeOfDay.Hour & ":" & TimeOfDay.Minute & " |" - End If - End If - End If - End If - End If - If Strings.AvailableFeature(24) = 1 Then - InfoBar.Text = InfoBar.Text & " " & Date.Now.DayOfYear & " |" - ElseIf Strings.AvailableFeature(24) = 3 Then - If Strings.AvailableFeature(25) = 1 Then - Dim WeekOfYear As String = Date.Now.DayOfYear / 7 - InfoBar.Text = InfoBar.Text & " " & WeekOfYear.Substring(0, 2) & " |" - ElseIf Strings.AvailableFeature(25) = 3 Then - If Strings.AvailableFeature(26) = 1 Then - InfoBar.Text = InfoBar.Text & " " & Date.Now.Month & " |" - ElseIf Strings.AvailableFeature(26) = 3 Then - If Strings.AvailableFeature(27) = 1 Then - InfoBar.Text = InfoBar.Text & " " & Date.Now.Year & " |" - ElseIf Strings.AvailableFeature(27) = 3 Then - If Strings.AvailableFeature(28) = 1 Then - InfoBar.Text = InfoBar.Text & " " & Date.Now.Day & "/" & Date.Now.Month & " |" - ElseIf Strings.AvailableFeature(28) = 3 Then - If Strings.AvailableFeature(29) = 1 Then - InfoBar.Text = InfoBar.Text & " " & Date.Now.Day & "/" & Date.Now.Month & "/" & Date.Now.Year & " |" - End If - End If - End If - End If - End If - End If - If Strings.OnceInfo(0) = "Yes" Then - InfoBar.Text = InfoBar.Text & " root |" - Else - InfoBar.Text = InfoBar.Text & " user |" - End If - InfoBar.Text = InfoBar.Text & " " & CurrentInterpreter & " |" - InfoBar.Text = InfoBar.Text & " " & Strings.ComputerInfo(2) & " CP |" - InfoBar.Text = InfoBar.Text & " " & TrackPos & " |" - End Sub - - Private Sub TextBox1_Click(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseDoubleClick, TextBox1.Click - - End Sub -End Class \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb deleted file mode 100644 index 6404c76..0000000 --- a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb +++ /dev/null @@ -1,156 +0,0 @@ -Imports System.IO - -Module SaveLoadSystem - - Public Sub NewGameMode() - 'Sets all features to 2 (Unavailable for Shiftorium) except ShiftOS Key (AvailableFeatures(11)) - Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", True) - Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved", True) - Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS") - Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved") - Strings.ComputerInfo(0) = "shiftos" - Strings.ComputerInfo(1) = "user" - Strings.ComputerInfo(2) = "0" - Strings.ComputerInfo(4) = "0" - Strings.AvailableFeature(0) = "2" - Strings.AvailableFeature(1) = "2" - Strings.AvailableFeature(2) = "2" - Strings.AvailableFeature(3) = "2" - Strings.AvailableFeature(4) = "2" - Strings.AvailableFeature(5) = "2" - Strings.AvailableFeature(6) = "2" - Strings.AvailableFeature(7) = "2" - Strings.AvailableFeature(8) = "2" - Strings.AvailableFeature(9) = "2" - Strings.AvailableFeature(10) = "2" - Strings.AvailableFeature(11) = "0" - Strings.AvailableFeature(12) = "2" - Strings.AvailableFeature(13) = "2" - Strings.AvailableFeature(14) = "2" - Strings.AvailableFeature(15) = "2" - '0.2.4 Features - Strings.AvailableFeature(16) = "2" - Strings.AvailableFeature(17) = "2" - Strings.AvailableFeature(18) = "2" - Strings.AvailableFeature(19) = "2" - Strings.AvailableFeature(20) = "2" - Strings.AvailableFeature(21) = "2" - Strings.AvailableFeature(22) = "2" - '0.2.5 Features - Strings.AvailableFeature(23) = "2" - Strings.AvailableFeature(24) = "2" - Strings.AvailableFeature(25) = "2" - Strings.AvailableFeature(26) = "2" - Strings.AvailableFeature(27) = "2" - Strings.AvailableFeature(28) = "2" - Strings.AvailableFeature(29) = "2" - Strings.AvailableFeature(30) = "2" - '0.2.6 Features - Strings.AvailableFeature(31) = "2" - Strings.AvailableFeature(32) = "2" - Strings.AvailableFeature(33) = "2" - End Sub - - Public Sub FreeRoamMode() - 'Sets all features to as bought - Strings.ComputerInfo(0) = "shiftos" - Strings.ComputerInfo(1) = "user" - Strings.ComputerInfo(2) = "0" - Strings.ComputerInfo(4) = "31" - Strings.AvailableFeature(0) = "1" - Strings.AvailableFeature(1) = "1" - Strings.AvailableFeature(2) = "1" - Strings.AvailableFeature(3) = "1" - Strings.AvailableFeature(4) = "1" - Strings.AvailableFeature(5) = "3" - Strings.AvailableFeature(6) = "3" - Strings.AvailableFeature(7) = "3" - Strings.AvailableFeature(8) = "1" - Strings.AvailableFeature(9) = "1" - Strings.AvailableFeature(10) = "1" - Strings.AvailableFeature(11) = "1" - Strings.AvailableFeature(12) = "3" - Strings.AvailableFeature(13) = "1" - Strings.AvailableFeature(14) = "1" - Strings.AvailableFeature(15) = "1" - '0.2.4 Features - Strings.AvailableFeature(16) = "1" - Strings.AvailableFeature(17) = "1" - Strings.AvailableFeature(18) = "1" - Strings.AvailableFeature(19) = "1" - Strings.AvailableFeature(20) = "1" - Strings.AvailableFeature(21) = "1" - Strings.AvailableFeature(22) = "1" - '0.2.5 Features - Strings.AvailableFeature(23) = "1" - Strings.AvailableFeature(24) = "3" - Strings.AvailableFeature(25) = "3" - Strings.AvailableFeature(26) = "3" - Strings.AvailableFeature(27) = "3" - Strings.AvailableFeature(28) = "3" - Strings.AvailableFeature(29) = "1" - Strings.AvailableFeature(30) = "1" - '0.2.6 Features - Strings.AvailableFeature(31) = "1" - Strings.AvailableFeature(32) = "1" - Strings.AvailableFeature(33) = "1" - End Sub - - Public Sub GodMode() - 'Same as new game but codepoints automatically assigned to 9999 and not saved into the FS - Strings.ComputerInfo(0) = "shiftos" - Strings.ComputerInfo(1) = "user" - Strings.ComputerInfo(2) = 9999 - Strings.ComputerInfo(4) = "0" - Strings.AvailableFeature(0) = "2" - Strings.AvailableFeature(1) = "2" - Strings.AvailableFeature(2) = "2" - Strings.AvailableFeature(3) = "2" - Strings.AvailableFeature(4) = "2" - Strings.AvailableFeature(5) = "2" - Strings.AvailableFeature(6) = "2" - Strings.AvailableFeature(7) = "2" - Strings.AvailableFeature(8) = "2" - Strings.AvailableFeature(9) = "2" - Strings.AvailableFeature(10) = "2" - Strings.AvailableFeature(11) = "0" - Strings.AvailableFeature(12) = "2" - Strings.AvailableFeature(14) = "2" - Strings.AvailableFeature(15) = "2" - '0.2.4 Features - Strings.AvailableFeature(16) = "2" - Strings.AvailableFeature(17) = "2" - Strings.AvailableFeature(18) = "2" - Strings.AvailableFeature(19) = "2" - Strings.AvailableFeature(20) = "2" - Strings.AvailableFeature(21) = "2" - Strings.AvailableFeature(22) = "2" - '0.2.5 Features - Strings.AvailableFeature(23) = "2" - Strings.AvailableFeature(24) = "2" - Strings.AvailableFeature(25) = "2" - Strings.AvailableFeature(26) = "2" - Strings.AvailableFeature(27) = "2" - Strings.AvailableFeature(28) = "2" - Strings.AvailableFeature(29) = "2" - Strings.AvailableFeature(30) = "2" - '0.2.6 Features - Strings.AvailableFeature(31) = "2" - Strings.AvailableFeature(32) = "2" - Strings.AvailableFeature(33) = "2" - End Sub - - Public Sub SaveGame() - If Strings.OnceInfo(6) = "story" Then - File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\ComputerInfo.sos", Strings.ComputerInfo) - File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos", Strings.AvailableFeature) - End If - End Sub - - Public Sub LoadGame() - If Strings.OnceInfo(6) = "story" Then - Strings.ComputerInfo = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\ComputerInfo.sos") - Strings.AvailableFeature = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos") - End If - End Sub -End Module diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSAbout.Designer.vb b/ShiftOS-TheRevival/MainForms/ShiftOSAbout.Designer.vb new file mode 100644 index 0000000..e4455e5 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/ShiftOSAbout.Designer.vb @@ -0,0 +1,209 @@ + _ +Partial Class ShiftOSAbout + 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.Button1 = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel2 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel4 = New System.Windows.Forms.LinkLabel() + Me.Label6 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Consolas", 48.0!, System.Drawing.FontStyle.Bold, 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(277, 75) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "ShiftOS" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Italic) + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(295, 53) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(162, 19) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Shift it your way" + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Consolas", 10.0!) + Me.Button1.ForeColor = System.Drawing.Color.White + Me.Button1.Location = New System.Drawing.Point(675, 518) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(97, 31) + Me.Button1.TabIndex = 2 + Me.Button1.Text = "Close" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Consolas", 12.0!) + Me.Label3.ForeColor = System.Drawing.Color.White + Me.Label3.Location = New System.Drawing.Point(21, 84) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(81, 19) + Me.Label3.TabIndex = 3 + Me.Label3.Text = "Version " + ' + 'Label4 + ' + Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label4.Font = New System.Drawing.Font("Consolas", 10.0!) + Me.Label4.ForeColor = System.Drawing.Color.White + Me.Label4.Location = New System.Drawing.Point(21, 115) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(436, 393) + Me.Label4.TabIndex = 4 + Me.Label4.Text = "This project is not possible without the initiation from :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Philip Adams (OSFirst" & + "Timer)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "MichaelTheShifter (acidiclights)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ShiftOS-TheRevival Developers :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Eve" & + "rything Windows (DevX) - Main Developer" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Consolas", 12.0!) + Me.Label5.ForeColor = System.Drawing.Color.White + Me.Label5.Location = New System.Drawing.Point(475, 115) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(234, 19) + Me.Label5.TabIndex = 3 + Me.Label5.Text = "More information about us" + ' + 'LinkLabel1 + ' + Me.LinkLabel1.AutoSize = True + Me.LinkLabel1.Font = New System.Drawing.Font("Consolas", 10.0!) + Me.LinkLabel1.LinkColor = System.Drawing.Color.White + Me.LinkLabel1.Location = New System.Drawing.Point(476, 152) + Me.LinkLabel1.Name = "LinkLabel1" + Me.LinkLabel1.Size = New System.Drawing.Size(56, 17) + Me.LinkLabel1.TabIndex = 5 + Me.LinkLabel1.TabStop = True + Me.LinkLabel1.Text = "GitHub" + Me.LinkLabel1.VisitedLinkColor = System.Drawing.Color.Gray + ' + 'LinkLabel2 + ' + Me.LinkLabel2.AutoSize = True + Me.LinkLabel2.Font = New System.Drawing.Font("Consolas", 10.0!) + Me.LinkLabel2.LinkColor = System.Drawing.Color.White + Me.LinkLabel2.Location = New System.Drawing.Point(476, 172) + Me.LinkLabel2.Name = "LinkLabel2" + Me.LinkLabel2.Size = New System.Drawing.Size(64, 17) + Me.LinkLabel2.TabIndex = 5 + Me.LinkLabel2.TabStop = True + Me.LinkLabel2.Text = "itch.io" + Me.LinkLabel2.VisitedLinkColor = System.Drawing.Color.Gray + ' + 'LinkLabel3 + ' + Me.LinkLabel3.AutoSize = True + Me.LinkLabel3.Font = New System.Drawing.Font("Consolas", 10.0!) + Me.LinkLabel3.LinkColor = System.Drawing.Color.White + Me.LinkLabel3.Location = New System.Drawing.Point(476, 192) + Me.LinkLabel3.Name = "LinkLabel3" + Me.LinkLabel3.Size = New System.Drawing.Size(120, 17) + Me.LinkLabel3.TabIndex = 5 + Me.LinkLabel3.TabStop = True + Me.LinkLabel3.Text = "Discord Server" + Me.LinkLabel3.VisitedLinkColor = System.Drawing.Color.Gray + ' + 'LinkLabel4 + ' + Me.LinkLabel4.AutoSize = True + Me.LinkLabel4.Font = New System.Drawing.Font("Consolas", 10.0!) + Me.LinkLabel4.LinkColor = System.Drawing.Color.White + Me.LinkLabel4.Location = New System.Drawing.Point(476, 212) + Me.LinkLabel4.Name = "LinkLabel4" + Me.LinkLabel4.Size = New System.Drawing.Size(128, 17) + Me.LinkLabel4.TabIndex = 5 + Me.LinkLabel4.TabStop = True + Me.LinkLabel4.Text = "YouTube Channel" + Me.LinkLabel4.VisitedLinkColor = System.Drawing.Color.Gray + ' + 'Label6 + ' + Me.Label6.Font = New System.Drawing.Font("Consolas", 12.0!) + Me.Label6.ForeColor = System.Drawing.Color.White + Me.Label6.Location = New System.Drawing.Point(475, 250) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(297, 46) + Me.Label6.TabIndex = 3 + Me.Label6.Text = "ShiftOS-TheRevival is licensed under the GNU GPL v3 License." + ' + 'ShiftOSAbout + ' + 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(784, 561) + Me.Controls.Add(Me.LinkLabel4) + Me.Controls.Add(Me.LinkLabel3) + Me.Controls.Add(Me.LinkLabel2) + Me.Controls.Add(Me.LinkLabel1) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle + Me.MaximizeBox = False + Me.Name = "ShiftOSAbout" + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "About ShiftOS" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Button1 As Button + Friend WithEvents Label3 As Label + Friend WithEvents Label4 As Label + Friend WithEvents Label5 As Label + Friend WithEvents LinkLabel1 As LinkLabel + Friend WithEvents LinkLabel2 As LinkLabel + Friend WithEvents LinkLabel3 As LinkLabel + Friend WithEvents LinkLabel4 As LinkLabel + Friend WithEvents Label6 As Label +End Class diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSAbout.resx b/ShiftOS-TheRevival/MainForms/ShiftOSAbout.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/ShiftOSAbout.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/ShiftOSAbout.vb b/ShiftOS-TheRevival/MainForms/ShiftOSAbout.vb new file mode 100644 index 0000000..ba9b4ee --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/ShiftOSAbout.vb @@ -0,0 +1,25 @@ +Public Class ShiftOSAbout + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Close() + End Sub + + Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + Process.Start("https://github.com/EverythingWindows/ShiftOS-TheRevival") + End Sub + + Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked + Process.Start("https://shiftos-therevival.itch.io/shiftos-therevival") + End Sub + + Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked + Process.Start("https://discord.gg/5QXxWJRM6R") + End Sub + + Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked + Process.Start("https://www.youtube.com/@ShiftOS_") + End Sub + + Private Sub ShiftOSAbout_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Label3.Text = Label3.Text & My.Resources.CurrentVersion + End Sub +End Class \ No newline at end of file diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.Designer.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.Designer.vb index 41cce27..3414552 100644 --- a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.Designer.vb +++ b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.Designer.vb @@ -71,7 +71,7 @@ Partial Class ShiftOSMenu Me.btn_Aboot.Name = "btn_Aboot" Me.btn_Aboot.Size = New System.Drawing.Size(224, 40) Me.btn_Aboot.TabIndex = 3 - Me.btn_Aboot.Text = "About" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.btn_Aboot.Text = "About" Me.btn_Aboot.UseVisualStyleBackColor = True ' 'lbl_BuildString @@ -155,7 +155,7 @@ Partial Class ShiftOSMenu Me.btn_Chapter5.Location = New System.Drawing.Point(22, 296) Me.btn_Chapter5.Name = "btn_Chapter5" Me.btn_Chapter5.Size = New System.Drawing.Size(224, 40) - Me.btn_Chapter5.TabIndex = 4 + Me.btn_Chapter5.TabIndex = 5 Me.btn_Chapter5.Text = "Chapter 5" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Praeter sensum" Me.btn_Chapter5.UseVisualStyleBackColor = True Me.btn_Chapter5.Visible = False @@ -168,7 +168,7 @@ Partial Class ShiftOSMenu Me.btn_Back.Location = New System.Drawing.Point(22, 342) Me.btn_Back.Name = "btn_Back" Me.btn_Back.Size = New System.Drawing.Size(224, 40) - Me.btn_Back.TabIndex = 4 + Me.btn_Back.TabIndex = 6 Me.btn_Back.Text = "Back" Me.btn_Back.UseVisualStyleBackColor = True Me.btn_Back.Visible = False diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb index 8a65f59..e43b6ae 100644 --- a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb +++ b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb @@ -78,12 +78,13 @@ Public Class ShiftOSMenu btn_Back.Visible = True Case "Chapter 1" & Environment.NewLine & "Hijacked!" Epilepsy.Show() - DebugWindow.ShouldDebug = True End Select End Sub Private Sub btn_Aboot_Click(sender As Object, e As EventArgs) Handles btn_Aboot.Click Select Case btn_Aboot.Text + Case "About" + ShiftOSAbout.ShowDialog() Case "Back" btn_StoryMode.Text = "Story Mode" btn_FreeRoam.Text = "Free Roam Mode" -- cgit v1.2.3