diff options
| author | ShiftOS <[email protected]> | 2015-03-07 22:31:31 +0200 |
|---|---|---|
| committer | ShiftOS <[email protected]> | 2015-03-07 22:31:31 +0200 |
| commit | 4caacce50cef00e4175d35f78f2089f1f6d69562 (patch) | |
| tree | 6b1ceb79d9590869fe3742753e68831378cc9e56 /Terminal.vb | |
| parent | feafdde01c360f8260b4092fc045952d97ad8872 (diff) | |
| download | shiftos-4caacce50cef00e4175d35f78f2089f1f6d69562.tar.gz shiftos-4caacce50cef00e4175d35f78f2089f1f6d69562.tar.bz2 shiftos-4caacce50cef00e4175d35f78f2089f1f6d69562.zip | |
ShiftOS
ShiftOS is a game about evolving an experimental operating system called
"ShiftOS" from a completely black and white text based command line
based OS to a fully graphical operating system filled with advanced
features and beautiful colours. The level of customization will exceed
the levels of real world operating systems
Diffstat (limited to 'Terminal.vb')
| -rw-r--r-- | Terminal.vb | 1385 |
1 files changed, 1385 insertions, 0 deletions
diff --git a/Terminal.vb b/Terminal.vb new file mode 100644 index 0000000..6d44991 --- /dev/null +++ b/Terminal.vb @@ -0,0 +1,1385 @@ +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
\ No newline at end of file |