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

Terminal Display Driver added, migrating Shiftorium functions into Module

Browse source
This commit is contained in:
EverythingWindows 2022-11-04 08:56:41 +07:00
parent 37df7b5fd4
commit cd741c3850
15 changed files with 336 additions and 91 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb Normal file
View file

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

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

@ -35,8 +35,7 @@ Public Class ShiftOSMenu
Case "Free Roam Mode" Case "Free Roam Mode"
Try Try
Strings.IsFree = True Strings.IsFree = True
Strings.AvailableFeature(0) = "0" FreeRoamMode()
Strings.AvailableFeature(1) = "0"
Terminal.Show() Terminal.Show()
Close() Close()
Catch ex As Exception Catch ex As Exception
@ -107,8 +106,7 @@ Public Class ShiftOSMenu
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
If Label2.Text = "Debug it your way" Then If Label2.Text = "Debug it your way" Then
Strings.IsFree = True Strings.IsFree = True
Strings.AvailableFeature(0) = "0" GodMode()
Strings.AvailableFeature(1) = "0"
Terminal.Show() Terminal.Show()
Close() Close()
End If End If

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

@ -1,31 +1,132 @@
Module Shiftoriums Module Shiftoriums
Public Sub InstallFeature(IsCLI As Boolean, Feature As String, Codepoint As Integer) Public prompt As String
Dim TempCP As Integer = Convert.ToInt32(Strings.ComputerInfo(2))
If TempCP >= Codepoint Then Public Sub Shiftorium_ListFeatures()
Dim success As Boolean = False Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium Available Feature(s)" & Environment.NewLine
Select Case Feature If Strings.AvailableFeature(0) = "0" Then
Case "man" Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual (man | 20 CP)"
Strings.AvailableFeature(0) = "1" End If
success = True If Strings.AvailableFeature(1) = "0" Then
Case "clear" Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Clear Terminal Screen (clear | 25 CP)"
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
Else Else
If IsCLI = True Then If Strings.AvailableFeature(2) = "0" Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Insufficent Codepoint" 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 If End If
End Sub 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 End Module

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

@ -3,8 +3,9 @@
Public Shared ComputerInfo(3) As String Public Shared ComputerInfo(3) As String
Public Shared IsFree As Boolean Public Shared IsFree As Boolean
Public Shared OnceInfo(0) As String 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 CLIInterpreter As String
Public Shared SaveFile As String
'STRING CATEGORIZATION WRITING RULES! 'STRING CATEGORIZATION WRITING RULES!
'THIS IS IN ORDER TO REMAIN COMPATIBLE WITH OLDER VERSIONS! 'THIS IS IN ORDER TO REMAIN COMPATIBLE WITH OLDER VERSIONS!
@ -34,11 +35,15 @@
'2 = Codepoint (0.2) (default : 0) '2 = Codepoint (0.2) (default : 0)
'3 = Story Chapter (0.2) (default : 0 for New Game) '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) '0 = MAN command [Manual on each command] (0.2) (default : 0)
'1 = CLEAR command [Clearing the screen] (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 : 'Features bought hierarchy :
'ShiftOS Help Manual (MAN) (20 CP) 'ShiftOS Help Manual (MAN) (20 CP)
'Terminal Clear (CLEAR) (25 CP) 'Terminal Clear (CLEAR) (25 CP)
'>Terminal Print (PRINT) (30 CP)
'>>Terminal Display Driver (50 CP)
End Class End Class

112
ShiftOS-TheRevival/MainForms/Terminal.vb
View file

