diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb
index 4993b08..167da32 100644
--- a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb
+++ b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb
@@ -34,6 +34,8 @@ Public Class ShiftOSMenu
Case "Free Roam Mode"
Try
Strings.IsFree = True
+ Strings.AvailableFeature(0) = "0"
+ Strings.AvailableFeature(1) = "0"
Terminal.Show()
Close()
Catch ex As Exception
diff --git a/ShiftOS-TheRevival/MainForms/Shiftoriums.vb b/ShiftOS-TheRevival/MainForms/Shiftoriums.vb
new file mode 100644
index 0000000..5beb371
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/Shiftoriums.vb
@@ -0,0 +1,31 @@
+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
+ Else
+ If IsCLI = True Then
+ Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Insufficent Codepoint"
+ End If
+ End If
+ End Sub
+End Module
diff --git a/ShiftOS-TheRevival/MainForms/Strings.vb b/ShiftOS-TheRevival/MainForms/Strings.vb
index 5a84488..fe3f311 100644
--- a/ShiftOS-TheRevival/MainForms/Strings.vb
+++ b/ShiftOS-TheRevival/MainForms/Strings.vb
@@ -38,6 +38,6 @@
'1 = CLEAR command [Clearing the screen] (0.2) (default : 0)
'
'Features bought hierarchy :
- 'MAN (20 CP)
- 'CLEAR (25 CP)
+ 'ShiftOS Help Manual (MAN) (20 CP)
+ 'Terminal Clear (CLEAR) (25 CP)
End Class
diff --git a/ShiftOS-TheRevival/MainForms/Terminal.vb b/ShiftOS-TheRevival/MainForms/Terminal.vb
index c297dbd..368b745 100644
--- a/ShiftOS-TheRevival/MainForms/Terminal.vb
+++ b/ShiftOS-TheRevival/MainForms/Terminal.vb
@@ -75,6 +75,11 @@
Case "guess"
'AppHost("gtn")
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"
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."
If Strings.AvailableFeature(0) = 1 Then
@@ -83,7 +88,7 @@
TextBox1.Text = TextBox1.Text & Environment.NewLine
End If
If Strings.AvailableFeature(1) = 1 Then
- TextBox1.Text = TextBox1.Text & Environment.NewLine & "CLEAR Clear the 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 & "HELP Shows all commands available and its corresponding action"
@@ -117,58 +122,97 @@
If AdvancedCommand = True Then
If command Like "man *" Then
- 'MAN command starts with this kinda format
- 'ShiftOS Help Manual
- '
- ''command' Usage: [switch/value if needed]
- '
- 'Summary of the command's action
- '
- 'Example usage : command
- TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual" & Environment.NewLine
- 'TextBox1.Text = TextBox1.Text & Environment.NewLine & command.Substring(4)
- Dim mancommand As String = command.Replace("man ", "")
- Dim TempUsage As String = "'" & mancommand & "' Usage: "
- Select Case mancommand
- Case "clear"
- TempUsage = TempUsage & "clear"
- TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & "Clears all contents of the terminal" & Environment.NewLine
- BadCommand = False
- Case "codepoint"
- TempUsage = TempUsage & "codepoint"
- TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & "Shows the value of codepoint in your wallet" & 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
- 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"
- BadCommand = False
- Case "shutdown"
- TempUsage = TempUsage & "shutdown"
- TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & "Terminate ShiftOS session" & 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
- BadCommand = False
- Case Else
- TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN : Invalid command"
- End Select
-
+ If Strings.AvailableFeature(0) = "1" Then
+ 'MAN command starts with this kinda format
+ 'ShiftOS Help Manual
+ '
+ ''command' Usage: [switch/value if needed]
+ '
+ 'Summary of the command's action
+ '
+ 'Example usage : command
+ TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS Help Manual" & Environment.NewLine
+ 'TextBox1.Text = TextBox1.Text & Environment.NewLine & command.Substring(4)
+ Dim mancommand As String = command.Replace("man ", "")
+ Dim TempUsage As String = "'" & mancommand & "' Usage: "
+ Select Case mancommand
+ Case "clear"
+ TempUsage = TempUsage & "clear"
+ TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & "Clears all contents of the terminal" & Environment.NewLine
+ BadCommand = False
+ Case "codepoint"
+ TempUsage = TempUsage & "codepoint"
+ TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & "Shows the value of codepoint in your wallet" & 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
+ 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"
+ BadCommand = False
+ Case "shutdown"
+ TempUsage = TempUsage & "shutdown"
+ TextBox1.Text = TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & "Terminate ShiftOS session" & 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
+ BadCommand = False
+ Case Else
+ TextBox1.Text = TextBox1.Text & Environment.NewLine & "MAN : Invalid command"
+ End Select
+ End If
End If
If command Like "shiftorium *" Then
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
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
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
+ BadCommand = False
End If
End If
If command Like "print *" Then
diff --git a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
index 5dcedf9..10cec8a 100644
--- a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
+++ b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
@@ -99,6 +99,7 @@
Form
+
Form