diff options
| author | EverythingWindows <[email protected]> | 2022-11-14 13:50:43 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-14 13:50:43 +0700 |
| commit | bd4c45f316d11e124fe5d21d9c5f66e21149fc5d (patch) | |
| tree | c9b1a4ad85f7d8c6b3cbe05f7769cb04f907dfa3 /ShiftOS-TheRevival/MainForms | |
| parent | b37a6e60c9ffa266fc1fc9afc13cada7704100b0 (diff) | |
| download | shiftos-therevival-old-bd4c45f316d11e124fe5d21d9c5f66e21149fc5d.tar.gz shiftos-therevival-old-bd4c45f316d11e124fe5d21d9c5f66e21149fc5d.tar.bz2 shiftos-therevival-old-bd4c45f316d11e124fe5d21d9c5f66e21149fc5d.zip | |
More organized
Diffstat (limited to 'ShiftOS-TheRevival/MainForms')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/ConsoleAPI.vb | 28 | ||||
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/DirectoryManagements.vb | 83 | ||||
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/FileManagement.vb | 25 | ||||
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb | 9 | ||||
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/Shiftoriums.vb | 658 | ||||
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/Strings.vb | 116 | ||||
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/TerminalAPI.vb | 70 | ||||
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/TerminalColorSystem.vb | 212 | ||||
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/TerminalExternalApps.vb | 328 | ||||
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/TerminalInternalApps.vb | 447 | ||||
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/TheUpdater.vb | 117 |
11 files changed, 9 insertions, 2084 deletions
diff --git a/ShiftOS-TheRevival/MainForms/ConsoleAPI.vb b/ShiftOS-TheRevival/MainForms/ConsoleAPI.vb deleted file mode 100644 index 7021e2e..0000000 --- a/ShiftOS-TheRevival/MainForms/ConsoleAPI.vb +++ /dev/null @@ -1,28 +0,0 @@ -Module ConsoleAPI - Public Sub NewLine(str As String) - Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & str - End Sub - - Public Sub AddLine(str As String) - Console.TextBox1.Text = Console.TextBox1.Text & str - End Sub - - Public Sub ResetLine(str As String) - Console.TextBox1.Text = str - End Sub - - Public Sub Undeveloped() - NewLine("Oopsie! It's only for newer version") - End Sub - - Public Sub TextRebind() - Console.TextBox1.Select(Console.TextBox1.Text.Length, 0) - Console.TextBox1.ScrollToCaret() - End Sub - - Public Sub TextRebindBehind() - 'Console.TextBox1.Select(Console.TextBox1.Lines.Length - 1, 0) - Console.TextBox1.Select(Console.TextBox1.Lines.Length - 1, 0) - Console.TextBox1.ScrollToCaret() - End Sub -End Module diff --git a/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb b/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb deleted file mode 100644 index 7647e1e..0000000 --- a/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb +++ /dev/null @@ -1,83 +0,0 @@ -Module DirectoryManagements - Dim spaces As String - Public Sub TerminalDirectories(TheDirectory As String) - Console.Pseudodir = TheDirectory.Replace(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", "!") - NewLine("Contents of " & Console.Pseudodir) - NewLine(Nothing) - NewLine("[DIR] 0 KB .") - NewLine("[DIR] 0 KB ..") - For Each Dir As String In IO.Directory.GetDirectories(TheDirectory) - Dim dirinf As New IO.DirectoryInfo(Dir) - NewLine("[DIR] 0 KB " & dirinf.Name) - Next - For Each file As String In IO.Directory.GetFiles(TheDirectory) - Dim filinf As New IO.FileInfo(file) - Dim filsize As Long = filinf.Length / 1024 - Dim thesize As Integer = 1 - Do - If filsize >= 1024 Then - filsize = filsize / 1024 - thesize = thesize + 1 - Else - Exit Do - End If - Loop - Select Case filsize - Case 0 To 9 - spaces = " " - Case 10 To 99 - spaces = " " - Case 100 To 999 - spaces = " " - Case 1000 To 1023 - spaces = " " - End Select - Select Case thesize - Case 1 - NewLine(spaces & filsize & " KB " & filinf.Name) - Case 2 - NewLine(spaces & filsize & " MB " & filinf.Name) - Case 3 - NewLine(spaces & filsize & " GB " & filinf.Name) - End Select - Next - End Sub - - Public Sub NavigateDir(TheDirectory As String) - If TheDirectory = ".." Then - If Console.CurrentDirectory = Strings.OnceInfo(1) Then - NewLine("!\") - Else - Console.CurrentDirectory = IO.Directory.GetParent(Console.CurrentDirectory).ToString - End If - Else - If IO.Directory.Exists(Console.CurrentDirectory + "\" + TheDirectory) Then - Console.CurrentDirectory = Console.CurrentDirectory & "\" & TheDirectory - ElseIf IO.Directory.Exists(TheDirectory) Then - Console.CurrentDirectory = TheDirectory - Else - NewLine("The directory is not exist!") - End If - End If - End Sub - - Public Sub CreateDir(TheDirectory As String) - If IO.Directory.Exists(Console.CurrentDirectory + "\" + TheDirectory) Then - NewLine("Directory is already exists!") - Else - IO.Directory.CreateDirectory(Console.CurrentDirectory + "\" + TheDirectory) - End If - End Sub - - Public Sub RemoveDir(TheDirectory As String) - If IO.Directory.Exists(Console.CurrentDirectory + "\" + TheDirectory) Then - Try - IO.Directory.Delete(Console.CurrentDirectory + "\" + TheDirectory) - Catch ex As Exception - NewLine(ex.Message) - End Try - Else - NewLine("The directory is not exists!") - End If - End Sub -End Module diff --git a/ShiftOS-TheRevival/MainForms/FileManagement.vb b/ShiftOS-TheRevival/MainForms/FileManagement.vb deleted file mode 100644 index b84a2a0..0000000 --- a/ShiftOS-TheRevival/MainForms/FileManagement.vb +++ /dev/null @@ -1,25 +0,0 @@ -Imports System.IO - -Module FileManagement - Public Sub CatFile(filename As String) - If File.Exists(Console.CurrentDirectory & "\" & filename) = True Then - Dim ContentsFinal As String = File.ReadAllText(Console.CurrentDirectory & "\" & filename) - NewLine(ContentsFinal) - End If - End Sub - - Public Sub DeleteFile(filename As String) - If File.Exists(Console.CurrentDirectory & "\" & filename) = True Then - File.Delete(Console.CurrentDirectory & "\" & filename) - End If - End Sub - - Public Sub SaveFile(filename As String) - 'If File.Exists(Terminal.CurrentDirectory & "\" & filename) = False Then - ' File.WriteAllText(Terminal.CurrentDirectory & "\" & filename, Terminal.TextBox1.Text) - 'Else - ' File.WriteAllText(Terminal.CurrentDirectory & "\" & filename, Terminal.TextBox1.Text) - 'End If - File.WriteAllText(Console.CurrentDirectory & "\" & filename, Console.TextBox1.Text) - End Sub -End Module diff --git a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb index 5b7f77e..bd61679 100644 --- a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb +++ b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb @@ -3,6 +3,7 @@ Module SaveLoadSystem Public Sub NewGameMode() + 'Sets all features to 2 (Unavailable for Shiftorium) except ShiftOS Key (AvailableFeatures(11)) Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", True) Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved", True) Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS") @@ -44,9 +45,12 @@ Module SaveLoadSystem Strings.AvailableFeature(28) = "2" Strings.AvailableFeature(29) = "2" Strings.AvailableFeature(30) = "2" + '0.2.6 Features + Strings.AvailableFeature(31) = "2" End Sub Public Sub FreeRoamMode() + 'Sets all features to as bought Strings.ComputerInfo(0) = "shiftos" Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(2) = "0" @@ -84,9 +88,12 @@ Module SaveLoadSystem Strings.AvailableFeature(28) = "3" Strings.AvailableFeature(29) = "1" Strings.AvailableFeature(30) = "1" + '0.2.6 Features + Strings.AvailableFeature(31) = "1" End Sub Public Sub GodMode() + 'Same as new game but codepoints automatically assigned to 9999 and not saved into the FS Strings.ComputerInfo(0) = "shiftos" Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(2) = 9999 @@ -123,6 +130,8 @@ Module SaveLoadSystem Strings.AvailableFeature(28) = "2" Strings.AvailableFeature(29) = "2" Strings.AvailableFeature(30) = "2" + '0.2.6 Features + Strings.AvailableFeature(31) = "2" End Sub Public Sub SaveGame() diff --git a/ShiftOS-TheRevival/MainForms/Shiftoriums.vb b/ShiftOS-TheRevival/MainForms/Shiftoriums.vb deleted file mode 100644 index d9317e0..0000000 --- a/ShiftOS-TheRevival/MainForms/Shiftoriums.vb +++ /dev/null @@ -1,658 +0,0 @@ -Module Shiftoriums - Public prompt As String - - Public Sub Shiftorium_ListFeatures() - NewLine("Shiftorium Available Feature(s)") - NewLine(Nothing) - If Strings.AvailableFeature(11) = "0" Then - NewLine("(key | 5 CP) ShiftOS Key") - Else - If Strings.AvailableFeature(0) = "0" Then - NewLine("(man | 10 CP) ShiftOS Help Manual") - Else - If Strings.AvailableFeature(19) = "0" Then - NewLine("(username | 15 CP) Custom Username") - End If - If Strings.AvailableFeature(20) = "0" Then - NewLine("(hostname | 15 CP) Custom hostname") - End If - End If - If Strings.AvailableFeature(1) = "0" Then - NewLine("(clear | 20 CP) Clear Terminal Screen") - Else - If Strings.AvailableFeature(2) = "0" Then - NewLine("(print | 25 CP) Print Terminal Screen") - Else - If Strings.AvailableFeature(3) = "0" Then - NewLine("(termdspdrv | 40 CP) Terminal Display Driver") - Else - If Strings.AvailableFeature(4) = "0" Then - NewLine("(infobar | 50 CP) Terminal InfoBar") - End If - If Strings.AvailableFeature(8) = "0" Then - NewLine("(shiftfetch | 55 CP) Shiftfetch") - End If - If Strings.AvailableFeature(10) = "0" Then - NewLine("(2bitcolor | 60 CP) 2-bit Color Support") - Else - If Strings.AvailableFeature(13) = "0" Then - NewLine("(rgb | 70 CP) Red, Green, and Blue") - Else - If Strings.AvailableFeature(14) = "0" Then - NewLine("(rgb2 | 75 CP) RGB Variant") - Else - If Strings.AvailableFeature(15) = "0" Then - NewLine("(4bitcolor | 80 CP) 4-bit Color Support") - Else - If Strings.AvailableFeature(16) = "0" Then - NewLine("(romdriver | 90 CP) Terminal Read-Only Memory Support") - Else - If Strings.AvailableFeature(17) = "0" Then - NewLine("(textpad | 100 CP) TextPad") - Else - If Strings.AvailableFeature(30) = "0" Then - NewLine("(batchscript | 100 CP) ShiftOS Batch Script Support") - End If - End If - End If - End If - End If - End If - End If - End If - If Strings.AvailableFeature(18) = "0" Then - NewLine("(shiftkey | 45 CP) ShiftKey") - End If - If Strings.AvailableFeature(21) = "0" Then - NewLine("(rev | 30 CP) Reverse String") - Else - If Strings.AvailableFeature(22) = "0" Then - NewLine("(cowsay | 50 CP) Cowsay") - End If - End If - End If - If Strings.AvailableFeature(5) = "0" Then - NewLine("(stime | 10 CP) Time by Seconds") - Else - If Strings.AvailableFeature(6) = "0" Then - NewLine("(mtime | 20 CP) Time by Minutes") - Else - If Strings.AvailableFeature(7) = "0" Then - NewLine("(htime | 30 CP) Time by Hours") - Else - If Strings.AvailableFeature(12) = "0" Then - NewLine("(pmam | 40 CP) PM and AM") - Else - If Strings.AvailableFeature(23) = "0" Then - NewLine("(hhmm | 50 CP) Time by Hours and Minutes") - Else - If Strings.AvailableFeature(24) = "0" Then - NewLine("(date | 70 CP) Date command") - Else - If Strings.AvailableFeature(25) = "0" Then - NewLine("(woy | 75 CP) Date by week of year") - Else - If Strings.AvailableFeature(26) = "0" Then - NewLine("(moy | 80 CP) Date by month of year") - Else - If Strings.AvailableFeature(27) = "0" Then - NewLine("(year | 85 CP) Date by year") - Else - If Strings.AvailableFeature(28) = "0" Then - NewLine("(mmyyyy | 90 CP) Date by month and year") - Else - If Strings.AvailableFeature(29) = "0" Then - NewLine("(generaldate | 95 CP) Date by general format") - End If - End If - End If - End If - End If - End If - End If - End If - End If - End If - End If - If Strings.AvailableFeature(9) = "0" Then - NewLine("(bc | 55 CP) Basic Calculator") - End If - End If - End If - End Sub - - Public Sub Shiftorium_InformationFeatures() - 'ManHeader is for the ShiftOS Help Manual header and the 'Cost' footer, kinda like template-ish - Dim ManHeader(1) As String - 'ManHeader(0) = Insert any feature here for the Case prompt - ManHeader(1) = "Cost: " - Select Case prompt - Case "man" - If Strings.AvailableFeature(0) = "0" Then - ManHeader(0) = "ShiftOS Help Manual (command: man)" - ManHeader(1) = "10 CP" - NewLine(ManHeader(0)) - NewLine(Nothing) - NewLine("Shows up any further help instruction on each command, its corresponding action and its example if necessary") - NewLine(Nothing) - NewLine(ManHeader(1)) - Console.BadCommand = False - End If - Case "clear" - If Strings.AvailableFeature(1) = "0" Then - ManHeader(0) = "Clear Terminal Screen (command: clear)" - 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.BadCommand = False - End If - Case "print" - If Strings.AvailableFeature(2) = "0" Then - ManHeader(0) = "Print Command (command: print)" - 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.BadCommand = False - End If - Case "termdspdrv" - If Strings.AvailableFeature(3) = "0" Then - ManHeader(0) = "Terminal Display Driver" - 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.BadCommand = False - End If - Case "infobar" - If Strings.AvailableFeature(4) = "0" Then - ManHeader(0) = "Terminal InfoBar" - 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.BadCommand = False - End If - Case "stime" - If Strings.AvailableFeature(5) = "0" Then - ManHeader(0) = "Time by Seconds" - 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.BadCommand = False - End If - Case "stime" - If Strings.AvailableFeature(6) = "0" Then - ManHeader(0) = "Time by Minutes" - 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.BadCommand = False - End If - Case "htime" - If Strings.AvailableFeature(7) = "0" Then - ManHeader(0) = "Time by Hours" - 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.BadCommand = False - End If - Case "shiftfetch" - If Strings.AvailableFeature(8) = "0" Then - ManHeader(0) = "Shiftfetch" - 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.BadCommand = False - End If - Case "bc" - If Strings.AvailableFeature(9) = "0" Then - ManHeader(0) = "Basic Calculator" - 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.BadCommand = False - End If - Case "2bitcolor" - If Strings.AvailableFeature(10) = "0" Then - ManHeader(0) = "2-bit Color Support" - 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.BadCommand = False - End If - Case "key" - If Strings.AvailableFeature(11) = "0" Then - ManHeader(0) = "ShiftOS Key" - 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.BadCommand = False - End If - Case "pmam" - If Strings.AvailableFeature(12) = "0" Then - ManHeader(0) = "PM and AM" - 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.BadCommand = False - End If - Case "rgb" - If Strings.AvailableFeature(13) = "0" Then - ManHeader(0) = "Red, Green, and Blue" - 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.BadCommand = False - End If - Case "rgb2" - If Strings.AvailableFeature(14) = "0" Then - ManHeader(0) = "RGB Variant" - 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.BadCommand = False - End If - Case "4bitcolor" - If Strings.AvailableFeature(15) = "0" Then - ManHeader(0) = "4-bit Color Display" - 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.BadCommand = False - End If - Case "romdriver" - If Strings.AvailableFeature(16) = "0" Then - ManHeader(0) = "Terminal Read-Only Memory Driver" - 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.BadCommand = False - End If - Case "textpad" - If Strings.AvailableFeature(17) = "0" Then - ManHeader(0) = "TextPad" - 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.BadCommand = False - End If - Case "shiftkey" - If Strings.AvailableFeature(18) = "0" Then - ManHeader(0) = "ShiftKey" - 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.BadCommand = False - End If - Case "username" - If Strings.AvailableFeature(19) = "0" Then - ManHeader(0) = "Custom Username" - 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.BadCommand = False - End If - Case "hostname" - If Strings.AvailableFeature(20) = "0" Then - ManHeader(0) = "Custom Hostname" - 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.BadCommand = False - End If - Case "rev" - If Strings.AvailableFeature(21) = "0" Then - ManHeader(0) = "Reverse String" - 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.BadCommand = False - End If - Case "cowsay" - If Strings.AvailableFeature(22) = "0" Then - ManHeader(0) = "Cowsay" - 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.BadCommand = False - End If - Case "hhmm" - If Strings.AvailableFeature(23) = "0" Then - ManHeader(0) = "Time by Hours and Minutes" - 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.BadCommand = False - End If - Case "date" - If Strings.AvailableFeature(24) = "0" Then - ManHeader(0) = "Date command" - ManHeader(1) = "70 CP" - NewLine(ManHeader(0)) - NewLine(Nothing) - NewLine("Displays date in days format since first day of the year") - NewLine(Nothing) - NewLine(ManHeader(1)) - Console.BadCommand = False - End If - Case "woy" - If Strings.AvailableFeature(25) = "0" Then - ManHeader(0) = "Date by week of year" - ManHeader(1) = "75 CP" - NewLine(ManHeader(0)) - NewLine(Nothing) - NewLine("Displays date in week format since first week of the year") - NewLine(Nothing) - NewLine(ManHeader(1)) - Console.BadCommand = False - End If - Case "moy" - If Strings.AvailableFeature(26) = "0" Then - ManHeader(0) = "Date by month of year" - ManHeader(1) = "80 CP" - NewLine(ManHeader(0)) - NewLine(Nothing) - NewLine("Displays date in month format since first month of the year") - NewLine(Nothing) - NewLine(ManHeader(1)) - Console.BadCommand = False - End If - Case "year" - If Strings.AvailableFeature(27) = "0" Then - ManHeader(0) = "Date by year" - ManHeader(1) = "85 CP" - NewLine(ManHeader(0)) - NewLine(Nothing) - NewLine("Displays date in year format") - NewLine(Nothing) - NewLine(ManHeader(1)) - Console.BadCommand = False - End If - Case "mmyyyy" - If Strings.AvailableFeature(28) = "0" Then - ManHeader(0) = "Date by month and year" - ManHeader(1) = "90 CP" - NewLine(ManHeader(0)) - NewLine(Nothing) - NewLine("Displays date in month and year format") - NewLine(Nothing) - NewLine(ManHeader(1)) - Console.BadCommand = False - End If - Case "generaldate" - If Strings.AvailableFeature(29) = "0" Then - ManHeader(0) = "Date by general format" - ManHeader(1) = "95 CP" - NewLine(ManHeader(0)) - NewLine(Nothing) - NewLine("Displays date in DD/MM/YYYY format") - NewLine(Nothing) - NewLine(ManHeader(1)) - Console.BadCommand = False - End If - Case "batchscript" - If Strings.AvailableFeature(30) = "0" Then - ManHeader(0) = "ShiftOS Batch Script Support" - ManHeader(1) = "100 CP" - NewLine(ManHeader(0)) - NewLine(Nothing) - NewLine("Adds the supports for ShiftOS Batch Script") - NewLine(Nothing) - NewLine(ManHeader(1)) - Console.BadCommand = False - End If - Case Else - Console.BadCommand = False - Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available" - End Select - End Sub - - Public Sub Shiftorium_DetectInstallFeatures() - NewLine("Installing feature...") - Select Case prompt - Case "man" - Shiftorium_InstallFeatures(True, "man", 0, 10) - Console.BadCommand = False - Case "clear" - Shiftorium_InstallFeatures(True, "clear", 1, 20) - Console.BadCommand = False - Case "print" - Shiftorium_InstallFeatures(True, "print", 2, 25) - Console.BadCommand = False - Case "termdspdrv" - Shiftorium_InstallFeatures(True, "termdspdrv", 3, 40) - Console.BadCommand = False - Case "infobar" - Shiftorium_InstallFeatures(True, "infobar", 4, 50) - Console.BadCommand = False - Case "stime" - Shiftorium_InstallFeatures(True, "stime", 5, 10) - Console.BadCommand = False - Case "mtime" - Shiftorium_InstallFeatures(True, "mtime", 6, 20) - Console.BadCommand = False - Case "htime" - Shiftorium_InstallFeatures(True, "htime", 7, 30) - Console.BadCommand = False - Case "shiftfetch" - Shiftorium_InstallFeatures(True, "shiftfetch", 8, 55) - Console.BadCommand = False - Case "bc" - Shiftorium_InstallFeatures(True, "bc", 9, 55) - Console.BadCommand = False - Case "2bitcolor" - Shiftorium_InstallFeatures(True, "2bitcolor", 10, 60) - Console.BadCommand = False - Case "key" - Shiftorium_InstallFeatures(True, "key", 11, 5) - Console.BadCommand = False - Case "pmam" - Shiftorium_InstallFeatures(True, "pmam", 12, 40) - Console.BadCommand = False - Case "rgb" - Shiftorium_InstallFeatures(True, "rgb", 13, 70) - Console.BadCommand = False - Case "rgb2" - Shiftorium_InstallFeatures(True, "rgb2", 14, 75) - Console.BadCommand = False - Case "4bitcolor" - Shiftorium_InstallFeatures(True, "4bitcolor", 15, 80) - Console.BadCommand = False - Case "romdriver" - Shiftorium_InstallFeatures(True, "romdriver", 16, 90) - Console.BadCommand = False - Case "textpad" - Shiftorium_InstallFeatures(True, "textpad", 17, 100) - Console.BadCommand = False - Case "shiftkey" - Shiftorium_InstallFeatures(True, "shiftkey", 18, 45) - Console.BadCommand = False - Case "username" - Shiftorium_InstallFeatures(True, "username", 19, 15) - Console.BadCommand = False - Case "hostname" - Shiftorium_InstallFeatures(True, "hostname", 20, 15) - Console.BadCommand = False - Case "rev" - Shiftorium_InstallFeatures(True, "rev", 21, 30) - Console.BadCommand = False - Case "cowsay" - Shiftorium_InstallFeatures(True, "cowsay", 22, 50) - Console.BadCommand = False - Case "hhmm" - Shiftorium_InstallFeatures(True, "hhmm", 23, 50) - Console.BadCommand = False - Case "date" - Shiftorium_InstallFeatures(True, "date", 24, 70) - Console.BadCommand = False - Case "woy" - Shiftorium_InstallFeatures(True, "woy", 25, 75) - Console.BadCommand = False - Case "moy" - Shiftorium_InstallFeatures(True, "moy", 26, 80) - Console.BadCommand = False - Case "year" - Shiftorium_InstallFeatures(True, "year", 27, 85) - Console.BadCommand = False - Case "mmyyyy" - Shiftorium_InstallFeatures(True, "mmyyyy", 28, 90) - Console.BadCommand = False - Case "generaldate" - Shiftorium_InstallFeatures(True, "generaldate", 29, 95) - Console.BadCommand = False - Case "batchscript" - Shiftorium_InstallFeatures(True, "batchscript", 30, 100) - Console.BadCommand = False - Case Else - Console.BadCommand = False - NewLine("Shiftorium: Bad command or not available") - End Select - End Sub - - Public Sub Shiftorium_InstallFeatures(IsCLI As Boolean, Feature As String, FeatureRow As Integer, Codepoint As Integer) - Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2)) - Select Case Strings.AvailableFeature(FeatureRow) - Case "0" - If TempCP >= Codepoint Then - Dim success As Boolean = False - Select Case Feature - Case "man" - Strings.AvailableFeature(0) = "1" - Strings.AvailableFeature(19) = "0" - Strings.AvailableFeature(20) = "0" - success = True - Case "clear" - Strings.AvailableFeature(1) = "1" - Strings.AvailableFeature(2) = "0" - Strings.AvailableFeature(5) = "0" - Strings.AvailableFeature(9) = "0" - success = True - Case "print" - Strings.AvailableFeature(2) = "1" - Strings.AvailableFeature(3) = "0" - Strings.AvailableFeature(18) = "0" - Strings.AvailableFeature(21) = "0" - success = True - Case "termdspdrv" - Strings.AvailableFeature(3) = "1" - Strings.AvailableFeature(4) = "0" - Strings.AvailableFeature(8) = "0" - Strings.AvailableFeature(10) = "0" - success = True - Case "infobar" - Strings.AvailableFeature(4) = "1" - success = True - Case "stime" - Strings.AvailableFeature(5) = "1" - Strings.AvailableFeature(6) = "0" - success = True - Case "mtime" - Strings.AvailableFeature(5) = "3" - Strings.AvailableFeature(6) = "1" - Strings.AvailableFeature(7) = "0" - success = True - Case "htime" - Strings.AvailableFeature(6) = "3" - Strings.AvailableFeature(7) = "1" - Strings.AvailableFeature(12) = "0" - success = True - Case "shiftfetch" - Strings.AvailableFeature(8) = "1" - success = True - Case "bc" - Strings.AvailableFeature(9) = "1" - success = True - Case "2bitcolor" - Strings.AvailableFeature(10) = "1" - Strings.AvailableFeature(13) = "0" - success = True - Case "key" - Strings.AvailableFeature(11) = "1" - Strings.AvailableFeature(0) = "0" - Strings.AvailableFeature(1) = "0" - success = True - Case "pmam" - Strings.AvailableFeature(7) = "3" - Strings.AvailableFeature(12) = "1" - Strings.AvailableFeature(23) = "0" - success = True - Case "rgb" - Strings.AvailableFeature(13) = "1" - Strings.AvailableFeature(14) = "0" - success = True - Case "rgb2" - Strings.AvailableFeature(14) = "1" - Strings.AvailableFeature(15) = "0" - success = True - Case "4bitcolor" - Strings.AvailableFeature(15) = "1" - Strings.AvailableFeature(16) = "0" - success = True - Case "romdriver" - Strings.AvailableFeature(16) = "1" - Strings.AvailableFeature(17) = "0" - success = True - Case "textpad" - Strings.AvailableFeature(17) = "1" - Strings.AvailableFeature(30) = "0" - success = True - Case "shiftkey" - Strings.AvailableFeature(18) = "1" - success = True - Case "username" - Strings.AvailableFeature(19) = "1" - success = True - Case "hostname" - Strings.AvailableFeature(20) = "1" - success = True - Case "rev" - Strings.AvailableFeature(21) = "1" - Strings.AvailableFeature(22) = "0" - success = True - Case "cowsay" - Strings.AvailableFeature(22) = "1" - success = True - Case "hhmm" - Strings.AvailableFeature(12) = "3" - Strings.AvailableFeature(23) = "1" - Strings.AvailableFeature(24) = "0" - success = True - Case "date" - Strings.AvailableFeature(24) = "1" - Strings.AvailableFeature(25) = "0" - success = True - Case "woy" - Strings.AvailableFeature(24) = "3" - Strings.AvailableFeature(25) = "1" - Strings.AvailableFeature(26) = "0" - success = True - Case "moy" - Strings.AvailableFeature(25) = "3" - Strings.AvailableFeature(26) = "1" - Strings.AvailableFeature(27) = "0" - success = True - Case "year" - Strings.AvailableFeature(26) = "3" - Strings.AvailableFeature(27) = "1" - Strings.AvailableFeature(28) = "0" - success = True - Case "mmyyyy" - Strings.AvailableFeature(27) = "3" - Strings.AvailableFeature(28) = "1" - Strings.AvailableFeature(29) = "0" - success = True - Case "generaldate" - Strings.AvailableFeature(28) = "3" - Strings.AvailableFeature(29) = "1" - success = True - Case "batchscript" - Strings.AvailableFeature(30) = "1" - success = True - End Select - If success = False Then - If IsCLI = True Then - NewLine("Shiftorium: Invalid command or feature already installed") - End If - Else - Strings.ComputerInfo(4) = Strings.ComputerInfo(4) + 1 - TempCP = TempCP - Codepoint - Strings.ComputerInfo(2) = Convert.ToString(TempCP) - If IsCLI = True Then - NewLine("Feature has been install succesfully") - End If - End If - Else - If IsCLI = True Then - NewLine("Shiftorium: Insufficent Codepoint") - End If - End If - Case "1" - If IsCLI = True Then - NewLine("Shiftorium: Feature has already been installed") - End If - Case "2" - If IsCLI = True Then - NewLine("Shiftorium: Feature is not available") - End If - Case "3" - If IsCLI = True Then - NewLine("Shiftorium: Feature is already upgraded to a newer one") - End If - End Select - End Sub -End Module diff --git a/ShiftOS-TheRevival/MainForms/Strings.vb b/ShiftOS-TheRevival/MainForms/Strings.vb deleted file mode 100644 index 41dcbe9..0000000 --- a/ShiftOS-TheRevival/MainForms/Strings.vb +++ /dev/null @@ -1,116 +0,0 @@ -Public Class Strings - Public Shared OSInfo() As String - Public Shared ComputerInfo(6) As String - Public Shared IsFree As Boolean - Public Shared OnceInfo(8) As String - Public Shared AvailableFeature(30) As String - Public Shared CLIInterpreter As String - Public Shared SaveFile As String - Public Shared Achievement As String - - 'STRING CATEGORIZATION WRITING RULES! - 'THIS IS IN ORDER TO REMAIN COMPATIBLE WITH OLDER VERSIONS! - ' - 'General string : - '(Row Number) = Function/Subject (default value : default) - ' - 'Each have to placed in numerical order - 'If there's moved strings for newer version, example: - '0 = Computer Name (0.1) => OS Version (0.2) => Root Location (0.3), etc. - 'If there's removed strings for newer version, example: - '69 = Secret Easter Egg (removed in 0.420) - 'If there's repurposed strings for newer version after removed, example: - '5 = FreeRoam enabled? (removed in 0.4) => Story Mode State - ' - 'ALWAYS WRITE THE NOTES IN COMMENTS, THIS CLASS ONLY IS FOR STORING STRINGS AND DEPLOYING STRINGS TO DISK - - 'OSInfo Strings: - '0 = OSVersion (default : dependant) - ' - 'OnceInfo Strings: - '0 = IsRoot? (0.1) (default : No) - '1 = RootDirectory (0.2.3) (default : Environment.SpecialDirectories.ApplicationData & "\ShiftOS\ShiftFS\") - '2 = Infobar Boolean (0.2.3) (default : True) - '3 = Color for Terminal (0.2.3) (default : 0F) => moved to ComputerInfo(5) - '4 = RootDirectoryString (0.2.3) (default : !) - '5 = Terminal TrackPos (0.2.3) (default : 0) - '6 = GameMode (0.2.3) (dependant) - '7 = MaxWidth (0.2.4) (depentant) - '8 = MaxHeight (0.2.4) (depentant) - ' - 'ComputerInfo Strings: - '0 = Computer Name (0.1) (default : shiftos) - '1 = Username (0.1) (default : user) - '2 = Codepoint (0.2) (default : 0) - '3 = Story Chapter (0.2) (default : 0 for New Game) - '4 = Installed Packages (0.2.3) (default : 0 for New Game) - '5 = Color for Terminal (0.2.4) (default : 0F) - '6 = Color for Infobar (0.2.4) (default : F0) - ' - 'AvailableFeature (Default is defined on the Story Mode, Free Mode automatically assigns every available feature to 1, Unavailable in the Shiftorium assigned as 2, Upgraded assigned as 3) Strings: - '0 = MAN command [Manual on each command] (0.2) (default : 0) - '1 = CLEAR command [Clearing the screen] (0.2) (default : 0) - '2 = PRINT command [Printing a string] (0.2.2) (default : 0) - '3 = Terminal Display Driver [Dependencies for advanced terminal applications] (0.2.2) (default : 0) - '4 = Terminal InfoBar [A panel bar at the bottom of the terminal to show 'Time', 'User Session', 'Codepoint', 'Program running'] (0.2.2) (default : 0) - '5 = Time by Second [Showing time in seconds form since midnight] (0.2.2) (default : 0) - '6 = Time by Minutes [Showing time in minutes form since midnight] (0.2.2) (default : 0) - '7 = Time by Hours [Showing time in hours form since midnight] (0.2.2) (default : 0) - '8 = Shiftfetch [ShiftOS port of Neofetch, A command-line system information tool] (0.2.3) (default : 0) - '9 = bc [Basic Calculator for ShiftOS] (0.2.3) (default : 0) - '10 = 2-bit Color Display [Adds Dark Gray and Light Gray support to the Display Driver] (0.2.3) (default : 0) - '11 = ShiftOS Key [A key to unlock advanced features on ShiftOS] (0.2.3) (default : 0) - '12 = Time by PM and AM [Showing time in hours form since midnight] (0.2.3) (default : 0) - '13 = Red, Green, Blue [Adds Red, Green, and Blue support to the Display Driver] (0.2.3) (default : 0) - '14 = RGB Variant [Adds lighter or darker variant of Red, Green, and Blue] (0.2.3) (default : 0) - '15 = 4-bit Color Display [Adds to 16 colours support to the Display Driver] (0.2.3) (default : 0) - '16 = Terminal Read-Only Memory Driver [ShiftOS Read-Only Memory support for HDD, SSD, etc.] (0.2.4) (default : 0) - '17 = TextPad [Notepad] (0.2.4) (default : 0) - '18 = ShiftKey [DOSKey for ShiftOS] (0.2.4) (default : 0) - '19 = Custom Username [Custom username for ShiftOS] (0.2.4) (default : 0) - '20 = Custom Hostname [Custom hostname for ShiftOS] (0.2.4) (default : 0) - '21 = Reverse String [Reverse a text] (0.2.4) (default : 0) - '22 = Cowsay [Cowsay] (0.2.4) (default : 0) - '23 = Time by Hours and Minutes [Shows time in Hours and Minutes format] (0.2.5) (default : 0) - '24 = Date command [Shows date in days since first day of the year format] (0.2.5) (default : 0) - '25 = Date by week [Shows date in weeks since first week of the year format] (0.2.5) (default : 0) - '26 = Date by month [Shows date in months since first month of the year format] (0.2.5) (default : 0) - '27 = Date by year [Shows date in year format] (0.2.5) (default : 0) - '28 = Date by month and year [Shows date in MM/YYYY format] (0.2.5) (default : 0) - '29 = Date by general [Shows date in general DD/MM/YYYY format] (0.2.5) (default : 0) - '30 = Batch-file support for ShiftOS [Gives execution support for ShiftOS Script File (.scr)] (0.2.5) (default : 0) - ' - 'Features bought hierarchy : - 'ShiftOS Key (KEY) (5 CP) - '>ShiftOS Help Manual (MAN) (10 CP) - '>>Custom Username (USERNAME) (15 CP) - '>>Custom Hostname (HOSTNAME) (15 CP) - '>Terminal Clear (CLEAR) (20 CP) - '>>Terminal Print (PRINT) (25 CP) - '>>>Reverse String command (REV) (30 CP) - '>>>>Cowsay (50 CP) - '>>>>Fortune command (55 CP) - '>>>ShiftKey (ShOSKey) (45 CP) - '>>>Terminal Display Driver (TERMDSPDRV) (40 CP) - '>>>>Terminal InfoBar (INFOBAR) (50 CP) - '>>>>Shiftfetch (SHIFTFETCH) (55 CP) - '>>>>2-bit Color Display (2BITCOLOR) (60 CP) - '>>>>>Red, Green, Blue (rgb) (70 CP) - '>>>>>>RGB Variant (rgb2) (75 CP) - '>>>>>>>4-bit Color Display (4BITCOLOR) (80 CP) - '>>>>>>>>Terminal Read-Only Memory Driver (ROMDRIVER, DIR, MKDIR, RMDIR, CD, PWD) (90 CP) - '>>>>>>>>>TextPad (100 CP) - '>>>>>>>>>>ShiftOS Batch Script Support (BATCHSCRIPT) (100 CP) - '>>Basic Calculator (BC) (55 CP) - '>>Time by Seconds (TIME, STIME) (10 CP) - '>>>Time by Minutes (TIME, MTIME) (20 CP) - '>>>>Time by Hours (Time, HTIME) (30 CP) - '>>>>>PM and AM (Time, PMAM (40 CP)) - '>>>>>>Time by Hours and Minutes (Time, HHMM (50 CP)) - '>>>>>>>Date command (DATE (70 CP)) - '>>>>>>>>Date by week (DATE, WOY (75 CP)) - '>>>>>>>>>Date by month (DATE, MOY (80 CP)) - '>>>>>>>>>>Date by year (DATE, YEAR (85 CP)) - '>>>>>>>>>>>Date by month and year (DATE, MMYYYY (90 CP)) - '>>>>>>>>>>>>Date by general (DATE, GENERALDATE (95 CP)) -End Class diff --git a/ShiftOS-TheRevival/MainForms/TerminalAPI.vb b/ShiftOS-TheRevival/MainForms/TerminalAPI.vb deleted file mode 100644 index 715e075..0000000 --- a/ShiftOS-TheRevival/MainForms/TerminalAPI.vb +++ /dev/null @@ -1,70 +0,0 @@ -Module TerminalAPI - Public command As String - Public AdvancedCommand As Boolean - Public RawCommand As String - - Public Sub Terminal_ReadCommand() - command = Console.TextBox1.Lines(Console.TextBox1.Lines.Length - 1) - If Console.DefaultPrompt = Nothing Then - Else - command = command.Replace(Console.DefaultPrompt, "") - End If - RawCommand = command - command = command.ToLower() - End Sub - - Public Sub Terminal_PrintPrompt() - If Console.TextBox1.Text = Nothing Then - If Console.ChangeInterpreter = True Then - NewLine(Console.DefaultPrompt) - Else - If Strings.OnceInfo(0) = "Yes" Then - ResetLine("root@" & Strings.ComputerInfo(0) & " #> ") - Else - ResetLine(Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> ") - End If - End If - Else - If Console.ChangeInterpreter = True Then - NewLine(Console.DefaultPrompt) - Else - If Strings.OnceInfo(0) = "Yes" Then - NewLine("root@" & Strings.ComputerInfo(0) & " #> ") - Else - NewLine(Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> ") - End If - End If - End If - End Sub - - Public Sub Terminal_AssignPrompt() - If Console.ChangeInterpreter = False Then - If Strings.OnceInfo(0) = "Yes" Then - Console.DefaultPrompt = "root@" & Strings.ComputerInfo(0) & " #> " - Else - Console.DefaultPrompt = Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> " - End If - End If - End Sub - - Public Sub Terminal_RunTerminalFile(filename As String) - Dim sr As System.IO.StreamReader - If My.Computer.FileSystem.FileExists(Console.CurrentDirectory & "\" & filename) Then - Dim fileext As New IO.FileInfo(Console.CurrentDirectory & "\" & filename) - If fileext.Extension = ".scr" Then - sr = My.Computer.FileSystem.OpenTextFileReader(Console.CurrentDirectory & "\" & filename) - Dim linenum As Integer = IO.File.ReadAllLines(Console.CurrentDirectory & "\" & filename).Length - Dim i As Integer = 1 - While i <= linenum - command = sr.ReadLine() - Console.DoCommand() - NewLine(Nothing) - i = i + 1 - End While - sr.Close() - Else - - End If - End If - End Sub -End Module diff --git a/ShiftOS-TheRevival/MainForms/TerminalColorSystem.vb b/ShiftOS-TheRevival/MainForms/TerminalColorSystem.vb deleted file mode 100644 index 9042910..0000000 --- a/ShiftOS-TheRevival/MainForms/TerminalColorSystem.vb +++ /dev/null @@ -1,212 +0,0 @@ -Module TerminalColorSystem - 'GUIDE to COLORS in TERMINAL - 'Using the same Hexadecimal numbering as what Command Prompt used to: - '0 = Black 8 = Gray - '1 = Blue 9 = Light Blue - '2 = Green A = Light Green - '3 = Aqua B = Light Aqua - '4 = Red C = Light Red - '5 = Purple D = Light Purple - '6 = Yellow E = Yellow - '7 = Dark Gray F = White - Public BgColor As Color - Public FgColor As Color - - Public Sub DisplayColors() - NewLine("TERMINAL SUPPORTED COLORS") - NewLine(Nothing) - NewLine(Nothing) - If Strings.AvailableFeature(10) = "1" Then - NewLine("0 = Black 8 = Gray") - Else - NewLine("0 = Black 8 = ???") - End If - If Strings.AvailableFeature(14) = "1" Then - NewLine("1 = Blue 9 = Light Blue") - NewLine("2 = Green A = Light Green") - Else - If Strings.AvailableFeature(13) = "1" Then - NewLine("1 = ??? 9 = Light Blue") - NewLine("2 = Green A = ???") - Else - NewLine("1 = ??? 9 = ???") - NewLine("2 = ??? A = ???") - End If - End If - If Strings.AvailableFeature(15) = "1" Then - NewLine("3 = Aqua B = Light Aqua") - Else - NewLine("3 = ??? B = ???") - End If - If Strings.AvailableFeature(14) = "1" Then - NewLine("4 = Red C = Light Red") - ElseIf Strings.AvailableFeature(13) = "1" Then - NewLine("4 = ??? C = Light Red") - Else - NewLine("4 = ??? C = ???") - End If - If Strings.AvailableFeature(15) = "1" Then - NewLine("5 = Purple D = Light Purple") - NewLine("6 = Yellow E = Yellow") - Else - NewLine("5 = ??? D = ???") - NewLine("6 = ??? E = ???") - End If - If Strings.AvailableFeature(10) = "1" Then - NewLine("7 = Dark Gray F = White") - Else - NewLine("7 = ??? F = White") - End If - End Sub - - Public Sub GetColor(App As String, Bg As String, Fg As String) - Select Case App - Case "terminal" - BgColor = Color.Black - FgColor = Color.White - Case "infobar" - BgColor = Color.White - FgColor = Color.Black - End Select - If Bg = Fg Then - NewLine("Background and Foreground Color cannot be same!") - Else - If Strings.AvailableFeature(10) = "1" Then - Select Case Bg - Case "0" - BgColor = Color.Black - Case "7" - BgColor = Color.Silver - Case "8" - BgColor = Color.Gray - Case "f" - BgColor = Color.White - Case "2", "9", "c" - If Strings.AvailableFeature(13) = "1" Then - Select Case Bg - Case "2" - BgColor = Color.Green - Case "9" - BgColor = Color.Blue - Case "c" - BgColor = Color.Red - End Select - Else - NewLine("One or two colors you selected is not available.") - End If - Case "1", "4", "a" - If Strings.AvailableFeature(14) = "1" Then - Select Case Bg - Case "1" - BgColor = Color.Navy - Case "4" - BgColor = Color.Maroon - Case "a" - BgColor = Color.Lime - End Select - Else - NewLine("One or two colors you selected is not available.") - End If - Case "3", "5", "6", "b", "d", "e" - If Strings.AvailableFeature(15) = "1" Then - Select Case Bg - Case "3" - BgColor = Color.Cyan - Case "5" - BgColor = Color.Magenta - Case "6" - BgColor = Color.Brown - Case "b" - BgColor = Color.Aqua - Case "d" - BgColor = Color.Fuchsia - Case "e" - BgColor = Color.Yellow - End Select - Else - NewLine("One or two colors you selected is not available.") - End If - Case Else - BgColor = Color.Black - End Select - Select Case Fg - Case "0" - FgColor = Color.Black - Case "7" - FgColor = Color.Silver - Case "8" - FgColor = Color.Gray - Case "f" - FgColor = Color.White - Case "2", "9", "c" - If Strings.AvailableFeature(13) = "1" Then - Select Case Fg - Case "2" - FgColor = Color.Green - Case "9" - FgColor = Color.Blue - Case "c" - FgColor = Color.Red - End Select - Else - NewLine("One or two colors you selected is not available.") - End If - Case "1", "4", "a" - If Strings.AvailableFeature(14) = "1" Then - Select Case Fg - Case "1" - FgColor = Color.Navy - Case "4" - FgColor = Color.Maroon - Case "a" - FgColor = Color.Lime - End Select - Else - NewLine("One or two colors you selected is not available.") - End If - Case "3", "5", "6", "b", "d", "e" - If Strings.AvailableFeature(15) = "1" Then - Select Case Fg - Case "3" - FgColor = Color.Cyan - Case "5" - FgColor = Color.Magenta - Case "6" - FgColor = Color.Brown - Case "b" - FgColor = Color.Aqua - Case "d" - FgColor = Color.Fuchsia - Case "e" - FgColor = Color.Yellow - End Select - Else - NewLine("One or two colors you selected is not available.") - End If - Case Else - FgColor = Color.White - End Select - Else - NewLine("Color is not supported for 1-bit Color Display") - Select Case App - Case "terminal" - BgColor = Color.Black - FgColor = Color.White - Case "infobar" - BgColor = Color.White - FgColor = Color.Black - End Select - End If - End If - Select Case App - Case "infobar" - Console.InfoBar.BackColor = BgColor - Console.InfoBar.ForeColor = FgColor - Strings.ComputerInfo(6) = Bg & Fg - Case "terminal" - Console.TextBox1.BackColor = BgColor - Console.TextBox1.ForeColor = FgColor - Strings.ComputerInfo(5) = Bg & Fg - End Select - End Sub -End Module diff --git a/ShiftOS-TheRevival/MainForms/TerminalExternalApps.vb b/ShiftOS-TheRevival/MainForms/TerminalExternalApps.vb deleted file mode 100644 index 20188ed..0000000 --- a/ShiftOS-TheRevival/MainForms/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/MainForms/TerminalInternalApps.vb b/ShiftOS-TheRevival/MainForms/TerminalInternalApps.vb deleted file mode 100644 index 8b544a0..0000000 --- a/ShiftOS-TheRevival/MainForms/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!. 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 diff --git a/ShiftOS-TheRevival/MainForms/TheUpdater.vb b/ShiftOS-TheRevival/MainForms/TheUpdater.vb deleted file mode 100644 index ca1f7d9..0000000 --- a/ShiftOS-TheRevival/MainForms/TheUpdater.vb +++ /dev/null @@ -1,117 +0,0 @@ -Imports System.IO - -Module TheUpdater - - Public WhatVersion As String - Public Sub UpdateToNew() - Dim AvailableFeatureHere As String() = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos") - Dim ComputerInfoHere As String() = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\ComputerInfo.sos") - Select Case WhatVersion - Case "0.2.3" - Strings.AvailableFeature(0) = AvailableFeatureHere(0) - Strings.AvailableFeature(1) = AvailableFeatureHere(1) - Strings.AvailableFeature(2) = AvailableFeatureHere(2) - Strings.AvailableFeature(3) = AvailableFeatureHere(3) - Strings.AvailableFeature(4) = AvailableFeatureHere(4) - Strings.AvailableFeature(5) = AvailableFeatureHere(5) - Strings.AvailableFeature(6) = AvailableFeatureHere(6) - Strings.AvailableFeature(7) = AvailableFeatureHere(7) - Strings.AvailableFeature(8) = AvailableFeatureHere(8) - Strings.AvailableFeature(9) = AvailableFeatureHere(9) - Strings.AvailableFeature(10) = AvailableFeatureHere(10) - Strings.AvailableFeature(11) = AvailableFeatureHere(11) - Strings.AvailableFeature(12) = AvailableFeatureHere(12) - Strings.AvailableFeature(13) = AvailableFeatureHere(13) - Strings.AvailableFeature(14) = AvailableFeatureHere(14) - Strings.AvailableFeature(15) = AvailableFeatureHere(15) - Strings.AvailableFeature(16) = "0" - Strings.AvailableFeature(17) = "0" - Strings.AvailableFeature(18) = "0" - Strings.AvailableFeature(19) = "0" - Strings.AvailableFeature(20) = "0" - Strings.AvailableFeature(21) = "0" - Strings.AvailableFeature(22) = "0" - If Strings.AvailableFeature(15) = 1 Then - Strings.AvailableFeature(16) = "0" - Else - Strings.AvailableFeature(16) = "2" - End If - Strings.AvailableFeature(17) = "2" - If Strings.AvailableFeature(2) = 1 Then - Strings.AvailableFeature(18) = "0" - Strings.AvailableFeature(21) = "0" - Else - Strings.AvailableFeature(18) = "2" - Strings.AvailableFeature(21) = "2" - End If - If Strings.AvailableFeature(0) = 1 Then - Strings.AvailableFeature(19) = "0" - Strings.AvailableFeature(20) = "0" - Else - Strings.AvailableFeature(19) = "2" - Strings.AvailableFeature(20) = "2" - End If - Strings.AvailableFeature(22) = "2" - Strings.ComputerInfo(0) = ComputerInfoHere(0) - Strings.ComputerInfo(1) = ComputerInfoHere(1) - Strings.ComputerInfo(2) = ComputerInfoHere(2) - Strings.ComputerInfo(3) = ComputerInfoHere(3) - Strings.ComputerInfo(4) = ComputerInfoHere(4) - Strings.ComputerInfo(5) = "0F" - Strings.ComputerInfo(6) = "F0" - ShiftOSUpdater.Button2.Text = "Updated!" - Case "0.2.4" - Strings.AvailableFeature(0) = AvailableFeatureHere(0) - Strings.AvailableFeature(1) = AvailableFeatureHere(1) - Strings.AvailableFeature(2) = AvailableFeatureHere(2) - Strings.AvailableFeature(3) = AvailableFeatureHere(3) - Strings.AvailableFeature(4) = AvailableFeatureHere(4) - Strings.AvailableFeature(5) = AvailableFeatureHere(5) - Strings.AvailableFeature(6) = AvailableFeatureHere(6) - Strings.AvailableFeature(7) = AvailableFeatureHere(7) - Strings.AvailableFeature(8) = AvailableFeatureHere(8) - Strings.AvailableFeature(9) = AvailableFeatureHere(9) - Strings.AvailableFeature(10) = AvailableFeatureHere(10) - Strings.AvailableFeature(11) = AvailableFeatureHere(11) - Strings.AvailableFeature(12) = AvailableFeatureHere(12) - Strings.AvailableFeature(13) = AvailableFeatureHere(13) - Strings.AvailableFeature(14) = AvailableFeatureHere(14) - Strings.AvailableFeature(15) = AvailableFeatureHere(15) - Strings.AvailableFeature(16) = AvailableFeatureHere(16) - Strings.AvailableFeature(17) = AvailableFeatureHere(17) - Strings.AvailableFeature(18) = AvailableFeatureHere(18) - Strings.AvailableFeature(19) = AvailableFeatureHere(19) - Strings.AvailableFeature(20) = AvailableFeatureHere(20) - Strings.AvailableFeature(21) = AvailableFeatureHere(21) - Strings.AvailableFeature(22) = AvailableFeatureHere(22) - If Strings.AvailableFeature(12) = "1" Then - Strings.AvailableFeature(23) = "0" - Else - Strings.AvailableFeature(23) = "2" - End If - Strings.AvailableFeature(24) = "2" - Strings.AvailableFeature(25) = "2" - Strings.AvailableFeature(26) = "2" - Strings.AvailableFeature(27) = "2" - Strings.AvailableFeature(28) = "2" - Strings.AvailableFeature(29) = "2" - If Strings.AvailableFeature(17) = 1 Then - Strings.AvailableFeature(30) = "0" - Else - Strings.AvailableFeature(30) = "2" - End If - Strings.ComputerInfo(0) = ComputerInfoHere(0) - Strings.ComputerInfo(1) = ComputerInfoHere(1) - Strings.ComputerInfo(2) = ComputerInfoHere(2) - Strings.ComputerInfo(3) = ComputerInfoHere(3) - Strings.ComputerInfo(4) = ComputerInfoHere(4) - Strings.ComputerInfo(5) = "0F" - Strings.ComputerInfo(6) = "F0" - ShiftOSUpdater.Button2.Text = "Updated!" - End Select - File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt", My.Resources.CurrentVersion) - File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos", Strings.AvailableFeature) - File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\ComputerInfo.sos", Strings.ComputerInfo) - ShiftOSMenu.ShouldUpdate = False - End Sub -End Module
\ No newline at end of file |