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

Changed from Environment.NewLine to dedicated NewLine module thoroughly, Fixing a bug on always asks for update, Slowly migrating from full Terminal-dependant to Console-based

Browse source
This commit is contained in:
EverythingWindows 2022-11-13 15:15:05 +07:00
parent 6f1a5bfa56
commit 54355f9686
22 changed files with 976 additions and 612 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ShiftOS-TheRevival/MainForms/Terminal.Designer.vb → ShiftOS-TheRevival/MainForms/Console.Designer.vb generated
View file

@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Terminal Partial Class Console
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list. 'Form overrides dispose to clean up the component list.
@ -40,6 +40,7 @@ Partial Class Terminal
Me.TextBox1.Location = New System.Drawing.Point(0, 36) Me.TextBox1.Location = New System.Drawing.Point(0, 36)
Me.TextBox1.Multiline = True Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1" Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ShortcutsEnabled = False
Me.TextBox1.Size = New System.Drawing.Size(800, 396) Me.TextBox1.Size = New System.Drawing.Size(800, 396)
Me.TextBox1.TabIndex = 0 Me.TextBox1.TabIndex = 0
' '
@ -76,7 +77,7 @@ Partial Class Terminal
Me.ToolBar.TabIndex = 1 Me.ToolBar.TabIndex = 1
Me.ToolBar.Visible = False Me.ToolBar.Visible = False
' '
'Terminal 'Console
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@ -86,7 +87,8 @@ Partial Class Terminal
Me.Controls.Add(Me.InfoBar) Me.Controls.Add(Me.InfoBar)
Me.Controls.Add(Me.ToolBar) Me.Controls.Add(Me.ToolBar)
Me.ForeColor = System.Drawing.Color.White Me.ForeColor = System.Drawing.Color.White
Me.Name = "Terminal" Me.Name = "Console"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Terminal" Me.Text = "Terminal"
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()

0
ShiftOS-TheRevival/MainForms/Terminal.resx → ShiftOS-TheRevival/MainForms/Console.resx
View file

384
ShiftOS-TheRevival/MainForms/Terminal.vb → ShiftOS-TheRevival/MainForms/Console.vb
View file

