mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 11:51:56 -05:00
528 lines
No EOL
28 KiB
VB.net
528 lines
No EOL
28 KiB
VB.net
Imports System.IO
|
|
|
|
Public Class Terminal
|
|
Public command As String
|
|
Public DefaultPrompt As String
|
|
Public TrackPos As Integer
|
|
Public AdvancedCommand As Boolean
|
|
Public BadCommand As Boolean
|
|
Public DisplayStory As Integer
|
|
Public StoryToTell As String
|
|
Public ChangeInterpreter As Boolean = False
|
|
Public CurrentInterpreter As String = "terminal"
|
|
Public CurrentDirectory As String
|
|
|
|
Private Sub Terminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
FormBorderStyle = FormBorderStyle.None
|
|
WindowState = FormWindowState.Maximized
|
|
Cursor.Hide()
|
|
InitializeTerminal()
|
|
End Sub
|
|
|
|
Public Sub InitializeTerminal()
|
|
Strings.OnceInfo(1) = My.Computer.FileSystem.SpecialDirectories.Temp & "\ShiftOS\ShiftFS\"
|
|
If Strings.IsFree = True Then
|
|
Strings.ComputerInfo(0) = "shiftos"
|
|
Strings.ComputerInfo(1) = "user"
|
|
'Strings.ComputerInfo(2) = 0
|
|
CheckFeature()
|
|
PrintPrompt()
|
|
AssignPrompt()
|
|
Else
|
|
If Strings.ComputerInfo(3) = "0" Then
|
|
TextBox1.ReadOnly = True
|
|
StoryOnlyTimer.Start()
|
|
Else
|
|
Strings.ComputerInfo(0) = "shiftos"
|
|
Strings.ComputerInfo(1) = "user"
|
|
Strings.ComputerInfo(2) = 0
|
|
CheckFeature()
|
|
PrintPrompt()
|
|
AssignPrompt()
|
|
End If
|
|
End If
|
|
TextBox1.Select(TextBox1.TextLength, 0)
|
|
TextBox1.ScrollToCaret()
|
|
End Sub
|
|
|
|
Public Sub CheckFeature()
|
|
If Strings.AvailableFeature(4) = "1" Then
|
|
InfoBarTimer.Start()
|
|
TextBox1.Dock = DockStyle.None
|
|
InfoBar.Visible = True
|
|
InfoBar.SendToBack()
|
|
TextBox1.Dock = DockStyle.Fill
|
|
Else
|
|
TextBox1.Dock = DockStyle.None
|
|
InfoBar.Visible = False
|
|
TextBox1.Dock = DockStyle.Fill
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub PrintPrompt()
|
|
If TextBox1.Text = Nothing Then
|
|
If ChangeInterpreter = True Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & DefaultPrompt
|
|
Else
|
|
If Strings.OnceInfo(0) = "Yes" Then
|
|
TextBox1.Text = "root@" & Strings.ComputerInfo(0) & " #> "
|
|
Else
|
|
TextBox1.Text = Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> "
|
|
End If
|
|
End If
|
|
Else
|
|
If ChangeInterpreter = True Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & DefaultPrompt
|
|
Else
|
|
If Strings.OnceInfo(0) = "Yes" Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "root@" & Strings.ComputerInfo(0) & " #> "
|
|
Else
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> "
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub AssignPrompt()
|
|
If ChangeInterpreter = False Then
|
|
If Strings.OnceInfo(0) = "Yes" Then
|
|
DefaultPrompt = "root@" & Strings.ComputerInfo(0) & " #> "
|
|
Else
|
|
DefaultPrompt = Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> "
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Undeveloped()
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Oopsie! It's only for newer version"
|
|
End Sub
|
|
|
|
Private Sub ReadCommand()
|
|
command = TextBox1.Lines(TextBox1.Lines.Length - 1)
|
|
command = command.Replace(DefaultPrompt, "")
|
|
command = command.ToLower()
|
|
End Sub
|
|
|
|
Private Sub DoCommand()
|
|
AdvancedCommand = True
|
|
BadCommand = True
|
|
Select Case command
|
|
Case ""
|
|
AdvancedCommand = False
|
|
BadCommand = False
|
|
Case "bc"
|
|
If Strings.AvailableFeature(9) = "1" Then
|
|
ChangeInterpreter = True
|
|
AppHost("bc")
|
|
AdvancedCommand = False
|
|
BadCommand = False
|
|
End If
|
|
Case "clear"
|
|
If Strings.AvailableFeature(1) = "1" Then
|
|
TextBox1.Text = Nothing
|
|
AdvancedCommand = False
|
|
BadCommand = False
|
|
End If
|
|
Case "codepoint"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & Strings.ComputerInfo(2) & " Codepoint(s) available in your wallet"
|
|
AdvancedCommand = False
|
|
BadCommand = False
|
|
Case "guess"
|
|
ChangeInterpreter = True
|
|
AppHost("guess")
|
|
AdvancedCommand = False
|
|
BadCommand = False
|
|
'Undeveloped()
|
|
Case "gimme"
|
|
Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
|
|
TempCP = TempCP + 50
|
|
Strings.ComputerInfo(2) = Convert.ToString(TempCP)
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "you cheater!"
|
|
Case "help"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual" & Environment.NewLine & Environment.NewLine & "You can type 'help' to get all available commands and its corresponding action."
|
|
If Strings.AvailableFeature(0) = 1 Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "To get help on each command, you can type 'man [command]'" & Environment.NewLine
|
|
Else
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine
|
|
End If
|
|
If Strings.AvailableFeature(9) = 1 Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "BC Basic Calculator for simple calculation"
|
|
End If
|
|
If Strings.AvailableFeature(1) = 1 Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "CLEAR Clear the terminal"
|
|
End If
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "CODEPOINT Display Codepoint(s) from your wallet"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "GUESS Runs 'Guess the Number' application"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "HELP Shows all commands available and its corresponding action"
|
|
If Strings.AvailableFeature(0) = 1 Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN Shows a command, its corresponding action, and its example usage"
|
|
End If
|
|
If Strings.AvailableFeature(2) = 1 Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "PRINT Prints a corresponding text entered in the command"
|
|
End If
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "REBOOT Terminate and re-run ShiftOS session"
|
|
If Strings.AvailableFeature(8) = 1 Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHIFTFETCH Shows informations about your computer"
|
|
End If
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHIFTORIUM A software center for upgrading features on ShiftOS"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHUTDOWN Terminate ShiftOS session"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SU Runs terminal as super user"
|
|
If Strings.AvailableFeature(5) = 1 Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "TIME Display the current time in the form of seconds since midnight"
|
|
ElseIf Strings.AvailableFeature(5) = 3 Then
|
|
If Strings.AvailableFeature(6) = 1 Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "TIME Display the current time in the form of minutes since midnight"
|
|
ElseIf Strings.AvailableFeature(6) = 3 Then
|
|
If Strings.AvailableFeature(7) = 1 Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "TIME Display the current time in the form of hours since midnight"
|
|
End If
|
|
End If
|
|
End If
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "VER Printing current version of ShiftOS TheRevival"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine
|
|
AdvancedCommand = False
|
|
BadCommand = False
|
|
Case "reboot"
|
|
TextBox1.Text = Nothing
|
|
AdvancedCommand = False
|
|
BadCommand = False
|
|
InitializeTerminal()
|
|
Case "su"
|
|
If Strings.OnceInfo(0) = "Yes" Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "You already in root mode!"
|
|
Else
|
|
Strings.OnceInfo(0) = "Yes"
|
|
AssignPrompt()
|
|
End If
|
|
AdvancedCommand = False
|
|
BadCommand = False
|
|
Case "shiftfetch"
|
|
If Strings.AvailableFeature(8) = "1" Then
|
|
If Strings.OnceInfo(0) = "Yes" Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & Environment.NewLine & " :^!7?JJJJJ?7!^: root@shiftos"
|
|
Else
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & Environment.NewLine & " :^!7?JJJJJ?7!^: user@shiftos"
|
|
End If
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .~?PB###BGP555PGB###BP?~. ----------------------"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .!P#&B57^..::^~~!!~^::~7YG!. OS: ShiftOS TheRevival"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .?#@G7: .^ :^::!5&#?. Host: " & Environment.MachineName
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .?#@5^ ! .^!!..J&#? Kernel: " & My.Resources.CurrentVersion
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ^B@G^ .J :7?..J@G: Uptime: N/A"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ~&@Y 7 ~PB&#Y:. ~G7 ~&&^ Packages: " & Strings.ComputerInfo(4)
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ^&@Y Y 5#5??YB@&B~ .GJ :&&: Shell: sos-justshell"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " G@B ? 5P ^YB! .#! ~@G Window Manager: -"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ^@@! : @Y .:::^~:. 7# Y@^ Window Manager Theme: -"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " 7@@: ! B@&BBBBGPPB@#Y. :&^ ^@? Terminal: shiftos-terminal"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ?@@: 7 :??7~:. 5@@5 :&^ .&? Terminal Font: Consolas, 11pt"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ~@@! !@ G#&B!. Y@@B 7#. Y~ CPU: N/A"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " B@G B@J ...~&G. 7@@@? .#? 7 GPU: N/A"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ~&@? ^@Y !G#57~~!YB@#Y^ .GP .. Memory: " & (My.Computer.Info.TotalPhysicalMemory / 1024 / 1024 / 1024) & " GB"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " !@@7 ~#J 5#&&BG57^ ~BY Codepoint: " & Strings.ComputerInfo(2)
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ~#@Y .5P~ ^5G~ "
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .J&#! ^JY!:. ^?P5! "
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " :J&B?..!JYY7!~::...::~!7Y5Y7: "
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .7PBP?^::~!?JJJJJJJ?7~: "
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .~?55Y?!^:... "
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .:~~^~^^::. "
|
|
AdvancedCommand = False
|
|
BadCommand = False
|
|
End If
|
|
Case "shiftoriumfx"
|
|
'ChangeInterpreter = True
|
|
'AppHost("shiftoriumfx")
|
|
AdvancedCommand = False
|
|
BadCommand = False
|
|
Undeveloped()
|
|
Case "shutdown", "shut down"
|
|
Cursor.Show()
|
|
ShiftOSMenu.Show()
|
|
Close()
|
|
Case "time"
|
|
If Strings.AvailableFeature(5) = "1" Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " seconds passed since midnight"
|
|
ElseIf Strings.AvailableFeature(5) = "3" Then
|
|
If Strings.AvailableFeature(6) = "1" Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & Math.Floor(Date.Now.Subtract(Date.Today).TotalMinutes) & " minutes passed since midnight"
|
|
ElseIf Strings.AvailableFeature(6) = "3" Then
|
|
If Strings.AvailableFeature(7) = "1" Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " hours passed since midnight"
|
|
End If
|
|
End If
|
|
End If
|
|
AdvancedCommand = False
|
|
BadCommand = False
|
|
Case "ver"
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS TheRevival version " & My.Resources.CurrentVersion
|
|
AdvancedCommand = False
|
|
BadCommand = False
|
|
End Select
|
|
|
|
If AdvancedCommand = True Then
|
|
If command Like "man *" Then
|
|
If Strings.AvailableFeature(0) = "1" Then
|
|
'MAN command starts with this kinda format
|
|
'ShiftOS Help Manual
|
|
'
|
|
''command' Usage: [switch/value if needed]
|
|
'
|
|
'Summary of the command's action
|
|
'
|
|
'Example usage : command
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual" & Environment.NewLine
|
|
'TextBox1.Text = TextBox1.Text & Environment.NewLine & command.Substring(4)
|
|
Dim mancommand As String = command.Replace("man ", "")
|
|
Dim TempUsage As String = "'" & mancommand & "' Usage: "
|
|
Select Case mancommand
|
|
'In process to convert every command from printing from code to printing from text file
|
|
Case "bc"
|
|
If Strings.AvailableFeature(9) = "1" Then
|
|
TempUsage = TempUsage & "bc"
|
|
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_bc & Environment.NewLine
|
|
BadCommand = False
|
|
End If
|
|
Case "clear"
|
|
If Strings.AvailableFeature(1) = "1" Then
|
|
TempUsage = TempUsage & "clear"
|
|
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_clear & Environment.NewLine
|
|
BadCommand = False
|
|
End If
|
|
Case "codepoint"
|
|
TempUsage = TempUsage & "codepoint"
|
|
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_codepoint & Environment.NewLine
|
|
BadCommand = False
|
|
Case "guess"
|
|
TempUsage = TempUsage & "guess"
|
|
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_guess & Environment.NewLine
|
|
BadCommand = False
|
|
Case "help"
|
|
TempUsage = TempUsage & "help"
|
|
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_help & Environment.NewLine
|
|
BadCommand = False
|
|
Case "man"
|
|
If Strings.AvailableFeature(0) = "1" Then
|
|
TempUsage = TempUsage & "man [command]"
|
|
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_man & Environment.NewLine
|
|
BadCommand = False
|
|
End If
|
|
Case "print"
|
|
If Strings.AvailableFeature(2) = "1" Then
|
|
TempUsage = TempUsage & "print [text]"
|
|
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_print & Environment.NewLine
|
|
BadCommand = False
|
|
End If
|
|
Case "reboot"
|
|
TempUsage = TempUsage & "reboot"
|
|
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_reboot & Environment.NewLine
|
|
BadCommand = False
|
|
Case "shiftfetch"
|
|
If Strings.AvailableFeature(8) = "1" Then
|
|
TempUsage = TempUsage & "shiftfetch"
|
|
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftfetch & Environment.NewLine
|
|
BadCommand = False
|
|
End If
|
|
Case "shiftorium"
|
|
TempUsage = TempUsage & "shiftorium [option] [featureName]"
|
|
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftorium & Environment.NewLine
|
|
BadCommand = False
|
|
Case "shutdown"
|
|
TempUsage = TempUsage & "shutdown"
|
|
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shutdown & Environment.NewLine
|
|
BadCommand = False
|
|
Case "ver"
|
|
TempUsage = TempUsage & "ver"
|
|
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_ver & Environment.NewLine
|
|
BadCommand = False
|
|
Case Else
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN : Invalid command"
|
|
End Select
|
|
End If
|
|
End If
|
|
If command Like "shiftorium *" Then
|
|
Dim prompt As String = command.Replace("shiftorium ", "")
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium ShiftOS Center"
|
|
If prompt Like "info *" Then
|
|
Shiftoriums.prompt = command.Replace("shiftorium info ", "")
|
|
Shiftorium_InformationFeatures()
|
|
End If
|
|
If prompt Like "install *" Then
|
|
Shiftoriums.prompt = command.Replace("shiftorium install ", "")
|
|
Shiftorium_DetectInstallFeatures()
|
|
End If
|
|
If prompt = "list" Then
|
|
Shiftorium_ListFeatures()
|
|
BadCommand = False
|
|
End If
|
|
End If
|
|
If command Like "print *" Then
|
|
If Strings.AvailableFeature(2) = "1" Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & command.Substring(6)
|
|
Dim printed As String = command.Replace("print ", "")
|
|
''It has the same issue, only displays in lowercase
|
|
'TextBox1.Text = TextBox1.Text & Environment.NewLine & printed
|
|
BadCommand = False
|
|
End If
|
|
End If
|
|
AdvancedCommand = False
|
|
End If
|
|
|
|
If BadCommand = True Then
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Bad command or wrong file name"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtterm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.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 TextBox1.SelectionStart = TextBox1.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
|
|
If TextBox1.ReadOnly = True Then
|
|
|
|
Else
|
|
ReadCommand()
|
|
If ChangeInterpreter = True Then
|
|
DoChildCommand()
|
|
PrintPrompt()
|
|
TextBox1.Select(TextBox1.Text.Length, 0)
|
|
Else
|
|
DoCommand()
|
|
PrintPrompt()
|
|
TextBox1.Select(TextBox1.Text.Length, 0)
|
|
End If
|
|
End If
|
|
|
|
'If command = "clear" Then
|
|
' PrintPrompt()
|
|
' TextBox1.Select(TextBox1.Text.Length, 0)
|
|
|
|
'Else
|
|
' PrintPrompt()
|
|
' TextBox1.Select(TextBox1.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 TextBox1.SelectedText.Length < 1 Then
|
|
TrackPos = TrackPos - 1
|
|
Else
|
|
e.SuppressKeyPress = True
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
TextBox1.Select(TextBox1.TextLength, 0)
|
|
TextBox1.ScrollToCaret()
|
|
End Sub
|
|
|
|
Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click, TextBox1.MouseDoubleClick
|
|
TextBox1.Select(TextBox1.TextLength, 0)
|
|
TextBox1.ScrollToCaret()
|
|
End Sub
|
|
|
|
Private Sub StoryOnlyTimer_Tick(sender As Object, e As EventArgs) Handles StoryOnlyTimer.Tick
|
|
Select Case Strings.ComputerInfo(3)
|
|
Case "0"
|
|
Select Case DisplayStory
|
|
Case 5
|
|
TextBox1.Text = "Connected to <null>"
|
|
Case 25
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Hey there, Unknown user!"
|
|
Case 40
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: You have been selected for an unvolentary test on my experimental operating system, ShiftOS"
|
|
Case 90
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: ShiftOS is an operating system that purposes itself to evolve itself as the time progresses"
|
|
Case 140
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I will add features into the operating system as you use it"
|
|
Case 170
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Currently ShiftOS didn't have that much function aside from a command line with little command"
|
|
Case 190
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I'll install ShiftOS now on your system"
|
|
Case 215
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I will come back and contact you later on when the time is necessary, see you!"
|
|
Case 250
|
|
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null> Disconnected"
|
|
Case 275
|
|
TextBox1.Text = "Installing ShiftOS..."
|
|
Case 350
|
|
TextBox1.Text = "ShiftOS Installed, The computer will restart in a few seconds"
|
|
Case 400
|
|
TextBox1.Text = Nothing
|
|
TextBox1.ReadOnly = False
|
|
Strings.ComputerInfo(0) = "shiftos"
|
|
Strings.ComputerInfo(1) = "user"
|
|
Strings.ComputerInfo(2) = 0
|
|
PrintPrompt()
|
|
AssignPrompt()
|
|
TextBox1.Select(TextBox1.TextLength, 0)
|
|
TextBox1.ScrollToCaret()
|
|
End Select
|
|
End Select
|
|
DisplayStory = DisplayStory + 1
|
|
End Sub
|
|
|
|
Private Sub InfoBarTimer_Tick(sender As Object, e As EventArgs) Handles InfoBarTimer.Tick
|
|
InfoBar.Text = "|"
|
|
If Strings.AvailableFeature(5) = "1" Then
|
|
InfoBar.Text = InfoBar.Text & " " & Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " |"
|
|
ElseIf Strings.AvailableFeature(5) = "3" Then
|
|
If Strings.AvailableFeature(6) = "1" Then
|
|
InfoBar.Text = InfoBar.Text & " " & Math.Floor(Date.Now.Subtract(Date.Today).TotalMinutes) & " |"
|
|
ElseIf Strings.AvailableFeature(6) = "3" Then
|
|
If Strings.AvailableFeature(7) = "1" Then
|
|
InfoBar.Text = InfoBar.Text & " " & Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " |"
|
|
End If
|
|
End If
|
|
End If
|
|
If Strings.OnceInfo(0) = "Yes" Then
|
|
InfoBar.Text = InfoBar.Text & " root |"
|
|
Else
|
|
InfoBar.Text = InfoBar.Text & " user |"
|
|
End If
|
|
InfoBar.Text = InfoBar.Text & " " & CurrentInterpreter & " |"
|
|
InfoBar.Text = InfoBar.Text & " " & Strings.ComputerInfo(2) & " CP |"
|
|
End Sub
|
|
End Class |