diff options
Diffstat (limited to 'ShiftOS/Terminal.vb')
| -rw-r--r-- | ShiftOS/Terminal.vb | 1996 |
1 files changed, 0 insertions, 1996 deletions
diff --git a/ShiftOS/Terminal.vb b/ShiftOS/Terminal.vb deleted file mode 100644 index 134658f..0000000 --- a/ShiftOS/Terminal.vb +++ /dev/null @@ -1,1996 +0,0 @@ -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 "speak_infobox ""*"" ""*""" Then - Dim findwords() As String = command.Split("""") - Helper.speakInfoBox(findwords(1), findwords(3)) - further = False - End If - If command Like "speak ""*""" Then - Dim findwords() As String = command.Split("""") - If Not findwords(1) = "" Then - Helper.speak(findwords(1)) - Else - Helper.speak("I'm sorry, but you didn't enter anything for me to speak.") - End If - further = False - End If - If command Like "alias *" Then - CreatingAlias1 = False - CreatingAlias2 = False - 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 "test fullscreen login customizer" - FullScreenLoginCustomizer.Show() - Case "test fullscreen login" - FullScreenLogin.Show() - Case "adv app launcher on" - ShiftOSDesktop.boughtadvapplauncher = True - ShiftOSDesktop.savegame() - ShiftOSDesktop.setupdesktop() - WriteLine("Advanced App Launcher has been turned on successfully. Use ""adv app launcher off"" to turn it off again.") - Case "adv app launcher off" - ShiftOSDesktop.boughtadvapplauncher = False - ShiftOSDesktop.savegame() - ShiftOSDesktop.setupdesktop() - WriteLine("Advanced App Launcher has been turned off. Use ""adv app launcher on"" to turn it on again.") - - 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 + 1000000 - txtterm.Text = txtterm.Text & Environment.NewLine & "You have just cheated. Here is your 1000000 codepoints" & Environment.NewLine - ShiftOSDesktop.log = ShiftOSDesktop.log & ShiftOSDesktop.username & " cheated and got 1000000 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 "sandbox" - ShiftOSDesktop.boughttitlebar = True - ShiftOSDesktop.boughtcustomusername = True - ShiftOSDesktop.boughtwindowsanywhere = True - ShiftOSDesktop.boughtmultitasking = True - ShiftOSDesktop.boughtautoscrollterminal = True - ShiftOSDesktop.boughtmovablewindows = True - ShiftOSDesktop.boughtdraggablewindows = True - ShiftOSDesktop.boughtwindowborders = True - ShiftOSDesktop.boughtpmandam = True - ShiftOSDesktop.boughtminuteaccuracytime = True - ShiftOSDesktop.boughtsplitsecondtime = True - ShiftOSDesktop.boughttitletext = True - ShiftOSDesktop.boughtclosebutton = True - ShiftOSDesktop.boughtdesktoppanel = True - ShiftOSDesktop.boughtclock = True - ShiftOSDesktop.boughtwindowedterminal = True - ShiftOSDesktop.boughtapplaunchermenu = True - ShiftOSDesktop.boughtalknowledgeinput = True - ShiftOSDesktop.boughtalclock = True - ShiftOSDesktop.boughtalshiftorium = True - ShiftOSDesktop.boughtapplaunchershutdown = True - ShiftOSDesktop.boughtdesktoppanelclock = True - ShiftOSDesktop.boughtterminalscrollbar = True - ShiftOSDesktop.boughtkiaddons = True - ShiftOSDesktop.boughtkicarbrands = True - ShiftOSDesktop.boughtkigameconsoles = True - ShiftOSDesktop.boughtshifter = True - ShiftOSDesktop.boughtalshifter = True - ShiftOSDesktop.boughtrollupcommand = True - ShiftOSDesktop.boughtrollupbutton = True - ShiftOSDesktop.boughtshiftdesktop = True - ShiftOSDesktop.boughtshiftpanelclock = True - ShiftOSDesktop.boughtshiftapplauncher = True - ShiftOSDesktop.boughtshiftdesktoppanel = True - ShiftOSDesktop.boughtshifttitlebar = True - ShiftOSDesktop.boughtshifttitletext = True - ShiftOSDesktop.boughtshifttitlebuttons = True - ShiftOSDesktop.boughtshiftborders = True - ShiftOSDesktop.boughtgray2 = True - ShiftOSDesktop.boughtgray3 = True - ShiftOSDesktop.boughtgray4 = True - ShiftOSDesktop.boughtanycolour = True - ShiftOSDesktop.boughtanycolour2 = True - ShiftOSDesktop.boughtanycolour3 = True - ShiftOSDesktop.boughtanycolour4 = True - ShiftOSDesktop.boughtpurple = True - ShiftOSDesktop.boughtpurple2 = True - ShiftOSDesktop.boughtpurple3 = True - ShiftOSDesktop.boughtpurple4 = True - ShiftOSDesktop.boughtblue = True - ShiftOSDesktop.boughtblue2 = True - ShiftOSDesktop.boughtblue3 = True - ShiftOSDesktop.boughtblue4 = True - ShiftOSDesktop.boughtgreen = True - ShiftOSDesktop.boughtgreen2 = True - ShiftOSDesktop.boughtgreen3 = True - ShiftOSDesktop.boughtgreen4 = True - ShiftOSDesktop.boughtyellow = True - ShiftOSDesktop.boughtyellow2 = True - ShiftOSDesktop.boughtyellow3 = True - ShiftOSDesktop.boughtyellow4 = True - ShiftOSDesktop.boughtorange = True - ShiftOSDesktop.boughtorange2 = True - ShiftOSDesktop.boughtorange3 = True - ShiftOSDesktop.boughtorange4 = True - ShiftOSDesktop.boughtbrown = True - ShiftOSDesktop.boughtbrown2 = True - ShiftOSDesktop.boughtbrown3 = True - ShiftOSDesktop.boughtbrown4 = True - ShiftOSDesktop.boughtred = True - ShiftOSDesktop.boughtred2 = True - ShiftOSDesktop.boughtred3 = True - ShiftOSDesktop.boughtred4 = True - ShiftOSDesktop.boughtpink = True - ShiftOSDesktop.boughtpink2 = True - ShiftOSDesktop.boughtpink3 = True - ShiftOSDesktop.boughtpink4 = True - ShiftOSDesktop.boughtpong = True - ShiftOSDesktop.boughtknowledgeinputicon = True - ShiftOSDesktop.boughtshiftericon = True - ShiftOSDesktop.boughtshiftoriumicon = True - ShiftOSDesktop.boughtclockicon = True - ShiftOSDesktop.boughtshutdownicon = True - ShiftOSDesktop.boughtpongicon = True - ShiftOSDesktop.boughtterminalicon = True - ShiftOSDesktop.boughtalpong = True - ShiftOSDesktop.boughtfileskimmer = True - ShiftOSDesktop.boughtalfileskimmer = True - ShiftOSDesktop.boughttextpad = True - ShiftOSDesktop.boughtaltextpad = True - ShiftOSDesktop.boughtfileskimmericon = True - ShiftOSDesktop.boughttextpadicon = True - ShiftOSDesktop.boughttextpadnew = True - ShiftOSDesktop.boughttextpadsave = True - ShiftOSDesktop.boughttextpadopen = True - ShiftOSDesktop.boughtfileskimmernewfolder = True - ShiftOSDesktop.boughtfileskimmerdelete = True - ShiftOSDesktop.boughtkielements = True - ShiftOSDesktop.boughtcolourpickericon = True - ShiftOSDesktop.boughtinfoboxicon = True - ShiftOSDesktop.boughtskinloader = True - ShiftOSDesktop.boughtminimizebutton = True - ShiftOSDesktop.boughtpanelbuttons = True - ShiftOSDesktop.boughtshiftpanelbuttons = True - ShiftOSDesktop.boughtartpad = True - ShiftOSDesktop.boughtalartpad = True - ShiftOSDesktop.boughtartpadicon = True - ShiftOSDesktop.boughtskinning = True - ShiftOSDesktop.boughtminimizecommand = True - ShiftOSDesktop.boughtusefulpanelbuttons = True - ShiftOSDesktop.boughtunitymode = True - ShiftOSDesktop.boughtartpadpixellimit4 = True - ShiftOSDesktop.boughtartpadpixellimit8 = True - ShiftOSDesktop.boughtartpadpixellimit16 = True - ShiftOSDesktop.boughtartpadpixellimit64 = True - ShiftOSDesktop.boughtartpadpixellimit256 = True - ShiftOSDesktop.boughtartpadpixellimit1024 = True - ShiftOSDesktop.boughtartpadpixellimit4096 = True - ShiftOSDesktop.boughtartpadpixellimit16384 = True - ShiftOSDesktop.boughtartpadpixellimit65536 = True - ShiftOSDesktop.boughtartpadlimitlesspixels = True - ShiftOSDesktop.boughtartpad4colorpallets = True - ShiftOSDesktop.boughtartpad8colorpallets = True - ShiftOSDesktop.boughtartpad16colorpallets = True - ShiftOSDesktop.boughtartpad32colorpallets = True - ShiftOSDesktop.boughtartpad64colorpallets = True - ShiftOSDesktop.boughtartpad128colorpallets = True - ShiftOSDesktop.boughtartpadcustompallets = True - ShiftOSDesktop.boughtartpadnew = True - ShiftOSDesktop.boughtartpadpixelplacer = True - ShiftOSDesktop.boughtartpadpixelplacermovementmode = True - ShiftOSDesktop.boughtartpadpencil = True - ShiftOSDesktop.boughtartpadpaintbrush = True - ShiftOSDesktop.boughtartpadlinetool = True - ShiftOSDesktop.boughtartpadovaltool = True - ShiftOSDesktop.boughtartpadrectangletool = True - ShiftOSDesktop.boughtartpaderaser = True - ShiftOSDesktop.boughtartpadfilltool = True - ShiftOSDesktop.boughtartpadtexttool = True - ShiftOSDesktop.boughtartpadundo = True - ShiftOSDesktop.boughtartpadredo = True - ShiftOSDesktop.boughtartpadsave = True - ShiftOSDesktop.boughtartpadload = True - 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.boughtdownloader = True - ShiftOSDesktop.boughtshiftneticon = True - ShiftOSDesktop.boughtalshiftnet = True - ShiftOSDesktop.boughtdodge = True - ShiftOSDesktop.boughtdownloadmanager = True - ShiftOSDesktop.boughtinstaller = True - ShiftOSDesktop.boughtsnakey = True - ShiftOSDesktop.boughtsysinfoicon = True - ShiftOSDesktop.boughtorcwrite = True - ShiftOSDesktop.boughtfloodgate = True - ShiftOSDesktop.boughtmaze = True - ShiftOSDesktop.boughtunitymodetoggle = True - ShiftOSDesktop.boughtunitytoggleicon = True - - ShiftOSDesktop.boughtvirusscannericon = True - - ShiftOSDesktop.boughttextpadtrm = True - ShiftOSDesktop.boughtshiftapplauncheritems = True - ShiftOSDesktop.boughtadvapplauncher = True - - - - 'Apps bought through shiftnet - ShiftOSDesktop.installedcalculator = True - ShiftOSDesktop.installedaudioplayer = True - ShiftOSDesktop.installedwebbrowser = True - ShiftOSDesktop.installedvideoplayer = True - ShiftOSDesktop.installeddodge = True - ShiftOSDesktop.installedsnakey = True - ShiftOSDesktop.installedsysinfo = True - ShiftOSDesktop.installedorcwrite = True - ShiftOSDesktop.installedfloodgate = True - ShiftOSDesktop.installedfloodgatenow = True - ShiftOSDesktop.installedmaze = True - ShiftOSDesktop.installedvirusscanner = True - - 'new 0.0.9 features - ShiftOSDesktop.boughtskinstates = True - ShiftOSDesktop.boughtdesktopicons = True - 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 - - Public Sub WriteLine(text As String) - txtterm.Text = txtterm.Text + vbNewLine + text - End Sub -End Class
\ No newline at end of file |