Guide command, MathQuiz App, ShiftOS About, and more

9 files changed, 359 insertions, 160 deletions

diff --git a/ShiftOS-TheRevival/MainForms/Console.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Console.Designer.vb
index 78dbfbf..78dbfbf 100644
--- a/ShiftOS-TheRevival/MainForms/Console.Designer.vb
+++ b/ShiftOS-TheRevival/MainForms/Applications/Console.Designer.vb
diff --git a/ShiftOS-TheRevival/MainForms/Console.resx b/ShiftOS-TheRevival/MainForms/Applications/Console.resx
index 38ebc49..38ebc49 100644
--- a/ShiftOS-TheRevival/MainForms/Console.resx
+++ b/ShiftOS-TheRevival/MainForms/Applications/Console.resx
diff --git a/ShiftOS-TheRevival/MainForms/Console.vb b/ShiftOS-TheRevival/MainForms/Applications/Console.vb
index 3ae1603..3ae1603 100644
--- a/ShiftOS-TheRevival/MainForms/Console.vb
+++ b/ShiftOS-TheRevival/MainForms/Applications/Console.vb
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 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class ShiftOSAbout
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    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 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>
\ 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"