diff --git a/ShiftOS/Helper.vb b/ShiftOS/Helper.vb
index 19a1b2e..f2be24a 100644
--- a/ShiftOS/Helper.vb
+++ b/ShiftOS/Helper.vb
@@ -1,4 +1,6 @@
-Module Helper
+Imports System.Speech.Synthesis
+
+Module Helper
     Dim path As String = ShiftOSDesktop.ShiftOSPath
     Public Sub addCP(points As Integer) 'Add some CP
         ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + points
@@ -13,4 +15,27 @@
     Public Sub playSound(path As String, playMode As AudioPlayMode)
         My.Computer.Audio.Play(path, playMode)
     End Sub
+
+    Public Sub speak(text As String)
+        Dim speaker As New Speech.Synthesis.SpeechSynthesizer
+        speaker.Speak(text)
+    End Sub
+    Public Sub SpeakOnTerminal(text As String)
+        Dim txt As TextBox = Terminal.txtterm
+        If Terminal.Visible = False Then
+            Terminal.Show()
+            txt.Text = ""
+        End If
+        txt.Text = txt.Text + vbNewLine + text
+        Dim speaker As New SpeechSynthesizer
+        speaker.Speak(text)
+    End Sub
+
+    'Misc. Features that aren't practical, but fun to mess around with in the game engine
+    Public Sub speakInfoBox(title As String, text As String)
+        infobox.showinfo(title, text)
+        Dim speaker As New SpeechSynthesizer
+        speaker.Speak(title & "..." & text)
+        infobox.Close()
+    End Sub
 End Module
diff --git a/ShiftOS/ShiftOS.vbproj b/ShiftOS/ShiftOS.vbproj
index 4b87850..078e9ef 100644
--- a/ShiftOS/ShiftOS.vbproj
+++ b/ShiftOS/ShiftOS.vbproj
@@ -92,6 +92,7 @@
     <Reference Include="System.IO.Compression" />
     <Reference Include="System.IO.Compression.FileSystem" />
     <Reference Include="System.Management" />
+    <Reference Include="System.Speech" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />
     <Reference Include="System.Core" />
diff --git a/ShiftOS/ShiftOSDesktop.Designer.vb b/ShiftOS/ShiftOSDesktop.Designer.vb
index a1fd4cf..b7b0c9f 100644
--- a/ShiftOS/ShiftOSDesktop.Designer.vb
+++ b/ShiftOS/ShiftOSDesktop.Designer.vb
@@ -2122,7 +2122,7 @@ Partial Class ShiftOSDesktop
         '
         Me.UtilitiesToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TerminalToolStripMenuItem1, Me.FileSkimmerToolStripMenuItem1, Me.SystemInformationToolStripMenuItem})
         Me.UtilitiesToolStripMenuItem.Name = "UtilitiesToolStripMenuItem"
-        Me.UtilitiesToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
+        Me.UtilitiesToolStripMenuItem.Size = New System.Drawing.Size(135, 22)
         Me.UtilitiesToolStripMenuItem.Text = "Utilities"
         '
         'TerminalToolStripMenuItem1
@@ -2147,7 +2147,7 @@ Partial Class ShiftOSDesktop
         '
         Me.SettingsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ShifterToolStripMenuItem1, Me.SkinLoaderToolStripMenuItem1, Me.SkinShifterToolStripMenuItem1, Me.IconManagerToolStripMenuItem1, Me.NameChangerToolStripMenuItem1})
         Me.SettingsToolStripMenuItem.Name = "SettingsToolStripMenuItem"
-        Me.SettingsToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
+        Me.SettingsToolStripMenuItem.Size = New System.Drawing.Size(135, 22)
         Me.SettingsToolStripMenuItem.Text = "Settings"
         '
         'ShifterToolStripMenuItem1
@@ -2184,7 +2184,7 @@ Partial Class ShiftOSDesktop
         '
         Me.InternetToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ShiftnetToolStripMenuItem1, Me.ShiftoriumToolStripMenuItem1, Me.WebBrowserToolStripMenuItem1, Me.DownloadManagerToolStripMenuItem1, Me.InstallerToolStripMenuItem1, Me.BitnoteDiggerToolStripMenuItem1, Me.BitnoteWalletToolStripMenuItem1, Me.FloodGateManagerToolStripMenuItem, Me.VirusScannerToolStripMenuItem1})
         Me.InternetToolStripMenuItem.Name = "InternetToolStripMenuItem"
