ShiftOS/Terminal.vb

Imports System.Net.Mail

Public Class Terminal
    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 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



    Private Sub Terminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        justopened = True
        setskin()

        ShiftOSDesktop.pnlpanelbuttonterminal.SendToBack()
        ShiftOSDesktop.setuppanelbuttons()
        ShiftOSDesktop.setpanelbuttonappearnce(ShiftOSDesktop.pnlpanelbuttonterminal, ShiftOSDesktop.tbterminalicon, ShiftOSDesktop.tbterminaltext, True)
        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

    Private Sub ShiftOSDesktop_keydown(sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        '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)
                ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " left to " & Me.Location.ToString & Environment.NewLine
            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)
                e.SuppressKeyPress = True
            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)
                e.SuppressKeyPress = True
            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)
                ShiftOSDesktop.log = ShiftOSDesktop.log & My.Computer.Clock.LocalTime & " User moved " & Me.Name & " down to " & Me.Location.ToString & Environment.NewLine
            End If

        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 = ShiftOSDesktop.skinclosebutton(1)
    End Sub

    Private Sub closebutton_MouseLeave(sender As Object, e As EventArgs) Handles closebutton.MouseLeave
        closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0)
    End Sub

    Private Sub closebutton_MouseDown(sender As Object, e As EventArgs) Handles closebutton.MouseDown
        closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(2)
    End Sub

    Private Sub minimizebutton_Click(sender As Object, e As EventArgs) Handles minimizebutton.Click
        ShiftOSDesktop.minimizeprogram(Me)
    End Sub

    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 = ShiftOSDesktop.skinrollupbutton(1)
    End Sub

    Private Sub rollupbutton_MouseLeave(sender As Object, e As EventArgs) Handles rollupbutton.MouseLeave
        rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0)
    End Sub

    Private Sub rollupbutton_MouseDown(sender As Object, e As EventArgs) Handles rollupbutton.MouseDown
        rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(2)
    End Sub

    Public Sub setuptitlebar()

        If Me.Height = Me.titlebar.Height Then pgleft.Show() : pgbottom.Show() : pgright.Show() : Me.Height = rolldownsize : needtorollback = True
        pgleft.Width = ShiftOSDesktop.windowbordersize
        pgright.Width = ShiftOSDesktop.windowbordersize
        pgbottom.Height = ShiftOSDesktop.windowbordersize
        titlebar.Height = ShiftOSDesktop.titlebarheight

        If justopened = True Then
            Me.Size = New Size(600, 339) 'put the default size of your window here
            Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
            Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
            oldbordersize = ShiftOSDesktop.windowbordersize
            oldtitlebarheight = ShiftOSDesktop.titlebarheight
            justopened = False
        Else
            If Me.Visible = True Then
                Me.Hide()
                Me.Size = New Size(Me.Width, Me.Height - oldtitlebarheight + 30)
                Me.Size = New Size(Me.Width - oldbordersize - oldbordersize, Me.Height - oldbordersize)
                oldbordersize = ShiftOSDesktop.windowbordersize
                oldtitlebarheight = ShiftOSDesktop.titlebarheight
                Me.Size = New Size(Me.Width, Me.Height + ShiftOSDesktop.titlebarheight - 30)
                Me.Size = New Size(Me.Width + ShiftOSDesktop.windowbordersize + ShiftOSDesktop.windowbordersize, Me.Height + ShiftOSDesktop.windowbordersize)
                rolldownsize = Me.Height
                If needtorollback = True Then Me.Height = titlebar.Height : pgleft.Hide() : pgbottom.Hide() : pgright.Hide()
                Me.Show()
            End If
        End If

        If ShiftOSDesktop.showwindowcorners = True Then
            pgtoplcorner.Show()
            pgtoprcorner.Show()
            pgtoprcorner.Width = ShiftOSDesktop.titlebarcornerwidth
            pgtoplcorner.Width = ShiftOSDesktop.titlebarcornerwidth
        Else
            pgtoplcorner.Hide()
            pgtoprcorner.Hide()
        End If

        If ShiftOSDesktop.boughttitlebar = False Then
            titlebar.Hide()
            lbtitletext.Capture = False
            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(ShiftOSDesktop.titletextfont, ShiftOSDesktop.titletextsize, ShiftOSDesktop.titletextstyle)
            lbtitletext.Text = ShiftOSDesktop.terminalname
            lbtitletext.Show()
        End If

        If ShiftOSDesktop.boughtclosebutton = False Then
            closebutton.Hide()
        Else
            closebutton.BackColor = ShiftOSDesktop.closebuttoncolour
            closebutton.Height = ShiftOSDesktop.closebuttonheight
            closebutton.Width = ShiftOSDesktop.closebuttonwidth
            closebutton.Show()
        End If

        If ShiftOSDesktop.boughtrollupbutton = False Then
            rollupbutton.Hide()
        Else
            rollupbutton.BackColor = ShiftOSDesktop.rollupbuttoncolour
            rollupbutton.Height = ShiftOSDesktop.rollupbuttonheight
            rollupbutton.Width = ShiftOSDesktop.rollupbuttonwidth
            rollupbutton.Show()
        End If

        If ShiftOSDesktop.boughtminimizebutton = False Then
            minimizebutton.Hide()
        Else
            minimizebutton.BackColor = ShiftOSDesktop.minimizebuttoncolour
            minimizebutton.Height = ShiftOSDesktop.minimizebuttonheight
            minimizebutton.Width = ShiftOSDesktop.minimizebuttonwidth
            minimizebutton.Show()
        End If

        If ShiftOSDesktop.boughtwindowborders = True Then
            closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
            rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
            minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
            Select Case ShiftOSDesktop.titletextposition
                Case "Left"
                    lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
                Case "Centre"
                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
            End Select
            lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
        Else
            closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
            rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
            minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
            Select Case ShiftOSDesktop.titletextposition
                Case "Left"
                    lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
                Case "Centre"
                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
            End Select
            lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
        End If

        If ShiftOSDesktop.boughtterminalicon = True Then
            pnlicon.Visible = True
            pnlicon.Location = New Point(ShiftOSDesktop.titlebariconside, ShiftOSDesktop.titlebaricontop)
            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

    Private Sub resettitlebar()
        If ShiftOSDesktop.boughtwindowborders = True Then
            closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
            rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
            minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
            Select Case ShiftOSDesktop.titletextposition
                Case "Left"
                    lbtitletext.Location = New Point(ShiftOSDesktop.titletextside, ShiftOSDesktop.titletexttop)
                Case "Centre"
                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
            End Select
            lbtitletext.ForeColor = ShiftOSDesktop.titletextcolour
        Else
            closebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.closebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - closebutton.Size.Width, ShiftOSDesktop.closebuttontop)
            rollupbutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.rollupbuttonside - pgtoplcorner.Width - pgtoprcorner.Width - rollupbutton.Size.Width, ShiftOSDesktop.rollupbuttontop)
            minimizebutton.Location = New Point(titlebar.Size.Width - ShiftOSDesktop.minimizebuttonside - pgtoplcorner.Width - pgtoprcorner.Width - minimizebutton.Size.Width, ShiftOSDesktop.minimizebuttontop)
            Select Case ShiftOSDesktop.titletextposition
                Case "Left"
                    lbtitletext.Location = New Point(ShiftOSDesktop.titletextside + pgtoplcorner.Width, ShiftOSDesktop.titletexttop)
                Case "Centre"
                    lbtitletext.Location = New Point((titlebar.Width / 2) - lbtitletext.Width / 2, ShiftOSDesktop.titletexttop)
            End Select
            lbtitletext.ForeColor = ShiftOSDesktop.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

    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()
        If ShiftOSDesktop.skinclosebutton(0) Is Nothing Then  Else closebutton.BackgroundImage = ShiftOSDesktop.skinclosebutton(0).Clone
        closebutton.BackgroundImageLayout = ShiftOSDesktop.skinclosebuttonstyle
        If ShiftOSDesktop.skintitlebar(0) Is Nothing Then  Else titlebar.BackgroundImage = ShiftOSDesktop.skintitlebar(0).Clone
        titlebar.BackgroundImageLayout = ShiftOSDesktop.skintitlebarstyle
        If ShiftOSDesktop.skinrollupbutton(0) Is Nothing Then  Else rollupbutton.BackgroundImage = ShiftOSDesktop.skinrollupbutton(0).Clone
        rollupbutton.BackgroundImageLayout = ShiftOSDesktop.skinrollupbuttonstyle
        If ShiftOSDesktop.skintitlebarleftcorner(0) Is Nothing Then  Else pgtoplcorner.BackgroundImage = ShiftOSDesktop.skintitlebarleftcorner(0).Clone
        pgtoplcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarleftcornerstyle
        If ShiftOSDesktop.skintitlebarrightcorner(0) Is Nothing Then  Else pgtoprcorner.BackgroundImage = ShiftOSDesktop.skintitlebarrightcorner(0).Clone
        pgtoprcorner.BackgroundImageLayout = ShiftOSDesktop.skintitlebarrightcornerstyle
        If ShiftOSDesktop.skinminimizebutton(0) Is Nothing Then  Else minimizebutton.BackgroundImage = ShiftOSDesktop.skinminimizebutton(0).Clone
        minimizebutton.BackgroundImageLayout = ShiftOSDesktop.skinminimizebuttonstyle

        'remove background colour when image is present
        If closebutton.BackgroundImage Is Nothing Then  Else closebutton.BackColor = Color.Transparent
        If titlebar.BackgroundImage Is Nothing Then  Else titlebar.BackColor = Color.Transparent
        If rollupbutton.BackgroundImage Is Nothing Then  Else rollupbutton.BackColor = Color.Transparent
        If pgtoplcorner.BackgroundImage Is Nothing Then  Else pgtoplcorner.BackColor = Color.Transparent
        If pgtoprcorner.BackgroundImage Is Nothing Then  Else pgtoprcorner.BackColor = Color.Transparent
        If minimizebutton.BackgroundImage Is Nothing Then  Else minimizebutton.BackColor = Color.Transparent


    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

    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 "join *" Then
            coherencemode.setupwindows(command.Substring(5))
        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 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))
                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()
                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()
                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)
                    Case "shiftorium", ShiftOSDesktop.shiftoriumname.ToLower
                        ShiftOSDesktop.minimizeprogram(Shiftorium)
                    Case "clock", ShiftOSDesktop.clockname.ToLower
                        ShiftOSDesktop.minimizeprogram(Clock)
                    Case "shifter", ShiftOSDesktop.shiftername.ToLower
                        ShiftOSDesktop.minimizeprogram(Shifter)
                    Case "colour", ShiftOSDesktop.colourpickername.ToLower
                        ShiftOSDesktop.minimizeprogram(Colour_Picker)
                    Case "info", "infobox"
                        ShiftOSDesktop.minimizeprogram(infobox)
                    Case "pong", ShiftOSDesktop.pongname.ToLower
                        ShiftOSDesktop.minimizeprogram(Pong)
                    Case "file", ShiftOSDesktop.fileskimmername.ToLower
                        ShiftOSDesktop.minimizeprogram(File_Skimmer)
                    Case "textpad", ShiftOSDesktop.textpadname.ToLower
                        ShiftOSDesktop.minimizeprogram(TextPad)
                    Case "fileopener", ShiftOSDesktop.fileopenername.ToLower
                        ShiftOSDesktop.minimizeprogram(File_Opener)
                    Case "filesaver", ShiftOSDesktop.filesavername.ToLower
                        ShiftOSDesktop.minimizeprogram(File_Saver)
                    Case "graphic", ShiftOSDesktop.graphicpickername.ToLower
                        ShiftOSDesktop.minimizeprogram(Graphic_Picker)
                    Case "skin", ShiftOSDesktop.skinloadername.ToLower
                        ShiftOSDesktop.minimizeprogram(Skin_Loader)
                    Case "artpad", ShiftOSDesktop.artpadname.ToLower
                        ShiftOSDesktop.minimizeprogram(ArtPad)
                    Case "calculator", ShiftOSDesktop.calculatorname.ToLower
                        ShiftOSDesktop.minimizeprogram(Calculator)
                    Case "webbrowser", "web", ShiftOSDesktop.webbrowsername.ToLower
                        ShiftOSDesktop.minimizeprogram(Web_Browser)
                    Case "videoplayer", "video", "video player", ShiftOSDesktop.videoplayername.ToLower
                        ShiftOSDesktop.minimizeprogram(Video_Player)
                    Case "namechanger", "name", "name changer", ShiftOSDesktop.namechangername.ToLower
                        ShiftOSDesktop.minimizeprogram(Name_Changer)
                    Case "iconmanager", "icon", ShiftOSDesktop.iconmanagername.ToLower
                        ShiftOSDesktop.minimizeprogram(Name_Changer)
                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
                Case "programs", "program"
                    listprograms()
                Case "unity mode on"
                    If ShiftOSDesktop.boughtunitymode = True Then
                        ShiftOSDesktop.unitymode = True
                        ShiftOSDesktop.setupdesktop()
                    Else
                        wrongcommand()
                    End If
                Case "unity mode off"
                    If ShiftOSDesktop.boughtunitymode = True Then
                        ShiftOSDesktop.unitymode = False
                        ShiftOSDesktop.setupdesktop()
                    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
                    '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
                Case "cherryblue"
                    ShiftOSDesktop.bitnotebalance = ShiftOSDesktop.bitnotebalance + 1
                    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 "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

        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
    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

    Private Sub tmrshutdown_Tick(sender As Object, e As EventArgs) Handles tmrshutdown.Tick
        ShiftOSDesktop.Close()
        Me.Close()
        tmrshutdown.Stop()
    End Sub
End Class