More organized

2 files changed, 0 insertions, 775 deletions

diff --git a/ShiftOS-TheRevival/Functions/InGame/TerminalExternalApps.vb b/ShiftOS-TheRevival/Functions/InGame/TerminalExternalApps.vb
deleted file mode 100644
index 20188ed..0000000
--- a/ShiftOS-TheRevival/Functions/InGame/TerminalExternalApps.vb
+++ /dev/null
@@ -1,328 +0,0 @@
-Imports System.IO
-
-Module TerminalExternalApps
-    Public ShouldChange As Boolean = False
-    Public KeyInput As Keys
-    'This is for GTN's RAM
-    Public TheNumber As Integer = 0
-    Public FreezeText As String
-    'Basic Calculator's RAM
-    Public BC_ReadNumbers As Integer
-    Public BC_Numbers1 As String
-    Public BC_Numbers2 As String
-    Public BC_ThriceMoreValue As Integer
-    Public BC_ThriceMoreCount As Integer
-    Public BC_CurrentNumber As String
-    Public BC_Result As Integer
-    Public BC_Operation2 As String
-    'TextPad's RAM
-    Public TextPad_FileName As String
-    Public TextPad_TempText As New Timer
-
-    Public Sub ChangeCP(Addition As Boolean, NeededCP As Integer)
-        Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
-        If Addition = True Then
-            TempCP = TempCP + NeededCP
-        Else
-            TempCP = TempCP - NeededCP
-        End If
-        Strings.ComputerInfo(2) = Convert.ToString(TempCP)
-    End Sub
-
-    Public Sub AppHost(App As Object, UseToolBar As Boolean)
-        Select Case App
-            Case "bc"
-                Console.DefaultPrompt = "> "
-                ResetLine("bc (Basic Calcultator)")
-                NewLine("Copyright, Free Software Foundation.")
-                NewLine("ShiftOS port by DevX.")
-                NewLine("This is free software with ABSOLUTELY NO WARRANTY.")
-                NewLine(Nothing)
-                Console.CurrentInterpreter = "bc"
-                ShouldChange = True
-            Case "guess" 'Guess the Number
-                Console.DefaultPrompt = "Your answer: "
-                NewLine("Guess the Number")
-                NewLine("Guess the correct number between 1 and 50 and you'll get anything between 1 to 10 Codepoints")
-                NewLine("Type 'exit' to terminate this game")
-                Console.CurrentInterpreter = "guess"
-                GTN_GenerateNumber()
-                ShouldChange = True
-            'Revisit Later
-            'Case "pause" 'Pause function
-            '    Terminal.TextBox1.ReadOnly = True
-            '    Terminal.DefaultPrompt = "Press any key to continue..."
-            '    Terminal.CurrentInterpreter = "pause"
-            '    FreezeText = Terminal.TextBox1.Text
-            '    ShouldChange = True
-            Case "shiftoriumfx" 'ShiftoriumFX : Advanced Shiftorium
-                Console.DefaultPrompt = "Navigate> "
-                Console.CurrentInterpreter = "shiftoriumfx"
-                ShiftoriumFX_DisplayPackages()
-                NewLine(Nothing)
-                NewLine("Type any package you want to investigate")
-                ShouldChange = True
-            Case "textpad"
-                Console.DefaultPrompt = Nothing
-                Console.TextBox1.Text = Nothing
-                Console.ToolBarUse = True
-                Console.CheckFeature()
-                Console.CurrentInterpreter = "textpad"
-                TextPad_CheckExist(command)
-                Console.ToolBar.Text = "TextPad - " & command & Environment.NewLine & "Ctrl-Q Exit | Ctrl-N New | Ctrl-O Open | Ctrl-S Save | F12 Save As"
-                Console.ReleaseCursor = True
-                TextRebind()
-        End Select
-        If Console.ReleaseCursor = True Then
-            'Strings.OnceInfo(5) = Terminal.TrackPos
-            'Terminal.TrackPos = Nothing
-        End If
-        If ShouldChange = True Then
-            Console.ChangeInterpreter = True
-            ShouldChange = False
-        End If
-    End Sub
-
-    Public Sub CaptureKeyBinding(KeysInput As Keys)
-        Select Case KeysInput
-            Case (Keys.S + Keys.Control)
-                Select Case Console.CurrentInterpreter
-                    Case "textpad"
-                        If File.Exists(Console.CurrentDirectory & "\" & command) = True Then
-                            Dim TempCompare As String = File.ReadAllText(Console.CurrentDirectory & "\" & command)
-                            If Console.TextBox1.Text = TempCompare Then
-
-                            Else
-                                Dim BeforeCP As Integer = Strings.ComputerInfo(2)
-                                SaveFile(command)
-                                TextPad_GenerateCP_SavedFile()
-                                Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP
-                                Console.ToolBar.Text = "TextPad - " & command & " - You've got " & AfterCP & " Codepoints" & Environment.NewLine & "Ctrl-Q Exit | Ctrl-N New | Ctrl-O Open | Ctrl-S Save | F12 Save As"
-                            End If
-                        Else
-                            Dim BeforeCP As Integer = Strings.ComputerInfo(2)
-                            SaveFile(command)
-                            TextPad_GenerateCP_SavedFile()
-                            Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP
-                            Console.ToolBar.Text = "TextPad - " & command & " - You've got " & AfterCP & " Codepoints" & Environment.NewLine & "Ctrl-Q Exit | Ctrl-N New | Ctrl-O Open | Ctrl-S Save | F12 Save As"
-                        End If
-                End Select
-            Case (Keys.N + Keys.Control)
-                Select Case Console.CurrentInterpreter
-                    Case "textpad"
-                        Console.TextBox1.Text = Nothing
-                End Select
-        End Select
-    End Sub
-
-    Public Sub TerminateApp(KeyInput As Keys)
-        Select Case Console.CurrentInterpreter
-            Case "textpad"
-                Dim BeforeCP As Integer = Strings.ComputerInfo(2)
-                If File.Exists(Console.CurrentDirectory & "\" & command) = True Then
-                    Dim TextCompare As String = My.Computer.FileSystem.ReadAllText(Console.CurrentDirectory & "\" & command)
-                    If Console.TextBox1.Text = TextCompare Then
-                        Console.TextBox1.Text = Nothing
-                    Else
-                        SaveFile(command)
-                        TextPad_GenerateCP_SavedFile()
-                        Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP
-                        Console.TextBox1.Text = "You've got " & AfterCP & " Codepoints"
-                    End If
-                Else
-                    SaveFile(command)
-                    TextPad_GenerateCP_SavedFile()
-                    Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP
-                    Console.TextBox1.Text = "You've got " & AfterCP & " Codepoints"
-                End If
-                Console.ToolBarUse = False
-                Console.ChangeInterpreter = False
-                Console.ReleaseCursor = False
-                Console.CurrentInterpreter = "terminal"
-                Console.CheckFeature()
-                Terminal_AssignPrompt()
-                Terminal_PrintPrompt()
-                TextRebind()
-            Case Else
-                Console.ToolBarUse = False
-                Console.ChangeInterpreter = False
-                Console.ReleaseCursor = False
-                Console.CurrentInterpreter = "terminal"
-                Console.CheckFeature()
-                Terminal_AssignPrompt()
-                Terminal_PrintPrompt()
-                TextRebind()
-        End Select
-    End Sub
-
-    Public Sub DoChildCommand()
-        Select Case Console.CurrentInterpreter
-            Case "guess"
-                Select Case command
-                    Case "exit"
-                        TerminateApp(Nothing)
-                    Case Else
-                        Try
-                            GTN_CheckNumber()
-                        Catch ex As Exception
-                            NewLine("Invalid value!")
-                        End Try
-                End Select
-            Case "shiftoriumfx"
-                Select Case command
-                    Case ""
-
-                    Case "exit"
-                        TerminateApp(Nothing)
-                    Case Else
-                        ShiftoriumFX_DisplayPackages()
-                        NewLine(Nothing)
-                        NewLine("Type any package you want to investigate")
-                        NewLine("Invalid package or bad command")
-                End Select
-            Case "bc"
-                Select Case command
-                    Case "jim"
-                        NewLine("69, the funni number")
-                        NewLine("gotcha!")
-                    Case "ojas"
-                        NewLine("dis calculator is very gud")
-                        NewLine("it counts from another universe")
-                    Case "exit"
-                        TerminateApp(Nothing)
-                    Case Else
-                        BC_ReadNumbers = 0
-                        BC_ThriceMoreValue = 1
-                        BC_Numbers1 = Nothing
-                        BC_Numbers2 = Nothing
-                        BC_Operation2 = Nothing
-                        BC_CurrentNumber = Nothing
-                        BC_Result = Nothing
-                        Dim GetText As String
-                        Try
-                            Do
-                                GetText = command.Chars(BC_ReadNumbers)
-                                Select Case GetText
-                                    Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
-                                        BC_CurrentNumber = BC_CurrentNumber & GetText
-                                    Case "+", "-", "*", "/", "^"
-                                        Dim BC_Numbers3 As Integer
-                                        Select Case BC_ThriceMoreValue
-                                            Case 1
-                                                BC_Numbers1 = BC_CurrentNumber
-                                                BC_CurrentNumber = Nothing
-                                                BC_Operation2 = GetText
-                                                BC_ThriceMoreValue = BC_ThriceMoreValue + 1
-                                            Case >= 2
-                                                BC_Numbers2 = BC_CurrentNumber
-                                                BC_Counting(BC_Numbers1, BC_Numbers2, BC_Operation2)
-                                                BC_Numbers3 = BC_Result
-                                                BC_Numbers1 = BC_Numbers3
-                                                BC_Numbers2 = Nothing
-                                                BC_CurrentNumber = Nothing
-                                                BC_ThriceMoreValue = BC_ThriceMoreValue + 1
-                                        End Select
-                                        BC_Operation2 = GetText
-                                    Case "."
-                                        NewLine("Decimals aren't supported yet!")
-                                    Case Else
-                                        'BC_Counting(BC_Numbers1, BC_Numbers2, BC_Operation2)
-                                End Select
-                                BC_ReadNumbers = BC_ReadNumbers + 1
-                            Loop
-                        Catch ex As Exception
-                            BC_Numbers2 = BC_CurrentNumber
-                            BC_CurrentNumber = Nothing
-                        End Try
-                        BC_Counting(BC_Numbers1, BC_Numbers2, BC_Operation2)
-                        BC_ThriceMoreValue = Nothing
-                        NewLine(BC_Result)
-                End Select
-        End Select
-    End Sub
-
-    Public Sub BC_Counting(FirstNum As Integer, SecondNum As Integer, Operation As String)
-        Select Case Operation
-            Case "+"
-                BC_Result = FirstNum + SecondNum
-            Case "-"
-                BC_Result = FirstNum - SecondNum
-            Case "*"
-                BC_Result = FirstNum * SecondNum
-            Case "/"
-                BC_Result = FirstNum / SecondNum
-            Case "^"
-                BC_Result = FirstNum ^ SecondNum
-        End Select
-    End Sub
-
-    Public Sub GTN_GenerateNumber()
-        Dim RandNum As New Random
-        TheNumber = RandNum.Next(1, 51)
-    End Sub
-
-    Public Sub GTN_CheckNumber()
-        Dim TheirNumber As Integer = Convert.ToInt32(command)
-        If TheirNumber > 0 And TheirNumber < 51 Then
-            If TheirNumber = TheNumber Then
-                Dim GetCP As New Random
-                Dim GotCP As Integer = GetCP.Next(1, 11)
-                ChangeCP(True, GotCP)
-                NewLine("You are correct!, you got " & GotCP & " Codepoint(s)")
-                NewLine("Guess the new number between 1 and 50.")
-                GTN_GenerateNumber()
-            Else
-                If TheirNumber < TheNumber Then
-                    NewLine("Higher!")
-                ElseIf TheirNumber > TheNumber Then
-                    NewLine("Lower!")
-                End If
-            End If
-        End If
-    End Sub
-
-    Public Sub ShOSKey_InputCommand(lastcommand As String)
-        Console.ShOSKey = lastcommand
-    End Sub
-
-    Public Sub ShOSKey_Display()
-        Console.TextBox1.Text = Console.TextBox1.Text & Console.ShOSKey
-        Try
-            Console.TrackPos = Console.ShOSKey.Length
-        Catch ex As Exception
-            Console.TrackPos = 0
-        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()
-    End Sub
-End Module
diff --git a/ShiftOS-TheRevival/Functions/InGame/TerminalInternalApps.vb b/ShiftOS-TheRevival/Functions/InGame/TerminalInternalApps.vb
deleted file mode 100644
index 8b544a0..0000000
--- a/ShiftOS-TheRevival/Functions/InGame/TerminalInternalApps.vb
+++ /dev/null
@@ -1,447 +0,0 @@
-Module TerminalInternalApps
-    Public Sub Cowsay_Say(Say As String)
-        Select Case Say.Length
-            Case 1 To 40
-                Dim SubtractLength As Integer = Say.Length + 1
-                NewLine(" ")
-                Do
-                    AddLine("_")
-                    SubtractLength = SubtractLength - 1
-                    If SubtractLength = 0 Then
-                        AddLine("_")
-                        SubtractLength = Say.Length + 1
-                        Exit Do
-                    End If
-                Loop
-                NewLine("< " & Say & " >")
-                NewLine(" ")
-                Do
-                    AddLine("-")
-                    SubtractLength = SubtractLength - 1
-                    If SubtractLength = 0 Then
-                        AddLine("-")
-                        SubtractLength = Say.Length + 1
-                        Exit Do
-                    End If
-                Loop
-                NewLine("        \   ^__^")
-                NewLine("         \  (oo)\_______")
-                NewLine("            (__)\       )\/\")
-                NewLine("                ||----w |")
-                NewLine("                ||     ||")
-            Case 41 To 80
-                NewLine(" __________________________________________ ")
-                NewLine("/ " & Say.Substring(0, 40) & " \")
-                Say = Say.Substring(40, Say.Length - 40)
-                NewLine("\ " & Say)
-                Dim Spaces As Integer = 40 - Say.Length
-                Do
-                    AddLine(" ")
-                    If Spaces = 0 Then
-                        AddLine("/")
-                        Exit Do
-                    End If
-                    Spaces = Spaces - 1
-                Loop
-                NewLine(" ------------------------------------------ ")
-                NewLine("        \   ^__^")
-                NewLine("         \  (oo)\_______")
-                NewLine("            (__)\       )\/\")
-                NewLine("                ||----w |")
-                NewLine("                ||     ||")
-            Case >= 81
-                NewLine("cowsay: Character limit exceeded")
-                'Dim SubtractLength As Integer = Say.Length + 1
-                'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " __________________________________________ "
-                'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "/ " & Say.Substring(0, 40) & " \"
-                'Dim CurrentLength As Integer = 40
-                'Dim WhatSay As String
-                'Dim Spaces As Integer
-                'Do
-                '    Try
-                '        WhatSay = Say.Substring(CurrentLength, 40)
-                '    Catch ex As Exception
-                '        WhatSay = Say.Substring(CurrentLength, (CurrentLength + 40) - Say.Length)
-                '    End Try
-                '    Spaces = 40 - WhatSay.Length
-                '    If Spaces > 0 Then
-                '        Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "\ " & WhatSay
-                '        Do
-                '            Terminal.TextBox1.Text = Terminal.TextBox1.Text & " "
-                '            If Spaces = 0 Then
-                '                Terminal.TextBox1.Text = Terminal.TextBox1.Text & "/"
-                '                Exit Do
-                '            End If
-                '            Spaces = Spaces - 1
-                '        Loop
-                '        Exit Do
-                '    Else
-                '        Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "| " & WhatSay & " |"
-                '        CurrentLength = CurrentLength + 40
-                '    End If
-                'Loop
-        End Select
-    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)
-        'MAN command starts with this kinda format
-        'ShiftOS Help Manual
-        '
-        ''command' Usage: [switch/value if needed]
-        '
-        'Summary of the command's action
-        '
-        'Example usage : command
-        NewLine("ShiftOS Help Manual")
-        NewLine(Nothing)
-        'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & command.Substring(4)
-        Dim mancommand As String = Command.Replace("man ", "")
-        Dim TempUsage As String = "'" & mancommand & "' Usage: "
-        Select Case mancommand
-        'In process to convert every command from printing from code to printing from text file
-            Case "bc"
-                If Strings.AvailableFeature(9) = "1" Then
-                    TempUsage = TempUsage & "bc"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_bc & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "cd"
-                If Strings.AvailableFeature(16) = "1" Then
-                    TempUsage = TempUsage & "cd [DIRECTORY]"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cd & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "clear"
-                If Strings.AvailableFeature(1) = "1" Then
-                    TempUsage = TempUsage & "clear"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_clear & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "color"
-                TempUsage = TempUsage & "color [bg][fg]"
-                Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_color & Environment.NewLine
-                Console.BadCommand = False
-            Case "colors"
-                TempUsage = TempUsage & "colors"
-                Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_colors & Environment.NewLine
-                Console.BadCommand = False
-            Case "cowsay"
-                If Strings.AvailableFeature(22) = 1 Then
-                    TempUsage = TempUsage & "cowsay [STRING]"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cowsay & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "codepoint"
-                TempUsage = TempUsage & "codepoint"
-                Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_codepoint & Environment.NewLine
-                Console.BadCommand = False
-            Case "del"
-                If Strings.AvailableFeature(16) = 1 Then
-                    TempUsage = TempUsage & "del [FILENAME.TXT]"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_del & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "dir"
-                If Strings.AvailableFeature(16) = "1" Then
-                    TempUsage = TempUsage & "dir"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_dir & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "guess"
-                TempUsage = TempUsage & "guess"
-                Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_guess & Environment.NewLine
-                Console.BadCommand = False
-            Case "help"
-                TempUsage = TempUsage & "help"
-                Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_help & Environment.NewLine
-                Console.BadCommand = False
-            Case "hostname"
-                If Strings.AvailableFeature(20) = 1 Then
-                    TempUsage = TempUsage & "hostname [HOSTNAME]"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_hostname & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "infobar"
-                If Strings.AvailableFeature(4) = 1 Then
-                    TempUsage = TempUsage & "infobar [ON|OFF] [OPTION]"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_infobar & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "man"
-                If Strings.AvailableFeature(0) = "1" Then
-                    TempUsage = TempUsage & "man [command]"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_man & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "mkdir"
-                If Strings.AvailableFeature(16) = "1" Then
-                    TempUsage = TempUsage & "mkdir [DIRECTORY]"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_mkdir & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "print"
-                If Strings.AvailableFeature(2) = "1" Then
-                    TempUsage = TempUsage & "print [text]"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_print & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "pwd"
-                If Strings.AvailableFeature(16) = "1" Then
-                    TempUsage = TempUsage & "pwd"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_pwd & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "reboot"
-                TempUsage = TempUsage & "reboot"
-                Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_reboot & Environment.NewLine
-                Console.BadCommand = False
-            Case "rmdir"
-                If Strings.AvailableFeature(16) = "1" Then
-                    TempUsage = TempUsage & "rmdir [DIRECTORY]"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_rmdir & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "shiftfetch"
-                If Strings.AvailableFeature(8) = "1" Then
-                    TempUsage = TempUsage & "shiftfetch"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftfetch & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "shiftorium"
-                TempUsage = TempUsage & "shiftorium [option] [featureName]"
-                Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftorium & Environment.NewLine
-                Console.BadCommand = False
-            Case "shutdown"
-                TempUsage = TempUsage & "shutdown"
-                Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shutdown & Environment.NewLine
-                Console.BadCommand = False
-            Case "textpad"
-                If Strings.AvailableFeature(17) = "1" Then
-                    TempUsage = TempUsage & "textpad [FILENAME.TXT]"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_textpad & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "time"
-                If Strings.AvailableFeature(17) = "1" Then
-                    TempUsage = TempUsage & "time"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_time & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "username"
-                If Strings.AvailableFeature(19) = "1" Then
-                    TempUsage = TempUsage & "username"
-                    Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_username & Environment.NewLine
-                    Console.BadCommand = False
-                End If
-            Case "ver"
-                TempUsage = TempUsage & "ver"
-                Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_ver & Environment.NewLine
-                Console.BadCommand = False
-            Case Else
-                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