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