From f93ea520e93ae1ce345a6544a1e3f4e363bdce1f Mon Sep 17 00:00:00 2001
From: EverythingWindows <windowseverything61@gmail.com>
Date: Wed, 2 Nov 2022 09:57:21 +0700
Subject: [PATCH] added more command

---
 ShiftOS-TheRevival/MainForms/Strings.vb  |  8 ++++++--
 ShiftOS-TheRevival/MainForms/Terminal.vb | 23 +++++++++++++++++++++++
 2 files changed, 29 insertions(+), 2 deletions(-)

diff --git a/ShiftOS-TheRevival/MainForms/Strings.vb b/ShiftOS-TheRevival/MainForms/Strings.vb
index f6cb57a..1d840d4 100644
--- a/ShiftOS-TheRevival/MainForms/Strings.vb
+++ b/ShiftOS-TheRevival/MainForms/Strings.vb
@@ -1,10 +1,10 @@
 Public Class Strings
     Public Shared OSInfo() As String
-    Public Shared ComputerInfo(1) As String
+    Public Shared ComputerInfo(2) As String
     Public Shared IsFree As Boolean
     Public Shared OnceInfo(0) As String
     Public Shared StoryChapter As Integer
-    Public Shared AvailableFeature() As String
+    Public Shared AvailableFeature(1) As String
 
     'STRING CATEGORIZATION WRITING RULES!
     'THIS IS IN ORDER TO REMAIN COMPATIBLE WITH OLDER VERSIONS!
@@ -31,5 +31,9 @@
     'ComputerInfo Strings:
     '0 = Computer Name (0.1) (default : shiftos)
     '1 = Username (0.1) (default : user)
+    '2 = Codepoint (0.2) (default : 0)
     '
+    'AvailableFeature (Default is defined on the Story Mode, Free Mode automatically assigns every available feature to 1)Strings:
+    '0 = MAN command [Manual on each command] (0.2) (default : 0)
+    '1 = CLEAR command [Clearing the screen] (0.2) (default : 0)
 End Class
diff --git a/ShiftOS-TheRevival/MainForms/Terminal.vb b/ShiftOS-TheRevival/MainForms/Terminal.vb
index 2b8abd0..8430b23 100644
--- a/ShiftOS-TheRevival/MainForms/Terminal.vb
+++ b/ShiftOS-TheRevival/MainForms/Terminal.vb
@@ -10,6 +10,7 @@
         If Strings.IsFree = True Then
             Strings.ComputerInfo(0) = "shiftos"
             Strings.ComputerInfo(1) = "user"
+            Strings.ComputerInfo(2) = 0
             PrintPrompt()
             AssignPrompt()
         Else
@@ -55,6 +56,25 @@
             Case "clear"
                 TextBox1.Text = Nothing
                 AdvancedCommand = False
+            Case "codepoint"
+                TextBox1.Text = TextBox1.Text & Environment.NewLine & Strings.ComputerInfo(2) & " Codepoint(s) available in your wallet"
+                AdvancedCommand = False
+            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
+                    TextBox1.Text = TextBox1.Text & Environment.NewLine & "To get help on each command, you can type 'man [command]'"
+                End If
+                If Strings.AvailableFeature(1) = 1 Then
+                    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"
+                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 & "SHUTDOWN  Terminate ShiftOS session"
+                TextBox1.Text = TextBox1.Text & Environment.NewLine & "VER       Printing current version of ShiftOS TheRevival"
+                TextBox1.Text = TextBox1.Text & Environment.NewLine
             Case "ver"
                 TextBox1.Text = TextBox1.Text & Environment.NewLine & "ShiftOS TheRevival version 0.1.1"
                 AdvancedCommand = False
@@ -145,6 +165,9 @@
                 End If
             End If
         End If
+
+        TextBox1.Select(TextBox1.TextLength, 0)
+        TextBox1.ScrollToCaret()
     End Sub
 
     Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click, TextBox1.MouseDoubleClick