@ -1,11 +1,8 @@
Imports System.IO Imports System.IO
Public Class Terminal Public Class Console
Public TrackPos As Integer Public TrackPos As Integer
Public RawCommand As String
Public command As String
Public DefaultPrompt As String Public DefaultPrompt As String
Public AdvancedCommand As Boolean
Public BadCommand As Boolean Public BadCommand As Boolean
Public DisplayStory As Integer Public DisplayStory As Integer
Public StoryToTell As String Public StoryToTell As String
@ -18,7 +15,7 @@ Public Class Terminal
Public ReleaseCursor As Boolean = False Public ReleaseCursor As Boolean = False
Public ShOSKey As String Public ShOSKey As String
Private Sub Terminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Console_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FormBorderStyle = FormBorderStyle.None FormBorderStyle = FormBorderStyle.None
WindowState = FormWindowState.Maximized WindowState = FormWindowState.Maximized
Cursor.Hide() Cursor.Hide()
@ -34,14 +31,14 @@ Public Class Terminal
Strings.ComputerInfo(0) = "shiftos" Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(1) = "user"
CheckFeature() CheckFeature()
PrintPrompt() Terminal_PrintPrompt()
AssignPrompt() Terminal_AssignPrompt()
Else Else
If StayAtChapter = True Then If StayAtChapter = True Then
LoadGame() LoadGame()
CheckFeature() CheckFeature()
PrintPrompt() Terminal_PrintPrompt()
AssignPrompt() Terminal_AssignPrompt()
Else Else
If Strings.ComputerInfo(3) = "0" Then If Strings.ComputerInfo(3) = "0" Then
TextBox1.ReadOnly = True TextBox1.ReadOnly = True
@ -50,15 +47,14 @@ Public Class Terminal
Else Else
LoadGame() LoadGame()
CheckFeature() CheckFeature()
PrintPrompt() Terminal_PrintPrompt()
AssignPrompt() Terminal_AssignPrompt()
End If End If
End If End If
End If End If
CurrentDirectory = Strings.OnceInfo(1) CurrentDirectory = Strings.OnceInfo(1)
Pseudodir = CurrentDirectory.Replace(Strings.OnceInfo(1), "!\") Pseudodir = CurrentDirectory.Replace(Strings.OnceInfo(1), "!\")
TextBox1.Select(TextBox1.TextLength, 0) TextRebind()
TextBox1.ScrollToCaret()
End Sub End Sub
Public Sub CheckFeature() Public Sub CheckFeature()
@ -101,52 +97,8 @@ Public Class Terminal
End If End If
End Sub End Sub
Public Sub PrintPrompt()
If TextBox1.Text = Nothing Then
If ChangeInterpreter = True Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & DefaultPrompt
Else
If Strings.OnceInfo(0) = "Yes" Then
TextBox1.Text = "root@" & Strings.ComputerInfo(0) & " #> "
Else
TextBox1.Text = Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> "
End If
End If
Else
If ChangeInterpreter = True Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & DefaultPrompt
Else
If Strings.OnceInfo(0) = "Yes" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "root@" & Strings.ComputerInfo(0) & " #> "
Else
TextBox1.Text = TextBox1.Text & Environment.NewLine & Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> "
End If
End If
End If
End Sub
Public Sub AssignPrompt()
If ChangeInterpreter = False Then
If Strings.OnceInfo(0) = "Yes" Then
DefaultPrompt = "root@" & Strings.ComputerInfo(0) & " #> "
Else
DefaultPrompt = Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0) & " $> "
End If
End If
End Sub
Private Sub Undeveloped() Private Sub Undeveloped()
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Oopsie! It's only for newer version" NewLine("Oopsie! It's only for newer version")
End Sub
Private Sub ReadCommand()
command = TextBox1.Lines(TextBox1.Lines.Length - 1)
If DefaultPrompt = Nothing Then
Else
command = command.Replace(DefaultPrompt, "")
End If
RawCommand = command
command = command.ToLower()
End Sub End Sub
Private Sub DoCommand() Private Sub DoCommand()
@ -156,6 +108,11 @@ Public Class Terminal
Case "" Case ""
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
Case "05tray"
Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
TempCP = TempCP + 50
Strings.ComputerInfo(2) = Convert.ToString(TempCP)
NewLine("you cheater!")
Case "bc" Case "bc"
If Strings.AvailableFeature(9) = "1" Then If Strings.AvailableFeature(9) = "1" Then
ChangeInterpreter = True ChangeInterpreter = True
@ -170,7 +127,7 @@ Public Class Terminal
BadCommand = False BadCommand = False
End If End If
Case "codepoint" Case "codepoint"
TextBox1.Text = TextBox1.Text & Environment.NewLine & Strings.ComputerInfo(2) & " Codepoint(s) available in your wallet" NewLine(Strings.ComputerInfo(2) & " Codepoint(s) available in your wallet")
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
Case "colors" Case "colors"
@ -189,9 +146,9 @@ Public Class Terminal
Else Else
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Exitting root mode..." NewLine("Exitting root mode...")
Strings.OnceInfo(0) = "No" Strings.OnceInfo(0) = "No"
AssignPrompt() Terminal_AssignPrompt()
End If End If
Case "guess" Case "guess"
ChangeInterpreter = True ChangeInterpreter = True
@ -199,102 +156,99 @@ Public Class Terminal
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
'Undeveloped() 'Undeveloped()
Case "gimme"
Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
TempCP = TempCP + 50
Strings.ComputerInfo(2) = Convert.ToString(TempCP)
TextBox1.Text = TextBox1.Text & Environment.NewLine & "you cheater!"
Case "help" Case "help"
TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual" & Environment.NewLine & Environment.NewLine & "You can type 'help' to get all available commands and its corresponding action." 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 If Strings.AvailableFeature(0) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "To get help on each command, you can type 'man [command]'" & Environment.NewLine NewLine("To get help on each command, you can type 'man [command]'")
NewLine(Nothing)
Else Else
TextBox1.Text = TextBox1.Text & Environment.NewLine NewLine(Nothing)
End If End If
If Strings.AvailableFeature(9) = 1 Then If Strings.AvailableFeature(9) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "BC Basic Calculator for simple calculation" NewLine("BC Basic Calculator for simple calculation")
End If End If
If Strings.AvailableFeature(16) = 1 Then If Strings.AvailableFeature(16) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "CD Changes directory to a selected one" NewLine("CD Changes directory to a selected one")
End If End If
If Strings.AvailableFeature(1) = 1 Then If Strings.AvailableFeature(1) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "CLEAR Clear the terminal" NewLine("CLEAR Clear the terminal")
End If End If
TextBox1.Text = TextBox1.Text & Environment.NewLine & "CODEPOINT Display Codepoint(s) from your wallet" NewLine("CODEPOINT Display Codepoint(s) from your wallet")
TextBox1.Text = TextBox1.Text & Environment.NewLine & "COLOR Changes Terminal Text and Background color to the corresponding choice" NewLine("COLOR Changes Terminal Text And Background color To the corresponding choice")
TextBox1.Text = TextBox1.Text & Environment.NewLine & "COLORS Shows available colors support for the terminal" NewLine("COLORS Shows available colors support For the terminal")
If Strings.AvailableFeature(22) = 1 Then If Strings.AvailableFeature(22) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "COWSAY Spawn a cow and saying anything you want" NewLine("COWSAY Spawn a cow And saying anything you want")
End If End If
If Strings.AvailableFeature(16) = 1 Then If Strings.AvailableFeature(16) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "DEL Delete a selected file from the directory" NewLine("DEL Delete a selected file from the directory")
TextBox1.Text = TextBox1.Text & Environment.NewLine & "DIR Displays subdirectories and files in a directory" NewLine("DIR Displays subdirectories And files In a directory")
End If End If
TextBox1.Text = TextBox1.Text & Environment.NewLine & "GUESS Runs 'Guess the Number' application" NewLine("GUESS Runs 'Guess the Number' application")
TextBox1.Text = TextBox1.Text & Environment.NewLine & "HELP Shows all commands available and its corresponding action" NewLine("HELP Shows all commands available and its corresponding action")
If Strings.AvailableFeature(20) = 1 Then If Strings.AvailableFeature(20) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "HOSTNAME Sets the name of current hostname/computer name with a new one" NewLine("HOSTNAME Sets the name of current hostname/computer name with a new one")
End If End If
If Strings.AvailableFeature(4) = 1 Then If Strings.AvailableFeature(4) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "INFOBAR Displays informations about current session such as current app, current user, current time, etc." NewLine("INFOBAR Displays informations about current session such as current app, current user, current time, etc.")
End If End If
If Strings.AvailableFeature(0) = 1 Then If Strings.AvailableFeature(0) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN Shows a command, its corresponding action, and its example usage" NewLine("MAN Shows a command, its corresponding action, and its example usage")
End If End If
If Strings.AvailableFeature(16) = 1 Then If Strings.AvailableFeature(16) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "MKDIR Creating a directory" NewLine("MKDIR Creating a directory")
End If End If
If Strings.AvailableFeature(16) = 1 Then If Strings.AvailableFeature(16) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "PWD Display current directory navigated on ShiftOS" NewLine("PWD Display current directory navigated on ShiftOS")
End If End If
If Strings.AvailableFeature(2) = 1 Then If Strings.AvailableFeature(2) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "PRINT Prints a corresponding text entered in the command" NewLine("PRINT Prints a corresponding text entered in the command")
End If End If
TextBox1.Text = TextBox1.Text & Environment.NewLine & "REBOOT Terminate and re-run ShiftOS session" NewLine("REBOOT Terminate and re-run ShiftOS session")
If Strings.AvailableFeature(21) = 1 Then If Strings.AvailableFeature(21) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "REV Turn any sentences you want and making it reversed" NewLine("REV Turn any sentences you want and making it reversed")
End If End If
If Strings.AvailableFeature(16) = 1 Then If Strings.AvailableFeature(16) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "RMDIR Deleting a directory" NewLine("RMDIR Deleting a directory")
End If End If
If Strings.AvailableFeature(8) = 1 Then If Strings.AvailableFeature(8) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHIFTFETCH Shows informations about your computer" NewLine("SHIFTFETCH Shows informations about your computer")
End If End If
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHIFTORIUM A software center for upgrading features on ShiftOS" NewLine("SHIFTORIUM A software center for upgrading features on ShiftOS")
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHUTDOWN Terminate ShiftOS session" NewLine("SHUTDOWN Terminate ShiftOS session")
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SU Runs terminal as super user" NewLine("SU Runs terminal as super user")
If Strings.AvailableFeature(17) = 1 Then If Strings.AvailableFeature(17) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "TEXTPAD Simple text-editor for ShiftOS" NewLine("TEXTPAD Simple text-editor for ShiftOS")
End If End If
If Strings.AvailableFeature(5) = 1 Then If Strings.AvailableFeature(5) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "TIME Display the current time in the form of seconds since midnight" NewLine("TIME Display the current time in the form of seconds since midnight")
ElseIf Strings.AvailableFeature(5) = 3 Then ElseIf Strings.AvailableFeature(5) = 3 Then
If Strings.AvailableFeature(6) = 1 Then If Strings.AvailableFeature(6) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "TIME Display the current time in the form of minutes since midnight" NewLine("TIME Display the current time in the form of minutes since midnight")
ElseIf Strings.AvailableFeature(6) = 3 Then ElseIf Strings.AvailableFeature(6) = 3 Then
If Strings.AvailableFeature(7) = 1 Then If Strings.AvailableFeature(7) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "TIME Display the current time in the form of hours since midnight" NewLine("TIME Display the current time in the form of hours since midnight")
ElseIf Strings.AvailableFeature(7) = 3 Then ElseIf Strings.AvailableFeature(7) = 3 Then
If Strings.AvailableFeature(12) = 1 Then If Strings.AvailableFeature(12) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "TIME Display the current time in the form of PM and AM format" NewLine("TIME Display the current time in the form of PM and AM format")
End If End If
End If End If
End If End If
End If End If
If Strings.AvailableFeature(20) = 1 Then If Strings.AvailableFeature(20) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "USERNAME Sets the name of current user with a new one" NewLine("USERNAME Sets the name of current user with a new one")
End If End If
TextBox1.Text = TextBox1.Text & Environment.NewLine & "VER Printing current version of ShiftOS TheRevival" NewLine("VER Printing current version of ShiftOS TheRevival")
TextBox1.Text = TextBox1.Text & Environment.NewLine
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
Case "infobar" Case "infobar"
If Strings.AvailableFeature(4) = 1 Then If Strings.AvailableFeature(4) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & My.Resources.man_infobar NewLine(My.Resources.man_infobar)
End If End If
Case "pwd" Case "pwd"
If Strings.AvailableFeature(16) = 1 Then If Strings.AvailableFeature(16) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & CurrentDirectory.Replace(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", "!") NewLine(CurrentDirectory.Replace(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", "!"))
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
End If End If
@ -302,41 +256,42 @@ Public Class Terminal
TextBox1.Text = Nothing TextBox1.Text = Nothing
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
SaveGame()
InitializeTerminal() InitializeTerminal()
Case "shiftorium" Case "shiftorium"
TextBox1.Text = TextBox1.Text & Environment.NewLine & My.Resources.man_shiftorium NewLine(My.Resources.man_shiftorium)
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
Case "shiftfetch" Case "shiftfetch"
If Strings.AvailableFeature(8) = "1" Then If Strings.AvailableFeature(8) = "1" Then
If Strings.OnceInfo(0) = "Yes" Then If Strings.OnceInfo(0) = "Yes" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & Environment.NewLine & " :^!7?JJJJJ?7!^: root@shiftos" NewLine(" :^!7?JJJJJ?7!^: root@shiftos")
Else Else
TextBox1.Text = TextBox1.Text & Environment.NewLine & Environment.NewLine & " :^!7?JJJJJ?7!^: user@shiftos" NewLine(" :^!7?JJJJJ?7!^: " & Strings.ComputerInfo(1) & "@" & Strings.ComputerInfo(0))
End If End If
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .~?PB###BGP555PGB###BP?~. ----------------------" NewLine(" .~?PB###BGP555PGB###BP?~. ----------------------")
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .!P#&B57^..::^~~!!~^::~7YG&#5!. OS: ShiftOS TheRevival" NewLine(" .!P#&B57^..:: ^~~!!~^::~7YG&#5!. OS: ShiftOS TheRevival")
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .?#@G7: .^ :^::!5&#?. Host: " & Environment.MachineName NewLine(" .?#@G7: .^ :^::!5&#?. Host: " & Environment.MachineName)
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .?#@5^ ! .^!!..J&#? Kernel: " & My.Resources.CurrentVersion NewLine(" .?#@5^ ! .^!!..J&#? Kernel: " & My.Resources.CurrentVersion)
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ^B@G^ .J :7?..J@G: Uptime: N/A" NewLine(" B@G^ .J : 7?..J@G: Uptime : N/ A")
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ~&@Y 7 ~PB&#Y:. ~G7 ~&&^ Packages: " & Strings.ComputerInfo(4) NewLine(" ~&@Y 7 ~PB&#Y:. ~G7 ~&&^ Packages: " & Strings.ComputerInfo(4))
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ^&@Y Y 5#5??YB@&B~ .GJ :&&: Shell: sos-justshell" NewLine(" ^&@Y Y 5#5??YB@&B~ .GJ :&&: Shell: sos-justshell")
TextBox1.Text = TextBox1.Text & Environment.NewLine & " G@B ? 5P ^YB! .#! ~@G Window Manager: -" NewLine(" G@B ? 5P ^YB! .#! ~@G Window Manager: -")
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ^@@! : @Y .:::^~:. 7# Y@^ Window Manager Theme: -" NewLine(" ^@@! : @Y .:::^~:. 7# Y@^ Window Manager Theme: -")
TextBox1.Text = TextBox1.Text & Environment.NewLine & " 7@@: ! B@&BBBBGPPB@#Y. :&^ ^@? Terminal: shiftos-terminal" NewLine(" 7@@: ! B@&BBBBGPPB@#Y. :&^ ^@? Terminal: shiftos-terminal")
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ?@@: 7 :??7~:. 5@@5 :&^ .&? Terminal Font: Consolas, 11pt" NewLine(" ?@@: 7 :??7~:. 5@@5 :&^ .&? Terminal Font: Consolas, 11pt")
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ~@@! !@ G#&B!. Y@@B 7#. Y~ CPU: " & My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing) NewLine(" ~@@! !@ G#&B!. Y@@B 7#. Y~ CPU: " & My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing))
TextBox1.Text = TextBox1.Text & Environment.NewLine & " B@G B@J ...~&G. 7@@@? .#? 7 GPU: N/A" NewLine(" B@G B@J ...~&G. 7@@@? .#? 7 GPU: N/A")
Dim TripleDigitRAM As String Dim TripleDigitRAM As String
TripleDigitRAM = (My.Computer.Info.TotalPhysicalMemory / 1024 / 1024 / 1024) TripleDigitRAM = (My.Computer.Info.TotalPhysicalMemory / 1024 / 1024 / 1024)
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ~&@? ^@Y !G#57~~!YB@#Y^ .GP .. Memory: " & TripleDigitRAM.Substring(0, 4) & " GB" NewLine(" ~&@? ^@Y !G#57~~!YB@#Y^ .GP .. Memory: " & TripleDigitRAM.Substring(0, 4) & " GB")
TextBox1.Text = TextBox1.Text & Environment.NewLine & " !@@7 ~#J 5#&&BG57^ ~BY Codepoint: " & Strings.ComputerInfo(2) NewLine(" !@@7 ~#J 5#&&BG57^ ~BY Codepoint: " & Strings.ComputerInfo(2))
TextBox1.Text = TextBox1.Text & Environment.NewLine & " ~#@Y .5P~ ^5G~ " NewLine(" ~#@Y .5P~ ^5G~ ")
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .J&#! ^JY!:. ^?P5! " NewLine(" .J&#! ^JY!:. ^?P5! ")
TextBox1.Text = TextBox1.Text & Environment.NewLine & " :J&B?..!JYY7!~::...::~!7Y5Y7: " NewLine(" :J&B?..!JYY7!~::...::~!7Y5Y7: ")
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .7PBP?^::~!?JJJJJJJ?7~: " NewLine(" .7PBP?^::~!?JJJJJJJ?7~: ")
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .~?55Y?!^:... " NewLine(" .~?55Y?!^:... ")
TextBox1.Text = TextBox1.Text & Environment.NewLine & " .:~~^~^^::. " NewLine(" .:~~^~^^::. ")
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
End If End If
@ -347,7 +302,7 @@ Public Class Terminal
BadCommand = False BadCommand = False
Undeveloped() Undeveloped()
Case "shutdown", "shut down" Case "shutdown", "shut down"
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Saving game..." NewLine("Saving game...")
If Strings.OnceInfo(6) = "story" Then If Strings.OnceInfo(6) = "story" Then
SaveGame() SaveGame()
End If End If
@ -356,26 +311,28 @@ Public Class Terminal
Close() Close()
Case "textpad" Case "textpad"
If Strings.AvailableFeature(17) = "1" Then If Strings.AvailableFeature(17) = "1" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Type any filename after 'textpad'!, ex: textpad text.txt" NewLine("Type any filename after 'textpad'!, ex: textpad text.txt")
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
End If End If
Case "time" Case "time"
If Strings.AvailableFeature(5) = "1" Then If Strings.AvailableFeature(5) = "1" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " seconds passed since midnight" NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalSeconds) & " seconds passed since midnight")
ElseIf Strings.AvailableFeature(5) = "3" Then ElseIf Strings.AvailableFeature(5) = "3" Then
If Strings.AvailableFeature(6) = "1" Then If Strings.AvailableFeature(6) = "1" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & Math.Floor(Date.Now.Subtract(Date.Today).TotalMinutes) & " minutes passed since midnight" NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalMinutes) & " minutes passed since midnight")
ElseIf Strings.AvailableFeature(6) = "3" Then ElseIf Strings.AvailableFeature(6) = "3" Then
If Strings.AvailableFeature(7) = "1" Then If Strings.AvailableFeature(7) = "1" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " hours passed since midnight" NewLine(Math.Floor(Date.Now.Subtract(Date.Today).TotalHours) & " hours passed since midnight")
ElseIf Strings.AvailableFeature(7) = "3" Then ElseIf Strings.AvailableFeature(7) = "3" Then
If Strings.AvailableFeature(12) = "1" Then If Strings.AvailableFeature(12) = "1" Then
If Date.Now.Hour < 12 Then If Date.Now.Hour < 12 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "The time is " & TimeOfDay.Hour & " AM" NewLine("The time is " & TimeOfDay.Hour & " AM")
Else Else
TextBox1.Text = TextBox1.Text & Environment.NewLine & "The time is " & TimeOfDay.Hour - 12 & " PM" NewLine("The time is " & TimeOfDay.Hour - 12 & " PM")
End If 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 If End If
@ -384,15 +341,15 @@ Public Class Terminal
BadCommand = False BadCommand = False
Case "su" Case "su"
If Strings.OnceInfo(0) = "Yes" Then If Strings.OnceInfo(0) = "Yes" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "You already in root mode!" NewLine("You already in root mode!")
Else Else
Strings.OnceInfo(0) = "Yes" Strings.OnceInfo(0) = "Yes"
AssignPrompt() Terminal_AssignPrompt()
End If End If
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
Case "ver" Case "ver"
TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS TheRevival version " & My.Resources.CurrentVersion NewLine("ShiftOS TheRevival version " & My.Resources.CurrentVersion)
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
End Select End Select
@ -432,7 +389,7 @@ Public Class Terminal
If command Like "hostname *" Then If command Like "hostname *" Then
If Strings.AvailableFeature(20) = 1 Then If Strings.AvailableFeature(20) = 1 Then
Strings.ComputerInfo(0) = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1)) Strings.ComputerInfo(0) = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
AssignPrompt() Terminal_AssignPrompt()
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
End If End If
@ -476,17 +433,17 @@ Public Class Terminal
End If End If
If command Like "print *" Then If command Like "print *" Then
If Strings.AvailableFeature(2) = "1" Then If Strings.AvailableFeature(2) = "1" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & RawCommand.Substring(6) NewLine(RawCommand.Substring(6))
'Dim printed As String = command.Replace("print ", "") 'Dim printed As String = command.Replace("print ", "")
''It has the same issue, only displays in lowercase ''It has the same issue, only displays in lowercase
'TextBox1.Text = TextBox1.Text & Environment.NewLine & printed 'NewLine( printed
BadCommand = False BadCommand = False
AdvancedCommand = False AdvancedCommand = False
End If End If
End If End If
If command Like "rev *" Then If command Like "rev *" Then
If Strings.AvailableFeature(21) = 1 Then If Strings.AvailableFeature(21) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & StrReverse(RawCommand.Substring(4)) NewLine(StrReverse(RawCommand.Substring(4)))
BadCommand = False BadCommand = False
AdvancedCommand = False AdvancedCommand = False
End If End If
@ -500,7 +457,7 @@ Public Class Terminal
End If End If
If command Like "shiftorium *" Then If command Like "shiftorium *" Then
Dim prompt As String = command.Replace("shiftorium ", "") Dim prompt As String = command.Replace("shiftorium ", "")
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium ShiftOS Center" NewLine("Shiftorium ShiftOS Center")
If prompt Like "info *" Then If prompt Like "info *" Then
Shiftoriums.prompt = command.Replace("shiftorium info ", "") Shiftoriums.prompt = command.Replace("shiftorium info ", "")
Shiftorium_InformationFeatures() Shiftorium_InformationFeatures()
@ -526,10 +483,10 @@ Public Class Terminal
If command Like "username *" Then If command Like "username *" Then
If Strings.AvailableFeature(19) = 1 Then If Strings.AvailableFeature(19) = 1 Then
If command.Substring(9) = "root" Then If command.Substring(9) = "root" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "This username is already taken!" NewLine("This username is already taken!")
Else Else
Strings.ComputerInfo(1) = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1)) Strings.ComputerInfo(1) = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
AssignPrompt() Terminal_AssignPrompt()
End If End If
AdvancedCommand = False AdvancedCommand = False
BadCommand = False BadCommand = False
@ -538,114 +495,22 @@ Public Class Terminal
End If End If
If BadCommand = True Then If BadCommand = True Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Bad command or wrong file name" NewLine("Bad command or wrong file name")
End If End If
End Sub End Sub
Public Sub TextRebind()
TextBox1.Select(TextBox1.Text.Length, 0)
TextBox1.ScrollToCaret()
End Sub
Private Sub txtterm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown Private Sub txtterm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
TerminalApps.KeyInput = e.KeyData KeyInput = e.KeyData
Select Case e.KeyData Select Case e.KeyData
Case (Keys.Control + Keys.Q) Case (Keys.Control + Keys.Q)
If CurrentInterpreter = "terminal" Then If CurrentInterpreter = "terminal" Then
Else Else
TerminateApp(TerminalApps.KeyInput) TerminateApp(KeyInput)
TextRebind() TextRebind()
End If End If
Case Else Case Else
CaptureKeyBinding(TerminalApps.KeyInput) CaptureKeyBinding(KeyInput)
End Select End Select
'If ReleaseCursor = True Then
'Else
' Select Case e.KeyCode
' Case Keys.ShiftKey
' TrackPos = TrackPos - 1
' Case Keys.Alt
' TrackPos = TrackPos - 1
' Case Keys.CapsLock
' TrackPos = TrackPos - 1
' Case Keys.ControlKey
' TrackPos = TrackPos - 1
' Case Keys.LWin
' TrackPos = TrackPos - 1
' Case Keys.RWin
' TrackPos = TrackPos - 1
' Case Keys.Right
' If TextBox1.SelectionStart = TextBox1.TextLength Then
' TrackPos = TrackPos - 1
' End If
' Case Keys.Left
' If TrackPos < 1 Then
' e.SuppressKeyPress = True
' TrackPos = TrackPos - 1
' Else
' TrackPos = TrackPos - 2
' End If
' Case Keys.Up
' e.SuppressKeyPress = True
' TrackPos = TrackPos - 1
' Case Keys.Down
' e.SuppressKeyPress = True
' TrackPos = TrackPos - 1
' End Select
'End If
'If e.KeyCode = Keys.Enter Then
' e.SuppressKeyPress = True
' If TextBox1.ReadOnly = True Then
' Else
' ReadCommand()
' If ChangeInterpreter = True Then
' DoChildCommand()
' PrintPrompt()
' TextBox1.Select(TextBox1.Text.Length, 0)
' Else
' DoCommand()
' PrintPrompt()
' TextBox1.Select(TextBox1.Text.Length, 0)
' End If
' End If
' 'If command = "clear" Then
' ' PrintPrompt()
' ' TextBox1.Select(TextBox1.Text.Length, 0)
' 'Else
' ' PrintPrompt()
' ' TextBox1.Select(TextBox1.Text.Length, 0)
' 'End If
' TrackPos = 0
'Else
' If ReleaseCursor = True Then
' Else
' If e.KeyCode = Keys.Back Then
' Else
' TrackPos = TrackPos + 1
' End If
' End If
'End If
'If e.KeyCode = Keys.Back Then
' If TrackPos < 1 Then
' e.SuppressKeyPress = True
' Else
' If TextBox1.SelectedText.Length < 1 Then
' TrackPos = TrackPos - 1
' Else
' e.SuppressKeyPress = True
' End If
' End If
'End If
'TextBox1.Select(TextBox1.TextLength, 0)
'TextBox1.ScrollToCaret()
If ReleaseCursor = True Then If ReleaseCursor = True Then
Else Else
@ -655,17 +520,17 @@ Public Class Terminal
If TextBox1.ReadOnly = True Then If TextBox1.ReadOnly = True Then
Else Else
ReadCommand() Terminal_ReadCommand()
If Strings.AvailableFeature(18) = 1 Then If Strings.AvailableFeature(18) = 1 Then
ShOSKey_InputCommand(command) ShOSKey_InputCommand(command)
End If End If
If ChangeInterpreter = True Then If ChangeInterpreter = True Then
DoChildCommand() DoChildCommand()
PrintPrompt() Terminal_PrintPrompt()
TextRebind() TextRebind()
Else Else
DoCommand() DoCommand()
PrintPrompt() Terminal_PrintPrompt()
TextRebind() TextRebind()
End If End If
End If End If
@ -762,8 +627,7 @@ Public Class Terminal
End Sub End Sub
Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click, TextBox1.MouseDoubleClick Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click, TextBox1.MouseDoubleClick
TextBox1.Select(TextBox1.TextLength, 0) TextRebind()
TextBox1.ScrollToCaret()
End Sub End Sub
Private Sub StoryOnlyTimer_Tick(sender As Object, e As EventArgs) Handles StoryOnlyTimer.Tick Private Sub StoryOnlyTimer_Tick(sender As Object, e As EventArgs) Handles StoryOnlyTimer.Tick
@ -771,27 +635,27 @@ Public Class Terminal
Case "0" Case "0"
Select Case DisplayStory Select Case DisplayStory
Case 5 Case 5
TextBox1.Text = "Connected to <null>" ResetLine("Connected to <null>")
Case 25 Case 25
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Hey there, Unknown user!" NewLine("<null>: Hey there, Unknown user!")
Case 60 Case 60
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Congratulaions! You have been involuntarily selected for a test on my experimental operating system, ShiftOS." NewLine("<null>: Congratulaions! You have been involuntarily selected for a test on my experimental operating system, ShiftOS.")
Case 125 Case 125
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: ShiftOS is an operating system that will evolve itself as you use it as I progressively add more features into ShiftOS." NewLine("<null>: ShiftOS is an operating system that will evolve itself as you use it as I progressively add more features into ShiftOS.")
Case 160 Case 160
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Currently ShiftOS isn't much from a basic command-line operating system." NewLine("<null>: Currently ShiftOS isn't much from a basic command-line operating system.")
Case 210 Case 210
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I don't wish to reveal my indentity at this point in time." NewLine("<null>: I don't wish to reveal my indentity at this point in time.")
Case 270 Case 270
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: I will install ShiftOS on your system once I leave while I work on... something else." NewLine("<null>: I will install ShiftOS on your system once I leave while I work on... something else.")
Case 335 Case 335
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null>: Once you have ShiftOS rich feature enough, I will come back to you. In the mean time, goodbye!" NewLine("<null>: Once you have ShiftOS rich feature enough, I will come back to you. In the mean time, goodbye!")
Case 400 Case 400
TextBox1.Text = TextBox1.Text & Environment.NewLine & "<null> Disconnected" NewLine("<null> Disconnected")
Case 430 Case 430
TextBox1.Text = "Installing ShiftOS..." ResetLine("Installing ShiftOS...")
Case 550 Case 550
TextBox1.Text = "ShiftOS Installed, The computer will restart in a few seconds" ResetLine("ShiftOS Installed, The computer will restart in a few seconds")
Case 600 Case 600
StoryOnlyTimer.Stop() StoryOnlyTimer.Stop()
TextBox1.Text = Nothing TextBox1.Text = Nothing
@ -799,8 +663,8 @@ Public Class Terminal
Strings.ComputerInfo(0) = "shiftos" Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(1) = "user"
CheckFeature() CheckFeature()
PrintPrompt() Terminal_PrintPrompt()
AssignPrompt() Terminal_AssignPrompt()
TextBox1.Select(TextBox1.TextLength, 0) TextBox1.Select(TextBox1.TextLength, 0)
TextBox1.ScrollToCaret() TextBox1.ScrollToCaret()
End Select End Select
@ -825,6 +689,10 @@ Public Class Terminal
Else Else
InfoBar.Text = InfoBar.Text & Environment.NewLine & " " & TimeOfDay.Hour - 12 & " PM |" InfoBar.Text = InfoBar.Text & Environment.NewLine & " " & TimeOfDay.Hour - 12 & " PM |"
End If End If
ElseIf Strings.AvailableFeature(12) = "3" Then
If Strings.AvailableFeature(23) = "1" Then
InfoBar.Text = InfoBar.Text & Environment.NewLine & " " & TimeOfDay.Hour & ":" & TimeOfDay.Minute & " |"
End If
End If End If
End If End If
End If End If

