Full Source

1 files changed, 1769 insertions, 0 deletions

diff --git a/ShiftOS/Terminal.vb b/ShiftOS/Terminal.vb
new file mode 100644
index 0000000..03fcd85
--- /dev/null
+++ b/ShiftOS/Terminal.vb
@@ -0,0 +1,1769 @@
+Imports System.Net.Mail
+
+Public Class Terminal
+    Public cmds As String()
+    Public rolldownsize As Integer
+    Public oldbordersize As Integer
+    Public oldtitlebarheight As Integer
+    Public justopened As Boolean = False
+    Public needtorollback As Boolean = False
+    Public minimumsizewidth As Integer = 350
+    Public minimumsizeheight As Integer = 200
+
+    Dim CreatingAlias1 As Boolean
+    Dim CreatingAlias2 As Boolean
+
+    Dim Part1Alias As String
+    Dim Part2Alias As String
+
+    Public StartOfAlias As String
+    Public EndOfAlias As String
+
+    Dim alltext As String
+    Dim command As String
+    Dim trackpos As Integer
+    Dim firstrun As Integer
+    Dim testing As Boolean = True
+    Dim further As Boolean = True
+
+    Public sendinputtomod As Boolean = False
+
+#Region "Template Code"
+
+    Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        justopened = True
+        Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
+        Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
+        setupall()
+        If ShiftOSDesktop.TerminalCorrupted Then Me.Close() : infobox.showinfo("The Plague.", Me.Name & "has been corrupted by The Plague.")
+
+        ShiftOSDesktop.pnlpanelbuttonterminal.SendToBack() 'CHANGE NAME
+        ShiftOSDesktop.setuppanelbuttons()
+        ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonterminal, ShiftOSDesktop.tbterminalicon, ShiftOSDesktop.tbterminaltext, True) 'modify to proper name
+        ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen + 1
+
+        txtterm.Text = txtterm.Text + ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+        txtterm.Select(txtterm.Text.Length, 0)
+        txtterm.Cursor = Nothing
+
+        'transparancy key moved here from set skin to avoid cropped terminal bug
+        Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
+
+        If ShiftOSDesktop.terminalfullscreen = True Then
+            fullterminal()
+        Else
+            miniterminal()
+        End If
+
+    End Sub
+
+    Public Sub setupall()
+        setuptitlebar()
+        setupborders()
+        setskin()
+    End Sub
+
+    Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
+        'Go back to desktop on control + T
+        If e.KeyCode = Keys.T AndAlso e.Control Then
+            ShiftOSDesktop.Show()
+            ShiftOSDesktop.Visible = True
+            ShiftOSDesktop.BringToFront()
+        End If
+
+        'Movable Windows
+        If ShiftOSDesktop.boughtmovablewindows = True Then
+            If e.KeyCode = Keys.A AndAlso e.Control Then
+                e.Handled = True
+                Me.Location = New Point(Me.Location.X - ShiftOSDesktop.movablewindownumber, Me.Location.Y)
+            End If
+            If e.KeyCode = Keys.D AndAlso e.Control Then
+                e.Handled = True
+                Me.Location = New Point(Me.Location.X + ShiftOSDesktop.movablewindownumber, Me.Location.Y)
+            End If
+            If e.KeyCode = Keys.W AndAlso e.Control Then
+                e.Handled = True
+                Me.Location = New Point(Me.Location.X, Me.Location.Y - ShiftOSDesktop.movablewindownumber)
+            End If
+            If e.KeyCode = Keys.S AndAlso e.Control Then
+                e.Handled = True
+                Me.Location = New Point(Me.Location.X, Me.Location.Y + ShiftOSDesktop.movablewindownumber)
+            End If
+            ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " to " & Me.Location.ToString & " with " & e.KeyCode.ToString & Environment.NewLine
+        End If
+    End Sub
+
+    Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles titlebar.MouseDown, lbtitletext.MouseDown, pnlicon.MouseDown, pgtoplcorner.MouseDown, pgtoprcorner.MouseDown
+        ' Handle Draggable Windows
+        If ShiftOSDesktop.boughtdraggablewindows = True Then
+            If e.Button = MouseButtons.Left Then
+                titlebar.Capture = False
+                lbtitletext.Capture = False
+                pnlicon.Capture = False
+                pgtoplcorner.Capture = False
+                pgtoprcorner.Capture = False
+                Const WM_NCLBUTTONDOWN As Integer = &HA1S
+                Const HTCAPTION As Integer = 2
+                Dim msg As Message = _
+                    Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
+                        New IntPtr(HTCAPTION), IntPtr.Zero)
+                Me.DefWndProc(msg)
+            End If
+            ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User dragged " & Me.Name & " to " & Me.Location.ToString & Environment.NewLine
+        End If
+    End Sub
+
+    Public Sub setupborders()
+        If ShiftOSDesktop.boughtwindowborders = False Then
+            pgleft.Hide()
+            pgbottom.Hide()
+            pgright.Hide()
+            Me.Size = New Size(Me.Width - pgleft.Width - pgright.Width, Me.Height - pgbottom.Height)
+        End If
+    End Sub
+
+    Private Sub closebutton_Click(sender As Object, e As EventArgs) Handles closebutton.Click
+        Me.Close()
+    End Sub
+
+    Private Sub closebutton_MouseEnter(sender As Object, e As EventArgs) Handles closebutton.MouseEnter, closebutton.MouseUp
+        closebutton.BackgroundImage = Skins.closebtnhover
+    End Sub
+
+    Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
+        closebutton.BackgroundImage = Skins.closebtn
+    End Sub
+
+    Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
+        closebutton.BackgroundImage = Skins.closebtnclick
+    End Sub
+
+    Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
+        ShiftOSDesktop.minimizeprogram(Me, False)
+    End Sub
+
+    'Old skinning system - No idea what this does
+    ''Private Sub titlebar_MouseEnter(sender As Object, e As EventArgs) Handles titlebar.MouseEnter, titlebar.MouseUp, lbtitletext.MouseEnter, pnlicon.MouseEnter, closebutton.MouseEnter, rollupbutton.MouseEnter
+    ''    If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then  Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(1)
+    ''End Sub
+
+    'Private Sub titlebar_MouseLeave(sender As Object, e As EventArgs) Handles titlebar.MouseLeave, lbtitletext.MouseLeave, pnlicon.MouseLeave, closebutton.MouseLeave, rollupbutton.MouseLeave
+    '    If ShiftOSDesktop.skinimages(3) = ShiftOSDesktop.skinimages(4) Then  Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0)
+    'End Sub
+
+    Private Sub rollupbutton_Click(sender As Object, e As EventArgs) Handles rollupbutton.Click
+        rollupanddown()
+    End Sub
+
+    Private Sub rollupbutton_MouseEnter(sender As Object, e As EventArgs) Handles rollupbutton.MouseEnter, rollupbutton.MouseUp
+        rollupbutton.BackgroundImage = Skins.rollbtnhover
+    End Sub
+
+    Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
+        rollupbutton.BackgroundImage = Skins.rollbtn
+    End Sub
+
+    Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
+        rollupbutton.BackgroundImage = Skins.rollbtnclick
+    End Sub
+
+    Public Sub setuptitlebar()
+
+        setupborders()
+
+        If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
+        pgleft.Width = Skins.borderwidth
+        pgright.Width = Skins.borderwidth
+        pgbottom.Height = Skins.borderwidth
+        titlebar.Height = Skins.titlebarheight
+
+        If justopened = True Then
+            Me.Size = New Size(650, 400) 'put the default size of your window here
+            Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
+            Me.Size = New Size(Me.Width + Skins.borderwidth + Skins.borderwidth, Me.Height + Skins.borderwidth)
+            oldbordersize = Skins.borderwidth
+            oldtitlebarheight = Skins.titlebarheight
+            justopened = False
+        Else
+            If Me.Visible = True Then
+                'Me.Hide()
+                Me.Size = New Size(Me.Width - (2 * oldbordersize) + (2 * Skins.borderwidth), (Me.Height - oldtitlebarheight - oldbordersize) + Skins.titlebarheight + Skins.borderwidth)
+                'Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize) 'Just put a little algebra in the first size setting and comment out the mess
+                oldbordersize = Skins.borderwidth
+                oldtitlebarheight = Skins.titlebarheight
+                'Me.Size = New Size(Me.Width, Me.Height + Skins.titlebarheight - 30)
+                'Me.Size = New Size(Me.Width + Skins. borderwidth + Skins. borderwidth, Me.Height + Skins. borderwidth)
+                'rolldownsize = Me.Height
+                If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
+                'Me.Show()
+            End If
+        End If
+
+        If Skins.enablecorners = True Then
+            pgtoplcorner.Show()
+            pgtoprcorner.Show()
+            pgtoprcorner.Width = Skins.titlebarcornerwidth
+            pgtoplcorner.Width = Skins.titlebarcornerwidth
+        Else
+            pgtoplcorner.Hide()
+            pgtoprcorner.Hide()
+        End If
+
+        If ShiftOSDesktop.boughttitlebar = False Then
+            titlebar.Hide()
+            Me.Size = New Size(Me.Width, Me.Size.Height - titlebar.Height)
+        End If
+
+        If ShiftOSDesktop.boughttitletext = False Then
+            lbtitletext.Hide()
+        Else
+            lbtitletext.Font = New Font(Skins.titletextfontfamily, Skins.titletextfontsize, Skins.titletextfontstyle, GraphicsUnit.Point)
+            lbtitletext.Text = ShiftOSDesktop.terminalname 'Remember to change to name of program!!!!
+            lbtitletext.Show()
+        End If
+
+        If ShiftOSDesktop.boughtclosebutton = False Then
+            closebutton.Hide()
+        Else
+            closebutton.BackColor = Skins.closebtncolour
+            closebutton.Size = Skins.closebtnsize
+            closebutton.Show()
+        End If
+
+        If ShiftOSDesktop.boughtrollupbutton = False Then
+            rollupbutton.Hide()
+        Else
+            rollupbutton.BackColor = Skins.rollbtncolour
+            rollupbutton.Size = Skins.rollbtnsize
+            rollupbutton.Show()
+        End If
+
+        If ShiftOSDesktop.boughtminimizebutton = False Then
+            minimizebutton.Hide()
+        Else
+            minimizebutton.BackColor = Skins.minbtncolour
+            minimizebutton.Size = Skins.minbtnsize
+            minimizebutton.Show()
+        End If
+
+        If ShiftOSDesktop.boughtwindowborders = True Then
+            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
+            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
+            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
+            Select Case Skins.titletextpos
+                Case "Left"
+                    lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
+                Case "Centre"
+                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
+            End Select
+            lbtitletext.ForeColor = Skins.titletextcolour
+        Else
+            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
+            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
+            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
+            Select Case Skins.titletextpos
+                Case "Left"
+                    lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
+                Case "Centre"
+                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
+            End Select
+            lbtitletext.ForeColor = Skins.titletextcolour
+        End If
+
+        'Change when Icon skinning complete
+        If ShiftOSDesktop.boughtterminalicon = True Then ' Change to program's icon
+            pnlicon.Visible = True
+            pnlicon.Location = New Point(Skins.titleiconfromside, Skins.titleiconfromtop)
+            pnlicon.Size = New Size(ShiftOSDesktop.titlebariconsize, ShiftOSDesktop.titlebariconsize)
+            pnlicon.Image = ShiftOSDesktop.terminalicontitlebar  'Replace with the correct icon for the program.
+        End If
+
+    End Sub
+
+    Public Sub rollupanddown()
+        If Me.Height = Me.titlebar.Height Then
+            pgleft.Show()
+            pgbottom.Show()
+            pgright.Show()
+            Me.Height = rolldownsize
+            Me.MinimumSize = New Size(minimumsizewidth, minimumsizeheight)
+        Else
+            Me.MinimumSize = New Size(0, 0)
+            pgleft.Hide()
+            pgbottom.Hide()
+            pgright.Hide()
+            rolldownsize = Me.Height
+            Me.Height = Me.titlebar.Height
+        End If
+    End Sub
+
+    Public Sub resettitlebar()
+        If ShiftOSDesktop.boughtwindowborders = True Then
+            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - closebutton.Size.Width, Skins.closebtnfromtop)
+            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - rollupbutton.Size.Width, Skins.rollbtnfromtop)
+            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - minimizebutton.Size.Width, Skins.minbtnfromtop)
+            Select Case Skins.titletextpos
+                Case "Left"
+                    lbtitletext.Location = New Point(Skins.titletextfromside, Skins.titletextfromtop)
+                Case "Centre"
+                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
+            End Select
+            lbtitletext.ForeColor = Skins.titletextcolour
+        Else
+            closebutton.Location = New Point(titlebar.Size.Width - Skins.closebtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, Skins.closebtnfromtop)
+            rollupbutton.Location = New Point(titlebar.Size.Width - Skins.rollbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, Skins.rollbtnfromtop)
+            minimizebutton.Location = New Point(titlebar.Size.Width - Skins.minbtnfromside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, Skins.minbtnfromtop)
+            Select Case Skins.titletextpos
+                Case "Left"
+                    lbtitletext.Location = New Point(Skins.titletextfromside + pgtoplcorner.Width, Skins.titletextfromtop)
+                Case "Centre"
+                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, Skins.titletextfromtop)
+            End Select
+            lbtitletext.ForeColor = Skins.titletextcolour
+        End If
+    End Sub
+
+    Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick
+        Me.Width = Cursor.Position.X - Me.Location.X
+        resettitlebar()
+    End Sub
+
+    Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick
+        Me.Height = Cursor.Position.Y - Me.Location.Y
+        resettitlebar()
+    End Sub
+
+    Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick
+        Me.Width = Cursor.Position.X - Me.Location.X
+        Me.Height = Cursor.Position.Y - Me.Location.Y
+        resettitlebar()
+    End Sub
+
+    'delete this for non-resizable windows
+    Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseDown
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            pullside.Start()
+        End If
+    End Sub
+
+    Private Sub RightCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseEnter
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            Cursor = Cursors.SizeWE
+        End If
+    End Sub
+
+    Private Sub bottomCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottom.MouseEnter
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            Cursor = Cursors.SizeNS
+        End If
+    End Sub
+
+    Private Sub CornerCursorOn_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgbottomrcorner.MouseEnter
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            Cursor = Cursors.SizeNWSE
+        End If
+    End Sub
+
+    Private Sub SizeCursoroff_MouseDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles pgright.MouseLeave, pgbottom.MouseLeave, pgbottomrcorner.MouseLeave
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            Cursor = Cursors.Default
+        End If
+    End Sub
+
+    Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgright.MouseUp
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            pullside.Stop()
+        End If
+    End Sub
+
+    Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseDown
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            pullbottom.Start()
+        End If
+    End Sub
+
+    Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottom.MouseUp
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            pullbottom.Stop()
+        End If
+    End Sub
+
+    Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseDown
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            pullbs.Start()
+        End If
+    End Sub
+
+    Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pgbottomrcorner.MouseUp
+        If ShiftOSDesktop.boughtresizablewindows = True Then
+            pullbs.Stop()
+        End If
+    End Sub
+
+    Public Sub setskin()
+        'disposals
+        closebutton.BackgroundImage = Nothing
+        titlebar.BackgroundImage = Nothing
+        rollupbutton.BackgroundImage = Nothing
+        pgtoplcorner.BackgroundImage = Nothing
+        pgtoprcorner.BackgroundImage = Nothing
+        minimizebutton.BackgroundImage = Nothing
+        'apply new skin
+        If Skins.closebtn Is Nothing Then closebutton.BackColor = Skins.closebtncolour Else closebutton.BackgroundImage = Skins.closebtn
+        closebutton.BackgroundImageLayout = Skins.closebtnlayout
+        If Skins.titlebar Is Nothing Then titlebar.BackColor = Skins.titlebarcolour Else titlebar.BackgroundImage = Skins.titlebar
+        titlebar.BackgroundImageLayout = Skins.titlebarlayout
+        If Skins.rollbtn Is Nothing Then rollupbutton.BackColor = Skins.rollbtncolour Else rollupbutton.BackgroundImage = Skins.rollbtn
+        rollupbutton.BackgroundImageLayout = Skins.rollbtnlayout
+        If Skins.leftcorner Is Nothing Then pgtoplcorner.BackColor = Skins.leftcornercolour Else pgtoplcorner.BackgroundImage = Skins.leftcorner
+        pgtoplcorner.BackgroundImageLayout = Skins.leftcornerlayout
+        If Skins.rightcorner Is Nothing Then pgtoprcorner.BackColor = Skins.rightcornercolour Else pgtoprcorner.BackgroundImage = Skins.rightcorner
+        pgtoprcorner.BackgroundImageLayout = Skins.rightcornerlayout
+        If Skins.minbtn Is Nothing Then minimizebutton.BackColor = Skins.minbtncolour Else minimizebutton.BackgroundImage = Skins.minbtn
+        minimizebutton.BackgroundImageLayout = Skins.minbtnlayout
+        If Skins.borderleft Is Nothing Then pgleft.BackColor = Skins.borderleftcolour Else pgleft.BackgroundImage = Skins.borderleft
+        pgleft.BackgroundImageLayout = Skins.borderleftlayout
+        If Skins.borderright Is Nothing Then pgright.BackColor = Skins.borderrightcolour Else pgright.BackgroundImage = Skins.borderright
+        pgleft.BackgroundImageLayout = Skins.borderrightlayout
+        If Skins.borderbottom Is Nothing Then pgbottom.BackColor = Skins.borderbottomcolour Else pgbottom.BackgroundImage = Skins.borderbottom
+        pgbottom.BackgroundImageLayout = Skins.borderbottomlayout
+        If enablebordercorners = True Then
+            If Skins.bottomleftcorner Is Nothing Then pgbottomlcorner.BackColor = Skins.bottomleftcornercolour Else pgbottomlcorner.BackgroundImage = Skins.bottomleftcorner
+            pgbottomlcorner.BackgroundImageLayout = Skins.bottomleftcornerlayout
+            If Skins.bottomrightcorner Is Nothing Then pgbottomrcorner.BackColor = Skins.bottomrightcornercolour Else pgbottomrcorner.BackgroundImage = Skins.bottomrightcorner
+            pgbottomrcorner.BackgroundImageLayout = Skins.bottomrightcornerlayout
+        Else
+            pgbottomlcorner.BackColor = Skins.borderrightcolour
+            pgbottomrcorner.BackColor = Skins.borderrightcolour
+            pgbottomlcorner.BackgroundImage = Nothing
+            pgbottomrcorner.BackgroundImage = Nothing
+        End If
+
+        'set bottom border corner size
+        pgbottomlcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
+        pgbottomrcorner.Size = New Size(Skins.borderwidth, Skins.borderwidth)
+        pgbottomlcorner.Location = New Point(0, Me.Height - Skins.borderwidth)
+        pgbottomrcorner.Location = New Point(Me.Width, Me.Height - Skins.borderwidth)
+
+        Me.TransparencyKey = ShiftOSDesktop.globaltransparencycolour
+    End Sub
+
+    Private Sub Clock_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        ShiftOSDesktop.programsopen = ShiftOSDesktop.programsopen - 1
+        Me.Hide()
+        ShiftOSDesktop.setuppanelbuttons()
+    End Sub
+
+    'end of general setup
+#End Region
+
+    Public Sub miniterminal()
+        Me.WindowState = FormWindowState.Normal
+        If ShiftOSDesktop.boughttitlebar = True Then
+            titlebar.Show()
+        End If
+        If ShiftOSDesktop.boughtwindowborders = True Then
+            pgright.Show()
+            pgleft.Show()
+            pgbottom.Show()
+        End If
+        If ShiftOSDesktop.boughtterminalscrollbar = True Then
+            txtterm.ScrollBars = ScrollBars.Vertical
+        End If
+        setuptitlebar()
+        setupborders()
+        'ShiftOSDesktop.setcolours()
+        Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
+        Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
+        setskin()
+    End Sub
+
+    Public Sub fullterminal()
+        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
+        Me.WindowState = FormWindowState.Maximized
+        txtterm.ScrollBars = ScrollBars.None
+        titlebar.Hide()
+        pgright.Hide()
+        pgleft.Hide()
+        pgbottom.Hide()
+        Me.BringToFront()
+    End Sub
+
+
+    Private Sub ReadCommand()
+        command = txtterm.Lines(txtterm.Lines.Length - 1)
+        command = command.Replace(ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> ", "")
+        command = command.ToLower()
+    End Sub
+
+    Private Sub txtterm_Click(sender As Object, e As EventArgs) Handles txtterm.Click, txtterm.MouseDoubleClick
+        txtterm.Select(txtterm.TextLength, 0)
+        txtterm.ScrollToCaret()
+    End Sub
+
+    Private Sub txtterm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtterm.KeyDown
+        If e.KeyCode = Keys.T AndAlso e.Control Then
+            Me.Hide()
+            e.SuppressKeyPress = True
+        End If
+
+        Select Case e.KeyCode
+            Case Keys.ShiftKey
+                trackpos = trackpos - 1
+            Case Keys.Alt
+                trackpos = trackpos - 1
+            Case Keys.CapsLock
+                trackpos = trackpos - 1
+            Case Keys.ControlKey
+                trackpos = trackpos - 1
+            Case Keys.LWin
+                trackpos = trackpos - 1
+            Case Keys.RWin
+                trackpos = trackpos - 1
+            Case Keys.Right
+                If txtterm.SelectionStart = txtterm.TextLength Then
+                    trackpos = trackpos - 1
+                End If
+            Case Keys.Left
+                If trackpos < 1 Then
+                    e.SuppressKeyPress = True
+                    trackpos = trackpos - 1
+                Else
+                    trackpos = trackpos - 2
+                End If
+            Case Keys.Up
+                e.SuppressKeyPress = True
+                trackpos = trackpos - 1
+            Case Keys.Down
+                e.SuppressKeyPress = True
+                trackpos = trackpos - 1
+        End Select
+
+        If e.KeyCode = Keys.Enter Then
+            e.SuppressKeyPress = True
+            ReadCommand()
+            DoCommand()
+
+            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
+
+            trackpos = 0
+        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 txtterm.SelectedText.Length < 1 Then
+                    trackpos = trackpos - 1
+                Else
+                    e.SuppressKeyPress = True
+                End If
+            End If
+        End If
+
+        If ShiftOSDesktop.boughtautoscrollterminal = True Then
+            txtterm.Select(txtterm.TextLength, 0)
+            txtterm.ScrollToCaret()
+        End If
+
+    End Sub
+
+    Private Sub DoCommand()
+
+        If command Like "alias *" Then
+            CreatingAlias1 = False
+            CreatingAlias2 = False
+            txtterm.Text = txtterm.Text & Environment.NewLine & "Now type in the alias, start the alias with 'al' and leave a space." & Environment.NewLine
+            CreatingAlias1 = True
+        End If
+
+        If command Like "al *" And CreatingAlias1 = True Then
+            Part1Alias = command.Substring(5)
+            txtterm.Text = txtterm.Text & Environment.NewLine & "Saved the first part of the alias, now type in the command you want it to execute, starting with 'co' and a space" & Environment.NewLine
+            CreatingAlias1 = False
+            CreatingAlias2 = True
+        ElseIf CreatingAlias1 = False And command Like "al* " Then
+            wrongcommand()
+        End If
+
+        If command Like "co *" And CreatingAlias2 = True Then
+            Part2Alias = command.Substring(5)
+            My.Computer.FileSystem.CreateDirectory(ShiftOSDesktop.ShiftOSPath + "\SoftwareData\Terminal-Aliases")
+            My.Computer.FileSystem.WriteAllText(ShiftOSDesktop.ShiftOSPath + "\SoftwareData\Terminal_Aliases\Alias1.txt", Part1Alias, False)
+            My.Computer.FileSystem.WriteAllText(ShiftOSDesktop.ShiftOSPath + "\SoftwareData\Terminal_Aliases\Alias2.txt", Part2Alias, False)
+            txtterm.Text = txtterm.Text & Environment.NewLine & "Saved the alias successfully."
+            CreatingAlias1 = False
+            CreatingAlias2 = False
+        ElseIf CreatingAlias2 = False And command Like "co *" Then
+            wrongcommand()
+        End If
+        Try
+            StartOfAlias = My.Computer.FileSystem.ReadAllText(ShiftOSDesktop.ShiftOSPath & "\SoftwareData\Terminal-Aliases\Alias1.txt")
+
+            EndOfAlias = My.Computer.FileSystem.ReadAllText(ShiftOSDesktop.ShiftOSPath & "\SoftwareData\Terminal-Aliases\Alias2.txt")
+        Catch ex As Exception
+        End Try
+        Try
+            If command Like StartOfAlias.ToString And EndOfAlias.ToString Then
+                infobox.Show()
+                infobox.lbtitletext.Text = "Critical Error - Terminal"
+                infobox.lblintructtext.Text = "The command did not respond in time, stopping command"
+                ShiftOSDesktop.log = ShiftOSDesktop.log & ShiftOSDesktop.username & " found seceret in the game, may has access to source-code."
+            End If
+        Catch ex As Exception
+        End Try
+
+        If command Like "log *" Then
+            txtterm.Text = ""
+            ShiftOSDesktop.log = ShiftOSDesktop.log & "Log was shown to " & ShiftOSDesktop.username & " at " & TimeOfDay
+            txtterm.Text = ShiftOSDesktop.log
+        End If
+
+        If command Like "ctd" Then
+            ForceCrash()
+        End If
+
+        If command Like "join *" Then
+            coherencemode.setupwindows(command.Substring(5))
+            txtterm.Text = txtterm.Text & Environment.NewLine & "Enabling Coherence Mode for " & (command.Substring(5)) & Environment.NewLine
+        End If
+
+        If command Like "set username *" Then
+            If ShiftOSDesktop.boughtcustomusername = True Then
+                ShiftOSDesktop.username = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
+                further = False
+            End If
+        End If
+
+        If command Like "set osname *" Then
+            If ShiftOSDesktop.boughtchangeosnamecommand = True Then
+                ShiftOSDesktop.osname = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
+                further = False
+            End If
+        End If
+
+        If command Like "give me *" Then
+            ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
+            further = False
+        End If
+
+        If command Like "dig me *" Then
+            Dim amount As Decimal = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
+            ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance + amount
+            Bitnote_Wallet.logtransaction(amount, "Credit From", "ShiftOS Devs - Thanks for donating!")
+            Bitnote_Wallet.setupbitnotestats()
+            further = False
+        End If
+        If command Like "show me *, *" Then
+            Dim term As String()
+            term = command.Remove(0, 8).Split(", ")
+            infobox.title = term(0)
+            infobox.textinfo = term(1)
+            infobox.Show()
+        End If
+        If ShiftOSDesktop.boughtwindowsanywhere = True Then
+            If command Like "move *" Then
+                command = command.Replace(", ", ",")
+                Dim coords As String() = command.Split(" ")
+                Dim xandy As String = coords(coords.Length - 1)
+                Dim spxandy() As String = xandy.Split(",")
+                Select Case coords(1)
+                    Case "knowledge", ShiftOSDesktop.knowledgeinputname.ToLower
+                        Knowledge_Input.Location = New Point(spxandy(0), spxandy(1))
+                    Case "terminal", ShiftOSDesktop.terminalname.ToLower
+                        Me.Location = New Point(spxandy(0), spxandy(1))
+                    Case "shiftorium", ShiftOSDesktop.shiftoriumname.ToLower
+                        Shiftorium.Location = New Point(spxandy(0), spxandy(1))
+                    Case "clock", ShiftOSDesktop.clockname.ToLower
+                        Clock.Location = New Point(spxandy(0), spxandy(1))
+                    Case "shifter", ShiftOSDesktop.shiftername.ToLower
+                        Shifter.Location = New Point(spxandy(0), spxandy(1))
+                    Case "colour", "color", ShiftOSDesktop.colourpickername.ToLower
+                        Colour_Picker.Location = New Point(spxandy(0), spxandy(1))
+                    Case "info", "infobox"
+                        infobox.Location = New Point(spxandy(0), spxandy(1))
+                    Case "pong", ShiftOSDesktop.pongname.ToLower
+                        Pong.Location = New Point(spxandy(0), spxandy(1))
+                    Case "file", ShiftOSDesktop.fileskimmername.ToLower
+                        File_Skimmer.Location = New Point(spxandy(0), spxandy(1))
+                    Case "textpad", ShiftOSDesktop.textpadname.ToLower
+                        TextPad.Location = New Point(spxandy(0), spxandy(1))
+                    Case "fileopener", ShiftOSDesktop.fileopenername.ToLower
+                        File_Opener.Location = New Point(spxandy(0), spxandy(1))
+                    Case "filesaver", ShiftOSDesktop.filesavername.ToLower
+                        File_Saver.Location = New Point(spxandy(0), spxandy(1))
+                    Case "graphicpicker", "graphic", ShiftOSDesktop.graphicpickername.ToLower
+                        Graphic_Picker.Location = New Point(spxandy(0), spxandy(1))
+                    Case "skinloader", "skin", ShiftOSDesktop.skinloadername.ToLower
+                        Skin_Loader.Location = New Point(spxandy(0), spxandy(1))
+                    Case "artpad", "art", ShiftOSDesktop.artpadname.ToLower
+                        ArtPad.Location = New Point(spxandy(0), spxandy(1))
+                    Case "calculator", "calc", ShiftOSDesktop.calculatorname.ToLower
+                        Calculator.Location = New Point(spxandy(0), spxandy(1))
+                    Case "webbrowser", "web", ShiftOSDesktop.webbrowsername.ToLower
+                        Web_Browser.Location = New Point(spxandy(0), spxandy(1))
+                    Case "videoplayer", "video", ShiftOSDesktop.videoplayername.ToLower
+                        Web_Browser.Location = New Point(spxandy(0), spxandy(1))
+                    Case "namechanger", "name", ShiftOSDesktop.namechangername.ToLower
+                        Name_Changer.Location = New Point(spxandy(0), spxandy(1))
+                    Case "iconmanager", "icon", ShiftOSDesktop.iconmanagername.ToLower
+                        Icon_Manager.Location = New Point(spxandy(0), spxandy(1))
+                    Case "bitnotewallet", "wallet", ShiftOSDesktop.bitnotewalletname.ToLower
+                        Bitnote_Wallet.Location = New Point(spxandy(0), spxandy(1))
+                    Case "bitnotedigger", "digger", ShiftOSDesktop.bitnotediggername.ToLower
+                        Bitnote_Digger.Location = New Point(spxandy(0), spxandy(1))
+                    Case "skinshifter", ShiftOSDesktop.skinshiftername.ToLower
+                        Skinshifter.Location = New Point(spxandy(0), spxandy(1))
+                    Case "shiftnet", ShiftOSDesktop.shiftnetname.ToLower
+                        Shiftnet.Location = New Point(spxandy(0), spxandy(1))
+                    Case "dodge", ShiftOSDesktop.dodgename.ToLower
+                        Dodge.Location = New Point(spxandy(0), spxandy(1))
+                    Case "downloadmanager", ShiftOSDesktop.downloadmanagername.ToLower
+                        Downloadmanager.Location = New Point(spxandy(0), spxandy(1))
+                    Case "installer", ShiftOSDesktop.installername.ToLower
+                        Installer.Location = New Point(spxandy(0), spxandy(1))
+                    Case "snakey", ShiftOSDesktop.snakeyname.ToLower
+                        Snakey.Location = New Point(spxandy(0), spxandy(1))
+                    Case "orcwrite", ShiftOSDesktop.orcwritename.ToLower
+                        OrcWrite.Location = New Point(spxandy(0), spxandy(1))
+                End Select
+                further = False
+            End If
+        End If
+
+        If ShiftOSDesktop.boughtmultitasking = True Then
+            If command Like "switch to *" Then
+                Dim findwords() As String = command.Split(" ")
+                Select Case findwords(2)
+                    Case "knowledge", ShiftOSDesktop.knowledgeinputname.ToLower
+                        Knowledge_Input.BringToFront()
+                    Case "shiftorium", ShiftOSDesktop.shiftoriumname.ToLower
+                        Shiftorium.BringToFront()
+                    Case "clock", ShiftOSDesktop.clockname.ToLower
+                        Clock.BringToFront()
+                    Case "shifter", ShiftOSDesktop.shiftername.ToLower
+                        Shifter.BringToFront()
+                    Case "colour", ShiftOSDesktop.colourpickername.ToLower
+                        Colour_Picker.BringToFront()
+                    Case "info"
+                        infobox.BringToFront()
+                    Case "pong", ShiftOSDesktop.pongname.ToLower
+                        Pong.BringToFront()
+                    Case "file", ShiftOSDesktop.fileskimmername.ToLower
+                        File_Skimmer.BringToFront()
+                    Case "textpad", ShiftOSDesktop.textpadname.ToLower
+                        TextPad.BringToFront()
+                    Case "fileopener", ShiftOSDesktop.fileopenername.ToLower
+                        File_Opener.BringToFront()
+                    Case "filesaver", ShiftOSDesktop.filesavername.ToLower
+                        File_Saver.BringToFront()
+                    Case "graphic", ShiftOSDesktop.graphicpickername.ToLower
+                        Graphic_Picker.BringToFront()
+                    Case "skin", ShiftOSDesktop.skinloadername.ToLower
+                        Skin_Loader.BringToFront()
+                    Case "artpad", ShiftOSDesktop.artpadname.ToLower
+                        ArtPad.BringToFront()
+                    Case "calculator", ShiftOSDesktop.calculatorname.ToLower
+                        Calculator.BringToFront()
+                    Case "webbrowser", "web", ShiftOSDesktop.webbrowsername.ToLower
+                        Web_Browser.BringToFront()
+                    Case "videoplayer", "video", "video player", ShiftOSDesktop.videoplayername.ToLower
+                        Video_Player.BringToFront()
+                    Case "namechanger", "name", "name changer", ShiftOSDesktop.namechangername.ToLower
+                        Name_Changer.BringToFront()
+                    Case "iconmanager", "icon", ShiftOSDesktop.iconmanagername.ToLower
+                        Name_Changer.BringToFront()
+                    Case "bitnotewallet", "wallet", ShiftOSDesktop.bitnotewalletname.ToLower
+                        Bitnote_Wallet.BringToFront()
+                    Case "bitnotedigger", "digger", ShiftOSDesktop.bitnotediggername.ToLower
+                        Bitnote_Digger.BringToFront()
+                    Case "skinshifter", ShiftOSDesktop.skinshiftername.ToLower
+                        Skinshifter.BringToFront()
+                    Case "shiftnet", ShiftOSDesktop.shiftnetname.ToLower
+                        Shiftnet.BringToFront()
+                    Case "dodge", ShiftOSDesktop.dodgename.ToLower
+                        Dodge.BringToFront()
+                    Case "downloadmanager", ShiftOSDesktop.downloadmanagername.ToLower
+                        Downloadmanager.BringToFront()
+                    Case "installer", ShiftOSDesktop.installername.ToLower
+                        Installer.BringToFront()
+                    Case "snakey", ShiftOSDesktop.snakeyname.ToLower
+                        Snakey.BringToFront()
+                    Case "orcwrite", ShiftOSDesktop.orcwritename.ToLower
+                        OrcWrite.BringToFront()
+                End Select
+                further = False
+                Me.BringToFront()
+            End If
+        End If
+
+        If ShiftOSDesktop.boughtrollupcommand = True Then
+            If command Like "roll *" Then
+                Dim findwords() As String = command.Split(" ")
+                Select Case findwords(1)
+                    Case "knowledge", ShiftOSDesktop.knowledgeinputname.ToLower
+                        Knowledge_Input.rollupanddown()
+                    Case "shiftorium", ShiftOSDesktop.shiftoriumname.ToLower
+                        Shiftorium.rollupanddown()
+                    Case "clock", ShiftOSDesktop.clockname.ToLower
+                        Clock.rollupanddown()
+                    Case "shifter", ShiftOSDesktop.shiftername.ToLower
+                        Shifter.rollupanddown()
+                    Case "colour", ShiftOSDesktop.colourpickername.ToLower
+                        Colour_Picker.rollupanddown()
+                    Case "info", "infobox"
+                        infobox.rollupanddown()
+                    Case "pong", ShiftOSDesktop.pongname.ToLower
+                        Pong.rollupanddown()
+                    Case "file", ShiftOSDesktop.fileskimmername.ToLower
+                        File_Skimmer.rollupanddown()
+                    Case "textpad", ShiftOSDesktop.textpadname.ToLower
+                        TextPad.rollupanddown()
+                    Case "fileopener", ShiftOSDesktop.fileopenername.ToLower
+                        File_Opener.rollupanddown()
+                    Case "filesaver", ShiftOSDesktop.filesavername.ToLower
+                        File_Saver.rollupanddown()
+                    Case "graphic", ShiftOSDesktop.graphicpickername.ToLower
+                        Graphic_Picker.rollupanddown()
+                    Case "skin", ShiftOSDesktop.skinloadername.ToLower
+                        Skin_Loader.rollupanddown()
+                    Case "artpad", ShiftOSDesktop.artpadname.ToLower
+                        ArtPad.rollupanddown()
+                    Case "calculator", ShiftOSDesktop.calculatorname.ToLower
+                        Calculator.rollupanddown()
+                    Case "webbrowser", "web", ShiftOSDesktop.webbrowsername.ToLower
+                        Web_Browser.rollupanddown()
+                    Case "videoplayer", "video", "video player", ShiftOSDesktop.videoplayername.ToLower
+                        Video_Player.rollupanddown()
+                    Case "namechanger", "name", "name changer", ShiftOSDesktop.namechangername.ToLower
+                        Name_Changer.rollupanddown()
+                    Case "iconmanager", "icon", ShiftOSDesktop.iconmanagername.ToLower
+                        Name_Changer.rollupanddown()
+                    Case "bitnotewallet", "wallet", ShiftOSDesktop.bitnotewalletname.ToLower
+                        Bitnote_Wallet.rollupanddown()
+                    Case "bitnotedigger", "digger", ShiftOSDesktop.bitnotediggername.ToLower
+                        Bitnote_Digger.rollupanddown()
+                    Case "skinshifter", ShiftOSDesktop.skinshiftername.ToLower
+                        Skinshifter.rollupanddown()
+                    Case "shiftnet", ShiftOSDesktop.shiftnetname.ToLower
+                        Shiftnet.rollupanddown()
+                    Case "dodge", ShiftOSDesktop.dodgename.ToLower
+                        Dodge.rollupanddown()
+                    Case "downloadmanager", ShiftOSDesktop.downloadmanagername.ToLower
+                        Downloadmanager.rollupanddown()
+                    Case "installer", ShiftOSDesktop.installername.ToLower
+                        Installer.rollupanddown()
+                    Case "snakey", ShiftOSDesktop.snakeyname.ToLower
+                        Snakey.rollupanddown()
+                    Case "orcwrite", ShiftOSDesktop.orcwritename.ToLower
+                        OrcWrite.rollupanddown()
+                End Select
+                further = False
+                Me.BringToFront()
+            End If
+        End If
+
+        If ShiftOSDesktop.boughtminimizecommand = True Then
+            If command Like "minimize *" Then
+                Dim findwords() As String = command.Split(" ")
+                Select Case findwords(1)
+                    Case "knowledge", ShiftOSDesktop.knowledgeinputname.ToLower
+                        ShiftOSDesktop.minimizeprogram(Knowledge_Input, False)
+                    Case "shiftorium", ShiftOSDesktop.shiftoriumname.ToLower
+                        ShiftOSDesktop.minimizeprogram(Shiftorium, False)
+                    Case "clock", ShiftOSDesktop.clockname.ToLower
+                        ShiftOSDesktop.minimizeprogram(Clock, False)
+                    Case "shifter", ShiftOSDesktop.shiftername.ToLower
+                        ShiftOSDesktop.minimizeprogram(Shifter, False)
+                    Case "colour", ShiftOSDesktop.colourpickername.ToLower
+                        ShiftOSDesktop.minimizeprogram(Colour_Picker, False)
+                    Case "info", "infobox"
+                        ShiftOSDesktop.minimizeprogram(infobox, False)
+                    Case "pong", ShiftOSDesktop.pongname.ToLower
+                        ShiftOSDesktop.minimizeprogram(Pong, False)
+                    Case "file", ShiftOSDesktop.fileskimmername.ToLower
+                        ShiftOSDesktop.minimizeprogram(File_Skimmer, False)
+                    Case "textpad", ShiftOSDesktop.textpadname.ToLower
+                        ShiftOSDesktop.minimizeprogram(TextPad, False)
+                    Case "fileopener", ShiftOSDesktop.fileopenername.ToLower
+                        ShiftOSDesktop.minimizeprogram(File_Opener, False)
+                    Case "filesaver", ShiftOSDesktop.filesavername.ToLower
+                        ShiftOSDesktop.minimizeprogram(File_Saver, False)
+                    Case "graphic", ShiftOSDesktop.graphicpickername.ToLower
+                        ShiftOSDesktop.minimizeprogram(Graphic_Picker, False)
+                    Case "skin", ShiftOSDesktop.skinloadername.ToLower
+                        ShiftOSDesktop.minimizeprogram(Skin_Loader, False)
+                    Case "artpad", ShiftOSDesktop.artpadname.ToLower
+                        ShiftOSDesktop.minimizeprogram(ArtPad, False)
+                    Case "calculator", ShiftOSDesktop.calculatorname.ToLower
+                        ShiftOSDesktop.minimizeprogram(Calculator, False)
+                    Case "webbrowser", "web", ShiftOSDesktop.webbrowsername.ToLower
+                        ShiftOSDesktop.minimizeprogram(Web_Browser, False)
+                    Case "videoplayer", "video", "video player", ShiftOSDesktop.videoplayername.ToLower
+                        ShiftOSDesktop.minimizeprogram(Video_Player, False)
+                    Case "namechanger", "name", "name changer", ShiftOSDesktop.namechangername.ToLower
+                        ShiftOSDesktop.minimizeprogram(Name_Changer, False)
+                    Case "iconmanager", "icon", ShiftOSDesktop.iconmanagername.ToLower
+                        ShiftOSDesktop.minimizeprogram(Name_Changer, False)
+                    Case "bitnotewallet", "wallet", ShiftOSDesktop.bitnotewalletname.ToLower
+                        ShiftOSDesktop.minimizeprogram(Bitnote_Wallet, False)
+                    Case "bitnotedigger", "digger", ShiftOSDesktop.bitnotediggername.ToLower
+                        ShiftOSDesktop.minimizeprogram(Bitnote_Digger, False)
+                    Case "skinshifter", ShiftOSDesktop.skinshiftername.ToLower
+                        ShiftOSDesktop.minimizeprogram(Skinshifter, False)
+                    Case "shiftnet", ShiftOSDesktop.shiftnetname.ToLower
+                        ShiftOSDesktop.minimizeprogram(Shiftnet, False)
+                    Case "dodge", ShiftOSDesktop.dodgename.ToLower
+                        ShiftOSDesktop.minimizeprogram(Dodge, False)
+                    Case "downloadmanager", ShiftOSDesktop.downloadmanagername.ToLower
+                        ShiftOSDesktop.minimizeprogram(Downloadmanager, False)
+                    Case "installer", ShiftOSDesktop.installername.ToLower
+                        ShiftOSDesktop.minimizeprogram(Installer, False)
+                    Case "snakey", ShiftOSDesktop.snakeyname.ToLower
+                        ShiftOSDesktop.minimizeprogram(Snakey, False)
+                    Case "orcwrite", ShiftOSDesktop.orcwritename.ToLower
+                        ShiftOSDesktop.minimizeprogram(OrcWrite, False)
+                End Select
+                further = False
+                Me.BringToFront()
+            End If
+        End If
+
+        If further = True Then
+            Select Case command
+                Case "clear"
+                    txtterm.Text = ""
+                Case "time"
+                    If ShiftOSDesktop.boughtsplitsecondtime = True Then
+                        txtterm.Text = txtterm.Text & Environment.NewLine & "The time is " & TimeOfDay & Environment.NewLine
+                    Else
+                        If ShiftOSDesktop.boughtminuteaccuracytime = True Then
+                            If Date.Now.Hour < 12 Then
+                                txtterm.Text = txtterm.Text & Environment.NewLine & "The time is " & TimeOfDay.Hour & ":" & Format(TimeOfDay.Minute, "00") & " AM" & Environment.NewLine
+                            Else
+                                txtterm.Text = txtterm.Text & Environment.NewLine & "The time is " & TimeOfDay.Hour - 12 & ":" & Format(TimeOfDay.Minute, "00") & " PM" & Environment.NewLine
+                            End If
+                        Else
+                            If ShiftOSDesktop.boughtpmandam = True Then
+                                If Date.Now.Hour < 12 Then
+                                    txtterm.Text = txtterm.Text & Environment.NewLine & "The time is " & TimeOfDay.Hour & " AM" & Environment.NewLine
+                                Else
+                                    txtterm.Text = txtterm.Text & Environment.NewLine & "The time is " & TimeOfDay.Hour - 12 & " PM" & Environment.NewLine
+                                End If
+                            Else
+                                If ShiftOSDesktop.boughthourspastmidnight = True Then
+                                    txtterm.Text = txtterm.Text & Environment.NewLine & "Since midnight " & Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60 / 60) & " hours have passed" & Environment.NewLine
+                                Else
+                                    If ShiftOSDesktop.boughtminutespastmidnight = True Then
+                                        txtterm.Text = txtterm.Text & Environment.NewLine & "Since midnight " & Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds / 60) & " minutes have passed" & Environment.NewLine
+                                    Else
+                                        If ShiftOSDesktop.boughtsecondspastmidnight = True Then
+                                            txtterm.Text = txtterm.Text & Environment.NewLine & "Since midnight " & Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " seconds have passed" & Environment.NewLine
+                                        Else
+                                            wrongcommand()
+                                        End If
+                                    End If
+                                End If
+                            End If
+                        End If
+                    End If
+                Case "shutdown", "shut down"
+                    ShiftOSDesktop.shutdownshiftos()
+                Case "save", "save game"
+                    ShiftOSDesktop.savegame()
+                    txtterm.Text = txtterm.Text & Environment.NewLine & "The game has been saved!" & Environment.NewLine
+                Case "code points"
+                    txtterm.Text = txtterm.Text & Environment.NewLine & "You Have " & ShiftOSDesktop.codepoints & " Code Points!" & Environment.NewLine
+                    ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User has " & ShiftOSDesktop.codepoints & " Code Points!" & Environment.NewLine
+                Case "codepoints"
+                    txtterm.Text = txtterm.Text & Environment.NewLine & "You Have " & ShiftOSDesktop.codepoints & " Code Points!" & Environment.NewLine
+                    ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User has " & ShiftOSDesktop.codepoints & " Code Points!" & Environment.NewLine
+                Case "fullscreen terminal", "full screen terminal"
+                    If ShiftOSDesktop.boughtwindowedterminal = True Then
+                        fullterminal()
+                        ShiftOSDesktop.terminalfullscreen = True
+                    Else
+                        wrongcommand()
+                    End If
+                Case "windowed terminal"
+                    If ShiftOSDesktop.boughtwindowedterminal = True Then
+                        miniterminal()
+                        ShiftOSDesktop.terminalfullscreen = False
+                    Else
+                        wrongcommand()
+                    End If
+                Case "open terminal"
+                    txtterm.Text = txtterm.Text & Environment.NewLine & "Terminal is already running!" & Environment.NewLine
+                Case "open knowledge input", "knowledge input", "open " & ShiftOSDesktop.knowledgeinputname.ToLower, ShiftOSDesktop.knowledgeinputname.ToLower
+                    ShiftOSDesktop.closeeverything()
+                    If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                    Knowledge_Input.Show()
+                Case "close knowledge input", "close " & ShiftOSDesktop.knowledgeinputname.ToLower, ShiftOSDesktop.knowledgeinputname.ToLower
+                    Knowledge_Input.Close()
+                Case "open shiftorium", "shiftorium", "open " & ShiftOSDesktop.shiftoriumname.ToLower, ShiftOSDesktop.shiftoriumname.ToLower
+                    ShiftOSDesktop.closeeverything()
+                    If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                    Shiftorium.Show()
+                Case "close shiftorium", "close " & ShiftOSDesktop.shiftoriumname.ToLower, ShiftOSDesktop.shiftoriumname.ToLower
+                    Shiftorium.Close()
+                Case "open shifter", "shifter", "open " & ShiftOSDesktop.shiftername.ToLower, ShiftOSDesktop.shiftername.ToLower
+                    If ShiftOSDesktop.boughtshifter = True Then
+                        ShiftOSDesktop.closeeverything()
+                        If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                        Shifter.Show()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close shifter", "close " & ShiftOSDesktop.shiftername.ToLower, ShiftOSDesktop.shiftername.ToLower
+                    If ShiftOSDesktop.boughtshifter = True Then
+                        Shifter.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "open pong", "pong", "open " & ShiftOSDesktop.pongname.ToLower, ShiftOSDesktop.pongname.ToLower
+                    If ShiftOSDesktop.boughtpong = True Then
+                        ShiftOSDesktop.closeeverything()
+                        If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                        Pong.Show()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close pong", "close " & ShiftOSDesktop.pongname.ToLower, ShiftOSDesktop.pongname.ToLower
+                    If ShiftOSDesktop.boughtpong = True Then
+                        Pong.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "open file skimmer", "file skimmer", "open " & ShiftOSDesktop.fileskimmername.ToLower, ShiftOSDesktop.fileskimmername.ToLower
+                    If ShiftOSDesktop.boughtfileskimmer = True Then
+                        ShiftOSDesktop.closeeverything()
+                        If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                        File_Skimmer.Show()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close file skimmer", "close " & ShiftOSDesktop.fileskimmername.ToLower, ShiftOSDesktop.fileskimmername.ToLower
+                    If ShiftOSDesktop.boughtfileskimmer = True Then
+                        File_Skimmer.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close file opener", "close " & ShiftOSDesktop.fileopenername.ToLower, ShiftOSDesktop.fileopenername.ToLower
+                    If ShiftOSDesktop.boughtfileskimmer = True Then
+                        File_Opener.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close file saver", "close " & ShiftOSDesktop.filesavername.ToLower, ShiftOSDesktop.filesavername.ToLower
+                    If ShiftOSDesktop.boughtfileskimmer = True Then
+                        File_Saver.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close graphic picker", "close graphic", "close " & ShiftOSDesktop.graphicpickername.ToLower, ShiftOSDesktop.graphicpickername.ToLower
+                    If ShiftOSDesktop.boughtfileskimmer = True Then
+                        Graphic_Picker.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "open textpad", "open text pad", "textpad", "text pad", "open " & ShiftOSDesktop.textpadname.ToLower, ShiftOSDesktop.textpadname.ToLower
+                    If ShiftOSDesktop.boughttextpad = True Then
+                        ShiftOSDesktop.closeeverything()
+                        If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                        TextPad.Show()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close textpad", "close text pad", "close " & ShiftOSDesktop.textpadname.ToLower, ShiftOSDesktop.textpadname.ToLower
+                    If ShiftOSDesktop.boughttextpad = True Then
+                        TextPad.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "open skinloader", "open skin loader", "skin loader", "skinloader", "open " & ShiftOSDesktop.skinloadername.ToLower, ShiftOSDesktop.skinloadername.ToLower
+                    If ShiftOSDesktop.boughtskinning = True Then
+                        ShiftOSDesktop.closeeverything()
+                        If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                        Skin_Loader.Show()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close skinloader", "close skin loader", "close " & ShiftOSDesktop.skinloadername.ToLower, ShiftOSDesktop.skinloadername.ToLower
+                    If ShiftOSDesktop.boughtskinloader = True Then
+                        Skin_Loader.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "open art", "open artpad", "artpad", "open " & ShiftOSDesktop.artpadname.ToLower, ShiftOSDesktop.artpadname.ToLower
+                    If ShiftOSDesktop.boughtartpad = True Then
+                        ShiftOSDesktop.closeeverything()
+                        If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                        ArtPad.Show()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close art", "close artpad", "close " & ShiftOSDesktop.artpadname.ToLower, ShiftOSDesktop.artpadname.ToLower
+                    If ShiftOSDesktop.boughtartpad = True Then
+                        ArtPad.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "open calc", "open calculator", "calculator", "open " & ShiftOSDesktop.calculatorname.ToLower, ShiftOSDesktop.calculatorname.ToLower
+                    If ShiftOSDesktop.boughtcalculator = True Then
+                        ShiftOSDesktop.closeeverything()
+                        If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                        Calculator.Show()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close calc", "close calculator", "close " & ShiftOSDesktop.calculatorname.ToLower, ShiftOSDesktop.calculatorname.ToLower
+                    If ShiftOSDesktop.boughtcalculator = True Then
+                        Calculator.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "open audio", "open audioplayer", "audioplayer", "audio", "open " & ShiftOSDesktop.audioplayername.ToLower, ShiftOSDesktop.audioplayername.ToLower
+                    If ShiftOSDesktop.boughtaudioplayer = True Then
+                        ShiftOSDesktop.closeeverything()
+                        If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                        Audio_Player.Show()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close audio", "close audioplayer", "close " & ShiftOSDesktop.audioplayername.ToLower, ShiftOSDesktop.audioplayername.ToLower
+                    If ShiftOSDesktop.boughtaudioplayer = True Then
+                        Audio_Player.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "open web", "open webbrowser", "open web browser", "web", "webbrowser", "web browser", "open " & ShiftOSDesktop.webbrowsername.ToLower, ShiftOSDesktop.webbrowsername.ToLower
+                    If ShiftOSDesktop.boughtwebbrowser = True Then
+                        ShiftOSDesktop.closeeverything()
+                        If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                        Web_Browser.Show()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close web", "close webbrowser", "close web browser", "close " & ShiftOSDesktop.webbrowsername.ToLower, ShiftOSDesktop.webbrowsername.ToLower
+                    If ShiftOSDesktop.boughtwebbrowser = True Then
+                        Web_Browser.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "open video", "open videoplayer", "open video player", "open " & ShiftOSDesktop.videoplayername.ToLower, ShiftOSDesktop.videoplayername.ToLower
+                    If ShiftOSDesktop.boughtvideoplayer = True Then
+                        ShiftOSDesktop.closeeverything()
+                        If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                        Video_Player.Show()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close video", "close videoplayer", "close video player", "close " & ShiftOSDesktop.videoplayername.ToLower, ShiftOSDesktop.videoplayername.ToLower
+                    If ShiftOSDesktop.boughtvideoplayer = True Then
+                        Video_Player.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "open name", "open namechanger", "open name changer", "open " & ShiftOSDesktop.namechangername.ToLower, ShiftOSDesktop.namechangername.ToLower
+                    If ShiftOSDesktop.boughtnamechanger = True Then
+                        ShiftOSDesktop.closeeverything()
+                        If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                        Name_Changer.Show()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close name", "close namechanger", "close name changer", "close " & ShiftOSDesktop.namechangername.ToLower, ShiftOSDesktop.namechangername.ToLower
+                    If ShiftOSDesktop.boughtnamechanger = True Then
+                        Name_Changer.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "open icon", "open iconmanager", "open icon manager", "open " & ShiftOSDesktop.iconmanagername.ToLower, ShiftOSDesktop.iconmanagername.ToLower
+                    If ShiftOSDesktop.boughticonmanager = True Then
+                        ShiftOSDesktop.closeeverything()
+                        If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                        Icon_Manager.Show()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close icon", "close iconmanager", "close icon manager", "close " & ShiftOSDesktop.iconmanagername.ToLower, ShiftOSDesktop.iconmanagername.ToLower
+                    If ShiftOSDesktop.boughticonmanager = True Then
+                        Icon_Manager.Close()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "open clock", "clock", "open " & ShiftOSDesktop.clockname.ToLower, ShiftOSDesktop.clockname.ToLower
+                    If ShiftOSDesktop.boughtclock = True Then
+                        ShiftOSDesktop.closeeverything()
+                        If ShiftOSDesktop.terminalfullscreen = True Then Me.Hide()
+                        Clock.Show()
+                    Else
+                        wrongcommand()
+                    End If
+                Case "close clock", "close " & ShiftOSDesktop.clockname.ToLower, ShiftOSDesktop.clockname.ToLower
+                    Clock.Close()
+                Case "close colourpicker", "close colour", "close color", "close color picker", "close colour picker", "close colorpicker", "close " & ShiftOSDesktop.colourpickername.ToLower, ShiftOSDesktop.colourpickername.ToLower
+                    Colour_Picker.Close()
+                Case "close infobox", "close info", "close info box"
+                    infobox.Close()
+                Case "close terminal", "close " & ShiftOSDesktop.terminalname.ToLower, ShiftOSDesktop.terminalname.ToLower
+                    txtterm.Text = ""
+                    txtterm.Text = txtterm.Text + ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+                    txtterm.Select(txtterm.Text.Length, 0)
+                    Me.Close()
+                Case "roll terminal"
+                    txtterm.Text = txtterm.Text & Environment.NewLine & "Terminal has just tried to perform an illegal operation!" & Environment.NewLine
+                    ShiftOSDesktop.log = ShiftOSDesktop.log & "Terminal attempted to peform a illegal command at " & TimeOfDay
+                Case "programs", "program"
+                    listprograms()
+                Case "unity mode on"
+                    If ShiftOSDesktop.boughtunitymode = True Then
+                        ShiftOSDesktop.unitymode = True
+                        ShiftOSDesktop.setupdesktop()
+                        ShiftOSDesktop.log = ShiftOSDesktop.log & "Unity mode was activated at " & TimeOfDay
+                    Else
+                        wrongcommand()
+                    End If
+                Case "unity mode off"
+                    If ShiftOSDesktop.boughtunitymode = True Then
+                        ShiftOSDesktop.unitymode = False
+                        ShiftOSDesktop.setupdesktop()
+                        ShiftOSDesktop.log = ShiftOSDesktop.log & "Unity mode was disabled at " & TimeOfDay
+                    Else
+                        wrongcommand()
+                    End If
+                Case "template"
+                    template.Show()
+                Case "05tray"
+                    ShiftOSDesktop.codepoints = ShiftOSDesktop.codepoints + 500
+                    txtterm.Text = txtterm.Text & Environment.NewLine & "You have just cheated. Here is your 500 codepoints" & Environment.NewLine
+                    ShiftOSDesktop.log = ShiftOSDesktop.log & ShiftOSDesktop.username & " cheated and got 500 codepoints, damn cheaters..."
+                    'txtterm.Text = txtterm.Text & Environment.NewLine & "Due to attempting to cheat you have lost all your codepoints... Kidding, but that command is disabled." & Environment.NewLine 'Wow, I don't know devX put that in! 'Talk about lolz
+                Case "cherryblue"
+                    ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance + 1
+                    ShiftOSDesktop.log = ShiftOSDesktop.log & "Hacked by CherryBlue, given 1 bitnote at " & TimeOfDay
+                    Bitnote_Wallet.logtransaction(1.0, "Credit From", "CherryBlue - The Hacker!")
+                    Bitnote_Wallet.setupbitnotestats()
+                    'Case "pullme"
+                    '    ShiftOSDesktop.boughtresizablewindows = True
+                    '    txtterm.Text = txtterm.Text & Environment.NewLine & "Remember the resize windows feature is not refined yet (Test with Artpad)!" & Environment.NewLine
+                Case "infect zero.th1"
+                    Viruses.zerogravity = True
+                    Viruses.zerogravitythreatlevel = 1
+                    Viruses.setupzerovirus()
+                Case "infect zero.th2"
+                    Viruses.zerogravity = True
+                    Viruses.zerogravitythreatlevel = 2
+                    Viruses.setupzerovirus()
+                Case "infect zero.th3"
+                    Viruses.zerogravity = True
+                    Viruses.zerogravitythreatlevel = 3
+                    Viruses.setupzerovirus()
+                Case "infect zero.th4"
+                    Viruses.zerogravity = True
+                    Viruses.zerogravitythreatlevel = 4
+                    Viruses.setupzerovirus()
+                Case "zero.heal"
+                    Viruses.removezerovirus()
+                Case "infect mousetrap.th1"
+                    Viruses.mousetrap = True
+                    Viruses.mousetrapthreatlevel = 1
+                    Viruses.setupmousetrapvirus()
+                Case "infect mousetrap.th2"
+                    Viruses.mousetrap = True
+                    Viruses.mousetrapthreatlevel = 2
+                    Viruses.setupmousetrapvirus()
+                Case "infect mousetrap.th3"
+                    Viruses.mousetrap = True
+                    Viruses.mousetrapthreatlevel = 3
+                    Viruses.setupmousetrapvirus()
+                Case "infect mousetrap.th4"
+                    Viruses.mousetrap = True
+                    Viruses.mousetrapthreatlevel = 4
+                    Viruses.setupmousetrapvirus()
+                Case "mousetrap.heal"
+                    Viruses.removemousetrapvirus()
+                Case "infect beeper.th1"
+                    Viruses.beeper = True
+                    Viruses.beeperthreatlevel = 1
+                    Viruses.setupbeepervirus()
+                Case "infect beeper.th2"
+                    Viruses.beeper = True
+                    Viruses.beeperthreatlevel = 2
+                    Viruses.setupbeepervirus()
+                Case "infect beeper.th3"
+                    Viruses.beeper = True
+                    Viruses.beeperthreatlevel = 3
+                    Viruses.setupbeepervirus()
+                Case "infect beeper.th4"
+                    Viruses.beeper = True
+                    Viruses.beeperthreatlevel = 4
+                    Viruses.setupbeepervirus()
+                Case "beeper.heal"
+                    Viruses.removebeepervirus()
+                Case "infect plague.th1"
+                    Viruses.ThePlague = True
+                    Viruses.theplaguethreatlevel = 1
+                    Viruses.setuptheplague()
+                Case "infect plague.th2"
+                    Viruses.ThePlague = True
+                    Viruses.theplaguethreatlevel = 2
+                    Viruses.setuptheplague()
+                Case "infect plague.th3"
+                    Viruses.ThePlague = True
+                    Viruses.theplaguethreatlevel = 3
+                    Viruses.setuptheplague()
+                Case "infect plague.th4"
+                    Viruses.ThePlague = True
+                    Viruses.theplaguethreatlevel = 4
+                    Viruses.setuptheplague()
+                Case "plague.heal"
+                    Viruses.removetheplague()
+                Case "get all 0.0.8" 'disable in full
+                    ShiftOSDesktop.boughtresizablewindows = True
+                    ShiftOSDesktop.boughtcalculator = True
+                    ShiftOSDesktop.boughtaudioplayer = True
+                    ShiftOSDesktop.boughtchangeosnamecommand = True
+                    ShiftOSDesktop.boughtwebbrowser = True
+                    ShiftOSDesktop.boughtvideoplayer = True
+                    ShiftOSDesktop.boughtnamechanger = True
+                    ShiftOSDesktop.boughticonmanager = True
+                    ShiftOSDesktop.boughtbitnotewallet = True
+                    ShiftOSDesktop.boughtbitnotedigger = True
+                    ShiftOSDesktop.boughtskinshifter = True
+                    ShiftOSDesktop.boughtshiftnet = True
+                    ShiftOSDesktop.boughtshiftneticon = True
+                    ShiftOSDesktop.boughtalshiftnet = True
+                    ShiftOSDesktop.boughtdodge = True
+                    ShiftOSDesktop.boughtdownloadmanager = True
+                    ShiftOSDesktop.boughtinstaller = True
+                    ShiftOSDesktop.installedsysinfo = True
+                    ShiftOSDesktop.boughtorcwrite = True
+                    ShiftOSDesktop.boughtfloodgate = True
+                    ShiftOSDesktop.boughtmaze = True
+                    ShiftOSDesktop.boughtunitymodetoggle = True
+                    ShiftOSDesktop.boughtunitytoggleicon = True
+                    ShiftOSDesktop.installedvirusscanner = True
+                    ShiftOSDesktop.boughttextpadtrm = True
+                    ShiftOSDesktop.boughtshiftapplauncheritems = True
+                    ShiftOSDesktop.installedcalculator = True
+                    ShiftOSDesktop.installedaudioplayer = True
+                    ShiftOSDesktop.installedwebbrowser = True
+                    ShiftOSDesktop.installedvideoplayer = True
+                    ShiftOSDesktop.installeddodge = True
+                    ShiftOSDesktop.installedsysinfo = True
+                    ShiftOSDesktop.installedorcwrite = True
+                    ShiftOSDesktop.installedfloodgate = True
+                    ShiftOSDesktop.installedfloodgatenow = True
+                    ShiftOSDesktop.installedmaze = True
+                    ShiftOSDesktop.installedvirusscanner = True
+                    ShiftOSDesktop.setupdesktop()
+                Case "yes"
+                    If storyline = "getshiftnet" Then
+                        getshiftnetstoryyes = True
+                    Else
+                        wrongcommand()
+                    End If
+                Case "no"
+                    If storyline = "getshiftnet" Then
+                        txtterm.Text = txtterm.Text & "Connection declined" & Environment.NewLine
+                        storyline = ""
+                    Else
+                        wrongcommand()
+                    End If
+                Case "help"
+                    txtterm.Text = txtterm.Text & Environment.NewLine & Environment.NewLine & ShiftOSDesktop.osname & " Terminal Help:" & _
+                    Environment.NewLine & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "Tips: " & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "- Click on the desktop then press Ctrl + t to bring up the terminal (only works if you click on the desktop first)!" & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "- The terminal is not case sensitive so using or not using capital letters does not make a difference." & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "- " & ShiftOSDesktop.osname & " saves progress upon shutdown so feel free to open the terminal and type ""Shutdown"" anytime you like." & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "- This guide will evolve as you buy upgrades for " & ShiftOSDesktop.osname & " to help you understand newly unlocked features." & Environment.NewLine
+                    txtterm.Text = txtterm.Text & Environment.NewLine & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "Terminal Commands:" & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "'Programs' - Lists all programs on your computer." & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "'Open [insert program name here]' - Opens the specified program and closes all others." & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "'Close [insert program name here]' - Closes the specified program. For example 'close knowledge input'." & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "'Code Points' - Shows the amount of codepoints you have." & Environment.NewLine
+                    If ShiftOSDesktop.boughtsplitsecondtime = True Then
+                        txtterm.Text = txtterm.Text & "'Time' - Shows the time with split second accuracy." & Environment.NewLine
+                    Else
+                        If ShiftOSDesktop.boughtminuteaccuracytime = True Then
+                            txtterm.Text = txtterm.Text & "'Time' - Shows the time with minute accuracy." & Environment.NewLine
+                        Else
+                            If ShiftOSDesktop.boughtpmandam = True Then
+                                txtterm.Text = txtterm.Text & "'Time' - Shows the time with hour accuracy." & Environment.NewLine
+                            Else
+                                If ShiftOSDesktop.boughthourspastmidnight = True Then
+                                    txtterm.Text = txtterm.Text & "'Time' - Shows the amount of hours that have passed since midnight." & Environment.NewLine
+                                Else
+                                    If ShiftOSDesktop.boughtminutespastmidnight = True Then
+                                        txtterm.Text = txtterm.Text & "'Time' - Shows the amount of minutes that have passed since midnight." & Environment.NewLine
+                                    Else
+                                        If ShiftOSDesktop.boughtsecondspastmidnight = True Then
+                                            txtterm.Text = txtterm.Text & "'Time' - Shows the amount of seconds that have passed since midnight." & Environment.NewLine
+                                        End If
+                                    End If
+                                End If
+                            End If
+                        End If
+                    End If
+                    If ShiftOSDesktop.boughtcustomusername = True Then
+                        txtterm.Text = txtterm.Text & "'Set Username [insert name here]' - Sets the system username to anything (e.g. Set Username hacker)." & Environment.NewLine
+                    End If
+                    If ShiftOSDesktop.boughtmultitasking = True Then
+                        txtterm.Text = txtterm.Text & "'Switch To [insert program here]' - Brings the specified window to the front of the screen (e.g. Switch To Shiftorium)." & Environment.NewLine
+                    End If
+                    If ShiftOSDesktop.boughtwindowsanywhere = True Then
+                        txtterm.Text = txtterm.Text & "'Move [insert program here] to [x-coordinate, y-coodinate]' - Moves the specified window to the chosen point (e.g. move shiftorium to 120, 300)." & Environment.NewLine
+                    End If
+                    If ShiftOSDesktop.boughtwindowedterminal = True Then
+                        txtterm.Text = txtterm.Text & "'Windowed Terminal' - Turns the terminal into a normal windowed application." & Environment.NewLine
+                        txtterm.Text = txtterm.Text & "'Fullscreen Terminal' - Turns the terminal into a fullscreen application." & Environment.NewLine
+                    End If
+                    If ShiftOSDesktop.boughtrollupcommand = True Then
+                        txtterm.Text = txtterm.Text & "'Roll [insert program here]' - Rolls up a window to it's titlebar or rolls a window down if it's already rolled up." & Environment.NewLine
+                    End If
+                    txtterm.Text = txtterm.Text & "'Clear' - Removes all text displayed on the terminal." & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "'Help' - Shows commands used in terminal and " & ShiftOSDesktop.osname & " tips." & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "'Save' - Saves all data. Note that data will automatically be saved when you shutdown " & ShiftOSDesktop.osname & "" & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "'Shutdown' - Turns off computer safely and saves all data." & Environment.NewLine
+                    txtterm.Text = txtterm.Text & Environment.NewLine & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "" & ShiftOSDesktop.osname & " Usage Tips:" & Environment.NewLine
+                    If ShiftOSDesktop.boughttitlebar = False Then
+                        txtterm.Text = txtterm.Text & "- Open programs have no title bar." & Environment.NewLine
+                    Else
+                        txtterm.Text = txtterm.Text & "- Open programs have a title bar that may have useful features" & Environment.NewLine
+                    End If
+                    If ShiftOSDesktop.boughtwindowborders = False Then
+                        txtterm.Text = txtterm.Text & "- Open programs have no borders making them difficult to distinguish between other open programs." & Environment.NewLine
+                    Else
+                        txtterm.Text = txtterm.Text & "- Open programs have borders making them easy to distinguish between other open programs." & Environment.NewLine
+                    End If
+                    If ShiftOSDesktop.boughtdesktoppanel = True Then
+                        txtterm.Text = txtterm.Text & "- Programs that don't open full screen will be centred on the desktop." & Environment.NewLine
+                    Else
+                        txtterm.Text = txtterm.Text & "- Programs that don't fit full screen will be centred with a black background." & Environment.NewLine
+                    End If
+                    If ShiftOSDesktop.boughtwindowedterminal = True Then
+                        txtterm.Text = txtterm.Text & "- Terminal can run windowed or full screen." & Environment.NewLine
+                    Else
+                        txtterm.Text = txtterm.Text & "- Terminal runs full screen." & Environment.NewLine
+                    End If
+                    If ShiftOSDesktop.boughtmultitasking = False Then
+                        txtterm.Text = txtterm.Text & "- Only one program can be open at a time (excluding terminal) and can not be moved around the screen." & Environment.NewLine
+                    End If
+                    If ShiftOSDesktop.boughtanycolour4 Then
+                        txtterm.Text = txtterm.Text & "- The screen can display the full range of 16,777,216 RGB colours." & Environment.NewLine
+                    Else
+                        If ShiftOSDesktop.boughtgray4 = True Then
+                            txtterm.Text = txtterm.Text & "- The screen can display all shades of gray. It can also display: "
+                            If ShiftOSDesktop.boughtpurple = True Then txtterm.Text = txtterm.Text & "purple, "
+                            If ShiftOSDesktop.boughtblue = True Then txtterm.Text = txtterm.Text & "blue, "
+                            If ShiftOSDesktop.boughtgreen = True Then txtterm.Text = txtterm.Text & "green, "
+                            If ShiftOSDesktop.boughtyellow = True Then txtterm.Text = txtterm.Text & "yellow, "
+                            If ShiftOSDesktop.boughtorange = True Then txtterm.Text = txtterm.Text & "orange, "
+                            If ShiftOSDesktop.boughtbrown = True Then txtterm.Text = txtterm.Text & "brown, "
+                            If ShiftOSDesktop.boughtred = True Then txtterm.Text = txtterm.Text & "red, "
+                            If ShiftOSDesktop.boughtpink = True Then txtterm.Text = txtterm.Text & "pink, "
+                            txtterm.Text = txtterm.Text & " and nothing else" & Environment.NewLine
+                        Else
+                            If ShiftOSDesktop.boughtgray = True Then
+                                txtterm.Text = txtterm.Text & "- Only Black, White and Gray can be displayed on screen, no program can use any other colour." & Environment.NewLine
+                            Else
+                                txtterm.Text = txtterm.Text & "- Only Black and White can be displayed on screen, no program can use any other colour." & Environment.NewLine
+                            End If
+                        End If
+                    End If
+                    If ShiftOSDesktop.boughtapplaunchermenu = True Then
+                        txtterm.Text = txtterm.Text & "- Applications can be opened from the application launcher on the desktop panel." & Environment.NewLine
+                    Else
+                        txtterm.Text = txtterm.Text & "- Applications can be opened by typing ""open (program name)"" in the terminal." & Environment.NewLine
+                    End If
+                    If ShiftOSDesktop.boughtclosebutton = True Then
+                        txtterm.Text = txtterm.Text & "- Applications can be closed by clicking the close button in their title bar." & Environment.NewLine
+                    Else
+                        txtterm.Text = txtterm.Text & "- Applications can be closed by typing ""close (program name)"" in the terminal." & Environment.NewLine
+                    End If
+                    If ShiftOSDesktop.boughtmovablewindows = True Then
+                        If ShiftOSDesktop.boughtdraggablewindows = True Then
+                            txtterm.Text = txtterm.Text & "- Windows can be dragged around the screen by left clicking and holding a window by it's titlebar." & Environment.NewLine
+                        Else
+                            txtterm.Text = txtterm.Text & "- Windows can be moved around the screen by holding Ctrl and pressing the wasd keys." & Environment.NewLine
+                        End If
+                    End If
+
+                    txtterm.Text = txtterm.Text & Environment.NewLine & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "CodePoints:" & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "- Codepoints can be earned by performing certain tasks in various programs." & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "- Codepoints can be spent on GUI upgrades and new programs." & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "- Upgrades can be bought in the 'Shiftorium' Program." & Environment.NewLine
+                    txtterm.Text = txtterm.Text & "- You can earn codepoints by playing knowledge input." & Environment.NewLine
+                    If ShiftOSDesktop.boughtshifter = True Then
+                        txtterm.Text = txtterm.Text & "- You can earn codepoints by customizing " & ShiftOSDesktop.osname & " in the 'Shifter' program." & Environment.NewLine
+                    End If
+                    If ShiftOSDesktop.boughtpong = True Then
+                        txtterm.Text = txtterm.Text & "- You can earn heaps of codepoints playing pong if you cash out on a high level." & Environment.NewLine
+                    End If
+                Case Else
+                    wrongcommand()
+            End Select
+        End If
+
+        'cmds(UBound(cmds)) = command
+        further = True
+        ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " Typed Command In Terminal: " & command & Environment.NewLine
+    End Sub
+
+    Private Sub wrongcommand()
+        txtterm.Text = txtterm.Text & Environment.NewLine & "Command not recognized - Type 'help' for a list of commands!" & Environment.NewLine
+    End Sub
+
+    Private Sub listprograms()
+        txtterm.Text = txtterm.Text & Environment.NewLine & Environment.NewLine & "Programs Currently Installed:" & Environment.NewLine & _
+            ShiftOSDesktop.terminalname & " - A text based command-line interface that allows you to type commands to run programs and manage your computer." & Environment.NewLine & _
+            ShiftOSDesktop.knowledgeinputname & " - A game that rewards Code Points when you list enough words within a category such as fruits." & Environment.NewLine & _
+            ShiftOSDesktop.shiftoriumname & " - A program that allows you to spend your codepoints on a range of upgrades for " & ShiftOSDesktop.osname & "." & Environment.NewLine
+        If ShiftOSDesktop.boughtclock = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.clockname & " - An application that displays the time." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtshifter = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.shiftername & " - A settings manager that allows you to modify the appearance of " & ShiftOSDesktop.osname & "" & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtshifter = True Then
+            txtterm.Text = txtterm.Text & "Infobox - A small box with a message that pops up every now and then to guide you." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtshiftdesktop = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.colourpickername & " - A colour manager that allows you to access a range of colours within other programs" & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtfileskimmer = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.fileskimmername & " - A file manager that allows you to skim through the folders and files on your hard drive." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughttextpad = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.textpadname & " - A simple text editor that allows you to write basic text files." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtpong = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.pongname & " - A game that simulates table tennis that rewards you more codepoints for surviving longer." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtskinning = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.skinloadername & " - A program that allows you to load and save skins you have made with the Shifter." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtartpad = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.artpadname & " - A bitmap graphics editor that allows you to draw your own images." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtcalculator = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.calculatorname & " - A simple calculator application that allows you to perform basic mathematical calculations." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtaudioplayer = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.audioplayername & " - A basic application that allows you to load up .mp3 files and output the audio through your speakers." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtwebbrowser = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.webbrowsername & " - An application that allows you to access the world wide web also known as the international network (internet)." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtvideoplayer = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.videoplayername & " - A simple program that allows you load and watch video files on your pc." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtnamechanger = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.namechangername & " - A system modification tool that allows you to alter the names of the programs installed on your pc." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughticonmanager = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.iconmanagername & " - A tool that allows you to modify the icon images and their sizes that are displayed next to programs." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtbitnotewallet = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.bitnotewalletname & " - An application to track all your Bitnote transactions." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtbitnotedigger = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.bitnotediggername & " - A tool for digging bitnotes, it can be upgraded for faster speeds better performance." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtskinshifter = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.skinshiftername & " - A customization program that changes your skin after a given interval." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtshiftnet = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.shiftnetname & " - An application named after the network it is made to access, the shiftnet, a international network made specifically for ShiftOS." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtdodge = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.dodgename & " - A game of dodging falling objects, earn code points for playing." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtdownloadmanager = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.downloadmanagername & " - A tool to download files, to start a download, click a download link in the shiftnet." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtinstaller = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.installername & " - A system tool that installs STP files as programs on your computer." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtorcwrite = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.orcwritename & " - A text editing application with advanced formating options." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtfloodgate = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.floodgatename & " - A Flooding client application." & Environment.NewLine
+        End If
+        If ShiftOSDesktop.boughtmaze = True Then
+            txtterm.Text = txtterm.Text & ShiftOSDesktop.mazename & " - A simple maze escape game." & Environment.NewLine
+        End If
+    End Sub
+
+
+    Private Sub tmrfirstrun_Tick(sender As Object, e As EventArgs) Handles tmrfirstrun.Tick
+        Select Case firstrun
+            Case 1
+                txtterm.Text = txtterm.Text + "Installation Successfull" & Environment.NewLine
+
+            Case 2
+                txtterm.Text = txtterm.Text + "IP 199.108.232.1 Connecting..." & Environment.NewLine & "User@" & ShiftOSDesktop.osname & " $> "
+                My.Computer.Audio.Play(My.Resources.dial_up_modem_02, AudioPlayMode.Background)
+            Case 12
+                txtterm.Text = txtterm.Text + "IP 199.108.232.1 Connected!" & Environment.NewLine & "User@" & ShiftOSDesktop.osname & " $> "
+                My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+
+                For i = 0 To 127
+                    ShiftOSDesktop.artpadcolourpallets(i) = Color.FromArgb(-16777216)
+                Next
+            Case 15
+                txtterm.Text = txtterm.Text + "DevX: Hi, my name is DevX and you are now using an early version of my operating system ""ShiftOS""." & Environment.NewLine & "User@ShiftOS $> "
+                My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+            Case 22
+                txtterm.Text = txtterm.Text + "DevX: Currently the terminal is open and I am using it to communicate with you remotely." & Environment.NewLine & "User@ShiftOS $> "
+                My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+            Case 28
+                txtterm.Text = txtterm.Text + "DevX: ShiftOS is going to be the most revolutionary operating system in the world that will run on every electronic device you can think of." & Environment.NewLine & "User@ShiftOS $> "
+                My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+            Case 36
+                txtterm.Text = txtterm.Text + "DevX: I can't tell you much about my future plans right now but if you can help me then I may tell you more in future" & Environment.NewLine & "User@ShiftOS $> "
+                My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+            Case 44
+                txtterm.Text = txtterm.Text + "DevX: ShiftOS is barely usable in it's current state so I need you to help me evolve it using codepoints" & Environment.NewLine & "User@ShiftOS $> "
+                My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+            Case 50
+                txtterm.Text = txtterm.Text + "DevX: Once you acquire codepoints you can use them to upgrade certain components of ShiftOS or add new software" & Environment.NewLine & "User@ShiftOS $> "
+                My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+            Case 59
+                txtterm.Text = txtterm.Text + "DevX: I'll close the terminal now and send you to the blank ShiftOS desktop" & Environment.NewLine & "User@ShiftOS $> "
+                My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+            Case 65
+                txtterm.Text = txtterm.Text + "DevX: You can open and close the terminal at any time by pressing CTRL + T" & Environment.NewLine & "User@ShiftOS $> "
+                My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+            Case 70
+                txtterm.Text = txtterm.Text + "DevX: Once you are on the desktop open the terminal, type ""help"" and then press enter for a guide on using ShiftOS" & Environment.NewLine & "User@ShiftOS $> "
+                My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+            Case 80
+                txtterm.Text = txtterm.Text + "DevX: Gotta run now but I'll contact you soon to see how you are going with evolving ShiftOS for me while I... Work on something else" & Environment.NewLine & "User@ShiftOS $> "
+                My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+            Case 89
+                txtterm.Text = txtterm.Text + "DevX: Remember to always click the black desktop first and then press press CTRL + T to open the terminal otherwise the terminal won't open!" & Environment.NewLine & "User@ShiftOS $> "
+                My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+            Case 94
+                My.Computer.Audio.Play(My.Resources.typesound, AudioPlayMode.Background)
+                txtterm.Text = "User@" & ShiftOSDesktop.osname & " $> "
+                tmrfirstrun.Stop()
+                Me.Close()
+        End Select
+        firstrun = firstrun + 1
+        txtterm.SelectionStart = txtterm.TextLength
+    End Sub
+
+    Public Sub runterminalfile(ByVal path As String)
+        Dim sr As System.IO.StreamReader
+        If My.Computer.FileSystem.FileExists(path) Then
+            sr = My.Computer.FileSystem.OpenTextFileReader(path)
+            Dim linenum As Integer = IO.File.ReadAllLines(path).Length
+            Dim i As Integer = 1
+            While i <= linenum
+                command = sr.ReadLine()
+                DoCommand()
+                i = i + 1
+            End While
+            sr.Close()
+        End If
+    End Sub
+
+    Private Sub tmrshutdown_Tick(sender As Object, e As EventArgs) Handles tmrshutdown.Tick
+        ShiftOSDesktop.Close()
+        Me.Close()
+        tmrshutdown.Stop()
+    End Sub
+
+    Public storyline As String
+    Dim getshiftnetstoryyes As Boolean
+    Dim getshiftnetwait As Boolean = False
+    Private Sub tmrstorylineupdate_Tick(sender As Object, e As EventArgs) Handles tmrstorylineupdate.Tick
+        'put all storyline subs in here, they will be updated every second
+        Select Case storyline
+            Case "getshiftnet"
+                getshiftnetstory()
+            Case "storyline here"
+                'storyline function
+        End Select
+    End Sub
+
+    Dim shiftnetstorylinetiming As Integer
+    Private Sub getshiftnetstory()
+        Dim delay As Integer = 6 ' Delay between each message (in seconds)
+        If getshiftnetwait = False Then
+            txtterm.Text = txtterm.Text & "User 'MF' is trying to connect from IP:174.384.23.45 for subject: 'Shiftnet' Allow connection? yes/no" & Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+            getshiftnetwait = True
+        End If
+        If getshiftnetstoryyes = True Then
+            txtterm.ReadOnly = True
+            Select Case shiftnetstorylinetiming
+                Case 1
+                    txtterm.Text = txtterm.Text & "MF: Thanks for accepting my connection." & Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+                    My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+                Case 1 + delay
+                    txtterm.Text = txtterm.Text & "MF: Hi, I'm Maureen Fenn. I run a website called 'Minimatch'" & Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+                    My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+                Case 1 + (2 * delay)
+                    txtterm.Text = txtterm.Text & "MF: Shiftnet is network browser designed to access the Shiftnet network, specially the 'main' subnetwork." & Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+                    My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+                Case 1 + (3 * delay)
+                    txtterm.Text = txtterm.Text & "MF: It is a great way of finding information and applications for ShiftOS" & Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+                    My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+                Case 1 + (4 * delay)
+                    txtterm.Text = txtterm.Text & "MF: However, some people use it... Irresponsibly." & Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+                    My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+                Case 1 + (5 * delay)
+                    txtterm.Text = txtterm.Text & "MF: I had quite a big argument with myself about giving it to you..." & Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+                    My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+                Case 1 + (6 * delay)
+                    txtterm.Text = txtterm.Text & "MF: DevX was against the idea" & Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+                    My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+                Case 1 + (7 * delay)
+                    txtterm.Text = txtterm.Text & "MF: But my pro side won, I'm installing shiftnet for you right now" & Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+                    My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+                Case 1 + (8 * delay)
+                    txtterm.Text = txtterm.Text & "MF: If the website address starts with 'shiftnet.main' then you safe. Don't leave the main servers." & Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+                    My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+                Case 1 + (9 * delay)
+                    txtterm.Text = txtterm.Text & "MF: All installed, Gotta run now but I'll contact you soon to see how your liking the Shiftnet. While I... work on something else" & Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+                    My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+                    ShiftOSDesktop.boughtshiftnet = True
+                    ShiftOSDesktop.boughtshiftneticon = True
+                    ShiftOSDesktop.boughtalshiftnet = True
+                    ShiftOSDesktop.boughtdownloadmanager = True
+                    ShiftOSDesktop.boughtinstaller = True
+                    ShiftOSDesktop.setupdesktop()
+                Case 1 + (10 * delay)
+                    txtterm.Text = txtterm.Text & "MF: Make sure you check out shiftnet.main.minimatch/home.rnp. Bye" & Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+                    My.Computer.Audio.Play(My.Resources.writesound, AudioPlayMode.Background)
+                Case 1 + (11 * delay)
+                    txtterm.Text = txtterm.Text & "IP:174.384.23.45 disconnected" & Environment.NewLine & ShiftOSDesktop.username & "@" & ShiftOSDesktop.osname & " $> "
+                    storyline = ""
+                    shiftnetstorylinetiming = 0
+                    tmrstorylineupdate.Stop()
+                    getshiftnetstoryyes = False
+                    txtterm.ReadOnly = False
+            End Select
+            shiftnetstorylinetiming = shiftnetstorylinetiming + 1
+        End If
+    End Sub
+End Class
\ No newline at end of file