shiftos-archive/ShiftOS-TheRevival-Old
1
0
Fork 0
mirror of https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git synced 2025-01-22 18:02:16 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Changing from all uses Console.BadCommand = False to just one NormalCommand() Sub

Browse source
This commit is contained in:
EverythingWindows 2022-11-17 11:26:11 +07:00
parent be79ac82e2
commit dc8ddb780f
6 changed files with 137 additions and 133 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

66
ShiftOS-TheRevival/API/TerminalAPI.vb
View file

@ -84,7 +84,7 @@
Select Case command Select Case command
Case "" Case ""
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
Case "05tray" Case "05tray"
_05tray() _05tray()
NewLine("you cheater!") NewLine("you cheater!")
@ -93,36 +93,36 @@
Console.ChangeInterpreter = True Console.ChangeInterpreter = True
AppHost("bc", False) AppHost("bc", False)
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
Case "clear" Case "clear"
If Strings.AvailableFeature(1) = "1" Then If Strings.AvailableFeature(1) = "1" Then
Clear() Clear()
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
Case "codepoint" Case "codepoint"
Codepoint() Codepoint()
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
Case "colors" Case "colors"
Colors() Colors()
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
Case "date" Case "date"
Terminal_Date() Terminal_Date()
Case "dir" Case "dir"
If Strings.AvailableFeature(16) = "1" Then If Strings.AvailableFeature(16) = "1" Then
TerminalDirectories(Console.CurrentDirectory) TerminalDirectories(Console.CurrentDirectory)
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
Case "exit su" Case "exit su"
If Strings.OnceInfo(0) = "No" Then If Strings.OnceInfo(0) = "No" Then
Else Else
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
NewLine("Exitting root mode...") NewLine("Exitting root mode...")
Strings.OnceInfo(0) = "No" Strings.OnceInfo(0) = "No"
Terminal_AssignPrompt() Terminal_AssignPrompt()
@ -131,12 +131,12 @@
Console.ChangeInterpreter = True Console.ChangeInterpreter = True
AppHost("guess", False) AppHost("guess", False)
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
'Undeveloped() 'Undeveloped()
Case "help" Case "help"
Help() Help()
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
Case "infobar" Case "infobar"
If Strings.AvailableFeature(4) = 1 Then If Strings.AvailableFeature(4) = 1 Then
NewLine(My.Resources.man_infobar) NewLine(My.Resources.man_infobar)
@ -145,29 +145,29 @@
If Strings.AvailableFeature(16) = 1 Then If Strings.AvailableFeature(16) = 1 Then
Pwd() Pwd()
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
Case "reboot" Case "reboot"
Console.TextBox1.Text = Nothing Console.TextBox1.Text = Nothing
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
SaveGame() SaveGame()
Console.InitializeTerminal() Console.InitializeTerminal()
Case "shiftorium" Case "shiftorium"
NewLine(My.Resources.man_shiftorium) NewLine(My.Resources.man_shiftorium)
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
Case "shiftfetch" Case "shiftfetch"
If Strings.AvailableFeature(8) = "1" Then If Strings.AvailableFeature(8) = "1" Then
Shiftfetch() Shiftfetch()
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
Case "shiftoriumfx" Case "shiftoriumfx"
'ChangeInterpreter = True 'ChangeInterpreter = True
'AppHost("shiftoriumfx") 'AppHost("shiftoriumfx")
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
Undeveloped() Undeveloped()
Case "shutdown", "shut down" Case "shutdown", "shut down"
TerminateShiftOS() TerminateShiftOS()
@ -180,20 +180,20 @@
If Strings.AvailableFeature(17) = "1" Then If Strings.AvailableFeature(17) = "1" Then
TextPad_WarnFile() TextPad_WarnFile()
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
Case "time" Case "time"
Terminal_Time() Terminal_Time()
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
Case "su" Case "su"
Terminal_Su() Terminal_Su()
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
Case "ver" Case "ver"
Terminal_Version() Terminal_Version()
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End Select End Select
If AdvancedCommand = True Then If AdvancedCommand = True Then
@ -201,38 +201,38 @@
If Strings.AvailableFeature(16) = 1 Then If Strings.AvailableFeature(16) = 1 Then
CatFile(command.Substring(4)) CatFile(command.Substring(4))
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
End If End If
If command Like "cd *" Then If command Like "cd *" Then
If Strings.AvailableFeature(16) = 1 Then If Strings.AvailableFeature(16) = 1 Then
NavigateDir(command.Replace("cd ", "")) NavigateDir(command.Replace("cd ", ""))
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
End If End If
If command Like "color *" Then If command Like "color *" Then
GetColor("terminal", command.Substring(6, 1), command.Substring(7, 1)) GetColor("terminal", command.Substring(6, 1), command.Substring(7, 1))
Console.BadCommand = False NormalCommand()
End If End If
If command Like "cowsay *" Then If command Like "cowsay *" Then
If Strings.AvailableFeature(22) = 1 Then If Strings.AvailableFeature(22) = 1 Then
Cowsay(RawCommand.Substring(7)) Cowsay(RawCommand.Substring(7))
Console.BadCommand = False NormalCommand()
End If End If
End If End If
If command Like "del *" Then If command Like "del *" Then
If Strings.AvailableFeature(16) = 1 Then If Strings.AvailableFeature(16) = 1 Then
DeleteFile(RawCommand.Substring(4)) DeleteFile(RawCommand.Substring(4))
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
End If End If
If command Like "hostname *" Then If command Like "hostname *" Then
If Strings.AvailableFeature(20) = 1 Then If Strings.AvailableFeature(20) = 1 Then
Hostname() Hostname()
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
End If End If
If command Like "infobar *" Then If command Like "infobar *" Then
@ -249,20 +249,20 @@
If Strings.AvailableFeature(16) Then If Strings.AvailableFeature(16) Then
CreateDir(command.Replace("mkdir ", "")) CreateDir(command.Replace("mkdir ", ""))
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
End If End If
If command Like "print *" Then If command Like "print *" Then
If Strings.AvailableFeature(2) = "1" Then If Strings.AvailableFeature(2) = "1" Then
NewLine(RawCommand.Substring(6)) NewLine(RawCommand.Substring(6))
Console.BadCommand = False NormalCommand()
AdvancedCommand = False AdvancedCommand = False
End If End If
End If End If
If command Like "rev *" Then If command Like "rev *" Then
If Strings.AvailableFeature(21) = 1 Then If Strings.AvailableFeature(21) = 1 Then
Reverse() Reverse()
Console.BadCommand = False NormalCommand()
AdvancedCommand = False AdvancedCommand = False
End If End If
End If End If
@ -270,14 +270,14 @@
If Strings.AvailableFeature(16) = 1 Then If Strings.AvailableFeature(16) = 1 Then
RemoveDir(command.Replace("rmdir ", "")) RemoveDir(command.Replace("rmdir ", ""))
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
End If End If
If command Like "run *" Then If command Like "run *" Then
If Strings.AvailableFeature(30) = 1 Then If Strings.AvailableFeature(30) = 1 Then
Terminal_RunTerminalFile(command.Substring(4)) Terminal_RunTerminalFile(command.Substring(4))
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
End If End If
If command Like "shiftorium *" Then If command Like "shiftorium *" Then
@ -289,7 +289,7 @@
command = RawCommand.Replace("textpad ", "") command = RawCommand.Replace("textpad ", "")
AppHost("textpad", True) AppHost("textpad", True)
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
End If End If
If command Like "username *" Then If command Like "username *" Then
@ -300,7 +300,7 @@
Username() Username()
End If End If
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
End If End If
End If End If
@ -308,4 +308,8 @@
NewLine("Bad command or wrong file name") NewLine("Bad command or wrong file name")
End If End If
End Sub End Sub
Public Sub NormalCommand()
Console.BadCommand = False
End Sub
End Module End Module

132
ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
View file

@ -141,168 +141,168 @@
NewLine("Shows up any further help instruction on each command, its corresponding action and its example if necessary") NewLine("Shows up any further help instruction on each command, its corresponding action and its example if necessary")
NewLine(Nothing) NewLine(Nothing)
NewLine(ManHeader(1)) NewLine(ManHeader(1))
Console.BadCommand = False NormalCommand()
End If End If
Case "clear" Case "clear"
If Strings.AvailableFeature(1) = "0" Then If Strings.AvailableFeature(1) = "0" Then
ManHeader(0) = "Clear Terminal Screen (command: clear)" ManHeader(0) = "Clear Terminal Screen (command: clear)"
ManHeader(1) = "20 CP" ManHeader(1) = "20 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Clears the terminal screen" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Clears the terminal screen" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "print" Case "print"
If Strings.AvailableFeature(2) = "0" Then If Strings.AvailableFeature(2) = "0" Then
ManHeader(0) = "Print Command (command: print)" ManHeader(0) = "Print Command (command: print)"
ManHeader(1) = "25 CP" ManHeader(1) = "25 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Prints a corresponding text entered in the command" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Prints a corresponding text entered in the command" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "termdspdrv" Case "termdspdrv"
If Strings.AvailableFeature(3) = "0" Then If Strings.AvailableFeature(3) = "0" Then
ManHeader(0) = "Terminal Display Driver" ManHeader(0) = "Terminal Display Driver"
ManHeader(1) = "40 CP" ManHeader(1) = "40 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Display driver for ShiftOS' Terminal to utilize advantages such as Infobar, ASCII-based applications" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Display driver for ShiftOS' Terminal to utilize advantages such as Infobar, ASCII-based applications" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "infobar" Case "infobar"
If Strings.AvailableFeature(4) = "0" Then If Strings.AvailableFeature(4) = "0" Then
ManHeader(0) = "Terminal InfoBar" ManHeader(0) = "Terminal InfoBar"
ManHeader(1) = "50 CP" ManHeader(1) = "50 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Panel bar at the bottom of the terminal to display basic informations" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Panel bar at the bottom of the terminal to display basic informations" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "stime" Case "stime"
If Strings.AvailableFeature(5) = "0" Then If Strings.AvailableFeature(5) = "0" Then
ManHeader(0) = "Time by Seconds" ManHeader(0) = "Time by Seconds"
ManHeader(1) = "10 CP" ManHeader(1) = "10 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in seconds form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in seconds form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "stime" Case "stime"
If Strings.AvailableFeature(6) = "0" Then If Strings.AvailableFeature(6) = "0" Then
ManHeader(0) = "Time by Minutes" ManHeader(0) = "Time by Minutes"
ManHeader(1) = "20 CP" ManHeader(1) = "20 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in minutes form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in minutes form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "htime" Case "htime"
If Strings.AvailableFeature(7) = "0" Then If Strings.AvailableFeature(7) = "0" Then
ManHeader(0) = "Time by Hours" ManHeader(0) = "Time by Hours"
ManHeader(1) = "30 CP" ManHeader(1) = "30 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in hours form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in hours form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "shiftfetch" Case "shiftfetch"
If Strings.AvailableFeature(8) = "0" Then If Strings.AvailableFeature(8) = "0" Then
ManHeader(0) = "Shiftfetch" ManHeader(0) = "Shiftfetch"
ManHeader(1) = "55 CP" ManHeader(1) = "55 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "ShiftOS port of Neofetch, A command-line system information tool" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "ShiftOS port of Neofetch, A command-line system information tool" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "bc" Case "bc"
If Strings.AvailableFeature(9) = "0" Then If Strings.AvailableFeature(9) = "0" Then
ManHeader(0) = "Basic Calculator" ManHeader(0) = "Basic Calculator"
ManHeader(1) = "55 CP" ManHeader(1) = "55 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Basic Calculator for simple calculation" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Basic Calculator for simple calculation" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "2bitcolor" Case "2bitcolor"
If Strings.AvailableFeature(10) = "0" Then If Strings.AvailableFeature(10) = "0" Then
ManHeader(0) = "2-bit Color Support" ManHeader(0) = "2-bit Color Support"
ManHeader(1) = "60 CP" ManHeader(1) = "60 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds 2 colours (Dark Gray, Light Gray) supports to the terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds 2 colours (Dark Gray, Light Gray) supports to the terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "key" Case "key"
If Strings.AvailableFeature(11) = "0" Then If Strings.AvailableFeature(11) = "0" Then
ManHeader(0) = "ShiftOS Key" ManHeader(0) = "ShiftOS Key"
ManHeader(1) = "5 CP" ManHeader(1) = "5 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "An encryption key to unlock advanced terminal feature for ShiftOS" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "An encryption key to unlock advanced terminal feature for ShiftOS" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "pmam" Case "pmam"
If Strings.AvailableFeature(12) = "0" Then If Strings.AvailableFeature(12) = "0" Then
ManHeader(0) = "PM and AM" ManHeader(0) = "PM and AM"
ManHeader(1) = "40 CP" ManHeader(1) = "40 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in PM and AM format" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in PM and AM format" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "rgb" Case "rgb"
If Strings.AvailableFeature(13) = "0" Then If Strings.AvailableFeature(13) = "0" Then
ManHeader(0) = "Red, Green, and Blue" ManHeader(0) = "Red, Green, and Blue"
ManHeader(1) = "70 CP" ManHeader(1) = "70 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds Red, Green, and Blue support to the Display Driver" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds Red, Green, and Blue support to the Display Driver" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "rgb2" Case "rgb2"
If Strings.AvailableFeature(14) = "0" Then If Strings.AvailableFeature(14) = "0" Then
ManHeader(0) = "RGB Variant" ManHeader(0) = "RGB Variant"
ManHeader(1) = "75 CP" ManHeader(1) = "75 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds lighter or darker variant of Red, Green, and Blue" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds lighter or darker variant of Red, Green, and Blue" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "4bitcolor" Case "4bitcolor"
If Strings.AvailableFeature(15) = "0" Then If Strings.AvailableFeature(15) = "0" Then
ManHeader(0) = "4-bit Color Display" ManHeader(0) = "4-bit Color Display"
ManHeader(1) = "80 CP" ManHeader(1) = "80 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds to 16 colours support to the Display Driver" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds to 16 colours support to the Display Driver" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "romdriver" Case "romdriver"
If Strings.AvailableFeature(16) = "0" Then If Strings.AvailableFeature(16) = "0" Then
ManHeader(0) = "Terminal Read-Only Memory Driver" ManHeader(0) = "Terminal Read-Only Memory Driver"
ManHeader(1) = "90 CP" ManHeader(1) = "90 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "ShiftOS Read-Only Memory support for ShiftOS such as writing and reading permanent memory such as HDD, SDD, etc." & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "ShiftOS Read-Only Memory support for ShiftOS such as writing and reading permanent memory such as HDD, SDD, etc." & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "textpad" Case "textpad"
If Strings.AvailableFeature(17) = "0" Then If Strings.AvailableFeature(17) = "0" Then
ManHeader(0) = "TextPad" ManHeader(0) = "TextPad"
ManHeader(1) = "100 CP" ManHeader(1) = "100 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "A simple text-editor for ShiftOS" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "A simple text-editor for ShiftOS" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "shiftkey" Case "shiftkey"
If Strings.AvailableFeature(18) = "0" Then If Strings.AvailableFeature(18) = "0" Then
ManHeader(0) = "ShiftKey" ManHeader(0) = "ShiftKey"
ManHeader(1) = "45 CP" ManHeader(1) = "45 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Recall the previous command on terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Recall the previous command on terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "username" Case "username"
If Strings.AvailableFeature(19) = "0" Then If Strings.AvailableFeature(19) = "0" Then
ManHeader(0) = "Custom Username" ManHeader(0) = "Custom Username"
ManHeader(1) = "15 CP" ManHeader(1) = "15 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Set custom username for ShfitOS" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Set custom username for ShfitOS" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "hostname" Case "hostname"
If Strings.AvailableFeature(20) = "0" Then If Strings.AvailableFeature(20) = "0" Then
ManHeader(0) = "Custom Hostname" ManHeader(0) = "Custom Hostname"
ManHeader(1) = "15 CP" ManHeader(1) = "15 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Set custom hostname/computer name for ShfitOS" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Set custom hostname/computer name for ShfitOS" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "rev" Case "rev"
If Strings.AvailableFeature(21) = "0" Then If Strings.AvailableFeature(21) = "0" Then
ManHeader(0) = "Reverse String" ManHeader(0) = "Reverse String"
ManHeader(1) = "30 CP" ManHeader(1) = "30 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Reverse any text you entered in the terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Reverse any text you entered in the terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "cowsay" Case "cowsay"
If Strings.AvailableFeature(22) = "0" Then If Strings.AvailableFeature(22) = "0" Then
ManHeader(0) = "Cowsay" ManHeader(0) = "Cowsay"
ManHeader(1) = "50 CP" ManHeader(1) = "50 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Make the ASCII cow say anything you want to" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Make the ASCII cow say anything you want to" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "hhmm" Case "hhmm"
If Strings.AvailableFeature(23) = "0" Then If Strings.AvailableFeature(23) = "0" Then
ManHeader(0) = "Time by Hours and Minutes" ManHeader(0) = "Time by Hours and Minutes"
ManHeader(1) = "50 CP" ManHeader(1) = "50 CP"
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in Hours and Minutes format" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in Hours and Minutes format" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Console.BadCommand = False NormalCommand()
End If End If
Case "date" Case "date"
If Strings.AvailableFeature(24) = "0" Then If Strings.AvailableFeature(24) = "0" Then
@ -313,7 +313,7 @@
NewLine("Displays date in days format since first day of the year") NewLine("Displays date in days format since first day of the year")
NewLine(Nothing) NewLine(Nothing)
NewLine(ManHeader(1)) NewLine(ManHeader(1))
Console.BadCommand = False NormalCommand()
End If End If
Case "woy" Case "woy"
If Strings.AvailableFeature(25) = "0" Then If Strings.AvailableFeature(25) = "0" Then
@ -324,7 +324,7 @@
NewLine("Displays date in week format since first week of the year") NewLine("Displays date in week format since first week of the year")
NewLine(Nothing) NewLine(Nothing)
NewLine(ManHeader(1)) NewLine(ManHeader(1))
Console.BadCommand = False NormalCommand()
End If End If
Case "moy" Case "moy"
If Strings.AvailableFeature(26) = "0" Then If Strings.AvailableFeature(26) = "0" Then
@ -335,7 +335,7 @@
NewLine("Displays date in month format since first month of the year") NewLine("Displays date in month format since first month of the year")
NewLine(Nothing) NewLine(Nothing)
NewLine(ManHeader(1)) NewLine(ManHeader(1))
Console.BadCommand = False NormalCommand()
End If End If
Case "year" Case "year"
If Strings.AvailableFeature(27) = "0" Then If Strings.AvailableFeature(27) = "0" Then
@ -346,7 +346,7 @@
NewLine("Displays date in year format") NewLine("Displays date in year format")
NewLine(Nothing) NewLine(Nothing)
NewLine(ManHeader(1)) NewLine(ManHeader(1))
Console.BadCommand = False NormalCommand()
End If End If
Case "mmyyyy" Case "mmyyyy"
If Strings.AvailableFeature(28) = "0" Then If Strings.AvailableFeature(28) = "0" Then
@ -357,7 +357,7 @@
NewLine("Displays date in month and year format") NewLine("Displays date in month and year format")
NewLine(Nothing) NewLine(Nothing)
NewLine(ManHeader(1)) NewLine(ManHeader(1))
Console.BadCommand = False NormalCommand()
End If End If
Case "generaldate" Case "generaldate"
If Strings.AvailableFeature(29) = "0" Then If Strings.AvailableFeature(29) = "0" Then
@ -368,7 +368,7 @@
NewLine("Displays date in DD/MM/YYYY format") NewLine("Displays date in DD/MM/YYYY format")
NewLine(Nothing) NewLine(Nothing)
NewLine(ManHeader(1)) NewLine(ManHeader(1))
Console.BadCommand = False NormalCommand()
End If End If
Case "batchscript" Case "batchscript"
If Strings.AvailableFeature(30) = "0" Then If Strings.AvailableFeature(30) = "0" Then
@ -379,7 +379,7 @@
NewLine("Adds the supports for ShiftOS Batch Script") NewLine("Adds the supports for ShiftOS Batch Script")
NewLine(Nothing) NewLine(Nothing)
NewLine(ManHeader(1)) NewLine(ManHeader(1))
Console.BadCommand = False NormalCommand()
End If End If
Case "clipboard" Case "clipboard"
If Strings.AvailableFeature(31) = "0" Then If Strings.AvailableFeature(31) = "0" Then
@ -390,10 +390,10 @@
NewLine("Adds the supports for clipboard") NewLine("Adds the supports for clipboard")
NewLine(Nothing) NewLine(Nothing)
NewLine(ManHeader(1)) NewLine(ManHeader(1))
Console.BadCommand = False NormalCommand()
End If End If
Case Else Case Else
Console.BadCommand = False NormalCommand()
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
End Select End Select
End Sub End Sub
@ -403,102 +403,102 @@
Select Case prompt Select Case prompt
Case "man" Case "man"
Shiftorium_InstallFeatures(True, "man", 0, 10) Shiftorium_InstallFeatures(True, "man", 0, 10)
Console.BadCommand = False NormalCommand()
Case "clear" Case "clear"
Shiftorium_InstallFeatures(True, "clear", 1, 20) Shiftorium_InstallFeatures(True, "clear", 1, 20)
Console.BadCommand = False NormalCommand()
Case "print" Case "print"
Shiftorium_InstallFeatures(True, "print", 2, 25) Shiftorium_InstallFeatures(True, "print", 2, 25)
Console.BadCommand = False NormalCommand()
Case "termdspdrv" Case "termdspdrv"
Shiftorium_InstallFeatures(True, "termdspdrv", 3, 40) Shiftorium_InstallFeatures(True, "termdspdrv", 3, 40)
Console.BadCommand = False NormalCommand()
Case "infobar" Case "infobar"
Shiftorium_InstallFeatures(True, "infobar", 4, 50) Shiftorium_InstallFeatures(True, "infobar", 4, 50)
Console.BadCommand = False NormalCommand()
Case "stime" Case "stime"
Shiftorium_InstallFeatures(True, "stime", 5, 10) Shiftorium_InstallFeatures(True, "stime", 5, 10)
Console.BadCommand = False NormalCommand()
Case "mtime" Case "mtime"
Shiftorium_InstallFeatures(True, "mtime", 6, 20) Shiftorium_InstallFeatures(True, "mtime", 6, 20)
Console.BadCommand = False NormalCommand()
Case "htime" Case "htime"
Shiftorium_InstallFeatures(True, "htime", 7, 30) Shiftorium_InstallFeatures(True, "htime", 7, 30)
Console.BadCommand = False NormalCommand()
Case "shiftfetch" Case "shiftfetch"
Shiftorium_InstallFeatures(True, "shiftfetch", 8, 55) Shiftorium_InstallFeatures(True, "shiftfetch", 8, 55)
Console.BadCommand = False NormalCommand()
Case "bc" Case "bc"
Shiftorium_InstallFeatures(True, "bc", 9, 55) Shiftorium_InstallFeatures(True, "bc", 9, 55)
Console.BadCommand = False NormalCommand()
Case "2bitcolor" Case "2bitcolor"
Shiftorium_InstallFeatures(True, "2bitcolor", 10, 60) Shiftorium_InstallFeatures(True, "2bitcolor", 10, 60)
Console.BadCommand = False NormalCommand()
Case "key" Case "key"
Shiftorium_InstallFeatures(True, "key", 11, 5) Shiftorium_InstallFeatures(True, "key", 11, 5)
Console.BadCommand = False NormalCommand()
Case "pmam" Case "pmam"
Shiftorium_InstallFeatures(True, "pmam", 12, 40) Shiftorium_InstallFeatures(True, "pmam", 12, 40)
Console.BadCommand = False NormalCommand()
Case "rgb" Case "rgb"
Shiftorium_InstallFeatures(True, "rgb", 13, 70) Shiftorium_InstallFeatures(True, "rgb", 13, 70)
Console.BadCommand = False NormalCommand()
Case "rgb2" Case "rgb2"
Shiftorium_InstallFeatures(True, "rgb2", 14, 75) Shiftorium_InstallFeatures(True, "rgb2", 14, 75)
Console.BadCommand = False NormalCommand()
Case "4bitcolor" Case "4bitcolor"
Shiftorium_InstallFeatures(True, "4bitcolor", 15, 80) Shiftorium_InstallFeatures(True, "4bitcolor", 15, 80)
Console.BadCommand = False NormalCommand()
Case "romdriver" Case "romdriver"
Shiftorium_InstallFeatures(True, "romdriver", 16, 90) Shiftorium_InstallFeatures(True, "romdriver", 16, 90)
Console.BadCommand = False NormalCommand()
Case "textpad" Case "textpad"
Shiftorium_InstallFeatures(True, "textpad", 17, 100) Shiftorium_InstallFeatures(True, "textpad", 17, 100)
Console.BadCommand = False NormalCommand()
Case "shiftkey" Case "shiftkey"
Shiftorium_InstallFeatures(True, "shiftkey", 18, 45) Shiftorium_InstallFeatures(True, "shiftkey", 18, 45)
Console.BadCommand = False NormalCommand()
Case "username" Case "username"
Shiftorium_InstallFeatures(True, "username", 19, 15) Shiftorium_InstallFeatures(True, "username", 19, 15)
Console.BadCommand = False NormalCommand()
Case "hostname" Case "hostname"
Shiftorium_InstallFeatures(True, "hostname", 20, 15) Shiftorium_InstallFeatures(True, "hostname", 20, 15)
Console.BadCommand = False NormalCommand()
Case "rev" Case "rev"
Shiftorium_InstallFeatures(True, "rev", 21, 30) Shiftorium_InstallFeatures(True, "rev", 21, 30)
Console.BadCommand = False NormalCommand()
Case "cowsay" Case "cowsay"
Shiftorium_InstallFeatures(True, "cowsay", 22, 50) Shiftorium_InstallFeatures(True, "cowsay", 22, 50)
Console.BadCommand = False NormalCommand()
Case "hhmm" Case "hhmm"
Shiftorium_InstallFeatures(True, "hhmm", 23, 50) Shiftorium_InstallFeatures(True, "hhmm", 23, 50)
Console.BadCommand = False NormalCommand()
Case "date" Case "date"
Shiftorium_InstallFeatures(True, "date", 24, 70) Shiftorium_InstallFeatures(True, "date", 24, 70)
Console.BadCommand = False NormalCommand()
Case "woy" Case "woy"
Shiftorium_InstallFeatures(True, "woy", 25, 75) Shiftorium_InstallFeatures(True, "woy", 25, 75)
Console.BadCommand = False NormalCommand()
Case "moy" Case "moy"
Shiftorium_InstallFeatures(True, "moy", 26, 80) Shiftorium_InstallFeatures(True, "moy", 26, 80)
Console.BadCommand = False NormalCommand()
Case "year" Case "year"
Shiftorium_InstallFeatures(True, "year", 27, 85) Shiftorium_InstallFeatures(True, "year", 27, 85)
Console.BadCommand = False NormalCommand()
Case "mmyyyy" Case "mmyyyy"
Shiftorium_InstallFeatures(True, "mmyyyy", 28, 90) Shiftorium_InstallFeatures(True, "mmyyyy", 28, 90)
Console.BadCommand = False NormalCommand()
Case "generaldate" Case "generaldate"
Shiftorium_InstallFeatures(True, "generaldate", 29, 95) Shiftorium_InstallFeatures(True, "generaldate", 29, 95)
Console.BadCommand = False NormalCommand()
Case "batchscript" Case "batchscript"
Shiftorium_InstallFeatures(True, "batchscript", 30, 100) Shiftorium_InstallFeatures(True, "batchscript", 30, 100)
Console.BadCommand = False NormalCommand()
Case "clipboard" Case "clipboard"
Shiftorium_InstallFeatures(True, "clipboard", 31, 100) Shiftorium_InstallFeatures(True, "clipboard", 31, 100)
Console.BadCommand = False NormalCommand()
Case Else Case Else
Console.BadCommand = False NormalCommand()
NewLine("Shiftorium: Bad command or not available") NewLine("Shiftorium: Bad command or not available")
End Select End Select
End Sub End Sub

12
ShiftOS-TheRevival/TerminalApplications/Internal/Com_Date.vb
View file

@ -3,33 +3,33 @@
If Strings.AvailableFeature(24) = 1 Then If Strings.AvailableFeature(24) = 1 Then
NewLine("The date is " & Date.Now.DayOfYear & " days since the first day of the year") NewLine("The date is " & Date.Now.DayOfYear & " days since the first day of the year")
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
ElseIf Strings.AvailableFeature(24) = 3 Then ElseIf Strings.AvailableFeature(24) = 3 Then
If Strings.AvailableFeature(25) = 1 Then If Strings.AvailableFeature(25) = 1 Then
Dim TheWeek As String = Date.Now.DayOfYear / 7 Dim TheWeek As String = Date.Now.DayOfYear / 7
NewLine("The date is " & TheWeek.Substring(0, 2) & " weeks since the first week of the year") NewLine("The date is " & TheWeek.Substring(0, 2) & " weeks since the first week of the year")
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
ElseIf Strings.AvailableFeature(25) = 3 Then ElseIf Strings.AvailableFeature(25) = 3 Then
If Strings.AvailableFeature(26) = 1 Then If Strings.AvailableFeature(26) = 1 Then
NewLine("The date is " & Date.Now.Month & " months since the first month of the year") NewLine("The date is " & Date.Now.Month & " months since the first month of the year")
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
ElseIf Strings.AvailableFeature(26) = 3 Then ElseIf Strings.AvailableFeature(26) = 3 Then
If Strings.AvailableFeature(27) = 1 Then If Strings.AvailableFeature(27) = 1 Then
NewLine("The year is " & Date.Now.Year) NewLine("The year is " & Date.Now.Year)
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
ElseIf Strings.AvailableFeature(27) = 3 Then ElseIf Strings.AvailableFeature(27) = 3 Then
If Strings.AvailableFeature(28) = 1 Then If Strings.AvailableFeature(28) = 1 Then
NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month) NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month)
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
ElseIf Strings.AvailableFeature(28) = 3 Then ElseIf Strings.AvailableFeature(28) = 3 Then
If Strings.AvailableFeature(29) = 1 Then If Strings.AvailableFeature(29) = 1 Then
NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month & "/" & Date.Now.Year) NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month & "/" & Date.Now.Year)
AdvancedCommand = False AdvancedCommand = False
Console.BadCommand = False NormalCommand()
End If End If
End If End If
End If End If

6
ShiftOS-TheRevival/TerminalApplications/Internal/Com_Infobar.vb
View file

@ -7,18 +7,18 @@
Case "on" Case "on"
Strings.OnceInfo(2) = "True" Strings.OnceInfo(2) = "True"
Console.CheckFeature() Console.CheckFeature()
Console.BadCommand = False NormalCommand()
advancedtool = False advancedtool = False
Case "off" Case "off"
Strings.OnceInfo(2) = "False" Strings.OnceInfo(2) = "False"
Console.CheckFeature() Console.CheckFeature()
Console.BadCommand = False NormalCommand()
advancedtool = False advancedtool = False
End Select End Select
If advancedtool = True Then If advancedtool = True Then
If infobarcommand Like "color *" Then If infobarcommand Like "color *" Then
GetColor("infobar", infobarcommand.Substring(6, 1), infobarcommand.Substring(7, 1)) GetColor("infobar", infobarcommand.Substring(6, 1), infobarcommand.Substring(7, 1))
Console.BadCommand = False NormalCommand()
End If End If
End If End If
End Sub End Sub

52
ShiftOS-TheRevival/TerminalApplications/Internal/Com_Manual.vb
View file

@ -19,140 +19,140 @@
If Strings.AvailableFeature(9) = "1" Then If Strings.AvailableFeature(9) = "1" Then
TempUsage = TempUsage & "bc" TempUsage = TempUsage & "bc"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_bc & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_bc & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "cd" Case "cd"
If Strings.AvailableFeature(16) = "1" Then If Strings.AvailableFeature(16) = "1" Then
TempUsage = TempUsage & "cd [DIRECTORY]" TempUsage = TempUsage & "cd [DIRECTORY]"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cd & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cd & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "clear" Case "clear"
If Strings.AvailableFeature(1) = "1" Then If Strings.AvailableFeature(1) = "1" Then
TempUsage = TempUsage & "clear" TempUsage = TempUsage & "clear"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_clear & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_clear & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "color" Case "color"
TempUsage = TempUsage & "color [bg][fg]" TempUsage = TempUsage & "color [bg][fg]"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_color & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_color & Environment.NewLine
Console.BadCommand = False NormalCommand()
Case "colors" Case "colors"
TempUsage = TempUsage & "colors" TempUsage = TempUsage & "colors"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_colors & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_colors & Environment.NewLine
Console.BadCommand = False NormalCommand()
Case "cowsay" Case "cowsay"
If Strings.AvailableFeature(22) = 1 Then If Strings.AvailableFeature(22) = 1 Then
TempUsage = TempUsage & "cowsay [STRING]" TempUsage = TempUsage & "cowsay [STRING]"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cowsay & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cowsay & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "codepoint" Case "codepoint"
TempUsage = TempUsage & "codepoint" TempUsage = TempUsage & "codepoint"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_codepoint & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_codepoint & Environment.NewLine
Console.BadCommand = False NormalCommand()
Case "del" Case "del"
If Strings.AvailableFeature(16) = 1 Then If Strings.AvailableFeature(16) = 1 Then
TempUsage = TempUsage & "del [FILENAME.TXT]" TempUsage = TempUsage & "del [FILENAME.TXT]"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_del & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_del & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "dir" Case "dir"
If Strings.AvailableFeature(16) = "1" Then If Strings.AvailableFeature(16) = "1" Then
TempUsage = TempUsage & "dir" TempUsage = TempUsage & "dir"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_dir & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_dir & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "guess" Case "guess"
TempUsage = TempUsage & "guess" TempUsage = TempUsage & "guess"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_guess & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_guess & Environment.NewLine
Console.BadCommand = False NormalCommand()
Case "help" Case "help"
TempUsage = TempUsage & "help" TempUsage = TempUsage & "help"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_help & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_help & Environment.NewLine
Console.BadCommand = False NormalCommand()
Case "hostname" Case "hostname"
If Strings.AvailableFeature(20) = 1 Then If Strings.AvailableFeature(20) = 1 Then
TempUsage = TempUsage & "hostname [HOSTNAME]" TempUsage = TempUsage & "hostname [HOSTNAME]"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_hostname & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_hostname & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "infobar" Case "infobar"
If Strings.AvailableFeature(4) = 1 Then If Strings.AvailableFeature(4) = 1 Then
TempUsage = TempUsage & "infobar [ON|OFF] [OPTION]" TempUsage = TempUsage & "infobar [ON|OFF] [OPTION]"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_infobar & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_infobar & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "man" Case "man"
If Strings.AvailableFeature(0) = "1" Then If Strings.AvailableFeature(0) = "1" Then
TempUsage = TempUsage & "man [command]" TempUsage = TempUsage & "man [command]"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_man & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_man & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "mkdir" Case "mkdir"
If Strings.AvailableFeature(16) = "1" Then If Strings.AvailableFeature(16) = "1" Then
TempUsage = TempUsage & "mkdir [DIRECTORY]" TempUsage = TempUsage & "mkdir [DIRECTORY]"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_mkdir & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_mkdir & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "print" Case "print"
If Strings.AvailableFeature(2) = "1" Then If Strings.AvailableFeature(2) = "1" Then
TempUsage = TempUsage & "print [text]" TempUsage = TempUsage & "print [text]"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_print & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_print & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "pwd" Case "pwd"
If Strings.AvailableFeature(16) = "1" Then If Strings.AvailableFeature(16) = "1" Then
TempUsage = TempUsage & "pwd" TempUsage = TempUsage & "pwd"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_pwd & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_pwd & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "reboot" Case "reboot"
TempUsage = TempUsage & "reboot" TempUsage = TempUsage & "reboot"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_reboot & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_reboot & Environment.NewLine
Console.BadCommand = False NormalCommand()
Case "rmdir" Case "rmdir"
If Strings.AvailableFeature(16) = "1" Then If Strings.AvailableFeature(16) = "1" Then
TempUsage = TempUsage & "rmdir [DIRECTORY]" TempUsage = TempUsage & "rmdir [DIRECTORY]"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_rmdir & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_rmdir & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "shiftfetch" Case "shiftfetch"
If Strings.AvailableFeature(8) = "1" Then If Strings.AvailableFeature(8) = "1" Then
TempUsage = TempUsage & "shiftfetch" TempUsage = TempUsage & "shiftfetch"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftfetch & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftfetch & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "shiftorium" Case "shiftorium"
TempUsage = TempUsage & "shiftorium [option] [featureName]" TempUsage = TempUsage & "shiftorium [option] [featureName]"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftorium & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftorium & Environment.NewLine
Console.BadCommand = False NormalCommand()
Case "shutdown" Case "shutdown"
TempUsage = TempUsage & "shutdown" TempUsage = TempUsage & "shutdown"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shutdown & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shutdown & Environment.NewLine
Console.BadCommand = False NormalCommand()
Case "textpad" Case "textpad"
If Strings.AvailableFeature(17) = "1" Then If Strings.AvailableFeature(17) = "1" Then
TempUsage = TempUsage & "textpad [FILENAME.TXT]" TempUsage = TempUsage & "textpad [FILENAME.TXT]"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_textpad & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_textpad & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "time" Case "time"
If Strings.AvailableFeature(17) = "1" Then If Strings.AvailableFeature(17) = "1" Then
TempUsage = TempUsage & "time" TempUsage = TempUsage & "time"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_time & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_time & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "username" Case "username"
If Strings.AvailableFeature(19) = "1" Then If Strings.AvailableFeature(19) = "1" Then
TempUsage = TempUsage & "username" TempUsage = TempUsage & "username"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_username & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_username & Environment.NewLine
Console.BadCommand = False NormalCommand()
End If End If
Case "ver" Case "ver"
TempUsage = TempUsage & "ver" TempUsage = TempUsage & "ver"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_ver & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_ver & Environment.NewLine
Console.BadCommand = False NormalCommand()
Case Else Case Else
NewLine("MAN : Invalid command") NewLine("MAN : Invalid command")
End Select End Select

2
ShiftOS-TheRevival/TerminalApplications/Internal/Com_Shiftorium.vb
View file

@ -12,7 +12,7 @@
End If End If
If prompt = "list" Then If prompt = "list" Then
Shiftorium_ListFeatures() Shiftorium_ListFeatures()
Console.BadCommand = False NormalCommand()
End If End If
End Sub End Sub
End Module End Module