@ -17,7 +17,7 @@ Public Class Terminal
If Strings.IsFree = True Then If Strings.IsFree = True Then
Strings.ComputerInfo(0) = "shiftos" Strings.ComputerInfo(0) = "shiftos"
Strings.ComputerInfo(1) = "user" Strings.ComputerInfo(1) = "user"
Strings.ComputerInfo(2) = 0 'Strings.ComputerInfo(2) = 0
PrintPrompt() PrintPrompt()
AssignPrompt() AssignPrompt()
Else Else
@ -119,11 +119,15 @@ Public Class Terminal
TextBox1.Text = TextBox1.Text & Environment.NewLine & "CLEAR Clear the terminal" TextBox1.Text = TextBox1.Text & Environment.NewLine & "CLEAR Clear the terminal"
End If End If
TextBox1.Text = TextBox1.Text & Environment.NewLine & "CODEPOINT Display Codepoint(s) from your wallet" 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" TextBox1.Text = TextBox1.Text & Environment.NewLine & "HELP Shows all commands available and its corresponding action"
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" TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN Shows a command, its corresponding action, and its example usage"
End If 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 & "SHUTDOWN Terminate ShiftOS session"
TextBox1.Text = TextBox1.Text & Environment.NewLine & "SU Runs terminal as super user" 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" TextBox1.Text = TextBox1.Text & Environment.NewLine & "VER Printing current version of ShiftOS TheRevival"
@ -143,7 +147,7 @@ Public Class Terminal
ShiftOSMenu.Show() ShiftOSMenu.Show()
Close() Close()
Case "ver" 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 AdvancedCommand = False
BadCommand = False BadCommand = False
End Select End Select
@ -175,21 +179,37 @@ Public Class Terminal
TempUsage = TempUsage & "codepoint" TempUsage = TempUsage & "codepoint"
TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_codepoint & Environment.NewLine TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_codepoint & Environment.NewLine
BadCommand = False 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" Case "help"
TempUsage = TempUsage & "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 BadCommand = False
Case "man" Case "man"
TempUsage = TempUsage & "man [command]" If Strings.AvailableFeature(0) = "1" Then
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" 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 BadCommand = False
Case "shutdown" Case "shutdown"
TempUsage = TempUsage & "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 BadCommand = False
Case "ver" Case "ver"
TempUsage = TempUsage & "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 BadCommand = False
Case Else Case Else
TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN : Invalid command" TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN : Invalid command"
@ -200,58 +220,26 @@ Public Class Terminal
Dim prompt As String = command.Replace("shiftorium ", "") Dim prompt As String = command.Replace("shiftorium ", "")
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium ShiftOS Center" TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium ShiftOS Center"
If prompt Like "info *" Then If prompt Like "info *" Then
prompt = command.Replace("shiftorium info ", "") Shiftoriums.prompt = command.Replace("shiftorium info ", "")
'ManHeader is for the ShiftOS Help Manual header and the 'Cost' footer, kinda like template-ish Shiftorium_InformationFeatures()
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
End If End If
If prompt Like "install *" Then If prompt Like "install *" Then
prompt = command.Replace("shiftorium install ", "") Shiftoriums.prompt = command.Replace("shiftorium install ", "")
Select Case prompt Shiftorium_DetectInstallFeatures()
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
End If End If
If prompt = "list" Then If prompt = "list" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium Available Feature(s)" & Environment.NewLine Shiftorium_ListFeatures()
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
BadCommand = False BadCommand = False
End If End If
End If End If
If command Like "print *" Then If command Like "print *" Then
TextBox1.Text = TextBox1.Text & Environment.NewLine & command.Substring(6) If Strings.AvailableFeature(2) = "1" Then
Dim printed As String = command.Replace("print ", "") TextBox1.Text = TextBox1.Text & Environment.NewLine & command.Substring(6)
''It has the same issue, only displays in lowercase Dim printed As String = command.Replace("print ", "")
'TextBox1.Text = TextBox1.Text & Environment.NewLine & printed ''It has the same issue, only displays in lowercase
BadCommand = False 'TextBox1.Text = TextBox1.Text & Environment.NewLine & printed
BadCommand = False
End If
End If End If
AdvancedCommand = False AdvancedCommand = False
End If End If
@ -301,15 +289,19 @@ Public Class Terminal
If e.KeyCode = Keys.Enter Then If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True e.SuppressKeyPress = True
ReadCommand() If TextBox1.ReadOnly = True Then
If ChangeInterpreter = True Then
DoChildCommand()
PrintPrompt()
TextBox1.Select(TextBox1.Text.Length, 0)
Else Else
DoCommand() ReadCommand()
PrintPrompt() If ChangeInterpreter = True Then
TextBox1.Select(TextBox1.Text.Length, 0) DoChildCommand()
PrintPrompt()
TextBox1.Select(TextBox1.Text.Length, 0)
Else
DoCommand()
PrintPrompt()
TextBox1.Select(TextBox1.Text.Length, 0)
End If
End If End If
'If command = "clear" Then 'If command = "clear" Then

76
ShiftOS-TheRevival/My Project/Resources.Designer.vb generated
View file

