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

All one-way commands are not separated into each own module

Browse source
This commit is contained in:
EverythingWindows 2022-11-14 19:55:48 +07:00
parent 75ae158b14
commit 52674dbd4d
13 changed files with 282 additions and 238 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
ShiftOS-TheRevival/MainForms/Console.vb
View file

@ -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

9
ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
View file

@ -149,8 +149,16 @@
</Compile>
<Compile Include="API\ConsoleAPI.vb" />
<Compile Include="API\TerminalAPI.vb" />
<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_Codepoint.vb" />
<Compile Include="Terminal Applications\Internal\Com_Help.vb" />
<Compile Include="Terminal Applications\Internal\Com_Pwd.vb" />
<Compile Include="Terminal Applications\Internal\Com_Shiftfetch.vb" />
<Compile Include="Terminal Applications\Internal\Com_Su.vb" />
<Compile Include="Terminal Applications\Internal\Com_Ver.vb" />
<Compile Include="Terminal Applications\Internal\Com_Date.vb" />
<Compile Include="Terminal Applications\Internal\TerminalInternalApps.vb" />
<Compile Include="Functions\OutGame\TheUpdater.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
@ -169,6 +177,7 @@
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Terminal Applications\Internal\Com_Time.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="MainForms\BugSlap.resx">

34
ShiftOS-TheRevival/Terminal Applications/External/App_TextPad.vb vendored Normal file
View file

@ -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

27
ShiftOS-TheRevival/Terminal Applications/External/TerminalExternalApps.vb vendored
View file

@ -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()

5
ShiftOS-TheRevival/Terminal Applications/Internal/Com_Codepoint.vb Normal file
View file

@ -0,0 +1,5 @@
Module Com_Codepoint
Public Sub Codepoint()
NewLine(Strings.ComputerInfo(2) & " Codepoint(s) available in your wallet")
End Sub
End Module

40
ShiftOS-TheRevival/Terminal Applications/Internal/Com_Date.vb Normal file
View file

@ -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

110
ShiftOS-TheRevival/Terminal Applications/Internal/Com_Help.vb Normal file
View file

@ -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

5
ShiftOS-TheRevival/Terminal Applications/Internal/Com_Pwd.vb Normal file
View file

@ -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

32
ShiftOS-TheRevival/Terminal Applications/Internal/Com_Shiftfetch.vb Normal file
View file

@ -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&#5!. 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

10
ShiftOS-TheRevival/Terminal Applications/Internal/Com_Su.vb Normal file
View file

@ -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

25
ShiftOS-TheRevival/Terminal Applications/Internal/Com_Time.vb Normal file
View file

@ -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

5
ShiftOS-TheRevival/Terminal Applications/Internal/Com_Ver.vb Normal file
View file

@ -0,0 +1,5 @@
Module Com_Ver
Public Sub Terminal_Version()
NewLine("ShiftOS TheRevival version " & My.Resources.CurrentVersion)
End Sub
End Module

199
ShiftOS-TheRevival/Terminal Applications/Internal/TerminalInternalApps.vb
View file

@ -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&#5!. 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