shiftos-archive/ShiftOS
1
0
Fork 0
mirror of https://github.com/TheUltimateHacker/ShiftOS.git synced 2025-01-22 16:12:14 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions
ShiftOS/ShiftOS/Terminal.vb
pfg github a3db778746 Full Source
2015-03-08 09:18:40 -07:00

1769 lines
No EOL
104 KiB
VB.net
Raw Permalink Blame History

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