@ -95,5 +95,81 @@ Namespace My.Resources
Return ResourceManager.GetString("man_codepoint", resourceCulture) Return ResourceManager.GetString("man_codepoint", resourceCulture)
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized string similar to Runs the &apos;Guess the Number&apos; application..
'''</summary>
Friend ReadOnly Property man_guess() As String
Get
Return ResourceManager.GetString("man_guess", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to Shows all commands available in the terminal and its brief explanation of action.
'''</summary>
Friend ReadOnly Property man_help() As String
Get
Return ResourceManager.GetString("man_help", resourceCulture)
End Get
End Property
'''<summary>
''' 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.
'''</summary>
Friend ReadOnly Property man_man() As String
Get
Return ResourceManager.GetString("man_man", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to .
'''</summary>
Friend ReadOnly Property man_print() As String
Get
Return ResourceManager.GetString("man_print", resourceCulture)
End Get
End Property
'''<summary>
''' 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.
'''</summary>
Friend ReadOnly Property man_shiftorium() As String
Get
Return ResourceManager.GetString("man_shiftorium", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to Terminate ShiftOS session.
'''</summary>
Friend ReadOnly Property man_shutdown() As String
Get
Return ResourceManager.GetString("man_shutdown", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to Displays current version of ShiftOS TheRevival.
'''</summary>
Friend ReadOnly Property man_ver() As String
Get
Return ResourceManager.GetString("man_ver", resourceCulture)
End Get
End Property
End Module End Module
End Namespace End Namespace

21
ShiftOS-TheRevival/My Project/Resources.resx
View file

@ -130,4 +130,25 @@
<data name="man_codepoint" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="man_codepoint" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\codepoint.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value> <value>..\resources\man manuals\codepoint.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data> </data>
<data name="man_guess" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\guess.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_help" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\help.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_man" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\man.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_print" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\print.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_shiftorium" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\shiftorium.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_shutdown" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\shutdown.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="man_ver" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\man manuals\ver.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
</root> </root>

1
ShiftOS-TheRevival/Resources/man Manuals/guess.txt Normal file
View file

@ -0,0 +1 @@
Runs the 'Guess the Number' application.

1
ShiftOS-TheRevival/Resources/man Manuals/help.txt Normal file
View file

@ -0,0 +1 @@
Shows all commands available in the terminal and its brief explanation of action

5
ShiftOS-TheRevival/Resources/man Manuals/man.txt Normal file
View file

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

1
ShiftOS-TheRevival/Resources/man Manuals/print.txt Normal file
View file

@ -0,0 +1 @@
Prints a corresponding text entered in the command

10
ShiftOS-TheRevival/Resources/man Manuals/shiftorium.txt Normal file
View file

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

1
ShiftOS-TheRevival/Resources/man Manuals/shutdown.txt Normal file
View file

@ -0,0 +1 @@
Terminate ShiftOS session

1
ShiftOS-TheRevival/Resources/man Manuals/ver.txt Normal file
View file

@ -0,0 +1 @@
Displays current version of ShiftOS TheRevival

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

@ -105,6 +105,7 @@
<Compile Include="MainForms\IntroStory.vb"> <Compile Include="MainForms\IntroStory.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="MainForms\SaveLoadSystem.vb" />
<Compile Include="MainForms\Shiftoriums.vb" /> <Compile Include="MainForms\Shiftoriums.vb" />
<Compile Include="MainForms\ShiftOSMenu.vb"> <Compile Include="MainForms\ShiftOSMenu.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
@ -197,6 +198,13 @@
<None Include="Resources\CurrentVersion.txt" /> <None Include="Resources\CurrentVersion.txt" />
<Content Include="Resources\man Manuals\clear.txt" /> <Content Include="Resources\man Manuals\clear.txt" />
<Content Include="Resources\man Manuals\codepoint.txt" /> <Content Include="Resources\man Manuals\codepoint.txt" />
<Content Include="Resources\man Manuals\guess.txt" />
<Content Include="Resources\man Manuals\help.txt" />
<Content Include="Resources\man Manuals\man.txt" />
<Content Include="Resources\man Manuals\print.txt" />
<Content Include="Resources\man Manuals\shiftorium.txt" />
<Content Include="Resources\man Manuals\shutdown.txt" />
<Content Include="Resources\man Manuals\ver.txt" />
<Content Include="ShiftOS.ico" /> <Content Include="ShiftOS.ico" />
</ItemGroup> </ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />