diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/Console.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/Console.vb | 270 |
1 files changed, 1 insertions, 269 deletions
diff --git a/ShiftOS-TheRevival/MainForms/Console.vb b/ShiftOS-TheRevival/MainForms/Console.vb index dc86960..79dae40 100644 --- a/ShiftOS-TheRevival/MainForms/Console.vb +++ b/ShiftOS-TheRevival/MainForms/Console.vb @@ -98,275 +98,7 @@ Public Class Console End Sub 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 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() TextRebind() Else - DoCommand() + Terminal_DoCommand() Terminal_PrintPrompt() TextRebind() End If |