18
ShiftOS-TheRevival/MainForms/ConsoleAPI.vb Normal file
View file

@ -0,0 +1,18 @@
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 TextRebind()
Console.TextBox1.Select(Console.TextBox1.Text.Length, 0)
Console.TextBox1.ScrollToCaret()
End Sub
End Module

56
ShiftOS-TheRevival/MainForms/ConsoleRTF.Designer.vb generated Normal file
View file

@ -0,0 +1,56 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class ConsoleRTF
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.SuspendLayout()
'
'RichTextBox1
'
Me.RichTextBox1.BackColor = System.Drawing.Color.Black
Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.RichTextBox1.Font = New System.Drawing.Font("Consolas", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RichTextBox1.ForeColor = System.Drawing.Color.White
Me.RichTextBox1.Location = New System.Drawing.Point(0, 0)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.None
Me.RichTextBox1.ShortcutsEnabled = False
Me.RichTextBox1.Size = New System.Drawing.Size(800, 450)
Me.RichTextBox1.TabIndex = 0
Me.RichTextBox1.Text = ""
'
'ConsoleRTF
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.RichTextBox1)
Me.Name = "ConsoleRTF"
Me.Text = "ConsoleRTF"
Me.ResumeLayout(False)
End Sub
Friend WithEvents RichTextBox1 As RichTextBox
End Class

120
ShiftOS-TheRevival/MainForms/ConsoleRTF.resx Normal file
View file

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

3
ShiftOS-TheRevival/MainForms/ConsoleRTF.vb Normal file
View file

@ -0,0 +1,3 @@
Public Class ConsoleRTF
End Class

82
ShiftOS-TheRevival/MainForms/DebugWindow.Designer.vb generated Normal file
View file

@ -0,0 +1,82 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DebugWindow
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(12, 49)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
Me.TextBox1.Size = New System.Drawing.Size(760, 500)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = "=====SHIFTOS ANTIBUGSPAP====="
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Bold)
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(551, 37)
Me.Label1.TabIndex = 1
Me.Label1.Text = "ShiftOS-TheRevival Debug Window"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(697, 20)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Copy All"
Me.Button1.UseVisualStyleBackColor = True
'
'DebugWindow
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(784, 561)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "DebugWindow"
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "DebugWindow"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TextBox1 As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents Button1 As Button
End Class

120
ShiftOS-TheRevival/MainForms/DebugWindow.resx Normal file
View file

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

13
ShiftOS-TheRevival/MainForms/DebugWindow.vb Normal file
View file

@ -0,0 +1,13 @@
Public Class DebugWindow
Public ShouldDebug As Boolean
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Clipboard.SetText(TextBox1.Text)
End Sub
Public Sub AddLine(subs As String, int As String, str As String, action As String)
If ShouldDebug = True Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & subs & " Sub with " & str & " string and " & int & " integer did " & action
End If
End Sub
End Class

44
ShiftOS-TheRevival/MainForms/DirectoryManagements.vb
View file