-        Me.InternetToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
+        Me.InternetToolStripMenuItem.Size = New System.Drawing.Size(135, 22)
         Me.InternetToolStripMenuItem.Text = "Internet"
         '
         'ShiftnetToolStripMenuItem1
@@ -2245,7 +2245,7 @@ Partial Class ShiftOSDesktop
         '
         Me.GamesToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DodgeToolStripMenuItem1, Me.SnakeyToolStripMenuItem1, Me.PongToolStripMenuItem1, Me.KnowledgeInputToolStripMenuItem1, Me.LabyrinthToolStripMenuItem})
         Me.GamesToolStripMenuItem.Name = "GamesToolStripMenuItem"
-        Me.GamesToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
+        Me.GamesToolStripMenuItem.Size = New System.Drawing.Size(135, 22)
         Me.GamesToolStripMenuItem.Text = "Games"
         '
         'DodgeToolStripMenuItem1
@@ -2282,7 +2282,7 @@ Partial Class ShiftOSDesktop
         '
         Me.AccessoriesToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ArtpadToolStripMenuItem1, Me.TextpadToolStripMenuItem1, Me.OrcWriteToolStripMenuItem1, Me.AudioPlayerToolStripMenuItem1, Me.VideoPlayerToolStripMenuItem1, Me.ClockToolStripMenuItem1, Me.CalculatorToolStripMenuItem1})
         Me.AccessoriesToolStripMenuItem.Name = "AccessoriesToolStripMenuItem"
-        Me.AccessoriesToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
+        Me.AccessoriesToolStripMenuItem.Size = New System.Drawing.Size(135, 22)
         Me.AccessoriesToolStripMenuItem.Text = "Accessories"
         '
         'ArtpadToolStripMenuItem1
diff --git a/ShiftOS/ShiftOSDesktop.resx b/ShiftOS/ShiftOSDesktop.resx
index 286b65c..f8fcdc0 100644
--- a/ShiftOS/ShiftOSDesktop.resx
+++ b/ShiftOS/ShiftOSDesktop.resx
@@ -120,9 +120,6 @@
   <metadata name="desktopappmenu.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>190, 17</value>
   </metadata>
-  <metadata name="desktopappmenu.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>190, 17</value>
-  </metadata>
   <metadata name="clocktick.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>337, 17</value>
   </metadata>
diff --git a/ShiftOS/ShiftOSDesktop.vb b/ShiftOS/ShiftOSDesktop.vb
index 0e9be0f..17667bd 100644
--- a/ShiftOS/ShiftOSDesktop.vb
+++ b/ShiftOS/ShiftOSDesktop.vb
@@ -5233,4 +5233,8 @@
         refreshIcons()
         'End If
     End Sub
+
+    Private Sub StartFixer(sender As Object, e As MouseEventArgs) Handles desktopicons.MouseDown, pnlpanelbuttonholder.MouseDown
+        If pnladvapplauncher.Visible = True Then pnladvapplauncher.Visible = False
+    End Sub
 End Class
\ No newline at end of file
diff --git a/ShiftOS/Terminal.vb b/ShiftOS/Terminal.vb
index 03fcd85..d748bce 100644
--- a/ShiftOS/Terminal.vb
+++ b/ShiftOS/Terminal.vb
@@ -581,7 +581,19 @@ Public Class Terminal
     End Sub
 
     Private Sub DoCommand()
-
+        If command Like "speak_infobox '*' '*'" Then
+            Dim findwords() As String = command.Split("'")
+            Helper.speakInfoBox(findwords(1), findwords(3))
+        End If
+        If command Like "speak '*'" Then
+            Dim findwords() As String = command.Split("'")
+            If Not findwords(1) = "" Then
+                Helper.speak(findwords(1))
+            Else
+                Helper.speak("I'm sorry, but you didn't enter anything for me to speak.")
+            End If
+            further = False
+        End If
         If command Like "alias *" Then
             CreatingAlias1 = False
             CreatingAlias2 = False