mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-22 18:02:16 +00:00
Moving DoCommand to TerminalAPI, etc.
This commit is contained in:
EverythingWindows
parent
52674dbd4d
commit
8b879eb638
4 changed files with 286 additions and 269 deletions
|
|
@ -3,6 +3,16 @@
|
||||||
Public AdvancedCommand As Boolean
|
Public AdvancedCommand As Boolean
|
||||||
Public RawCommand As String
|
Public RawCommand As String
|
||||||
|
|
||||||
|
Public Sub Terminal_ExecuteInput()
|
||||||
|
Terminal_ReadCommand()
|
||||||
|
If Strings.AvailableFeature(18) = 1 Then
|
||||||
|
ShOSKey_InputCommand(command)
|
||||||
|
End If
|
||||||
|
Console.DoCommand()
|
||||||
|
Terminal_PrintPrompt()
|
||||||
|
TextRebind()
|
||||||
|
End Sub
|
||||||
|
|
||||||
Public Sub Terminal_ReadCommand()
|
Public Sub Terminal_ReadCommand()
|
||||||
command = Console.TextBox1.Lines(Console.TextBox1.Lines.Length - 1)
|
command = Console.TextBox1.Lines(Console.TextBox1.Lines.Length - 1)
|
||||||
If Console.DefaultPrompt = Nothing Then
|
If Console.DefaultPrompt = Nothing Then
|
||||||
|
|
@ -67,4 +77,271 @@
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Public Sub Terminal_DoCommand()
|
||||||
|
AdvancedCommand = True
|
||||||
|
Console.BadCommand = True
|
||||||
|
Select Case command
|
||||||
|
Case ""
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
Case "05tray"
|
||||||
|
_05tray()
|
||||||
|
NewLine("you cheater!")
|
||||||
|
Case "bc"
|
||||||
|
If Strings.AvailableFeature(9) = "1" Then
|
||||||
|
Console.ChangeInterpreter = True
|
||||||
|
AppHost("bc", False)
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
Case "clear"
|
||||||
|
If Strings.AvailableFeature(1) = "1" Then
|
||||||
|
Console.TextBox1.Text = Nothing
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
Case "codepoint"
|
||||||
|
Codepoint()
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
Case "colors"
|
||||||
|
DisplayColors()
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
Case "date"
|
||||||
|
Terminal_Date()
|
||||||
|
Case "dir"
|
||||||
|
If Strings.AvailableFeature(16) = "1" Then
|
||||||
|
TerminalDirectories(Console.CurrentDirectory)
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
Case "exit su"
|
||||||
|
If Strings.OnceInfo(0) = "No" Then
|
||||||
|
|
||||||
|
Else
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
NewLine("Exitting root mode...")
|
||||||
|
Strings.OnceInfo(0) = "No"
|
||||||
|
Terminal_AssignPrompt()
|
||||||
|
End If
|
||||||
|
Case "guess"
|
||||||
|
Console.ChangeInterpreter = True
|
||||||
|
AppHost("guess", False)
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
'Undeveloped()
|
||||||
|
Case "help"
|
||||||
|
Help()
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
Case "infobar"
|
||||||
|
If Strings.AvailableFeature(4) = 1 Then
|
||||||
|
NewLine(My.Resources.man_infobar)
|
||||||
|
End If
|
||||||
|
Case "pwd"
|
||||||
|
If Strings.AvailableFeature(16) = 1 Then
|
||||||
|
Pwd()
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
Case "reboot"
|
||||||
|
Console.TextBox1.Text = Nothing
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
SaveGame()
|
||||||
|
Console.InitializeTerminal()
|
||||||
|
Case "shiftorium"
|
||||||
|
NewLine(My.Resources.man_shiftorium)
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
Case "shiftfetch"
|
||||||
|
If Strings.AvailableFeature(8) = "1" Then
|
||||||
|
Shiftfetch()
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
Case "shiftoriumfx"
|
||||||
|
'ChangeInterpreter = True
|
||||||
|
'AppHost("shiftoriumfx")
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
Undeveloped()
|
||||||
|
Case "shutdown", "shut down"
|
||||||
|
NewLine("Saving game...")
|
||||||
|
If Strings.OnceInfo(6) = "story" Then
|
||||||
|
SaveGame()
|
||||||
|
End If
|
||||||
|
Cursor.Show()
|
||||||
|
ShiftOSMenu.Show()
|
||||||
|
Console.Close()
|
||||||
|
Case "textpad"
|
||||||
|
If Strings.AvailableFeature(17) = "1" Then
|
||||||
|
TextPad_WarnFile()
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
Case "time"
|
||||||
|
Terminal_Time()
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
Case "su"
|
||||||
|
Terminal_Su()
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
Case "ver"
|
||||||
|
Terminal_Version()
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End Select
|
||||||
|
|
||||||
|
If AdvancedCommand = True Then
|
||||||
|
If command Like "cat *" Then
|
||||||
|
If Strings.AvailableFeature(16) = 1 Then
|
||||||
|
CatFile(command.Substring(4))
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If command Like "cd *" Then
|
||||||
|
If Strings.AvailableFeature(16) = 1 Then
|
||||||
|
NavigateDir(command.Replace("cd ", ""))
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If command Like "color *" Then
|
||||||
|
GetColor("terminal", command.Substring(6, 1), command.Substring(7, 1))
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
If command Like "cowsay *" Then
|
||||||
|
If Strings.AvailableFeature(22) = 1 Then
|
||||||
|
Cowsay_Say(RawCommand.Substring(7))
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If command Like "del *" Then
|
||||||
|
If Strings.AvailableFeature(16) = 1 Then
|
||||||
|
DeleteFile(RawCommand.Substring(4))
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If command Like "hostname *" Then
|
||||||
|
If Strings.AvailableFeature(20) = 1 Then
|
||||||
|
Strings.ComputerInfo(0) = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
|
||||||
|
Terminal_AssignPrompt()
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If command Like "infobar *" Then
|
||||||
|
If Strings.AvailableFeature(4) = "1" Then
|
||||||
|
'Infobar panel-ish and some sort
|
||||||
|
Dim infobarcommand As String = command.Replace("infobar ", "")
|
||||||
|
Dim advancedtool As Boolean = True
|
||||||
|
Select Case infobarcommand
|
||||||
|
Case "on"
|
||||||
|
Strings.OnceInfo(2) = "True"
|
||||||
|
Console.CheckFeature()
|
||||||
|
Console.BadCommand = False
|
||||||
|
advancedtool = False
|
||||||
|
Case "off"
|
||||||
|
Strings.OnceInfo(2) = "False"
|
||||||
|
Console.CheckFeature()
|
||||||
|
Console.BadCommand = False
|
||||||
|
advancedtool = False
|
||||||
|
End Select
|
||||||
|
If advancedtool = True Then
|
||||||
|
If infobarcommand Like "color *" Then
|
||||||
|
GetColor("infobar", infobarcommand.Substring(6, 1), infobarcommand.Substring(7, 1))
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If command Like "man *" Then
|
||||||
|
If Strings.AvailableFeature(0) = "1" Then
|
||||||
|
Manual(command)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If command Like "mkdir *" Then
|
||||||
|
If Strings.AvailableFeature(16) Then
|
||||||
|
CreateDir(command.Replace("mkdir ", ""))
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If command Like "print *" Then
|
||||||
|
If Strings.AvailableFeature(2) = "1" Then
|
||||||
|
NewLine(RawCommand.Substring(6))
|
||||||
|
Console.BadCommand = False
|
||||||
|
AdvancedCommand = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If command Like "rev *" Then
|
||||||
|
If Strings.AvailableFeature(21) = 1 Then
|
||||||
|
NewLine(StrReverse(RawCommand.Substring(4)))
|
||||||
|
Console.BadCommand = False
|
||||||
|
AdvancedCommand = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If command Like "rmdir *" Then
|
||||||
|
If Strings.AvailableFeature(16) = 1 Then
|
||||||
|
RemoveDir(command.Replace("rmdir ", ""))
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If command Like "run *" Then
|
||||||
|
If Strings.AvailableFeature(30) = 1 Then
|
||||||
|
Terminal_RunTerminalFile(command.Substring(4))
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If command Like "shiftorium *" Then
|
||||||
|
Dim prompt As String = command.Replace("shiftorium ", "")
|
||||||
|
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()
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If command Like "textpad *" Then
|
||||||
|
If Strings.AvailableFeature(17) = 1 Then
|
||||||
|
Console.ChangeInterpreter = True
|
||||||
|
command = RawCommand.Replace("textpad ", "")
|
||||||
|
AppHost("textpad", True)
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If command Like "username *" Then
|
||||||
|
If Strings.AvailableFeature(19) = 1 Then
|
||||||
|
If command.Substring(9) = "root" Then
|
||||||
|
NewLine("This username is already taken!")
|
||||||
|
Else
|
||||||
|
Strings.ComputerInfo(1) = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
|
||||||
|
Terminal_AssignPrompt()
|
||||||
|
End If
|
||||||
|
AdvancedCommand = False
|
||||||
|
Console.BadCommand = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If Console.BadCommand = True Then
|
||||||
|
NewLine("Bad command or wrong file name")
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
End Module
|
End Module
|
||||||
|
|
|
||||||
|
|
@ -98,275 +98,7 @@ Public Class Console
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Public Sub DoCommand()
|
Public Sub DoCommand()
|
||||||
AdvancedCommand = True
|
|
||||||
BadCommand = True
|
|
||||||
Select Case command
|
|
||||||
Case ""
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
Case "05tray"
|
|
||||||
Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
|
|
||||||
TempCP = TempCP + 50
|
|
||||||
Strings.ComputerInfo(2) = Convert.ToString(TempCP)
|
|
||||||
NewLine("you cheater!")
|
|
||||||
Case "bc"
|
|
||||||
If Strings.AvailableFeature(9) = "1" Then
|
|
||||||
ChangeInterpreter = True
|
|
||||||
AppHost("bc", False)
|
|
||||||
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"
|
|
||||||
Codepoint()
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
Case "colors"
|
|
||||||
DisplayColors()
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
Case "date"
|
|
||||||
Terminal_Date()
|
|
||||||
Case "dir"
|
|
||||||
If Strings.AvailableFeature(16) = "1" Then
|
|
||||||
TerminalDirectories(CurrentDirectory)
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
Case "exit su"
|
|
||||||
If Strings.OnceInfo(0) = "No" Then
|
|
||||||
|
|
||||||
Else
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
NewLine("Exitting root mode...")
|
|
||||||
Strings.OnceInfo(0) = "No"
|
|
||||||
Terminal_AssignPrompt()
|
|
||||||
End If
|
|
||||||
Case "guess"
|
|
||||||
ChangeInterpreter = True
|
|
||||||
AppHost("guess", False)
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
'Undeveloped()
|
|
||||||
Case "help"
|
|
||||||
Help()
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
Case "infobar"
|
|
||||||
If Strings.AvailableFeature(4) = 1 Then
|
|
||||||
NewLine(My.Resources.man_infobar)
|
|
||||||
End If
|
|
||||||
Case "pwd"
|
|
||||||
If Strings.AvailableFeature(16) = 1 Then
|
|
||||||
Pwd()
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
Case "reboot"
|
|
||||||
TextBox1.Text = Nothing
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
SaveGame()
|
|
||||||
InitializeTerminal()
|
|
||||||
Case "shiftorium"
|
|
||||||
NewLine(My.Resources.man_shiftorium)
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
Case "shiftfetch"
|
|
||||||
If Strings.AvailableFeature(8) = "1" Then
|
|
||||||
Shiftfetch()
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
Case "shiftoriumfx"
|
|
||||||
'ChangeInterpreter = True
|
|
||||||
'AppHost("shiftoriumfx")
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
Undeveloped()
|
|
||||||
Case "shutdown", "shut down"
|
|
||||||
NewLine("Saving game...")
|
|
||||||
If Strings.OnceInfo(6) = "story" Then
|
|
||||||
SaveGame()
|
|
||||||
End If
|
|
||||||
Cursor.Show()
|
|
||||||
ShiftOSMenu.Show()
|
|
||||||
Close()
|
|
||||||
Case "textpad"
|
|
||||||
If Strings.AvailableFeature(17) = "1" Then
|
|
||||||
TextPad_WarnFile()
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
Case "time"
|
|
||||||
Terminal_Time()
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
Case "su"
|
|
||||||
Terminal_Su()
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
Case "ver"
|
|
||||||
Terminal_Version()
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
End Select
|
|
||||||
|
|
||||||
If AdvancedCommand = True Then
|
|
||||||
If command Like "cat *" Then
|
|
||||||
If Strings.AvailableFeature(16) = 1 Then
|
|
||||||
CatFile(command.Substring(4))
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If command Like "cd *" Then
|
|
||||||
If Strings.AvailableFeature(16) = 1 Then
|
|
||||||
NavigateDir(command.Replace("cd ", ""))
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If command Like "color *" Then
|
|
||||||
GetColor("terminal", command.Substring(6, 1), command.Substring(7, 1))
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
If command Like "cowsay *" Then
|
|
||||||
If Strings.AvailableFeature(22) = 1 Then
|
|
||||||
Cowsay_Say(RawCommand.Substring(7))
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If command Like "del *" Then
|
|
||||||
If Strings.AvailableFeature(16) = 1 Then
|
|
||||||
DeleteFile(RawCommand.Substring(4))
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If command Like "hostname *" Then
|
|
||||||
If Strings.AvailableFeature(20) = 1 Then
|
|
||||||
Strings.ComputerInfo(0) = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
|
|
||||||
Terminal_AssignPrompt()
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If command Like "infobar *" Then
|
|
||||||
If Strings.AvailableFeature(4) = "1" Then
|
|
||||||
'Infobar panel-ish and some sort
|
|
||||||
Dim infobarcommand As String = command.Replace("infobar ", "")
|
|
||||||
Dim advancedtool As Boolean = True
|
|
||||||
Select Case infobarcommand
|
|
||||||
Case "on"
|
|
||||||
Strings.OnceInfo(2) = "True"
|
|
||||||
CheckFeature()
|
|
||||||
BadCommand = False
|
|
||||||
advancedtool = False
|
|
||||||
Case "off"
|
|
||||||
Strings.OnceInfo(2) = "False"
|
|
||||||
CheckFeature()
|
|
||||||
BadCommand = False
|
|
||||||
advancedtool = False
|
|
||||||
End Select
|
|
||||||
If advancedtool = True Then
|
|
||||||
If infobarcommand Like "color *" Then
|
|
||||||
GetColor("infobar", infobarcommand.Substring(6, 1), infobarcommand.Substring(7, 1))
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If command Like "man *" Then
|
|
||||||
If Strings.AvailableFeature(0) = "1" Then
|
|
||||||
Manual(command)
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If command Like "mkdir *" Then
|
|
||||||
If Strings.AvailableFeature(16) Then
|
|
||||||
CreateDir(command.Replace("mkdir ", ""))
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If command Like "print *" Then
|
|
||||||
If Strings.AvailableFeature(2) = "1" Then
|
|
||||||
NewLine(RawCommand.Substring(6))
|
|
||||||
'Dim printed As String = command.Replace("print ", "")
|
|
||||||
''It has the same issue, only displays in lowercase
|
|
||||||
'NewLine( printed
|
|
||||||
BadCommand = False
|
|
||||||
AdvancedCommand = False
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If command Like "rev *" Then
|
|
||||||
If Strings.AvailableFeature(21) = 1 Then
|
|
||||||
NewLine(StrReverse(RawCommand.Substring(4)))
|
|
||||||
BadCommand = False
|
|
||||||
AdvancedCommand = False
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If command Like "rmdir *" Then
|
|
||||||
If Strings.AvailableFeature(16) = 1 Then
|
|
||||||
RemoveDir(command.Replace("rmdir ", ""))
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If command Like "run *" Then
|
|
||||||
If Strings.AvailableFeature(30) = 1 Then
|
|
||||||
Terminal_RunTerminalFile(command.Substring(4))
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If command Like "shiftorium *" Then
|
|
||||||
Dim prompt As String = command.Replace("shiftorium ", "")
|
|
||||||
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 "textpad *" Then
|
|
||||||
If Strings.AvailableFeature(17) = 1 Then
|
|
||||||
ChangeInterpreter = True
|
|
||||||
command = RawCommand.Replace("textpad ", "")
|
|
||||||
AppHost("textpad", True)
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If command Like "username *" Then
|
|
||||||
If Strings.AvailableFeature(19) = 1 Then
|
|
||||||
If command.Substring(9) = "root" Then
|
|
||||||
NewLine("This username is already taken!")
|
|
||||||
Else
|
|
||||||
Strings.ComputerInfo(1) = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
|
|
||||||
Terminal_AssignPrompt()
|
|
||||||
End If
|
|
||||||
AdvancedCommand = False
|
|
||||||
BadCommand = False
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
If BadCommand = True Then
|
|
||||||
NewLine("Bad command or wrong file name")
|
|
||||||
End If
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub txtterm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
|
Private Sub txtterm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
|
||||||
|
|
@ -399,7 +131,7 @@ Public Class Console
|
||||||
Terminal_PrintPrompt()
|
Terminal_PrintPrompt()
|
||||||
TextRebind()
|
TextRebind()
|
||||||
Else
|
Else
|
||||||
DoCommand()
|
Terminal_DoCommand()
|
||||||
Terminal_PrintPrompt()
|
Terminal_PrintPrompt()
|
||||||
TextRebind()
|
TextRebind()
|
||||||
End If
|
End If
|
||||||
|
|
|
||||||
|
|
@ -152,6 +152,7 @@
|
||||||
<Compile Include="Terminal Applications\External\App_TextPad.vb" />
|
<Compile Include="Terminal Applications\External\App_TextPad.vb" />
|
||||||
<Compile Include="Terminal Applications\External\TerminalExternalApps.vb" />
|
<Compile Include="Terminal Applications\External\TerminalExternalApps.vb" />
|
||||||
<Compile Include="Functions\InGame\TerminalColorSystem.vb" />
|
<Compile Include="Functions\InGame\TerminalColorSystem.vb" />
|
||||||
|
<Compile Include="Terminal Applications\Internal\Com_05tray.vb" />
|
||||||
<Compile Include="Terminal Applications\Internal\Com_Codepoint.vb" />
|
<Compile Include="Terminal Applications\Internal\Com_Codepoint.vb" />
|
||||||
<Compile Include="Terminal Applications\Internal\Com_Help.vb" />
|
<Compile Include="Terminal Applications\Internal\Com_Help.vb" />
|
||||||
<Compile Include="Terminal Applications\Internal\Com_Pwd.vb" />
|
<Compile Include="Terminal Applications\Internal\Com_Pwd.vb" />
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,7 @@
|
||||||
|
Module Com_05tray
|
||||||
|
Public Sub _05tray()
|
||||||
|
Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
|
||||||
|
TempCP = TempCP + 50
|
||||||
|
Strings.ComputerInfo(2) = Convert.ToString(TempCP)
|
||||||
|
End Sub
|
||||||
|
End Module
|
||||||
Loading…
Reference in a new issue