@ -1,13 +1,13 @@
Module DirectoryManagements Module DirectoryManagements
Dim spaces As String Dim spaces As String
Public Sub TerminalDirectories(TheDirectory As String) Public Sub TerminalDirectories(TheDirectory As String)
Terminal.Pseudodir = TheDirectory.Replace(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", "!") Console.Pseudodir = TheDirectory.Replace(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", "!")
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Contents of " & Terminal.Pseudodir & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Contents of " & Console.Pseudodir & Environment.NewLine
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB ." Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB ."
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB .." Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB .."
For Each Dir As String In IO.Directory.GetDirectories(TheDirectory) For Each Dir As String In IO.Directory.GetDirectories(TheDirectory)
Dim dirinf As New IO.DirectoryInfo(Dir) Dim dirinf As New IO.DirectoryInfo(Dir)
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB " & dirinf.Name Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB " & dirinf.Name
Next Next
For Each file As String In IO.Directory.GetFiles(TheDirectory) For Each file As String In IO.Directory.GetFiles(TheDirectory)
Dim filinf As New IO.FileInfo(file) Dim filinf As New IO.FileInfo(file)
@ -33,50 +33,50 @@
End Select End Select
Select Case thesize Select Case thesize
Case 1 Case 1
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & spaces & filsize & " KB " & filinf.Name Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & spaces & filsize & " KB " & filinf.Name
Case 2 Case 2
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & spaces & filsize & " MB " & filinf.Name Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & spaces & filsize & " MB " & filinf.Name
Case 3 Case 3
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & spaces & filsize & " GB " & filinf.Name Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & spaces & filsize & " GB " & filinf.Name
End Select End Select
Next Next
End Sub End Sub
Public Sub NavigateDir(TheDirectory As String) Public Sub NavigateDir(TheDirectory As String)
If TheDirectory = ".." Then If TheDirectory = ".." Then
If Terminal.CurrentDirectory = Strings.OnceInfo(1) Then If Console.CurrentDirectory = Strings.OnceInfo(1) Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "!\" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "!\"
Else Else
Terminal.CurrentDirectory = IO.Directory.GetParent(Terminal.CurrentDirectory).ToString Console.CurrentDirectory = IO.Directory.GetParent(Console.CurrentDirectory).ToString
End If End If
Else Else
If IO.Directory.Exists(Terminal.CurrentDirectory + "\" + TheDirectory) Then If IO.Directory.Exists(Console.CurrentDirectory + "\" + TheDirectory) Then
Terminal.CurrentDirectory = Terminal.CurrentDirectory & "\" & TheDirectory Console.CurrentDirectory = Console.CurrentDirectory & "\" & TheDirectory
ElseIf IO.Directory.Exists(TheDirectory) Then ElseIf IO.Directory.Exists(TheDirectory) Then
Terminal.CurrentDirectory = TheDirectory Console.CurrentDirectory = TheDirectory
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "The directory is not exist!" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "The directory is not exist!"
End If End If
End If End If
End Sub End Sub
Public Sub CreateDir(TheDirectory As String) Public Sub CreateDir(TheDirectory As String)
If IO.Directory.Exists(Terminal.CurrentDirectory + "\" + TheDirectory) Then If IO.Directory.Exists(Console.CurrentDirectory + "\" + TheDirectory) Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Directory is already exists!" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Directory is already exists!"
Else Else
IO.Directory.CreateDirectory(Terminal.CurrentDirectory + "\" + TheDirectory) IO.Directory.CreateDirectory(Console.CurrentDirectory + "\" + TheDirectory)
End If End If
End Sub End Sub
Public Sub RemoveDir(TheDirectory As String) Public Sub RemoveDir(TheDirectory As String)
If IO.Directory.Exists(Terminal.CurrentDirectory + "\" + TheDirectory) Then If IO.Directory.Exists(Console.CurrentDirectory + "\" + TheDirectory) Then
Try Try
IO.Directory.Delete(Terminal.CurrentDirectory + "\" + TheDirectory) IO.Directory.Delete(Console.CurrentDirectory + "\" + TheDirectory)
Catch ex As Exception Catch ex As Exception
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ex.Message Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ex.Message
End Try End Try
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "The directory is not exists!" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "The directory is not exists!"
End If End If
End Sub End Sub
End Module End Module

12
ShiftOS-TheRevival/MainForms/FileManagement.vb
View file

@ -2,15 +2,15 @@
Module FileManagement Module FileManagement
Public Sub CatFile(filename As String) Public Sub CatFile(filename As String)
If File.Exists(Terminal.CurrentDirectory & "\" & filename) = True Then If File.Exists(Console.CurrentDirectory & "\" & filename) = True Then
Dim ContentsFinal As String = File.ReadAllText(Terminal.CurrentDirectory & "\" & filename) Dim ContentsFinal As String = File.ReadAllText(Console.CurrentDirectory & "\" & filename)
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ContentsFinal Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ContentsFinal
End If End If
End Sub End Sub
Public Sub DeleteFile(filename As String) Public Sub DeleteFile(filename As String)
If File.Exists(Terminal.CurrentDirectory & "\" & filename) = True Then If File.Exists(Console.CurrentDirectory & "\" & filename) = True Then
File.Delete(Terminal.CurrentDirectory & "\" & filename) File.Delete(Console.CurrentDirectory & "\" & filename)
End If End If
End Sub End Sub
@ -20,6 +20,6 @@ Module FileManagement
'Else 'Else
' File.WriteAllText(Terminal.CurrentDirectory & "\" & filename, Terminal.TextBox1.Text) ' File.WriteAllText(Terminal.CurrentDirectory & "\" & filename, Terminal.TextBox1.Text)
'End If 'End If
File.WriteAllText(Terminal.CurrentDirectory & "\" & filename, Terminal.TextBox1.Text) File.WriteAllText(Console.CurrentDirectory & "\" & filename, Console.TextBox1.Text)
End Sub End Sub
End Module End Module

2
ShiftOS-TheRevival/MainForms/IntroStory.vb
View file

@ -31,7 +31,7 @@
If Opacity = 1 Then If Opacity = 1 Then
Strings.ComputerInfo(3) = "0" Strings.ComputerInfo(3) = "0"
Strings.IsFree = False Strings.IsFree = False
Terminal.Show() Console.Show()
Close() Close()
Else Else
Opacity = Opacity + 0.05 Opacity = Opacity + 0.05

8
ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb
View file

@ -35,6 +35,8 @@ Module SaveLoadSystem
Strings.AvailableFeature(20) = "2" Strings.AvailableFeature(20) = "2"
Strings.AvailableFeature(21) = "2" Strings.AvailableFeature(21) = "2"
Strings.AvailableFeature(22) = "2" Strings.AvailableFeature(22) = "2"
'0.2.5 Features
Strings.AvailableFeature(23) = "2"
End Sub End Sub
Public Sub FreeRoamMode() Public Sub FreeRoamMode()
@ -54,7 +56,7 @@ Module SaveLoadSystem
Strings.AvailableFeature(9) = "1" Strings.AvailableFeature(9) = "1"
Strings.AvailableFeature(10) = "1" Strings.AvailableFeature(10) = "1"
Strings.AvailableFeature(11) = "1" Strings.AvailableFeature(11) = "1"
Strings.AvailableFeature(12) = "1" Strings.AvailableFeature(12) = "3"
Strings.AvailableFeature(13) = "1" Strings.AvailableFeature(13) = "1"
Strings.AvailableFeature(14) = "1" Strings.AvailableFeature(14) = "1"
Strings.AvailableFeature(15) = "1" Strings.AvailableFeature(15) = "1"
@ -66,6 +68,8 @@ Module SaveLoadSystem
Strings.AvailableFeature(20) = "1" Strings.AvailableFeature(20) = "1"
Strings.AvailableFeature(21) = "1" Strings.AvailableFeature(21) = "1"
Strings.AvailableFeature(22) = "1" Strings.AvailableFeature(22) = "1"
'0.2.5 Features
Strings.AvailableFeature(23) = "1"
End Sub End Sub
Public Sub GodMode() Public Sub GodMode()
@ -96,6 +100,8 @@ Module SaveLoadSystem
Strings.AvailableFeature(20) = "2" Strings.AvailableFeature(20) = "2"
Strings.AvailableFeature(21) = "2" Strings.AvailableFeature(21) = "2"
Strings.AvailableFeature(22) = "2" Strings.AvailableFeature(22) = "2"
'0.2.5 Features
Strings.AvailableFeature(23) = "2"
End Sub End Sub
Public Sub SaveGame() Public Sub SaveGame()

29
ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb
View file

@ -9,23 +9,6 @@ Public Class ShiftOSMenu
Public Shared ShouldUpdate As Boolean = False Public Shared ShouldUpdate As Boolean = False
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Try
' If File.Exists("D:\ShiftOSBuildLab.txt") Then
' BuildLab = File.ReadAllLines("D:\ShiftOSBuildLab.txt")
' If BuildLab(0) = "No" Then
' Dim BuildNum As Integer = BuildLab(1)
' BuildNum = BuildLab(1) + 1
' ActualBuildLab = "ShiftOS_TheRevival." & BuildLab(3) & "." & BuildNum & "." & Date.Today.Year & Date.Today.Month & Date.Today.Day
' BuildLab(1) = BuildNum
' File.WriteAllLines("D:\ShiftOSBuildLab.txt", BuildLab)
' End If
' lbl_BuildString.Text = ActualBuildLab
' Else
' End If
'Catch ex As Exception
' MsgBox("Why? Because of " & ex.Message)
'End Try
CheckInstall() CheckInstall()
BannerChange.Start() BannerChange.Start()
End Sub End Sub
@ -44,7 +27,7 @@ Public Class ShiftOSMenu
Strings.IsFree = True Strings.IsFree = True
Strings.OnceInfo(6) = "free" Strings.OnceInfo(6) = "free"
FreeRoamMode() FreeRoamMode()
Terminal.Show() Console.Show()
Close() Close()
Catch ex As Exception Catch ex As Exception
Dim NewBugSlap As New BugSlap Dim NewBugSlap As New BugSlap
@ -55,8 +38,8 @@ Public Class ShiftOSMenu
Case "Continue" Case "Continue"
Strings.IsFree = False Strings.IsFree = False
Strings.OnceInfo(6) = "story" Strings.OnceInfo(6) = "story"
Terminal.StayAtChapter = True Console.StayAtChapter = True
Terminal.Show() Console.Show()
Close() Close()
Case "No" Case "No"
Label3.Visible = False Label3.Visible = False
@ -94,6 +77,7 @@ Public Class ShiftOSMenu
btn_Back.Visible = True btn_Back.Visible = True
Case "Chapter 1" & Environment.NewLine & "Hijacked!" Case "Chapter 1" & Environment.NewLine & "Hijacked!"
Epilepsy.Show() Epilepsy.Show()
DebugWindow.ShouldDebug = True
End Select End Select
End Sub End Sub
@ -154,7 +138,7 @@ Public Class ShiftOSMenu
If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt") = True Then If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt") = True Then
TheUpdater.WhatVersion = File.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt") TheUpdater.WhatVersion = File.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt")
Else Else
TheUpdater.WhatVersion = "0.2.3" TheUpdater.WhatVersion = "0.2.4"
End If End If
If TheUpdater.WhatVersion = My.Resources.CurrentVersion Then If TheUpdater.WhatVersion = My.Resources.CurrentVersion Then
File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt", My.Resources.CurrentVersion) File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt", My.Resources.CurrentVersion)
@ -186,6 +170,7 @@ Public Class ShiftOSMenu
Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS") Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS")
Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS") Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS")
Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved") Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved")
File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt", My.Resources.CurrentVersion)
End If End If
End If End If
End Sub End Sub
@ -198,7 +183,7 @@ Public Class ShiftOSMenu
If Label2.Text = "Debug it your way" Then If Label2.Text = "Debug it your way" Then
Strings.IsFree = True Strings.IsFree = True
GodMode() GodMode()
Terminal.Show() Console.Show()
Close() Close()
End If End If
End Sub End Sub

226
ShiftOS-TheRevival/MainForms/Shiftoriums.vb
View file

@ -2,52 +2,52 @@
Public prompt As String Public prompt As String
Public Sub Shiftorium_ListFeatures() Public Sub Shiftorium_ListFeatures()
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium Available Feature(s)" & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium Available Feature(s)" & Environment.NewLine
If Strings.AvailableFeature(11) = "0" Then If Strings.AvailableFeature(11) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(key | 5 CP) ShiftOS Key" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(key | 5 CP) ShiftOS Key"
Else Else
If Strings.AvailableFeature(0) = "0" Then If Strings.AvailableFeature(0) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(man | 10 CP) ShiftOS Help Manual" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(man | 10 CP) ShiftOS Help Manual"
Else Else
If Strings.AvailableFeature(19) = "0" Then If Strings.AvailableFeature(19) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(username | 15 CP) Custom Username" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(username | 15 CP) Custom Username"
End If End If
If Strings.AvailableFeature(20) = "0" Then If Strings.AvailableFeature(20) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(hostname | 15 CP) Custom hostname" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(hostname | 15 CP) Custom hostname"
End If End If
End If End If
If Strings.AvailableFeature(1) = "0" Then If Strings.AvailableFeature(1) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(clear | 20 CP) Clear Terminal Screen" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(clear | 20 CP) Clear Terminal Screen"
Else Else
If Strings.AvailableFeature(2) = "0" Then If Strings.AvailableFeature(2) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(print | 25 CP) Print Terminal Screen" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(print | 25 CP) Print Terminal Screen"
Else Else
If Strings.AvailableFeature(3) = "0" Then If Strings.AvailableFeature(3) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(termdspdrv | 40 CP) Terminal Display Driver" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(termdspdrv | 40 CP) Terminal Display Driver"
Else Else
If Strings.AvailableFeature(4) = "0" Then If Strings.AvailableFeature(4) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(infobar | 50 CP) Terminal InfoBar" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(infobar | 50 CP) Terminal InfoBar"
End If End If
If Strings.AvailableFeature(8) = "0" Then If Strings.AvailableFeature(8) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(shiftfetch | 55 CP) Shiftfetch" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(shiftfetch | 55 CP) Shiftfetch"
End If End If
If Strings.AvailableFeature(10) = "0" Then If Strings.AvailableFeature(10) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(2bitcolor | 60 CP) 2-bit Color Support" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(2bitcolor | 60 CP) 2-bit Color Support"
Else Else
If Strings.AvailableFeature(13) = "0" Then If Strings.AvailableFeature(13) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(rgb | 70 CP) Red, Green, and Blue" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(rgb | 70 CP) Red, Green, and Blue"
Else Else
If Strings.AvailableFeature(14) = "0" Then If Strings.AvailableFeature(14) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(rgb2 | 75 CP) RGB Variant" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(rgb2 | 75 CP) RGB Variant"
Else Else
If Strings.AvailableFeature(15) = "0" Then If Strings.AvailableFeature(15) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(4bitcolor | 80 CP) 4-bit Color Support" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(4bitcolor | 80 CP) 4-bit Color Support"
Else Else
If Strings.AvailableFeature(16) = "0" Then If Strings.AvailableFeature(16) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(romdriver | 90 CP) Terminal Read-Only Memory Support" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(romdriver | 90 CP) Terminal Read-Only Memory Support"
Else Else
If Strings.AvailableFeature(17) = "0" Then If Strings.AvailableFeature(17) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(textpad | 100 CP) TextPad" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(textpad | 100 CP) TextPad"
End If End If
End If End If
End If End If
@ -56,33 +56,37 @@
End If End If
End If End If
If Strings.AvailableFeature(18) = "0" Then If Strings.AvailableFeature(18) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(shiftkey | 45 CP) ShiftKey" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(shiftkey | 45 CP) ShiftKey"
End If End If
If Strings.AvailableFeature(21) = "0" Then If Strings.AvailableFeature(21) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(rev | 30 CP) Reverse String" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(rev | 30 CP) Reverse String"
Else Else
If Strings.AvailableFeature(22) = "0" Then If Strings.AvailableFeature(22) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(cowsay | 50 CP) Cowsay" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(cowsay | 50 CP) Cowsay"
End If End If
End If End If
End If End If
If Strings.AvailableFeature(5) = "0" Then If Strings.AvailableFeature(5) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(stime | 10 CP) Time by Seconds" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(stime | 10 CP) Time by Seconds"
Else Else
If Strings.AvailableFeature(6) = "0" Then If Strings.AvailableFeature(6) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(mtime | 20 CP) Time by Minutes" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(mtime | 20 CP) Time by Minutes"
Else Else
If Strings.AvailableFeature(7) = "0" Then If Strings.AvailableFeature(7) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(htime | 30 CP) Time by Hours" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(htime | 30 CP) Time by Hours"
Else Else
If Strings.AvailableFeature(12) = "0" Then If Strings.AvailableFeature(12) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(pmam | 40 CP) PM and AM" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(pmam | 40 CP) PM and AM"
Else
If Strings.AvailableFeature(23) = "0" Then
Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(hhmm | 50 CP) Time by Hours and Minutes"
End If
End If End If
End If End If
End If End If
End If End If
If Strings.AvailableFeature(9) = "0" Then If Strings.AvailableFeature(9) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(bc | 55 CP) Basic Calculator" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "(bc | 55 CP) Basic Calculator"
End If End If
End If End If
End If End If
@ -98,244 +102,254 @@
If Strings.AvailableFeature(0) = "0" Then If Strings.AvailableFeature(0) = "0" Then
ManHeader(0) = "ShiftOS Help Manual (command: man)" ManHeader(0) = "ShiftOS Help Manual (command: man)"
ManHeader(1) = "10 CP" ManHeader(1) = "10 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows up any further help instruction on each command, its corresponding action and its example if necessary" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows up any further help instruction on each command, its corresponding action and its example if necessary" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "clear" Case "clear"
If Strings.AvailableFeature(1) = "0" Then If Strings.AvailableFeature(1) = "0" Then
ManHeader(0) = "Clear Terminal Screen (command: clear)" ManHeader(0) = "Clear Terminal Screen (command: clear)"
ManHeader(1) = "20 CP" ManHeader(1) = "20 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Clears the terminal screen" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Clears the terminal screen" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "print" Case "print"
If Strings.AvailableFeature(2) = "0" Then If Strings.AvailableFeature(2) = "0" Then
ManHeader(0) = "Print Command (command: print)" ManHeader(0) = "Print Command (command: print)"
ManHeader(1) = "25 CP" ManHeader(1) = "25 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Prints a corresponding text entered in the command" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Prints a corresponding text entered in the command" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "termdspdrv" Case "termdspdrv"
If Strings.AvailableFeature(3) = "0" Then If Strings.AvailableFeature(3) = "0" Then
ManHeader(0) = "Terminal Display Driver" ManHeader(0) = "Terminal Display Driver"
ManHeader(1) = "40 CP" ManHeader(1) = "40 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Display driver for ShiftOS' Terminal to utilize advantages such as Infobar, ASCII-based applications" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Display driver for ShiftOS' Terminal to utilize advantages such as Infobar, ASCII-based applications" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "infobar" Case "infobar"
If Strings.AvailableFeature(4) = "0" Then If Strings.AvailableFeature(4) = "0" Then
ManHeader(0) = "Terminal InfoBar" ManHeader(0) = "Terminal InfoBar"
ManHeader(1) = "50 CP" ManHeader(1) = "50 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Panel bar at the bottom of the terminal to display basic informations" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Panel bar at the bottom of the terminal to display basic informations" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "stime" Case "stime"
If Strings.AvailableFeature(5) = "0" Then If Strings.AvailableFeature(5) = "0" Then
ManHeader(0) = "Time by Seconds" ManHeader(0) = "Time by Seconds"
ManHeader(1) = "10 CP" ManHeader(1) = "10 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in seconds form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in seconds form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "stime" Case "stime"
If Strings.AvailableFeature(6) = "0" Then If Strings.AvailableFeature(6) = "0" Then
ManHeader(0) = "Time by Minutes" ManHeader(0) = "Time by Minutes"
ManHeader(1) = "20 CP" ManHeader(1) = "20 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in minutes form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in minutes form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "htime" Case "htime"
If Strings.AvailableFeature(7) = "0" Then If Strings.AvailableFeature(7) = "0" Then
ManHeader(0) = "Time by Hours" ManHeader(0) = "Time by Hours"
ManHeader(1) = "30 CP" ManHeader(1) = "30 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in hours form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in hours form since midnight" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "shiftfetch" Case "shiftfetch"
If Strings.AvailableFeature(8) = "0" Then If Strings.AvailableFeature(8) = "0" Then
ManHeader(0) = "Shiftfetch" ManHeader(0) = "Shiftfetch"
ManHeader(1) = "55 CP" ManHeader(1) = "55 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "ShiftOS port of Neofetch, A command-line system information tool" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "ShiftOS port of Neofetch, A command-line system information tool" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "bc" Case "bc"
If Strings.AvailableFeature(9) = "0" Then If Strings.AvailableFeature(9) = "0" Then
ManHeader(0) = "Basic Calculator" ManHeader(0) = "Basic Calculator"
ManHeader(1) = "55 CP" ManHeader(1) = "55 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Basic Calculator for simple calculation" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Basic Calculator for simple calculation" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "2bitcolor" Case "2bitcolor"
If Strings.AvailableFeature(10) = "0" Then If Strings.AvailableFeature(10) = "0" Then
ManHeader(0) = "2-bit Color Support" ManHeader(0) = "2-bit Color Support"
ManHeader(1) = "60 CP" ManHeader(1) = "60 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds 2 colours (Dark Gray, Light Gray) supports to the terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds 2 colours (Dark Gray, Light Gray) supports to the terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "key" Case "key"
If Strings.AvailableFeature(11) = "0" Then If Strings.AvailableFeature(11) = "0" Then
ManHeader(0) = "ShiftOS Key" ManHeader(0) = "ShiftOS Key"
ManHeader(1) = "5 CP" ManHeader(1) = "5 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "An encryption key to unlock advanced terminal feature for ShiftOS" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "An encryption key to unlock advanced terminal feature for ShiftOS" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "pmam" Case "pmam"
If Strings.AvailableFeature(12) = "0" Then If Strings.AvailableFeature(12) = "0" Then
ManHeader(0) = "PM and AM" ManHeader(0) = "PM and AM"
ManHeader(1) = "40 CP" ManHeader(1) = "40 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in PM and AM format" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Shows time in PM and AM format" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "rgb" Case "rgb"
If Strings.AvailableFeature(13) = "0" Then If Strings.AvailableFeature(13) = "0" Then
ManHeader(0) = "Red, Green, and Blue" ManHeader(0) = "Red, Green, and Blue"
ManHeader(1) = "70 CP" ManHeader(1) = "70 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds Red, Green, and Blue support to the Display Driver" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds Red, Green, and Blue support to the Display Driver" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "rgb2" Case "rgb2"
If Strings.AvailableFeature(14) = "0" Then If Strings.AvailableFeature(14) = "0" Then
ManHeader(0) = "RGB Variant" ManHeader(0) = "RGB Variant"
ManHeader(1) = "75 CP" ManHeader(1) = "75 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds lighter or darker variant of Red, Green, and Blue" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds lighter or darker variant of Red, Green, and Blue" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "4bitcolor" Case "4bitcolor"
If Strings.AvailableFeature(15) = "0" Then If Strings.AvailableFeature(15) = "0" Then
ManHeader(0) = "4-bit Color Display" ManHeader(0) = "4-bit Color Display"
ManHeader(1) = "80 CP" ManHeader(1) = "80 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds to 16 colours support to the Display Driver" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Adds to 16 colours support to the Display Driver" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "romdriver" Case "romdriver"
If Strings.AvailableFeature(16) = "0" Then If Strings.AvailableFeature(16) = "0" Then
ManHeader(0) = "Terminal Read-Only Memory Driver" ManHeader(0) = "Terminal Read-Only Memory Driver"
ManHeader(1) = "90 CP" ManHeader(1) = "90 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "ShiftOS Read-Only Memory support for ShiftOS such as writing and reading permanent memory such as HDD, SDD, etc." & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "ShiftOS Read-Only Memory support for ShiftOS such as writing and reading permanent memory such as HDD, SDD, etc." & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "textpad" Case "textpad"
If Strings.AvailableFeature(17) = "0" Then If Strings.AvailableFeature(17) = "0" Then
ManHeader(0) = "TextPad" ManHeader(0) = "TextPad"
ManHeader(1) = "100 CP" ManHeader(1) = "100 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "A simple text-editor for ShiftOS" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "A simple text-editor for ShiftOS" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "shiftkey" Case "shiftkey"
If Strings.AvailableFeature(18) = "0" Then If Strings.AvailableFeature(18) = "0" Then
ManHeader(0) = "ShiftKey" ManHeader(0) = "ShiftKey"
ManHeader(1) = "45 CP" ManHeader(1) = "45 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Recall the previous command on terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Recall the previous command on terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "username" Case "username"
If Strings.AvailableFeature(19) = "0" Then If Strings.AvailableFeature(19) = "0" Then
ManHeader(0) = "Custom Username" ManHeader(0) = "Custom Username"
ManHeader(1) = "15 CP" ManHeader(1) = "15 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Set custom username for ShfitOS" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Set custom username for ShfitOS" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "hostname" Case "hostname"
If Strings.AvailableFeature(20) = "0" Then If Strings.AvailableFeature(20) = "0" Then
ManHeader(0) = "Custom Hostname" ManHeader(0) = "Custom Hostname"
ManHeader(1) = "15 CP" ManHeader(1) = "15 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Set custom hostname/computer name for ShfitOS" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Set custom hostname/computer name for ShfitOS" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "rev" Case "rev"
If Strings.AvailableFeature(21) = "0" Then If Strings.AvailableFeature(21) = "0" Then
ManHeader(0) = "Reverse String" ManHeader(0) = "Reverse String"
ManHeader(1) = "30 CP" ManHeader(1) = "30 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Reverse any text you entered in the terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Reverse any text you entered in the terminal" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "cowsay" Case "cowsay"
If Strings.AvailableFeature(22) = "0" Then If Strings.AvailableFeature(22) = "0" Then
ManHeader(0) = "Cowsay" ManHeader(0) = "Cowsay"
ManHeader(1) = "50 CP" ManHeader(1) = "50 CP"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Make the ASCII cow say anything you want to" & Environment.NewLine & Environment.NewLine & ManHeader(1) Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Make the ASCII cow say anything you want to" & Environment.NewLine & Environment.NewLine & ManHeader(1)
Terminal.BadCommand = False 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 End If
Case Else Case Else
Terminal.BadCommand = False Console.BadCommand = False
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
End Select End Select
End Sub End Sub
Public Sub Shiftorium_DetectInstallFeatures() Public Sub Shiftorium_DetectInstallFeatures()
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Installing feature..." Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Installing feature..."
Select Case prompt Select Case prompt
Case "man" Case "man"
Shiftorium_InstallFeatures(True, "man", 0, 10) Shiftorium_InstallFeatures(True, "man", 0, 10)
Terminal.BadCommand = False Console.BadCommand = False
Case "clear" Case "clear"
Shiftorium_InstallFeatures(True, "clear", 1, 20) Shiftorium_InstallFeatures(True, "clear", 1, 20)
Terminal.BadCommand = False Console.BadCommand = False
Case "print" Case "print"
Shiftorium_InstallFeatures(True, "print", 2, 25) Shiftorium_InstallFeatures(True, "print", 2, 25)
Terminal.BadCommand = False Console.BadCommand = False
Case "termdspdrv" Case "termdspdrv"
Shiftorium_InstallFeatures(True, "termdspdrv", 3, 40) Shiftorium_InstallFeatures(True, "termdspdrv", 3, 40)
Terminal.BadCommand = False Console.BadCommand = False
Case "infobar" Case "infobar"
Shiftorium_InstallFeatures(True, "infobar", 4, 50) Shiftorium_InstallFeatures(True, "infobar", 4, 50)
Terminal.BadCommand = False Console.BadCommand = False
Case "stime" Case "stime"
Shiftorium_InstallFeatures(True, "stime", 5, 10) Shiftorium_InstallFeatures(True, "stime", 5, 10)
Terminal.BadCommand = False Console.BadCommand = False
Case "mtime" Case "mtime"
Shiftorium_InstallFeatures(True, "mtime", 6, 20) Shiftorium_InstallFeatures(True, "mtime", 6, 20)
Terminal.BadCommand = False Console.BadCommand = False
Case "htime" Case "htime"
Shiftorium_InstallFeatures(True, "htime", 7, 30) Shiftorium_InstallFeatures(True, "htime", 7, 30)
Terminal.BadCommand = False Console.BadCommand = False
Case "shiftfetch" Case "shiftfetch"
Shiftorium_InstallFeatures(True, "shiftfetch", 8, 55) Shiftorium_InstallFeatures(True, "shiftfetch", 8, 55)
Terminal.BadCommand = False Console.BadCommand = False
Case "bc" Case "bc"
Shiftorium_InstallFeatures(True, "bc", 9, 55) Shiftorium_InstallFeatures(True, "bc", 9, 55)
Terminal.BadCommand = False Console.BadCommand = False
Case "2bitcolor" Case "2bitcolor"
Shiftorium_InstallFeatures(True, "2bitcolor", 10, 60) Shiftorium_InstallFeatures(True, "2bitcolor", 10, 60)
Terminal.BadCommand = False Console.BadCommand = False
Case "key" Case "key"
Shiftorium_InstallFeatures(True, "key", 11, 5) Shiftorium_InstallFeatures(True, "key", 11, 5)
Terminal.BadCommand = False Console.BadCommand = False
Case "pmam" Case "pmam"
Shiftorium_InstallFeatures(True, "pmam", 12, 40) Shiftorium_InstallFeatures(True, "pmam", 12, 40)
Terminal.BadCommand = False Console.BadCommand = False
Case "rgb" Case "rgb"
Shiftorium_InstallFeatures(True, "rgb", 13, 70) Shiftorium_InstallFeatures(True, "rgb", 13, 70)
Terminal.BadCommand = False Console.BadCommand = False
Case "rgb2" Case "rgb2"
Shiftorium_InstallFeatures(True, "rgb2", 14, 75) Shiftorium_InstallFeatures(True, "rgb2", 14, 75)
Terminal.BadCommand = False Console.BadCommand = False
Case "4bitcolor" Case "4bitcolor"
Shiftorium_InstallFeatures(True, "4bitcolor", 15, 80) Shiftorium_InstallFeatures(True, "4bitcolor", 15, 80)
Terminal.BadCommand = False Console.BadCommand = False
Case "romdriver" Case "romdriver"
Shiftorium_InstallFeatures(True, "romdriver", 16, 90) Shiftorium_InstallFeatures(True, "romdriver", 16, 90)
Terminal.BadCommand = False Console.BadCommand = False
Case "textpad" Case "textpad"
Shiftorium_InstallFeatures(True, "textpad", 17, 100) Shiftorium_InstallFeatures(True, "textpad", 17, 100)
Terminal.BadCommand = False Console.BadCommand = False
Case "shiftkey" Case "shiftkey"
Shiftorium_InstallFeatures(True, "shiftkey", 18, 45) Shiftorium_InstallFeatures(True, "shiftkey", 18, 45)
Terminal.BadCommand = False Console.BadCommand = False
Case "username" Case "username"
Shiftorium_InstallFeatures(True, "username", 19, 15) Shiftorium_InstallFeatures(True, "username", 19, 15)
Terminal.BadCommand = False Console.BadCommand = False
Case "hostname" Case "hostname"
Shiftorium_InstallFeatures(True, "hostname", 20, 15) Shiftorium_InstallFeatures(True, "hostname", 20, 15)
Terminal.BadCommand = False Console.BadCommand = False
Case "rev" Case "rev"
Shiftorium_InstallFeatures(True, "rev", 21, 30) Shiftorium_InstallFeatures(True, "rev", 21, 30)
Terminal.BadCommand = False Console.BadCommand = False
Case "cowsay" Case "cowsay"
Shiftorium_InstallFeatures(True, "cowsay", 22, 50) Shiftorium_InstallFeatures(True, "cowsay", 22, 50)
Terminal.BadCommand = False Console.BadCommand = False
Case "hhmm"
Shiftorium_InstallFeatures(True, "hhmm", 23, 50)
Console.BadCommand = False
Case Else Case Else
Terminal.BadCommand = False Console.BadCommand = False
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
End Select End Select
End Sub End Sub
@ -404,6 +418,7 @@
Case "pmam" Case "pmam"
Strings.AvailableFeature(7) = "3" Strings.AvailableFeature(7) = "3"
Strings.AvailableFeature(12) = "1" Strings.AvailableFeature(12) = "1"
Strings.AvailableFeature(23) = "0"
success = True success = True
Case "rgb" Case "rgb"
Strings.AvailableFeature(13) = "1" Strings.AvailableFeature(13) = "1"
@ -439,36 +454,39 @@
success = True success = True
Case "cowsay" Case "cowsay"
Strings.AvailableFeature(22) = "1" Strings.AvailableFeature(22) = "1"
Case "hhmm"
Strings.AvailableFeature(12) = "3"
Strings.AvailableFeature(23) = "1"
success = True success = True
End Select End Select
If success = False Then If success = False Then
If IsCLI = True Then If IsCLI = True Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Invalid command or feature already installed" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Invalid command or feature already installed"
End If End If
Else Else
Strings.ComputerInfo(4) = Strings.ComputerInfo(4) + 1 Strings.ComputerInfo(4) = Strings.ComputerInfo(4) + 1
TempCP = TempCP - Codepoint TempCP = TempCP - Codepoint
Strings.ComputerInfo(2) = Convert.ToString(TempCP) Strings.ComputerInfo(2) = Convert.ToString(TempCP)
If IsCLI = True Then If IsCLI = True Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Feature has been install succesfully" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Feature has been install succesfully"
End If End If
End If End If
Else Else
If IsCLI = True Then If IsCLI = True Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Insufficent Codepoint" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Insufficent Codepoint"
End If End If
End If End If
Case "1" Case "1"
If IsCLI = True Then If IsCLI = True Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature has already been installed" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature has already been installed"
End If End If
Case "2" Case "2"
If IsCLI = True Then If IsCLI = True Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature is not available" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature is not available"
End If End If
Case "3" Case "3"
If IsCLI = True Then If IsCLI = True Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature is already upgraded to a newer one" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature is already upgraded to a newer one"
End If End If
End Select End Select
End Sub End Sub

6
ShiftOS-TheRevival/MainForms/Strings.vb
View file

@ -3,7 +3,7 @@
Public Shared ComputerInfo(6) As String Public Shared ComputerInfo(6) As String
Public Shared IsFree As Boolean Public Shared IsFree As Boolean
Public Shared OnceInfo(8) As String Public Shared OnceInfo(8) As String
Public Shared AvailableFeature(22) As String Public Shared AvailableFeature(24) As String
Public Shared CLIInterpreter As String Public Shared CLIInterpreter As String
Public Shared SaveFile As String Public Shared SaveFile As String
Public Shared Achievement As String Public Shared Achievement As String
@ -71,6 +71,8 @@
'20 = Custom Hostname [Custom hostname 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) '21 = Reverse String [Reverse a text] (0.2.4) (default : 0)
'22 = Cowsay [Cowsay] (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 = fortune command [Shows random quote] (0.2.5) (default : 0)
' '
'Features bought hierarchy : 'Features bought hierarchy :
'ShiftOS Key (KEY) (5 CP) 'ShiftOS Key (KEY) (5 CP)
@ -81,6 +83,7 @@
'>>Terminal Print (PRINT) (25 CP) '>>Terminal Print (PRINT) (25 CP)
'>>>Reverse String command (REV) (30 CP) '>>>Reverse String command (REV) (30 CP)
'>>>>Cowsay (50 CP) '>>>>Cowsay (50 CP)
'>>>>Fortune command (55 CP)
'>>>ShiftKey (ShOSKey) (45 CP) '>>>ShiftKey (ShOSKey) (45 CP)
'>>>Terminal Display Driver (TERMDSPDRV) (40 CP) '>>>Terminal Display Driver (TERMDSPDRV) (40 CP)
'>>>>Terminal InfoBar (INFOBAR) (50 CP) '>>>>Terminal InfoBar (INFOBAR) (50 CP)
@ -96,4 +99,5 @@
'>>>Time by Minutes (TIME, MTIME) (20 CP) '>>>Time by Minutes (TIME, MTIME) (20 CP)
'>>>>Time by Hours (Time, HTIME) (30 CP) '>>>>Time by Hours (Time, HTIME) (30 CP)
'>>>>>PM and AM (Time, PMAM (40 CP)) '>>>>>PM and AM (Time, PMAM (40 CP))
'>>>>>>Time by Hours and Minutes (Time, HHMM (50 CP))
End Class End Class

49
ShiftOS-TheRevival/MainForms/TerminalAPI.vb Normal file
View file

@ -0,0 +1,49 @@
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
End Module

64
ShiftOS-TheRevival/MainForms/TerminalColorSystem.vb
View file

@ -13,48 +13,48 @@
Public FgColor As Color Public FgColor As Color
Public Sub DisplayColors() Public Sub DisplayColors()
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "TERMINAL SUPPORTED COLORS" & Environment.NewLine & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "TERMINAL SUPPORTED COLORS" & Environment.NewLine & Environment.NewLine
If Strings.AvailableFeature(10) = "1" Then If Strings.AvailableFeature(10) = "1" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "0 = Black 8 = Gray" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "0 = Black 8 = Gray"
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "0 = Black 8 = ???" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "0 = Black 8 = ???"
End If End If
If Strings.AvailableFeature(14) = "1" Then If Strings.AvailableFeature(14) = "1" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "1 = Blue 9 = Light Blue" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "1 = Blue 9 = Light Blue"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "2 = Green A = Light Green" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "2 = Green A = Light Green"
Else Else
If Strings.AvailableFeature(13) = "1" Then If Strings.AvailableFeature(13) = "1" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "1 = ??? 9 = Light Blue" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "1 = ??? 9 = Light Blue"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "2 = Green A = ???" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "2 = Green A = ???"
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "1 = ??? 9 = ???" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "1 = ??? 9 = ???"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "2 = ??? A = ???" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "2 = ??? A = ???"
End If End If
End If End If
If Strings.AvailableFeature(15) = "1" Then If Strings.AvailableFeature(15) = "1" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "3 = Aqua B = Light Aqua" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "3 = Aqua B = Light Aqua"
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "3 = ??? B = ???" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "3 = ??? B = ???"
End If End If
If Strings.AvailableFeature(14) = "1" Then If Strings.AvailableFeature(14) = "1" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "4 = Red C = Light Red" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "4 = Red C = Light Red"
ElseIf Strings.AvailableFeature(13) = "1" Then ElseIf Strings.AvailableFeature(13) = "1" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "4 = ??? C = Light Red" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "4 = ??? C = Light Red"
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "4 = ??? C = ???" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "4 = ??? C = ???"
End If End If
If Strings.AvailableFeature(15) = "1" Then If Strings.AvailableFeature(15) = "1" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "5 = Purple D = Light Purple" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "5 = Purple D = Light Purple"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "6 = Yellow E = Yellow" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "6 = Yellow E = Yellow"
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "5 = ??? D = ???" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "5 = ??? D = ???"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "6 = ??? E = ???" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "6 = ??? E = ???"
End If End If
If Strings.AvailableFeature(10) = "1" Then If Strings.AvailableFeature(10) = "1" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "7 = Dark Gray F = White" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "7 = Dark Gray F = White"
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "7 = ??? F = White" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "7 = ??? F = White"
End If End If
End Sub End Sub
@ -68,7 +68,7 @@
FgColor = Color.Black FgColor = Color.Black
End Select End Select
If Bg = Fg Then If Bg = Fg Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Background and Foreground Color cannot be same!" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Background and Foreground Color cannot be same!"
Else Else
If Strings.AvailableFeature(10) = "1" Then If Strings.AvailableFeature(10) = "1" Then
Select Case Bg Select Case Bg
@ -91,7 +91,7 @@
BgColor = Color.Red BgColor = Color.Red
End Select End Select
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available." Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available."
End If End If
Case "1", "4", "a" Case "1", "4", "a"
If Strings.AvailableFeature(14) = "1" Then If Strings.AvailableFeature(14) = "1" Then
@ -104,7 +104,7 @@
BgColor = Color.Lime BgColor = Color.Lime
End Select End Select
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available." Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available."
End If End If
Case "3", "5", "6", "b", "d", "e" Case "3", "5", "6", "b", "d", "e"
If Strings.AvailableFeature(15) = "1" Then If Strings.AvailableFeature(15) = "1" Then
@ -123,7 +123,7 @@
BgColor = Color.Yellow BgColor = Color.Yellow
End Select End Select
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available." Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available."
End If End If
Case Else Case Else
BgColor = Color.Black BgColor = Color.Black
@ -148,7 +148,7 @@
FgColor = Color.Red FgColor = Color.Red
End Select End Select
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available." Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available."
End If End If
Case "1", "4", "a" Case "1", "4", "a"
If Strings.AvailableFeature(14) = "1" Then If Strings.AvailableFeature(14) = "1" Then
@ -161,7 +161,7 @@
FgColor = Color.Lime FgColor = Color.Lime
End Select End Select
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available." Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available."
End If End If
Case "3", "5", "6", "b", "d", "e" Case "3", "5", "6", "b", "d", "e"
If Strings.AvailableFeature(15) = "1" Then If Strings.AvailableFeature(15) = "1" Then
@ -180,13 +180,13 @@
FgColor = Color.Yellow FgColor = Color.Yellow
End Select End Select
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available." Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "One or two colors you selected is not available."
End If End If
Case Else Case Else
FgColor = Color.White FgColor = Color.White
End Select End Select
Else Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Color is not supported for 1-bit Color Display" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Color is not supported for 1-bit Color Display"
Select Case App Select Case App
Case "terminal" Case "terminal"
BgColor = Color.Black BgColor = Color.Black
@ -199,12 +199,12 @@
End If End If
Select Case App Select Case App
Case "infobar" Case "infobar"
Terminal.InfoBar.BackColor = BgColor Console.InfoBar.BackColor = BgColor
Terminal.InfoBar.ForeColor = FgColor Console.InfoBar.ForeColor = FgColor
Strings.ComputerInfo(6) = Bg & Fg Strings.ComputerInfo(6) = Bg & Fg
Case "terminal" Case "terminal"
Terminal.TextBox1.BackColor = BgColor Console.TextBox1.BackColor = BgColor
Terminal.TextBox1.ForeColor = FgColor Console.TextBox1.ForeColor = FgColor
Strings.ComputerInfo(5) = Bg & Fg Strings.ComputerInfo(5) = Bg & Fg
End Select End Select
End Sub End Sub

156
ShiftOS-TheRevival/MainForms/TerminalApps.vb → ShiftOS-TheRevival/MainForms/TerminalExternalApps.vb
View file

@ -1,6 +1,6 @@
Imports System.IO Imports System.IO
Module TerminalApps Module TerminalExternalApps
Public ShouldChange As Boolean = False Public ShouldChange As Boolean = False
Public KeyInput As Keys Public KeyInput As Keys
'This is for GTN's RAM 'This is for GTN's RAM
@ -32,14 +32,14 @@ Module TerminalApps
Public Sub AppHost(App As Object, UseToolBar As Boolean) Public Sub AppHost(App As Object, UseToolBar As Boolean)
Select Case App Select Case App
Case "bc" Case "bc"
Terminal.DefaultPrompt = "> " Console.DefaultPrompt = "> "
Terminal.TextBox1.Text = "bc (Basic Calcultator)" & Environment.NewLine & "Copyright, Free Software Foundation." & Environment.NewLine & "ShiftOS port by DevX." & Environment.NewLine & "This is free software with ABSOLUTELY NO WARRANTY." & Environment.NewLine Console.TextBox1.Text = "bc (Basic Calcultator)" & Environment.NewLine & "Copyright, Free Software Foundation." & Environment.NewLine & "ShiftOS port by DevX." & Environment.NewLine & "This is free software with ABSOLUTELY NO WARRANTY." & Environment.NewLine
Terminal.CurrentInterpreter = "bc" Console.CurrentInterpreter = "bc"
ShouldChange = True ShouldChange = True
Case "guess" 'Guess the Number Case "guess" 'Guess the Number
Terminal.DefaultPrompt = "Your answer: " Console.DefaultPrompt = "Your answer: "
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Guess the Number" & Environment.NewLine & "Guess the correct number between 1 and 50 and you'll get anything between 1 to 10 Codepoints" & Environment.NewLine & "Type 'exit' to terminate this game" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Guess the Number" & Environment.NewLine & "Guess the correct number between 1 and 50 and you'll get anything between 1 to 10 Codepoints" & Environment.NewLine & "Type 'exit' to terminate this game"
Terminal.CurrentInterpreter = "guess" Console.CurrentInterpreter = "guess"
GTN_GenerateNumber() GTN_GenerateNumber()
ShouldChange = True ShouldChange = True
'Revisit Later 'Revisit Later
@ -50,27 +50,27 @@ Module TerminalApps
' FreezeText = Terminal.TextBox1.Text ' FreezeText = Terminal.TextBox1.Text
' ShouldChange = True ' ShouldChange = True
Case "shiftoriumfx" 'ShiftoriumFX : Advanced Shiftorium Case "shiftoriumfx" 'ShiftoriumFX : Advanced Shiftorium
Terminal.DefaultPrompt = "Navigate> " Console.DefaultPrompt = "Navigate> "
Terminal.CurrentInterpreter = "shiftoriumfx" Console.CurrentInterpreter = "shiftoriumfx"
ShiftoriumFX_DisplayPackages() ShiftoriumFX_DisplayPackages()
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & Environment.NewLine & "Type any package you want to investigate" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & Environment.NewLine & "Type any package you want to investigate"
ShouldChange = True ShouldChange = True
Case "textpad" Case "textpad"
Terminal.DefaultPrompt = Nothing Console.DefaultPrompt = Nothing
Terminal.TextBox1.Text = Nothing Console.TextBox1.Text = Nothing
Terminal.ToolBarUse = True Console.ToolBarUse = True
Terminal.CheckFeature() Console.CheckFeature()
Terminal.CurrentInterpreter = "textpad" Console.CurrentInterpreter = "textpad"
TextPad_CheckExist(Terminal.command) TextPad_CheckExist(command)
Terminal.ToolBar.Text = "TextPad - " & Terminal.command & Environment.NewLine & "Ctrl-Q Exit | Ctrl-N New | Ctrl-O Open | Ctrl-S Save | F12 Save As" Console.ToolBar.Text = "TextPad - " & command & Environment.NewLine & "Ctrl-Q Exit | Ctrl-N New | Ctrl-O Open | Ctrl-S Save | F12 Save As"
Terminal.ReleaseCursor = True Console.ReleaseCursor = True
End Select End Select
If Terminal.ReleaseCursor = True Then If Console.ReleaseCursor = True Then
'Strings.OnceInfo(5) = Terminal.TrackPos 'Strings.OnceInfo(5) = Terminal.TrackPos
'Terminal.TrackPos = Nothing 'Terminal.TrackPos = Nothing
End If End If
If ShouldChange = True Then If ShouldChange = True Then
Terminal.ChangeInterpreter = True Console.ChangeInterpreter = True
ShouldChange = False ShouldChange = False
End If End If
End Sub End Sub
@ -78,104 +78,104 @@ Module TerminalApps
Public Sub CaptureKeyBinding(KeysInput As Keys) Public Sub CaptureKeyBinding(KeysInput As Keys)
Select Case KeysInput Select Case KeysInput
Case (Keys.S + Keys.Control) Case (Keys.S + Keys.Control)
Select Case Terminal.CurrentInterpreter Select Case Console.CurrentInterpreter
Case "textpad" Case "textpad"
If File.Exists(Terminal.CurrentDirectory & "\" & Terminal.command) = True Then If File.Exists(Console.CurrentDirectory & "\" & command) = True Then
Dim TempCompare As String = File.ReadAllText(Terminal.CurrentDirectory & "\" & Terminal.command) Dim TempCompare As String = File.ReadAllText(Console.CurrentDirectory & "\" & command)
If Terminal.TextBox1.Text = TempCompare Then If Console.TextBox1.Text = TempCompare Then
Else Else
Dim BeforeCP As Integer = Strings.ComputerInfo(2) Dim BeforeCP As Integer = Strings.ComputerInfo(2)
SaveFile(Terminal.command) SaveFile(command)
TextPad_GenerateCP_SavedFile() TextPad_GenerateCP_SavedFile()
Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP
Terminal.ToolBar.Text = "TextPad - " & Terminal.command & " - You've got " & AfterCP & " Codepoints" & Environment.NewLine & "Ctrl-Q Exit | Ctrl-N New | Ctrl-O Open | Ctrl-S Save | F12 Save As" 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 If
Else Else
Dim BeforeCP As Integer = Strings.ComputerInfo(2) Dim BeforeCP As Integer = Strings.ComputerInfo(2)
SaveFile(Terminal.command) SaveFile(command)
TextPad_GenerateCP_SavedFile() TextPad_GenerateCP_SavedFile()
Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP
Terminal.ToolBar.Text = "TextPad - " & Terminal.command & " - You've got " & AfterCP & " Codepoints" & Environment.NewLine & "Ctrl-Q Exit | Ctrl-N New | Ctrl-O Open | Ctrl-S Save | F12 Save As" 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 If
End Select End Select
Case (Keys.N + Keys.Control) Case (Keys.N + Keys.Control)
Select Case Terminal.CurrentInterpreter Select Case Console.CurrentInterpreter
Case "textpad" Case "textpad"
Terminal.TextBox1.Text = Nothing Console.TextBox1.Text = Nothing
End Select End Select
End Select End Select
End Sub End Sub
Public Sub TerminateApp(KeyInput As Keys) Public Sub TerminateApp(KeyInput As Keys)
Select Case Terminal.CurrentInterpreter Select Case Console.CurrentInterpreter
Case "textpad" Case "textpad"
Dim BeforeCP As Integer = Strings.ComputerInfo(2) Dim BeforeCP As Integer = Strings.ComputerInfo(2)
If File.Exists(Terminal.CurrentDirectory & "\" & Terminal.command) = True Then If File.Exists(Console.CurrentDirectory & "\" & command) = True Then
Dim TextCompare As String = My.Computer.FileSystem.ReadAllText(Terminal.CurrentDirectory & "\" & Terminal.command) Dim TextCompare As String = My.Computer.FileSystem.ReadAllText(Console.CurrentDirectory & "\" & command)
If Terminal.TextBox1.Text = TextCompare Then If Console.TextBox1.Text = TextCompare Then
Terminal.TextBox1.Text = Nothing Console.TextBox1.Text = Nothing
Else Else
SaveFile(Terminal.command) SaveFile(command)
TextPad_GenerateCP_SavedFile() TextPad_GenerateCP_SavedFile()
Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP
Terminal.TextBox1.Text = "You've got " & AfterCP & " Codepoints" Console.TextBox1.Text = "You've got " & AfterCP & " Codepoints"
End If End If
Else Else
SaveFile(Terminal.command) SaveFile(command)
TextPad_GenerateCP_SavedFile() TextPad_GenerateCP_SavedFile()
Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP
Terminal.TextBox1.Text = "You've got " & AfterCP & " Codepoints" Console.TextBox1.Text = "You've got " & AfterCP & " Codepoints"
End If End If
Terminal.ToolBarUse = False Console.ToolBarUse = False
Terminal.ChangeInterpreter = False Console.ChangeInterpreter = False
Terminal.ReleaseCursor = False Console.ReleaseCursor = False
Terminal.CurrentInterpreter = "terminal" Console.CurrentInterpreter = "terminal"
Terminal.CheckFeature() Console.CheckFeature()
Terminal.AssignPrompt() Terminal_AssignPrompt()
Terminal.PrintPrompt() Terminal_PrintPrompt()
Terminal.TextRebind() TextRebind()
Case Else Case Else
Terminal.ToolBarUse = False Console.ToolBarUse = False
Terminal.ChangeInterpreter = False Console.ChangeInterpreter = False
Terminal.ReleaseCursor = False Console.ReleaseCursor = False
Terminal.CurrentInterpreter = "terminal" Console.CurrentInterpreter = "terminal"
Terminal.CheckFeature() Console.CheckFeature()
Terminal.AssignPrompt() Terminal_AssignPrompt()
Terminal.PrintPrompt() Terminal_PrintPrompt()
Terminal.TextRebind() TextRebind()
End Select End Select
End Sub End Sub
Public Sub DoChildCommand() Public Sub DoChildCommand()
Select Case Terminal.CurrentInterpreter Select Case Console.CurrentInterpreter
Case "guess" Case "guess"
Select Case Terminal.command Select Case command
Case "exit" Case "exit"
TerminateApp(Nothing) TerminateApp(Nothing)
Case Else Case Else
Try Try
GTN_CheckNumber() GTN_CheckNumber()
Catch ex As Exception Catch ex As Exception
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Invalid value!" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Invalid value!"
End Try End Try
End Select End Select
Case "shiftoriumfx" Case "shiftoriumfx"
Select Case Terminal.command Select Case command
Case "" Case ""
Case "exit" Case "exit"
TerminateApp(Nothing) TerminateApp(Nothing)
Case Else Case Else
ShiftoriumFX_DisplayPackages() ShiftoriumFX_DisplayPackages()
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & Environment.NewLine & "Type any package you want to investigate" & Environment.NewLine & "Invalid package or bad command" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & Environment.NewLine & "Type any package you want to investigate" & Environment.NewLine & "Invalid package or bad command"
End Select End Select
Case "bc" Case "bc"
Select Case Terminal.command Select Case command
Case "jim" Case "jim"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "69, the funni number" & Environment.NewLine & "gotcha!" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "69, the funni number" & Environment.NewLine & "gotcha!"
Case "ojas" Case "ojas"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "dis calculator is very gud" & Environment.NewLine & "it counts from another universe" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "dis calculator is very gud" & Environment.NewLine & "it counts from another universe"
Case "exit" Case "exit"
TerminateApp(Nothing) TerminateApp(Nothing)
Case Else Case Else
@ -189,7 +189,7 @@ Module TerminalApps
Dim GetText As String Dim GetText As String
Try Try
Do Do
GetText = Terminal.command.Chars(BC_ReadNumbers) GetText = command.Chars(BC_ReadNumbers)
Select Case GetText Select Case GetText
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9" Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
BC_CurrentNumber = BC_CurrentNumber & GetText BC_CurrentNumber = BC_CurrentNumber & GetText
@ -212,7 +212,7 @@ Module TerminalApps
End Select End Select
BC_Operation2 = GetText BC_Operation2 = GetText
Case "." Case "."
Terminal.TextBox1.Text = Terminal.TextBox1.Text & "Decimals aren't supported yet!" Console.TextBox1.Text = Console.TextBox1.Text & "Decimals aren't supported yet!"
Case Else Case Else
'BC_Counting(BC_Numbers1, BC_Numbers2, BC_Operation2) 'BC_Counting(BC_Numbers1, BC_Numbers2, BC_Operation2)
End Select End Select
@ -224,7 +224,7 @@ Module TerminalApps
End Try End Try
BC_Counting(BC_Numbers1, BC_Numbers2, BC_Operation2) BC_Counting(BC_Numbers1, BC_Numbers2, BC_Operation2)
BC_ThriceMoreValue = Nothing BC_ThriceMoreValue = Nothing
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & BC_Result Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & BC_Result
End Select End Select
End Select End Select
End Sub End Sub
@ -248,45 +248,45 @@ Module TerminalApps
End Sub End Sub
Public Sub GTN_CheckNumber() Public Sub GTN_CheckNumber()
Dim TheirNumber As Integer = Convert.ToInt32(Terminal.command) Dim TheirNumber As Integer = Convert.ToInt32(command)
If TheirNumber > 0 And TheirNumber < 51 Then If TheirNumber > 0 And TheirNumber < 51 Then
If TheirNumber = TheNumber Then If TheirNumber = TheNumber Then
Dim GetCP As New Random Dim GetCP As New Random
Dim GotCP As Integer = GetCP.Next(1, 11) Dim GotCP As Integer = GetCP.Next(1, 11)
ChangeCP(True, GotCP) ChangeCP(True, GotCP)
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "You are correct!, you got " & GotCP & " Codepoint(s)" & Environment.NewLine & "Guess the new number between 1 and 50." Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "You are correct!, you got " & GotCP & " Codepoint(s)" & Environment.NewLine & "Guess the new number between 1 and 50."
GTN_GenerateNumber() GTN_GenerateNumber()
Else Else
If TheirNumber < TheNumber Then If TheirNumber < TheNumber Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Higher!" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Higher!"
ElseIf TheirNumber > TheNumber Then ElseIf TheirNumber > TheNumber Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Lower!" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Lower!"
End If End If
End If End If
End If End If
End Sub End Sub
Public Sub ShOSKey_InputCommand(lastcommand As String) Public Sub ShOSKey_InputCommand(lastcommand As String)
Terminal.ShOSKey = lastcommand Console.ShOSKey = lastcommand
End Sub End Sub
Public Sub ShOSKey_Display() Public Sub ShOSKey_Display()
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Terminal.ShOSKey Console.TextBox1.Text = Console.TextBox1.Text & Console.ShOSKey
Try Try
Terminal.TrackPos = Terminal.ShOSKey.Length Console.TrackPos = Console.ShOSKey.Length
Catch ex As Exception Catch ex As Exception
Terminal.TrackPos = 0 Console.TrackPos = 0
End Try End Try
End Sub End Sub
Public Sub TextPad_CheckExist(TxtFileName As String) Public Sub TextPad_CheckExist(TxtFileName As String)
If File.Exists(Terminal.CurrentDirectory & "\" & TxtFileName) = True Then If File.Exists(Console.CurrentDirectory & "\" & TxtFileName) = True Then
Terminal.TextBox1.Text = My.Computer.FileSystem.ReadAllText(Terminal.CurrentDirectory & "\" & TxtFileName) Console.TextBox1.Text = My.Computer.FileSystem.ReadAllText(Console.CurrentDirectory & "\" & TxtFileName)
End If End If
End Sub End Sub
Public Sub TextPad_GenerateCP_SavedFile() Public Sub TextPad_GenerateCP_SavedFile()
Select Case Terminal.TextBox1.TextLength Select Case Console.TextBox1.TextLength
Case 1 To 9 Case 1 To 9
Dim GetCP As New Random Dim GetCP As New Random
Dim GotCP As Integer = GetCP.Next(1, 3) Dim GotCP As Integer = GetCP.Next(1, 3)
@ -307,7 +307,7 @@ Module TerminalApps
End Sub End Sub
Public Sub ShiftoriumFX_DisplayPackages() Public Sub ShiftoriumFX_DisplayPackages()
Terminal.TextBox1.Text = "Shiftorium FX!" & Environment.NewLine & "The place to shiftisize the ShiftOS" & Environment.NewLine & Environment.NewLine & "Available Package(s)" Console.TextBox1.Text = "Shiftorium FX!" & Environment.NewLine & "The place to shiftisize the ShiftOS" & Environment.NewLine & Environment.NewLine & "Available Package(s)"
Shiftorium_ListFeatures() Shiftorium_ListFeatures()
End Sub End Sub
End Module End Module

156
ShiftOS-TheRevival/MainForms/TerminalInternalApps.vb
View file

@ -3,54 +3,54 @@
Select Case Say.Length Select Case Say.Length
Case 1 To 40 Case 1 To 40
Dim SubtractLength As Integer = Say.Length + 1 Dim SubtractLength As Integer = Say.Length + 1
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " " NewLine(" ")
Do Do
Terminal.TextBox1.Text = Terminal.TextBox1.Text & "_" AddLine("_")
SubtractLength = SubtractLength - 1 SubtractLength = SubtractLength - 1
If SubtractLength = 0 Then If SubtractLength = 0 Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & "_" AddLine("_")
SubtractLength = Say.Length + 1 SubtractLength = Say.Length + 1
Exit Do Exit Do
End If End If
Loop Loop
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "< " & Say & " >" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "< " & Say & " >"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " " Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " "
Do Do
Terminal.TextBox1.Text = Terminal.TextBox1.Text & "-" Console.TextBox1.Text = Console.TextBox1.Text & "-"
SubtractLength = SubtractLength - 1 SubtractLength = SubtractLength - 1
If SubtractLength = 0 Then If SubtractLength = 0 Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & "-" Console.TextBox1.Text = Console.TextBox1.Text & "-"
SubtractLength = Say.Length + 1 SubtractLength = Say.Length + 1
Exit Do Exit Do
End If End If
Loop Loop
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " \ ^__^" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " \ ^__^"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " \ (oo)\_______" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " \ (oo)\_______"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " (__)\ )\/\" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " (__)\ )\/\"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " ||----w |" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " ||----w |"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " || ||" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " || ||"
Case 41 To 80 Case 41 To 80
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " __________________________________________ " Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " __________________________________________ "
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "/ " & Say.Substring(0, 40) & " \" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "/ " & Say.Substring(0, 40) & " \"
Say = Say.Substring(40, Say.Length - 40) Say = Say.Substring(40, Say.Length - 40)
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "\ " & Say Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "\ " & Say
Dim Spaces As Integer = 40 - Say.Length Dim Spaces As Integer = 40 - Say.Length
Do Do
Terminal.TextBox1.Text = Terminal.TextBox1.Text & " " Console.TextBox1.Text = Console.TextBox1.Text & " "
If Spaces = 0 Then If Spaces = 0 Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & "/" Console.TextBox1.Text = Console.TextBox1.Text & "/"
Exit Do Exit Do
End If End If
Spaces = Spaces - 1 Spaces = Spaces - 1
Loop Loop
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " ------------------------------------------ " Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " ------------------------------------------ "
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " \ ^__^" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " \ ^__^"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " \ (oo)\_______" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " \ (oo)\_______"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " (__)\ )\/\" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " (__)\ )\/\"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " ||----w |" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " ||----w |"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " || ||" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & " || ||"
Case >= 81 Case >= 81
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "cowsay: Character limit exceeded" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "cowsay: Character limit exceeded"
'Dim SubtractLength As Integer = Say.Length + 1 'Dim SubtractLength As Integer = Say.Length + 1
'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " __________________________________________ " 'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " __________________________________________ "
'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "/ " & Say.Substring(0, 40) & " \" 'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "/ " & Say.Substring(0, 40) & " \"
@ -92,7 +92,7 @@
'Summary of the command's action 'Summary of the command's action
' '
'Example usage : command 'Example usage : command
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual" & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual" & Environment.NewLine
'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & command.Substring(4) 'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & command.Substring(4)
Dim mancommand As String = Command.Replace("man ", "") Dim mancommand As String = Command.Replace("man ", "")
Dim TempUsage As String = "'" & mancommand & "' Usage: " Dim TempUsage As String = "'" & mancommand & "' Usage: "
@ -101,143 +101,143 @@
Case "bc" Case "bc"
If Strings.AvailableFeature(9) = "1" Then If Strings.AvailableFeature(9) = "1" Then
TempUsage = TempUsage & "bc" TempUsage = TempUsage & "bc"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_bc & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_bc & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "cd" Case "cd"
If Strings.AvailableFeature(16) = "1" Then If Strings.AvailableFeature(16) = "1" Then
TempUsage = TempUsage & "cd [DIRECTORY]" TempUsage = TempUsage & "cd [DIRECTORY]"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cd & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cd & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "clear" Case "clear"
If Strings.AvailableFeature(1) = "1" Then If Strings.AvailableFeature(1) = "1" Then
TempUsage = TempUsage & "clear" TempUsage = TempUsage & "clear"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_clear & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_clear & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "color" Case "color"
TempUsage = TempUsage & "color [bg][fg]" TempUsage = TempUsage & "color [bg][fg]"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_color & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_color & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
Case "colors" Case "colors"
TempUsage = TempUsage & "colors" TempUsage = TempUsage & "colors"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_colors & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_colors & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
Case "cowsay" Case "cowsay"
If Strings.AvailableFeature(22) = 1 Then If Strings.AvailableFeature(22) = 1 Then
TempUsage = TempUsage & "cowsay [STRING]" TempUsage = TempUsage & "cowsay [STRING]"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cowsay & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_cowsay & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "codepoint" Case "codepoint"
TempUsage = TempUsage & "codepoint" TempUsage = TempUsage & "codepoint"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_codepoint & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_codepoint & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
Case "del" Case "del"
If Strings.AvailableFeature(16) = 1 Then If Strings.AvailableFeature(16) = 1 Then
TempUsage = TempUsage & "del [FILENAME.TXT]" TempUsage = TempUsage & "del [FILENAME.TXT]"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_del & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_del & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "dir" Case "dir"
If Strings.AvailableFeature(16) = "1" Then If Strings.AvailableFeature(16) = "1" Then
TempUsage = TempUsage & "dir" TempUsage = TempUsage & "dir"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_dir & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_dir & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "guess" Case "guess"
TempUsage = TempUsage & "guess" TempUsage = TempUsage & "guess"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_guess & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_guess & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
Case "help" Case "help"
TempUsage = TempUsage & "help" TempUsage = TempUsage & "help"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_help & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_help & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
Case "hostname" Case "hostname"
If Strings.AvailableFeature(20) = 1 Then If Strings.AvailableFeature(20) = 1 Then
TempUsage = TempUsage & "hostname [HOSTNAME]" TempUsage = TempUsage & "hostname [HOSTNAME]"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_hostname & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_hostname & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "infobar" Case "infobar"
If Strings.AvailableFeature(4) = 1 Then If Strings.AvailableFeature(4) = 1 Then
TempUsage = TempUsage & "infobar [ON|OFF] [OPTION]" TempUsage = TempUsage & "infobar [ON|OFF] [OPTION]"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_infobar & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_infobar & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "man" Case "man"
If Strings.AvailableFeature(0) = "1" Then If Strings.AvailableFeature(0) = "1" Then
TempUsage = TempUsage & "man [command]" TempUsage = TempUsage & "man [command]"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_man & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_man & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "mkdir" Case "mkdir"
If Strings.AvailableFeature(16) = "1" Then If Strings.AvailableFeature(16) = "1" Then
TempUsage = TempUsage & "mkdir [DIRECTORY]" TempUsage = TempUsage & "mkdir [DIRECTORY]"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_mkdir & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_mkdir & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "print" Case "print"
If Strings.AvailableFeature(2) = "1" Then If Strings.AvailableFeature(2) = "1" Then
TempUsage = TempUsage & "print [text]" TempUsage = TempUsage & "print [text]"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_print & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_print & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "pwd" Case "pwd"
If Strings.AvailableFeature(16) = "1" Then If Strings.AvailableFeature(16) = "1" Then
TempUsage = TempUsage & "pwd" TempUsage = TempUsage & "pwd"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_pwd & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_pwd & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "reboot" Case "reboot"
TempUsage = TempUsage & "reboot" TempUsage = TempUsage & "reboot"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_reboot & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_reboot & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
Case "rmdir" Case "rmdir"
If Strings.AvailableFeature(16) = "1" Then If Strings.AvailableFeature(16) = "1" Then
TempUsage = TempUsage & "rmdir [DIRECTORY]" TempUsage = TempUsage & "rmdir [DIRECTORY]"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_rmdir & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_rmdir & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "shiftfetch" Case "shiftfetch"
If Strings.AvailableFeature(8) = "1" Then If Strings.AvailableFeature(8) = "1" Then
TempUsage = TempUsage & "shiftfetch" TempUsage = TempUsage & "shiftfetch"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftfetch & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftfetch & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "shiftorium" Case "shiftorium"
TempUsage = TempUsage & "shiftorium [option] [featureName]" TempUsage = TempUsage & "shiftorium [option] [featureName]"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftorium & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftorium & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
Case "shutdown" Case "shutdown"
TempUsage = TempUsage & "shutdown" TempUsage = TempUsage & "shutdown"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shutdown & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shutdown & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
Case "textpad" Case "textpad"
If Strings.AvailableFeature(17) = "1" Then If Strings.AvailableFeature(17) = "1" Then
TempUsage = TempUsage & "textpad [FILENAME.TXT]" TempUsage = TempUsage & "textpad [FILENAME.TXT]"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_textpad & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_textpad & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "time" Case "time"
If Strings.AvailableFeature(17) = "1" Then If Strings.AvailableFeature(17) = "1" Then
TempUsage = TempUsage & "time" TempUsage = TempUsage & "time"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_time & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_time & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "username" Case "username"
If Strings.AvailableFeature(19) = "1" Then If Strings.AvailableFeature(19) = "1" Then
TempUsage = TempUsage & "username" TempUsage = TempUsage & "username"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_username & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_username & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
End If End If
Case "ver" Case "ver"
TempUsage = TempUsage & "ver" TempUsage = TempUsage & "ver"
Terminal.TextBox1.Text = Terminal.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_ver & Environment.NewLine Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_ver & Environment.NewLine
Terminal.BadCommand = False Console.BadCommand = False
Case Else Case Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "MAN : Invalid command" Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "MAN : Invalid command"
End Select End Select
End Sub End Sub
End Module End Module

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

@ -99,6 +99,18 @@
<Compile Include="MainForms\BugSlap.vb"> <Compile Include="MainForms\BugSlap.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="MainForms\ConsoleRTF.Designer.vb">
<DependentUpon>ConsoleRTF.vb</DependentUpon>
</Compile>
<Compile Include="MainForms\ConsoleRTF.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="MainForms\DebugWindow.Designer.vb">
<DependentUpon>DebugWindow.vb</DependentUpon>
</Compile>
<Compile Include="MainForms\DebugWindow.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="MainForms\DirectoryManagements.vb" /> <Compile Include="MainForms\DirectoryManagements.vb" />
<Compile Include="MainForms\Epilepsy.Designer.vb"> <Compile Include="MainForms\Epilepsy.Designer.vb">
<DependentUpon>Epilepsy.vb</DependentUpon> <DependentUpon>Epilepsy.vb</DependentUpon>
@ -129,13 +141,15 @@
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="MainForms\Strings.vb" /> <Compile Include="MainForms\Strings.vb" />
<Compile Include="MainForms\Terminal.Designer.vb"> <Compile Include="MainForms\Console.Designer.vb">
<DependentUpon>Terminal.vb</DependentUpon> <DependentUpon>Console.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="MainForms\Terminal.vb"> <Compile Include="MainForms\Console.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="MainForms\TerminalApps.vb" /> <Compile Include="MainForms\ConsoleAPI.vb" />
<Compile Include="MainForms\TerminalAPI.vb" />
<Compile Include="MainForms\TerminalExternalApps.vb" />
<Compile Include="MainForms\TerminalColorSystem.vb" /> <Compile Include="MainForms\TerminalColorSystem.vb" />
<Compile Include="MainForms\TerminalInternalApps.vb" /> <Compile Include="MainForms\TerminalInternalApps.vb" />
<Compile Include="MainForms\TheUpdater.vb" /> <Compile Include="MainForms\TheUpdater.vb" />
@ -160,6 +174,12 @@
<EmbeddedResource Include="MainForms\BugSlap.resx"> <EmbeddedResource Include="MainForms\BugSlap.resx">
<DependentUpon>BugSlap.vb</DependentUpon> <DependentUpon>BugSlap.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="MainForms\ConsoleRTF.resx">
<DependentUpon>ConsoleRTF.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\DebugWindow.resx">
<DependentUpon>DebugWindow.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="MainForms\Epilepsy.resx"> <EmbeddedResource Include="MainForms\Epilepsy.resx">
<DependentUpon>Epilepsy.vb</DependentUpon> <DependentUpon>Epilepsy.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -169,8 +189,8 @@
<EmbeddedResource Include="MainForms\ShiftOSUpdater.resx"> <EmbeddedResource Include="MainForms\ShiftOSUpdater.resx">
<DependentUpon>ShiftOSUpdater.vb</DependentUpon> <DependentUpon>ShiftOSUpdater.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="MainForms\Terminal.resx"> <EmbeddedResource Include="MainForms\Console.resx">
<DependentUpon>Terminal.vb</DependentUpon> <DependentUpon>Console.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx"> <EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator> <Generator>VbMyResourcesResXFileCodeGenerator</Generator>