mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-22 03:11:48 -05: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 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()
|
||||
command = Console.TextBox1.Lines(Console.TextBox1.Lines.Length - 1)
|
||||
If Console.DefaultPrompt = Nothing Then
|
||||
|
|
@ -67,4 +77,271 @@
|
|||
End If
|
||||
End If
|
||||
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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -152,6 +152,7 @@
|
|||
<Compile Include="Terminal Applications\External\App_TextPad.vb" />
|
||||
<Compile Include="Terminal Applications\External\TerminalExternalApps.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_Help.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