diff --git a/ShiftOS-TheRevival/MainForms/Console.vb b/ShiftOS-TheRevival/MainForms/Console.vb
index 8837c48..dc86960 100644
--- a/ShiftOS-TheRevival/MainForms/Console.vb
+++ b/ShiftOS-TheRevival/MainForms/Console.vb
@@ -123,7 +123,7 @@ Public Class Console
BadCommand = False
End If
Case "codepoint"
- NewLine(Strings.ComputerInfo(2) & " Codepoint(s) available in your wallet")
+ Codepoint()
AdvancedCommand = False
BadCommand = False
Case "colors"
@@ -131,7 +131,7 @@ Public Class Console
AdvancedCommand = False
BadCommand = False
Case "date"
- DateTerm()
+ Terminal_Date()
Case "dir"
If Strings.AvailableFeature(16) = "1" Then
TerminalDirectories(CurrentDirectory)
@@ -164,7 +164,7 @@ Public Class Console
End If
Case "pwd"
If Strings.AvailableFeature(16) = 1 Then
- NewLine(CurrentDirectory.Replace(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", "!"))
+ Pwd()
AdvancedCommand = False
BadCommand = False
End If
@@ -200,25 +200,20 @@ Public Class Console
Close()
Case "textpad"
If Strings.AvailableFeature(17) = "1" Then
- NewLine("Type any filename after 'textpad'!, ex: textpad text.txt")
+ TextPad_WarnFile()
AdvancedCommand = False
BadCommand = False
End If
Case "time"
- TimeTerm()
+ Terminal_Time()
AdvancedCommand = False
BadCommand = False
Case "su"
- If Strings.OnceInfo(0) = "Yes" Then
- NewLine("You already in root mode!")
- Else
- Strings.OnceInfo(0) = "Yes"
- Terminal_AssignPrompt()
- End If
+ Terminal_Su()
AdvancedCommand = False
BadCommand = False
Case "ver"
- NewLine("ShiftOS TheRevival version " & My.Resources.CurrentVersion)
+ Terminal_Version()
AdvancedCommand = False
BadCommand = False
End Select
diff --git a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
index b165057..30eb21a 100644
--- a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
+++ b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
@@ -149,8 +149,16 @@
+
+
+
+
+
+
+
+
@@ -169,6 +177,7 @@
Settings.settings
True
+
diff --git a/ShiftOS-TheRevival/Terminal Applications/External/App_TextPad.vb b/ShiftOS-TheRevival/Terminal Applications/External/App_TextPad.vb
new file mode 100644
index 0000000..80e9599
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/External/App_TextPad.vb
@@ -0,0 +1,34 @@
+Imports System.IO
+
+Module App_TextPad
+ Public Sub TextPad_CheckExist(TxtFileName As String)
+ If File.Exists(Console.CurrentDirectory & "\" & TxtFileName) = True Then
+ Console.TextBox1.Text = My.Computer.FileSystem.ReadAllText(Console.CurrentDirectory & "\" & TxtFileName)
+ End If
+ End Sub
+
+ Public Sub TextPad_GenerateCP_SavedFile()
+ Select Case Console.TextBox1.TextLength
+ Case 1 To 9
+ Dim GetCP As New Random
+ Dim GotCP As Integer = GetCP.Next(1, 3)
+ ChangeCP(True, GotCP)
+ Case 10 To 99
+ Dim GetCP As New Random
+ Dim GotCP As Integer = GetCP.Next(4, 26)
+ ChangeCP(True, GotCP)
+ Case 100 To 999
+ Dim GetCP As New Random
+ Dim GotCP As Integer = GetCP.Next(27, 251)
+ ChangeCP(True, GotCP)
+ Case 1000 To 9999
+ Dim GetCP As New Random
+ Dim GotCP As Integer = GetCP.Next(252, 2501)
+ ChangeCP(True, GotCP)
+ End Select
+ End Sub
+
+ Public Sub TextPad_WarnFile()
+ NewLine("Type any filename after 'textpad'!, ex: textpad text.txt")
+ End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/External/TerminalExternalApps.vb b/ShiftOS-TheRevival/Terminal Applications/External/TerminalExternalApps.vb
index 20188ed..24a6435 100644
--- a/ShiftOS-TheRevival/Terminal Applications/External/TerminalExternalApps.vb
+++ b/ShiftOS-TheRevival/Terminal Applications/External/TerminalExternalApps.vb
@@ -294,33 +294,6 @@ Module TerminalExternalApps
End Try
End Sub
- Public Sub TextPad_CheckExist(TxtFileName As String)
- If File.Exists(Console.CurrentDirectory & "\" & TxtFileName) = True Then
- Console.TextBox1.Text = My.Computer.FileSystem.ReadAllText(Console.CurrentDirectory & "\" & TxtFileName)
- End If
- End Sub
-
- Public Sub TextPad_GenerateCP_SavedFile()
- Select Case Console.TextBox1.TextLength
- Case 1 To 9
- Dim GetCP As New Random
- Dim GotCP As Integer = GetCP.Next(1, 3)
- ChangeCP(True, GotCP)
- Case 10 To 99
- Dim GetCP As New Random
- Dim GotCP As Integer = GetCP.Next(4, 26)
- ChangeCP(True, GotCP)
- Case 100 To 999
- Dim GetCP As New Random
- Dim GotCP As Integer = GetCP.Next(27, 251)
- ChangeCP(True, GotCP)
- Case 1000 To 9999
- Dim GetCP As New Random
- Dim GotCP As Integer = GetCP.Next(252, 2501)
- ChangeCP(True, GotCP)
- End Select
- End Sub
-
Public Sub ShiftoriumFX_DisplayPackages()
Console.TextBox1.Text = "Shiftorium FX!" & Environment.NewLine & "The place to shiftisize the ShiftOS" & Environment.NewLine & Environment.NewLine & "Available Package(s)"
Shiftorium_ListFeatures()
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Codepoint.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Codepoint.vb
new file mode 100644
index 0000000..e23f372
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Codepoint.vb
@@ -0,0 +1,5 @@
+Module Com_Codepoint
+ Public Sub Codepoint()
+ NewLine(Strings.ComputerInfo(2) & " Codepoint(s) available in your wallet")
+ End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Date.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Date.vb
new file mode 100644
index 0000000..81f0822
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Date.vb
@@ -0,0 +1,40 @@
+Module Com_Date
+ Public Sub Terminal_Date()
+ If Strings.AvailableFeature(24) = 1 Then
+ NewLine("The date is " & Date.Now.DayOfYear & " days since the first day of the year")
+ AdvancedCommand = False
+ Console.BadCommand = False
+ ElseIf Strings.AvailableFeature(24) = 3 Then
+ If Strings.AvailableFeature(25) = 1 Then
+ Dim TheWeek As String = Date.Now.DayOfYear / 7
+ NewLine("The date is " & TheWeek.Substring(0, 2) & " weeks since the first week of the year")
+ AdvancedCommand = False
+ Console.BadCommand = False
+ ElseIf Strings.AvailableFeature(25) = 3 Then
+ If Strings.AvailableFeature(26) = 1 Then
+ NewLine("The date is " & Date.Now.Month & " months since the first month of the year")
+ AdvancedCommand = False
+ Console.BadCommand = False
+ ElseIf Strings.AvailableFeature(26) = 3 Then
+ If Strings.AvailableFeature(27) = 1 Then
+ NewLine("The year is " & Date.Now.Year)
+ AdvancedCommand = False
+ Console.BadCommand = False
+ ElseIf Strings.AvailableFeature(27) = 3 Then
+ If Strings.AvailableFeature(28) = 1 Then
+ NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month)
+ AdvancedCommand = False
+ Console.BadCommand = False
+ ElseIf Strings.AvailableFeature(28) = 3 Then
+ If Strings.AvailableFeature(29) = 1 Then
+ NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month & "/" & Date.Now.Year)
+ AdvancedCommand = False
+ Console.BadCommand = False
+ End If
+ End If
+ End If
+ End If
+ End If
+ End If
+ End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Help.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Help.vb
new file mode 100644
index 0000000..67d0d41
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Help.vb
@@ -0,0 +1,110 @@
+Module Com_Help
+ Public Sub Help()
+ NewLine("ShiftOS Help Manual")
+ NewLine(Nothing)
+ NewLine("You can type 'help' to get all available commands and its corresponding action.")
+ If Strings.AvailableFeature(0) = 1 Then
+ NewLine("To get help on each command, you can type 'man [command]'")
+ NewLine(Nothing)
+ Else
+ NewLine(Nothing)
+ End If
+ If Strings.AvailableFeature(9) = 1 Then
+ NewLine("BC Basic Calculator for simple calculation")
+ End If
+ If Strings.AvailableFeature(16) = 1 Then
+ NewLine("CD Changes directory to a selected one")
+ End If
+ If Strings.AvailableFeature(1) = 1 Then
+ NewLine("CLEAR Clear the terminal")
+ End If
+ NewLine("CODEPOINT Display Codepoint(s) from your wallet")
+ NewLine("COLOR Changes Terminal Text And Background color To the corresponding choice")
+ NewLine("COLORS Shows available colors support For the terminal")
+ If Strings.AvailableFeature(22) = 1 Then
+ NewLine("COWSAY Spawn a cow And saying anything you want")
+ End If
+ If Strings.AvailableFeature(24) = 1 Then
+ NewLine("DATE Displays date in days since first day of the year format")
+ ElseIf Strings.AvailableFeature(24) = 3 Then
+ If Strings.AvailableFeature(25) = 1 Then
+ NewLine("DATE Displays date in weeks since first week of the year format")
+ ElseIf Strings.AvailableFeature(25) = 3 Then
+ If Strings.AvailableFeature(26) = 1 Then
+ NewLine("DATE Displays date in months since first month of the year format")
+ ElseIf Strings.AvailableFeature(26) = 3 Then
+ If Strings.AvailableFeature(27) = 1 Then
+ NewLine("DATE Displays date in year format format")
+ ElseIf Strings.AvailableFeature(27) = 3 Then
+ If Strings.AvailableFeature(28) = 1 Then
+ NewLine("DATE Displays date in MM/YYYY format")
+ ElseIf Strings.AvailableFeature(28) = 3 Then
+ If Strings.AvailableFeature(29) = 1 Then
+ NewLine("DATE Displays date in general DD/MM/YYYY format")
+ End If
+ End If
+ End If
+ End If
+ End If
+ End If
+ If Strings.AvailableFeature(16) = 1 Then
+ NewLine("DEL Delete a selected file from the directory")
+ NewLine("DIR Displays subdirectories And files In a directory")
+ End If
+ NewLine("GUESS Runs 'Guess the Number' application")
+ NewLine("HELP Shows all commands available and its corresponding action")
+ If Strings.AvailableFeature(20) = 1 Then
+ NewLine("HOSTNAME Sets the name of current hostname/computer name with a new one")
+ End If
+ If Strings.AvailableFeature(4) = 1 Then
+ NewLine("INFOBAR Displays informations about current session such as current app, current user, current time, etc.")
+ End If
+ If Strings.AvailableFeature(0) = 1 Then
+ NewLine("MAN Shows a command, its corresponding action, and its example usage")
+ End If
+ If Strings.AvailableFeature(16) = 1 Then
+ NewLine("MKDIR Creating a directory")
+ End If
+ If Strings.AvailableFeature(16) = 1 Then
+ NewLine("PWD Display current directory navigated on ShiftOS")
+ End If
+ If Strings.AvailableFeature(2) = 1 Then
+ NewLine("PRINT Prints a corresponding text entered in the command")
+ End If
+ NewLine("REBOOT Terminate and re-run ShiftOS session")
+ If Strings.AvailableFeature(21) = 1 Then
+ NewLine("REV Turn any sentences you want and making it reversed")
+ End If
+ If Strings.AvailableFeature(16) = 1 Then
+ NewLine("RMDIR Deleting a directory")
+ End If
+ If Strings.AvailableFeature(8) = 1 Then
+ NewLine("SHIFTFETCH Shows informations about your computer")
+ End If
+ NewLine("SHIFTORIUM A software center for upgrading features on ShiftOS")
+ NewLine("SHUTDOWN Terminate ShiftOS session")
+ NewLine("SU Runs terminal as super user")
+ If Strings.AvailableFeature(17) = 1 Then
+ NewLine("TEXTPAD Simple text-editor for ShiftOS")
+ End If
+ If Strings.AvailableFeature(5) = 1 Then
+ NewLine("TIME Display the current time in the form of seconds since midnight")
+ ElseIf Strings.AvailableFeature(5) = 3 Then
+ If Strings.AvailableFeature(6) = 1 Then
+ NewLine("TIME Display the current time in the form of minutes since midnight")
+ ElseIf Strings.AvailableFeature(6) = 3 Then
+ If Strings.AvailableFeature(7) = 1 Then
+ NewLine("TIME Display the current time in the form of hours since midnight")
+ ElseIf Strings.AvailableFeature(7) = 3 Then
+ If Strings.AvailableFeature(12) = 1 Then
+ NewLine("TIME Display the current time in the form of PM and AM format")
+ End If
+ End If
+ End If
+ End If
+ If Strings.AvailableFeature(20) = 1 Then
+ NewLine("USERNAME Sets the name of current user with a new one")
+ End If
+ NewLine("VER Printing current version of ShiftOS TheRevival")
+ End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Pwd.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Pwd.vb
new file mode 100644
index 0000000..2e97969
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Pwd.vb
@@ -0,0 +1,5 @@
+Module Com_Pwd
+ Public Sub Pwd()
+ NewLine(Console.CurrentDirectory.Replace(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", "!"))
+ End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Shiftfetch.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Shiftfetch.vb
new file mode 100644
index 0000000..569d14d
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Shiftfetch.vb
@@ -0,0 +1,32 @@
+Module Com_Shiftfetch
+ Public Sub Shiftfetch()
+ If Strings.OnceInfo(0) = "Yes" Then
+ NewLine(" :^!7?JJJJJ?7!^: root@" & Strings.ComputerInfo(0))
+ Else
+ NewLine(" :^!7?JJJJJ?7!^: " & Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0))
+ End If
+ NewLine(" .~?PB###BGP555PGB###BP?~. ----------------------")
+ NewLine(" .!P#&B57^..:: ^~~!!~^::~7YG!. OS: ShiftOS TheRevival")
+ NewLine(" .?#@G7: .^ :^::!5&#?. Host: " & Environment.MachineName)
+ NewLine(" .?#@5^ ! .^!!..J&#? Kernel: " & My.Resources.CurrentVersion)
+ NewLine(" B@G^ .J : 7?..J@G: Uptime : N/ A")
+ NewLine(" ~&@Y 7 ~PB&#Y:. ~G7 ~&&^ Packages: " & Strings.ComputerInfo(4))
+ NewLine(" ^&@Y Y 5#5??YB@&B~ .GJ :&&: Shell: sos-justshell")
+ NewLine(" G@B ? 5P ^YB! .#! ~@G Window Manager: -")
+ NewLine(" ^@@! : @Y .:::^~:. 7# Y@^ Window Manager Theme: -")
+ NewLine(" 7@@: ! B@&BBBBGPPB@#Y. :&^ ^@? Terminal: shiftos-terminal")
+ NewLine(" ?@@: 7 :??7~:. 5@@5 :&^ .&? Terminal Font: Consolas, 11pt")
+ NewLine(" ~@@! !@ G#&B!. Y@@B 7#. Y~ CPU: " & My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing))
+ NewLine(" B@G B@J ...~&G. 7@@@? .#? 7 GPU: N/A")
+ Dim TripleDigitRAM As String
+ TripleDigitRAM = (My.Computer.Info.TotalPhysicalMemory / 1024 / 1024 / 1024)
+ NewLine(" ~&@? ^@Y !G#57~~!YB@#Y^ .GP .. Memory: " & TripleDigitRAM.Substring(0, 4) & " GB")
+ NewLine(" !@@7 ~#J 5#&&BG57^ ~BY Codepoint: " & Strings.ComputerInfo(2))
+ NewLine(" ~#@Y .5P~ ^5G~ ")
+ NewLine(" .J&#! ^JY!:. ^?P5! ")
+ NewLine(" :J&B?..!JYY7!~::...::~!7Y5Y7: ")
+ NewLine(" .7PBP?^::~!?JJJJJJJ?7~: ")
+ NewLine(" .~?55Y?!^:... ")
+ NewLine(" .:~~^~^^::. ")
+ End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Su.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Su.vb
new file mode 100644
index 0000000..2602187
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Su.vb
@@ -0,0 +1,10 @@
+Module Com_Su
+ Public Sub Terminal_Su()
+ If Strings.OnceInfo(0) = "Yes" Then
+ NewLine("You already in root mode!")
+ Else
+ Strings.OnceInfo(0) = "Yes"
+ Terminal_AssignPrompt()
+ End If
+ End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Time.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Time.vb
new file mode 100644
index 0000000..17cc2b3
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Time.vb
@@ -0,0 +1,25 @@
+Module Com_Time
+ Public Sub Terminal_Time()
+ If Strings.AvailableFeature(5) = 1 Then
+ NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " seconds passed since midnight")
+ ElseIf Strings.AvailableFeature(5) = 3 Then
+ If Strings.AvailableFeature(6) = 1 Then
+ NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalMinutes) & " minutes passed since midnight")
+ ElseIf Strings.AvailableFeature(6) = 3 Then
+ If Strings.AvailableFeature(7) = 1 Then
+ NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " hours passed since midnight")
+ ElseIf Strings.AvailableFeature(7) = 3 Then
+ If Strings.AvailableFeature(12) = 1 Then
+ If Date.Now.Hour < 12 Then
+ NewLine("The time is " & TimeOfDay.Hour & " AM")
+ Else
+ NewLine("The time is " & TimeOfDay.Hour - 12 & " PM")
+ End If
+ ElseIf Strings.AvailableFeature(23) = 1 Then
+ NewLine("The time is " & TimeOfDay.Hour & ":" & TimeOfDay.Minute)
+ End If
+ End If
+ End If
+ End If
+ End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Ver.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Ver.vb
new file mode 100644
index 0000000..8b2de41
--- /dev/null
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/Com_Ver.vb
@@ -0,0 +1,5 @@
+Module Com_Ver
+ Public Sub Terminal_Version()
+ NewLine("ShiftOS TheRevival version " & My.Resources.CurrentVersion)
+ End Sub
+End Module
diff --git a/ShiftOS-TheRevival/Terminal Applications/Internal/TerminalInternalApps.vb b/ShiftOS-TheRevival/Terminal Applications/Internal/TerminalInternalApps.vb
index 8b544a0..0167f72 100644
--- a/ShiftOS-TheRevival/Terminal Applications/Internal/TerminalInternalApps.vb
+++ b/ShiftOS-TheRevival/Terminal Applications/Internal/TerminalInternalApps.vb
@@ -84,151 +84,7 @@
End Sub
Public Sub DateTerm()
- If Strings.AvailableFeature(24) = 1 Then
- NewLine("The date is " & Date.Now.DayOfYear & " days since the first day of the year")
- AdvancedCommand = False
- Console.BadCommand = False
- ElseIf Strings.AvailableFeature(24) = 3 Then
- If Strings.AvailableFeature(25) = 1 Then
- Dim TheWeek As String = Date.Now.DayOfYear / 7
- NewLine("The date is " & TheWeek.Substring(0, 2) & " weeks since the first week of the year")
- AdvancedCommand = False
- Console.BadCommand = False
- ElseIf Strings.AvailableFeature(25) = 3 Then
- If Strings.AvailableFeature(26) = 1 Then
- NewLine("The date is " & Date.Now.Month & " months since the first month of the year")
- AdvancedCommand = False
- Console.BadCommand = False
- ElseIf Strings.AvailableFeature(26) = 3 Then
- If Strings.AvailableFeature(27) = 1 Then
- NewLine("The year is " & Date.Now.Year)
- AdvancedCommand = False
- Console.BadCommand = False
- ElseIf Strings.AvailableFeature(27) = 3 Then
- If Strings.AvailableFeature(28) = 1 Then
- NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month)
- AdvancedCommand = False
- Console.BadCommand = False
- ElseIf Strings.AvailableFeature(28) = 3 Then
- If Strings.AvailableFeature(29) = 1 Then
- NewLine("The date is " & Date.Now.Day & "/" & Date.Now.Month & "/" & Date.Now.Year)
- AdvancedCommand = False
- Console.BadCommand = False
- End If
- End If
- End If
- End If
- End If
- End If
- End Sub
- Public Sub Help()
- NewLine("ShiftOS Help Manual")
- NewLine(Nothing)
- NewLine("You can type 'help' to get all available commands and its corresponding action.")
- If Strings.AvailableFeature(0) = 1 Then
- NewLine("To get help on each command, you can type 'man [command]'")
- NewLine(Nothing)
- Else
- NewLine(Nothing)
- End If
- If Strings.AvailableFeature(9) = 1 Then
- NewLine("BC Basic Calculator for simple calculation")
- End If
- If Strings.AvailableFeature(16) = 1 Then
- NewLine("CD Changes directory to a selected one")
- End If
- If Strings.AvailableFeature(1) = 1 Then
- NewLine("CLEAR Clear the terminal")
- End If
- NewLine("CODEPOINT Display Codepoint(s) from your wallet")
- NewLine("COLOR Changes Terminal Text And Background color To the corresponding choice")
- NewLine("COLORS Shows available colors support For the terminal")
- If Strings.AvailableFeature(22) = 1 Then
- NewLine("COWSAY Spawn a cow And saying anything you want")
- End If
- If Strings.AvailableFeature(24) = 1 Then
- NewLine("DATE Displays date in days since first day of the year format")
- ElseIf Strings.AvailableFeature(24) = 3 Then
- If Strings.AvailableFeature(25) = 1 Then
- NewLine("DATE Displays date in weeks since first week of the year format")
- ElseIf Strings.AvailableFeature(25) = 3 Then
- If Strings.AvailableFeature(26) = 1 Then
- NewLine("DATE Displays date in months since first month of the year format")
- ElseIf Strings.AvailableFeature(26) = 3 Then
- If Strings.AvailableFeature(27) = 1 Then
- NewLine("DATE Displays date in year format format")
- ElseIf Strings.AvailableFeature(27) = 3 Then
- If Strings.AvailableFeature(28) = 1 Then
- NewLine("DATE Displays date in MM/YYYY format")
- ElseIf Strings.AvailableFeature(28) = 3 Then
- If Strings.AvailableFeature(29) = 1 Then
- NewLine("DATE Displays date in general DD/MM/YYYY format")
- End If
- End If
- End If
- End If
- End If
- End If
- If Strings.AvailableFeature(16) = 1 Then
- NewLine("DEL Delete a selected file from the directory")
- NewLine("DIR Displays subdirectories And files In a directory")
- End If
- NewLine("GUESS Runs 'Guess the Number' application")
- NewLine("HELP Shows all commands available and its corresponding action")
- If Strings.AvailableFeature(20) = 1 Then
- NewLine("HOSTNAME Sets the name of current hostname/computer name with a new one")
- End If
- If Strings.AvailableFeature(4) = 1 Then
- NewLine("INFOBAR Displays informations about current session such as current app, current user, current time, etc.")
- End If
- If Strings.AvailableFeature(0) = 1 Then
- NewLine("MAN Shows a command, its corresponding action, and its example usage")
- End If
- If Strings.AvailableFeature(16) = 1 Then
- NewLine("MKDIR Creating a directory")
- End If
- If Strings.AvailableFeature(16) = 1 Then
- NewLine("PWD Display current directory navigated on ShiftOS")
- End If
- If Strings.AvailableFeature(2) = 1 Then
- NewLine("PRINT Prints a corresponding text entered in the command")
- End If
- NewLine("REBOOT Terminate and re-run ShiftOS session")
- If Strings.AvailableFeature(21) = 1 Then
- NewLine("REV Turn any sentences you want and making it reversed")
- End If
- If Strings.AvailableFeature(16) = 1 Then
- NewLine("RMDIR Deleting a directory")
- End If
- If Strings.AvailableFeature(8) = 1 Then
- NewLine("SHIFTFETCH Shows informations about your computer")
- End If
- NewLine("SHIFTORIUM A software center for upgrading features on ShiftOS")
- NewLine("SHUTDOWN Terminate ShiftOS session")
- NewLine("SU Runs terminal as super user")
- If Strings.AvailableFeature(17) = 1 Then
- NewLine("TEXTPAD Simple text-editor for ShiftOS")
- End If
- If Strings.AvailableFeature(5) = 1 Then
- NewLine("TIME Display the current time in the form of seconds since midnight")
- ElseIf Strings.AvailableFeature(5) = 3 Then
- If Strings.AvailableFeature(6) = 1 Then
- NewLine("TIME Display the current time in the form of minutes since midnight")
- ElseIf Strings.AvailableFeature(6) = 3 Then
- If Strings.AvailableFeature(7) = 1 Then
- NewLine("TIME Display the current time in the form of hours since midnight")
- ElseIf Strings.AvailableFeature(7) = 3 Then
- If Strings.AvailableFeature(12) = 1 Then
- NewLine("TIME Display the current time in the form of PM and AM format")
- End If
- End If
- End If
- End If
- If Strings.AvailableFeature(20) = 1 Then
- NewLine("USERNAME Sets the name of current user with a new one")
- End If
- NewLine("VER Printing current version of ShiftOS TheRevival")
End Sub
Public Sub Manual(Command As String)
@@ -389,59 +245,4 @@
NewLine("MAN : Invalid command")
End Select
End Sub
-
- Public Sub Shiftfetch()
- If Strings.OnceInfo(0) = "Yes" Then
- NewLine(" :^!7?JJJJJ?7!^: root@" & Strings.ComputerInfo(0))
- Else
- NewLine(" :^!7?JJJJJ?7!^: " & Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0))
- End If
- NewLine(" .~?PB###BGP555PGB###BP?~. ----------------------")
- NewLine(" .!P#&B57^..:: ^~~!!~^::~7YG!. OS: ShiftOS TheRevival")
- NewLine(" .?#@G7: .^ :^::!5&#?. Host: " & Environment.MachineName)
- NewLine(" .?#@5^ ! .^!!..J&#? Kernel: " & My.Resources.CurrentVersion)
- NewLine(" B@G^ .J : 7?..J@G: Uptime : N/ A")
- NewLine(" ~&@Y 7 ~PB&#Y:. ~G7 ~&&^ Packages: " & Strings.ComputerInfo(4))
- NewLine(" ^&@Y Y 5#5??YB@&B~ .GJ :&&: Shell: sos-justshell")
- NewLine(" G@B ? 5P ^YB! .#! ~@G Window Manager: -")
- NewLine(" ^@@! : @Y .:::^~:. 7# Y@^ Window Manager Theme: -")
- NewLine(" 7@@: ! B@&BBBBGPPB@#Y. :&^ ^@? Terminal: shiftos-terminal")
- NewLine(" ?@@: 7 :??7~:. 5@@5 :&^ .&? Terminal Font: Consolas, 11pt")
- NewLine(" ~@@! !@ G#&B!. Y@@B 7#. Y~ CPU: " & My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing))
- NewLine(" B@G B@J ...~&G. 7@@@? .#? 7 GPU: N/A")
- Dim TripleDigitRAM As String
- TripleDigitRAM = (My.Computer.Info.TotalPhysicalMemory / 1024 / 1024 / 1024)
- NewLine(" ~&@? ^@Y !G#57~~!YB@#Y^ .GP .. Memory: " & TripleDigitRAM.Substring(0, 4) & " GB")
- NewLine(" !@@7 ~#J 5#&&BG57^ ~BY Codepoint: " & Strings.ComputerInfo(2))
- NewLine(" ~#@Y .5P~ ^5G~ ")
- NewLine(" .J&#! ^JY!:. ^?P5! ")
- NewLine(" :J&B?..!JYY7!~::...::~!7Y5Y7: ")
- NewLine(" .7PBP?^::~!?JJJJJJJ?7~: ")
- NewLine(" .~?55Y?!^:... ")
- NewLine(" .:~~^~^^::. ")
- End Sub
-
- Public Sub TimeTerm()
- If Strings.AvailableFeature(5) = 1 Then
- NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " seconds passed since midnight")
- ElseIf Strings.AvailableFeature(5) = 3 Then
- If Strings.AvailableFeature(6) = 1 Then
- NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalMinutes) & " minutes passed since midnight")
- ElseIf Strings.AvailableFeature(6) = 3 Then
- If Strings.AvailableFeature(7) = 1 Then
- NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " hours passed since midnight")
- ElseIf Strings.AvailableFeature(7) = 3 Then
- If Strings.AvailableFeature(12) = 1 Then
- If Date.Now.Hour < 12 Then
- NewLine("The time is " & TimeOfDay.Hour & " AM")
- Else
- NewLine("The time is " & TimeOfDay.Hour - 12 & " PM")
- End If
- ElseIf Strings.AvailableFeature(23) = 1 Then
- NewLine("The time is " & TimeOfDay.Hour & ":" & TimeOfDay.Minute)
- End If
- End If
- End If
- End If
- End Sub
End Module