diff --git a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb
new file mode 100644
index 0000000..0499d5b
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb
@@ -0,0 +1,24 @@
+Module SaveLoadSystem
+
+ Public Sub NewGameMode()
+ Strings.AvailableFeature(0) = "0"
+ Strings.AvailableFeature(1) = "0"
+ Strings.AvailableFeature(2) = "2"
+ Strings.AvailableFeature(3) = "2"
+ End Sub
+
+ Public Sub FreeRoamMode()
+ Strings.AvailableFeature(0) = "1"
+ Strings.AvailableFeature(1) = "1"
+ Strings.AvailableFeature(2) = "1"
+ Strings.AvailableFeature(3) = "1"
+ End Sub
+
+ Public Sub GodMode()
+ Strings.ComputerInfo(2) = 9999
+ Strings.AvailableFeature(0) = "0"
+ Strings.AvailableFeature(1) = "0"
+ Strings.AvailableFeature(2) = "2"
+ Strings.AvailableFeature(3) = "2"
+ End Sub
+End Module
diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb
index 156e353..029a662 100644
--- a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb
+++ b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb
@@ -35,8 +35,7 @@ Public Class ShiftOSMenu
Case "Free Roam Mode"
Try
Strings.IsFree = True
- Strings.AvailableFeature(0) = "0"
- Strings.AvailableFeature(1) = "0"
+ FreeRoamMode()
Terminal.Show()
Close()
Catch ex As Exception
@@ -107,8 +106,7 @@ Public Class ShiftOSMenu
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
If Label2.Text = "Debug it your way" Then
Strings.IsFree = True
- Strings.AvailableFeature(0) = "0"
- Strings.AvailableFeature(1) = "0"
+ GodMode()
Terminal.Show()
Close()
End If
diff --git a/ShiftOS-TheRevival/MainForms/Shiftoriums.vb b/ShiftOS-TheRevival/MainForms/Shiftoriums.vb
index 5beb371..595c1ac 100644
--- a/ShiftOS-TheRevival/MainForms/Shiftoriums.vb
+++ b/ShiftOS-TheRevival/MainForms/Shiftoriums.vb
@@ -1,31 +1,132 @@
Module Shiftoriums
- Public Sub InstallFeature(IsCLI As Boolean, Feature As String, Codepoint As Integer)
- Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
- If TempCP >= Codepoint Then
- Dim success As Boolean = False
- Select Case Feature
- Case "man"
- Strings.AvailableFeature(0) = "1"
- success = True
- Case "clear"
- Strings.AvailableFeature(1) = "1"
- success = True
- End Select
- If success = False Then
- If IsCLI = True Then
- Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Invalid command or feature already installed"
- End If
- Else
- TempCP = TempCP - Codepoint
- Strings.ComputerInfo(2) = Convert.ToString(TempCP)
- If IsCLI = True Then
- Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Feature has been install succesfully"
- End If
- End If
+ Public prompt As String
+
+ Public Sub Shiftorium_ListFeatures()
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium Available Feature(s)" & Environment.NewLine
+ If Strings.AvailableFeature(0) = "0" Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual (man | 20 CP)"
+ End If
+ If Strings.AvailableFeature(1) = "0" Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Clear Terminal Screen (clear | 25 CP)"
Else
- If IsCLI = True Then
- Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Insufficent Codepoint"
+ If Strings.AvailableFeature(2) = "0" Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Print Terminal Screen (print | 30 CP)"
+ Else
+ If Strings.AvailableFeature(3) = "0" Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Terminal Display Driver (termdspdrv | 50 CP)"
+ End If
End If
End If
End Sub
+
+ Public Sub Shiftorium_InformationFeatures()
+ 'ManHeader is for the ShiftOS Help Manual header and the 'Cost' footer, kinda like template-ish
+ Dim ManHeader(1) As String
+ 'ManHeader(0) = Insert any feature here for the Case prompt
+ ManHeader(1) = "Cost: "
+ Select Case prompt
+ Case "man"
+ If Strings.AvailableFeature(0) = "0" Then
+ ManHeader(0) = "ShiftOS Help Manual (command: man)"
+ ManHeader(1) = "20 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)
+ Terminal.BadCommand = False
+ End If
+ Case "clear"
+ If Strings.AvailableFeature(1) = "0" Then
+ ManHeader(0) = "Clear Terminal Screen (command: clear)"
+ ManHeader(1) = "25 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)
+ Terminal.BadCommand = False
+ End If
+ Case "print"
+ If Strings.AvailableFeature(2) = "0" Then
+ ManHeader(0) = "Print Command (command: print)"
+ ManHeader(1) = "30 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)
+ Terminal.BadCommand = False
+ End If
+ Case "termdspdrv"
+ If Strings.AvailableFeature(3) = "0" Then
+ ManHeader(0) = "Terminal Display Driver"
+ ManHeader(1) = "50 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)
+ Terminal.BadCommand = False
+ End If
+ Case Else
+ Terminal.BadCommand = False
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
+ End Select
+ End Sub
+
+ Public Sub Shiftorium_DetectInstallFeatures()
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Installing feature..."
+ Select Case prompt
+ Case "man"
+ Shiftorium_InstallFeatures(True, "man", 0, 20)
+ Terminal.BadCommand = False
+ Case "clear"
+ Shiftorium_InstallFeatures(True, "clear", 1, 25)
+ Terminal.BadCommand = False
+ Case "print"
+ Shiftorium_InstallFeatures(True, "print", 2, 30)
+ Terminal.BadCommand = False
+ Case "termdspdrv"
+ Shiftorium_InstallFeatures(True, "termdspdrv", 3, 50)
+ Terminal.BadCommand = False
+ Case Else
+ Terminal.BadCommand = False
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
+ End Select
+ End Sub
+
+ Public Sub Shiftorium_InstallFeatures(IsCLI As Boolean, Feature As String, FeatureRow As Integer, Codepoint As Integer)
+ Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
+ Select Case Strings.AvailableFeature(FeatureRow)
+ Case "0"
+ If TempCP >= Codepoint Then
+ Dim success As Boolean = False
+ Select Case Feature
+ Case "man"
+ Strings.AvailableFeature(0) = "1"
+ success = True
+ Case "clear"
+ Strings.AvailableFeature(1) = "1"
+ Strings.AvailableFeature(2) = "0"
+ success = True
+ Case "print"
+ Strings.AvailableFeature(2) = "1"
+ Strings.AvailableFeature(3) = "0"
+ success = True
+ Case "termdspdrv"
+ Strings.AvailableFeature(3) = "1"
+ 'Strings.AvailableFeature(3) = "0"
+ success = True
+ End Select
+ If success = False Then
+ If IsCLI = True Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Invalid command or feature already installed"
+ End If
+ Else
+ TempCP = TempCP - Codepoint
+ Strings.ComputerInfo(2) = Convert.ToString(TempCP)
+ If IsCLI = True Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Feature has been install succesfully"
+ End If
+ End If
+ Else
+ If IsCLI = True Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Insufficent Codepoint"
+ End If
+ End If
+ Case "1"
+ If IsCLI = True Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature has already been installed"
+ End If
+ Case "2"
+ If IsCLI = True Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Feature is not available"
+ End If
+ End Select
+ End Sub
End Module
diff --git a/ShiftOS-TheRevival/MainForms/Strings.vb b/ShiftOS-TheRevival/MainForms/Strings.vb
index a75546e..cead842 100644
--- a/ShiftOS-TheRevival/MainForms/Strings.vb
+++ b/ShiftOS-TheRevival/MainForms/Strings.vb
@@ -3,8 +3,9 @@
Public Shared ComputerInfo(3) As String
Public Shared IsFree As Boolean
Public Shared OnceInfo(0) As String
- Public Shared AvailableFeature(1) As String
+ Public Shared AvailableFeature(3) As String
Public Shared CLIInterpreter As String
+ Public Shared SaveFile As String
'STRING CATEGORIZATION WRITING RULES!
'THIS IS IN ORDER TO REMAIN COMPATIBLE WITH OLDER VERSIONS!
@@ -34,11 +35,15 @@
'2 = Codepoint (0.2) (default : 0)
'3 = Story Chapter (0.2) (default : 0 for New Game)
'
- 'AvailableFeature (Default is defined on the Story Mode, Free Mode automatically assigns every available feature to 1)Strings:
+ 'AvailableFeature (Default is defined on the Story Mode, Free Mode automatically assigns every available feature to 1, Unavailable in the Shiftorium assigned as 2) Strings:
'0 = MAN command [Manual on each command] (0.2) (default : 0)
'1 = CLEAR command [Clearing the screen] (0.2) (default : 0)
+ '2 = PRINT command [Printing a string] (0.2.2) (default : 0)
+ '3 = Terminal Display Driver [Dependencies for advanced terminal applications] (0.2.2) (default : 0)
'
'Features bought hierarchy :
'ShiftOS Help Manual (MAN) (20 CP)
'Terminal Clear (CLEAR) (25 CP)
+ '>Terminal Print (PRINT) (30 CP)
+ '>>Terminal Display Driver (50 CP)
End Class
diff --git a/ShiftOS-TheRevival/MainForms/Terminal.vb b/ShiftOS-TheRevival/MainForms/Terminal.vb
index ab7535a..1f11e9e 100644
--- a/ShiftOS-TheRevival/MainForms/Terminal.vb
+++ b/ShiftOS-TheRevival/MainForms/Terminal.vb
@@ -17,7 +17,7 @@ Public Class Terminal
If Strings.IsFree = True Then
Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user"
- Strings.ComputerInfo(2) = 0
+ 'Strings.ComputerInfo(2) = 0
PrintPrompt()
AssignPrompt()
Else
@@ -119,11 +119,15 @@ Public Class Terminal
TextBox1.Text = TextBox1.Text & Environment.NewLine & "CLEAR Clear the terminal"
End If
TextBox1.Text = TextBox1.Text & Environment.NewLine & "CODEPOINT Display Codepoint(s) from your wallet"
+ TextBox1.Text = TextBox1.Text & Environment.NewLine & "GUESS Runs 'Guess the Number' application"
TextBox1.Text = TextBox1.Text & Environment.NewLine & "HELP Shows all commands available and its corresponding action"
If Strings.AvailableFeature(0) = 1 Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN Shows a command, its corresponding action, and its example usage"
End If
- TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHIFTORIUM Terminate ShiftOS session"
+ If Strings.AvailableFeature(2) = 1 Then
+ TextBox1.Text = TextBox1.Text & Environment.NewLine & "PRINT Prints a corresponding text entered in the command"
+ End If
+ TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHIFTORIUM A software center for upgrading features on ShiftOS"
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SHUTDOWN Terminate ShiftOS session"
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SU Runs terminal as super user"
TextBox1.Text = TextBox1.Text & Environment.NewLine & "VER Printing current version of ShiftOS TheRevival"
@@ -143,7 +147,7 @@ Public Class Terminal
ShiftOSMenu.Show()
Close()
Case "ver"
- TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS TheRevival version 0.1.1"
+ TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS TheRevival version " & My.Resources.CurrentVersion
AdvancedCommand = False
BadCommand = False
End Select
@@ -175,21 +179,37 @@ Public Class Terminal
TempUsage = TempUsage & "codepoint"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_codepoint & Environment.NewLine
BadCommand = False
+ Case "guess"
+ TempUsage = TempUsage & "guess"
+ TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_guess & Environment.NewLine
+ BadCommand = False
Case "help"
TempUsage = TempUsage & "help"
- TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & "Shows all commands available in the terminal and its brief explanation of action" & Environment.NewLine
+ TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_help & Environment.NewLine
BadCommand = False
Case "man"
- TempUsage = TempUsage & "man [command]"
- TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & "Shows up a manual on each corresponding command and its example of action" & Environment.NewLine & Environment.NewLine & "[COMMAND] Any command that you want to get the manual for" & Environment.NewLine & Environment.NewLine & "Example: man help"
+ If Strings.AvailableFeature(0) = "1" Then
+ TempUsage = TempUsage & "man [command]"
+ TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_man & Environment.NewLine
+ BadCommand = False
+ End If
+ Case "print"
+ If Strings.AvailableFeature(2) = "1" Then
+ TempUsage = TempUsage & "print [text]"
+ TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_print & Environment.NewLine
+ BadCommand = False
+ End If
+ Case "shiftorium"
+ TempUsage = TempUsage & "shiftorium [option] [featureName]"
+ TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shiftorium & Environment.NewLine
BadCommand = False
Case "shutdown"
TempUsage = TempUsage & "shutdown"
- TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & "Terminate ShiftOS session" & Environment.NewLine
+ TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_shutdown & Environment.NewLine
BadCommand = False
Case "ver"
TempUsage = TempUsage & "ver"
- TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & "Displays current version of ShiftOS TheRevival" & Environment.NewLine
+ TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_ver & Environment.NewLine
BadCommand = False
Case Else
TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN : Invalid command"
@@ -200,58 +220,26 @@ Public Class Terminal
Dim prompt As String = command.Replace("shiftorium ", "")
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium ShiftOS Center"
If prompt Like "info *" Then
- prompt = command.Replace("shiftorium info ", "")
- 'ManHeader is for the ShiftOS Help Manual header and the 'Cost' footer, kinda like template-ish
- Dim ManHeader(1) As String
- 'ManHeader(0) = Insert any feature here for the Case prompt
- ManHeader(1) = "Cost: "
- Select Case prompt
- Case "man"
- ManHeader(0) = "ShiftOS Help Manual (command: man)"
- ManHeader(1) = "20 CP"
- TextBox1.Text = 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)
- BadCommand = False
- Case "clear"
- ManHeader(0) = "Clear Terminal Screen (command: clear)"
- ManHeader(1) = "25 CP"
- TextBox1.Text = TextBox1.Text & Environment.NewLine & ManHeader(0) & Environment.NewLine & Environment.NewLine & "Clears the terminal screen" & Environment.NewLine & Environment.NewLine & ManHeader(1)
- BadCommand = False
- Case Else
- BadCommand = False
- TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
- End Select
+ Shiftoriums.prompt = command.Replace("shiftorium info ", "")
+ Shiftorium_InformationFeatures()
End If
If prompt Like "install *" Then
- prompt = command.Replace("shiftorium install ", "")
- Select Case prompt
- Case "man"
- InstallFeature(True, "man", 20)
- BadCommand = False
- Case "clear"
- InstallFeature(True, "clear", 25)
- BadCommand = False
- Case Else
- BadCommand = False
- TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
- End Select
+ Shiftoriums.prompt = command.Replace("shiftorium install ", "")
+ Shiftorium_DetectInstallFeatures()
End If
If prompt = "list" Then
- TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium Available Feature(s)" & Environment.NewLine
- If Strings.AvailableFeature(0) = "0" Then
- TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual (20 CP)"
- End If
- If Strings.AvailableFeature(1) = "0" Then
- TextBox1.Text = TextBox1.Text & Environment.NewLine & "Clear Terminal Screen (25 CP)"
- End If
+ Shiftorium_ListFeatures()
BadCommand = False
End If
End If
If command Like "print *" Then
- TextBox1.Text = TextBox1.Text & Environment.NewLine & command.Substring(6)
- Dim printed As String = command.Replace("print ", "")
- ''It has the same issue, only displays in lowercase
- 'TextBox1.Text = TextBox1.Text & Environment.NewLine & printed
- BadCommand = False
+ If Strings.AvailableFeature(2) = "1" Then
+ TextBox1.Text = TextBox1.Text & Environment.NewLine & command.Substring(6)
+ Dim printed As String = command.Replace("print ", "")
+ ''It has the same issue, only displays in lowercase
+ 'TextBox1.Text = TextBox1.Text & Environment.NewLine & printed
+ BadCommand = False
+ End If
End If
AdvancedCommand = False
End If
@@ -301,15 +289,19 @@ Public Class Terminal
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
- ReadCommand()
- If ChangeInterpreter = True Then
- DoChildCommand()
- PrintPrompt()
- TextBox1.Select(TextBox1.Text.Length, 0)
+ If TextBox1.ReadOnly = True Then
+
Else
- DoCommand()
- PrintPrompt()
- TextBox1.Select(TextBox1.Text.Length, 0)
+ 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
diff --git a/ShiftOS-TheRevival/My Project/Resources.Designer.vb b/ShiftOS-TheRevival/My Project/Resources.Designer.vb
index b1c515d..9ce02a8 100644
--- a/ShiftOS-TheRevival/My Project/Resources.Designer.vb
+++ b/ShiftOS-TheRevival/My Project/Resources.Designer.vb
@@ -95,5 +95,81 @@ Namespace My.Resources
Return ResourceManager.GetString("man_codepoint", resourceCulture)
End Get
End Property
+
+ '''
+ ''' Looks up a localized string similar to Runs the 'Guess the Number' application..
+ '''
+ Friend ReadOnly Property man_guess() As String
+ Get
+ Return ResourceManager.GetString("man_guess", resourceCulture)
+ End Get
+ End Property
+
+ '''
+ ''' Looks up a localized string similar to Shows all commands available in the terminal and its brief explanation of action.
+ '''
+ Friend ReadOnly Property man_help() As String
+ Get
+ Return ResourceManager.GetString("man_help", resourceCulture)
+ End Get
+ End Property
+
+ '''
+ ''' Looks up a localized string similar to Shows up a manual on each corresponding command and its example of action
+ '''
+ '''[COMMAND] Any command that you want to get the manual for
+ '''
+ '''Example: man help.
+ '''
+ Friend ReadOnly Property man_man() As String
+ Get
+ Return ResourceManager.GetString("man_man", resourceCulture)
+ End Get
+ End Property
+
+ '''
+ ''' Looks up a localized string similar to .
+ '''
+ Friend ReadOnly Property man_print() As String
+ Get
+ Return ResourceManager.GetString("man_print", resourceCulture)
+ End Get
+ End Property
+
+ '''
+ ''' Looks up a localized string similar to A software center for upgrading features in ShiftOS
+ '''
+ '''[OPTION] Shiftorium execute mode
+ '''LIST Printing a list of available upgrade in ShiftOS
+ '''INFO Displays informations such as description, instruction, and example command
+ '''INSTALL Install the selected feature to ShiftOS (if the Codepoints are either equal or more to required)
+ '''
+ '''[featureName] Feature name
+ '''
+ '''Example: shiftorium install man, shiftorium info clear.
+ '''
+ Friend ReadOnly Property man_shiftorium() As String
+ Get
+ Return ResourceManager.GetString("man_shiftorium", resourceCulture)
+ End Get
+ End Property
+
+ '''
+ ''' Looks up a localized string similar to Terminate ShiftOS session.
+ '''
+ Friend ReadOnly Property man_shutdown() As String
+ Get
+ Return ResourceManager.GetString("man_shutdown", resourceCulture)
+ End Get
+ End Property
+
+ '''
+ ''' Looks up a localized string similar to Displays current version of ShiftOS TheRevival.
+ '''
+ Friend ReadOnly Property man_ver() As String
+ Get
+ Return ResourceManager.GetString("man_ver", resourceCulture)
+ End Get
+ End Property
End Module
End Namespace
diff --git a/ShiftOS-TheRevival/My Project/Resources.resx b/ShiftOS-TheRevival/My Project/Resources.resx
index 66c67b0..07ea33f 100644
--- a/ShiftOS-TheRevival/My Project/Resources.resx
+++ b/ShiftOS-TheRevival/My Project/Resources.resx
@@ -130,4 +130,25 @@
..\resources\man manuals\codepoint.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8
+
+ ..\resources\man manuals\guess.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8
+
+
+ ..\resources\man manuals\help.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8
+
+
+ ..\resources\man manuals\man.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8
+
+
+ ..\resources\man manuals\print.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8
+
+
+ ..\resources\man manuals\shiftorium.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8
+
+
+ ..\resources\man manuals\shutdown.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8
+
+
+ ..\resources\man manuals\ver.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8
+
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/Resources/man Manuals/guess.txt b/ShiftOS-TheRevival/Resources/man Manuals/guess.txt
new file mode 100644
index 0000000..dc73bed
--- /dev/null
+++ b/ShiftOS-TheRevival/Resources/man Manuals/guess.txt
@@ -0,0 +1 @@
+Runs the 'Guess the Number' application.
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/Resources/man Manuals/help.txt b/ShiftOS-TheRevival/Resources/man Manuals/help.txt
new file mode 100644
index 0000000..ef319a2
--- /dev/null
+++ b/ShiftOS-TheRevival/Resources/man Manuals/help.txt
@@ -0,0 +1 @@
+Shows all commands available in the terminal and its brief explanation of action
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/Resources/man Manuals/man.txt b/ShiftOS-TheRevival/Resources/man Manuals/man.txt
new file mode 100644
index 0000000..53eb94f
--- /dev/null
+++ b/ShiftOS-TheRevival/Resources/man Manuals/man.txt
@@ -0,0 +1,5 @@
+Shows up a manual on each corresponding command and its example of action
+
+[COMMAND] Any command that you want to get the manual for
+
+Example: man help
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/Resources/man Manuals/print.txt b/ShiftOS-TheRevival/Resources/man Manuals/print.txt
new file mode 100644
index 0000000..8a7d1d6
--- /dev/null
+++ b/ShiftOS-TheRevival/Resources/man Manuals/print.txt
@@ -0,0 +1 @@
+Prints a corresponding text entered in the command
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/Resources/man Manuals/shiftorium.txt b/ShiftOS-TheRevival/Resources/man Manuals/shiftorium.txt
new file mode 100644
index 0000000..8850656
--- /dev/null
+++ b/ShiftOS-TheRevival/Resources/man Manuals/shiftorium.txt
@@ -0,0 +1,10 @@
+A software center for upgrading features in ShiftOS
+
+[OPTION] Shiftorium execute mode
+LIST Printing a list of available upgrade in ShiftOS
+INFO Displays informations such as description, instruction, and example command
+INSTALL Install the selected feature to ShiftOS (if the Codepoints are either equal or more to required)
+
+[featureName] Feature name
+
+Example: shiftorium install man, shiftorium info clear
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/Resources/man Manuals/shutdown.txt b/ShiftOS-TheRevival/Resources/man Manuals/shutdown.txt
new file mode 100644
index 0000000..f2d4f32
--- /dev/null
+++ b/ShiftOS-TheRevival/Resources/man Manuals/shutdown.txt
@@ -0,0 +1 @@
+Terminate ShiftOS session
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/Resources/man Manuals/ver.txt b/ShiftOS-TheRevival/Resources/man Manuals/ver.txt
new file mode 100644
index 0000000..286b302
--- /dev/null
+++ b/ShiftOS-TheRevival/Resources/man Manuals/ver.txt
@@ -0,0 +1 @@
+Displays current version of ShiftOS TheRevival
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
index f847f01..a36a0d6 100644
--- a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
+++ b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
@@ -105,6 +105,7 @@
Form
+
Form
@@ -197,6 +198,13 @@
+
+
+
+
+
+
+