rev and cowsay added

6 files changed, 219 insertions, 30 deletions

diff --git a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb
index a88976e..efafee8 100644
--- a/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb
+++ b/ShiftOS-TheRevival/MainForms/SaveLoadSystem.vb
@@ -33,13 +33,15 @@ Module SaveLoadSystem
         Strings.AvailableFeature(18) = "2"
         Strings.AvailableFeature(19) = "2"
         Strings.AvailableFeature(20) = "2"
+        Strings.AvailableFeature(21) = "2"
+        Strings.AvailableFeature(22) = "2"
     End Sub
 
     Public Sub FreeRoamMode()
         Strings.ComputerInfo(0) = "shiftos"
         Strings.ComputerInfo(1) = "user"
         Strings.ComputerInfo(2) = "0"
-        Strings.ComputerInfo(4) = "21"
+        Strings.ComputerInfo(4) = "23"
         Strings.AvailableFeature(0) = "1"
         Strings.AvailableFeature(1) = "1"
         Strings.AvailableFeature(2) = "1"
@@ -62,6 +64,8 @@ Module SaveLoadSystem
         Strings.AvailableFeature(18) = "1"
         Strings.AvailableFeature(19) = "1"
         Strings.AvailableFeature(20) = "1"
+        Strings.AvailableFeature(21) = "1"
+        Strings.AvailableFeature(22) = "1"
     End Sub
 
     Public Sub GodMode()
@@ -90,6 +94,8 @@ Module SaveLoadSystem
         Strings.AvailableFeature(18) = "2"
         Strings.AvailableFeature(19) = "2"
         Strings.AvailableFeature(20) = "2"
+        Strings.AvailableFeature(21) = "2"
+        Strings.AvailableFeature(22) = "2"
     End Sub
 
     Public Sub SaveGame()
diff --git a/ShiftOS-TheRevival/MainForms/Shiftoriums.vb b/ShiftOS-TheRevival/MainForms/Shiftoriums.vb
index 0791d9b..3d31f9f 100644
--- a/ShiftOS-TheRevival/MainForms/Shiftoriums.vb
+++ b/ShiftOS-TheRevival/MainForms/Shiftoriums.vb
@@ -8,8 +8,15 @@
         Else
             If Strings.AvailableFeature(0) = "0" Then
                 Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(man | 10 CP) ShiftOS Help Manual"
+            Else
+                If Strings.AvailableFeature(19) = "0" Then
+                    Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(username | 15 CP) Custom Username"
+                End If
+                If Strings.AvailableFeature(20) = "0" Then
+                    Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(hostname | 15 CP) Custom hostname"
+                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"
             Else
                 If Strings.AvailableFeature(2) = "0" Then
@@ -51,6 +58,13 @@
                     If Strings.AvailableFeature(18) = "0" Then
                         Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(shiftkey | 45 CP) ShiftKey"
                     End If
+                    If Strings.AvailableFeature(21) = "0" Then
+                        Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(rev | 30 CP) Reverse String"
+                    Else
+                        If Strings.AvailableFeature(22) = "0" Then
+                            Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(cowsay | 50 CP) Cowsay"
+                        End If
+                    End If
                 End If
                 If Strings.AvailableFeature(5) = "0" Then
                     Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "(stime | 10 CP) Time by Seconds"
@@ -213,6 +227,34 @@
                     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)
                     Terminal.BadCommand = False
                 End If
+            Case "username"
+                If Strings.AvailableFeature(19) = "0" Then
+                    ManHeader(0) = "Custom Username"
+                    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)
+                    Terminal.BadCommand = False
+                End If
+            Case "hostname"
+                If Strings.AvailableFeature(20) = "0" Then
+                    ManHeader(0) = "Custom Hostname"
+                    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)
+                    Terminal.BadCommand = False
+                End If
+            Case "rev"
+                If Strings.AvailableFeature(21) = "0" Then
+                    ManHeader(0) = "Reverse String"
+                    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)
+                    Terminal.BadCommand = False
+                End If
+            Case "cowsay"
+                If Strings.AvailableFeature(22) = "0" Then
+                    ManHeader(0) = "Cowsay"
+                    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)
+                    Terminal.BadCommand = False
+                End If
             Case Else
                 Terminal.BadCommand = False
                 Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
@@ -279,6 +321,18 @@
             Case "shiftkey"
                 Shiftorium_InstallFeatures(True, "shiftkey", 18, 45)
                 Terminal.BadCommand = False
+            Case "username"
+                Shiftorium_InstallFeatures(True, "username", 19, 15)
+                Terminal.BadCommand = False
+            Case "hostname"
+                Shiftorium_InstallFeatures(True, "hostname", 20, 15)
+                Terminal.BadCommand = False
+            Case "rev"
+                Shiftorium_InstallFeatures(True, "rev", 21, 30)
+                Terminal.BadCommand = False
+            Case "cowsay"
+                Shiftorium_InstallFeatures(True, "cowsay", 22, 50)
+                Terminal.BadCommand = False
             Case Else
                 Terminal.BadCommand = False
                 Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
@@ -294,6 +348,8 @@
                     Select Case Feature
                         Case "man"
                             Strings.AvailableFeature(0) = "1"
+                            Strings.AvailableFeature(19) = "0"
+                            Strings.AvailableFeature(20) = "0"
                             success = True
                         Case "clear"
                             Strings.AvailableFeature(1) = "1"
@@ -305,6 +361,7 @@
                             Strings.AvailableFeature(2) = "1"
                             Strings.AvailableFeature(3) = "0"
                             Strings.AvailableFeature(18) = "0"
+                            Strings.AvailableFeature(21) = "0"
                             success = True
                         Case "termdspdrv"
                             Strings.AvailableFeature(3) = "1"
@@ -370,6 +427,19 @@
                         Case "shiftkey"
                             Strings.AvailableFeature(18) = "1"
                             success = True
+                        Case "username"
+                            Strings.AvailableFeature(19) = "1"
+                            success = True
+                        Case "hostname"
+                            Strings.AvailableFeature(20) = "1"
+                            success = True
+                        Case "rev"
+                            Strings.AvailableFeature(21) = "1"
+                            Strings.AvailableFeature(22) = "0"
+                            success = True
+                        Case "cowsay"
+                            Strings.AvailableFeature(22) = "1"
+                            success = True
                     End Select
                     If success = False Then
                         If IsCLI = True Then
diff --git a/ShiftOS-TheRevival/MainForms/Strings.vb b/ShiftOS-TheRevival/MainForms/Strings.vb
index fb30681..bd49677 100644
--- a/ShiftOS-TheRevival/MainForms/Strings.vb
+++ b/ShiftOS-TheRevival/MainForms/Strings.vb
@@ -3,7 +3,7 @@
     Public Shared ComputerInfo(6) As String
     Public Shared IsFree As Boolean
     Public Shared OnceInfo(8) As String
-    Public Shared AvailableFeature(20) As String
+    Public Shared AvailableFeature(22) As String
     Public Shared CLIInterpreter As String
     Public Shared SaveFile As String
     Public Shared Achievement As String
@@ -69,6 +69,8 @@
     '18 = ShiftKey [DOSKey for ShiftOS] (0.2.4) (default : 0)
     '19 = Custom Username [Custom username 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)
+    '22 = Cowsay [Cowsay] (0.2.4) (default : 0)
     '
     'Features bought hierarchy :
     'ShiftOS Key (KEY) (5 CP)
@@ -77,6 +79,8 @@
     '>>Custom Hostname (HOSTNAME) (15 CP)
     '>Terminal Clear (CLEAR) (20 CP)
     '>>Terminal Print (PRINT) (25 CP)
+    '>>>Reverse String command (REV) (30 CP)
+    '>>>>Cowsay (50 CP)
     '>>>ShiftKey (ShOSKey) (45 CP)
     '>>>Terminal Display Driver (TERMDSPDRV) (40 CP)
     '>>>>Terminal InfoBar (INFOBAR) (50 CP)
diff --git a/ShiftOS-TheRevival/MainForms/Terminal.vb b/ShiftOS-TheRevival/MainForms/Terminal.vb
index 45e3c3d..ceb1390 100644
--- a/ShiftOS-TheRevival/MainForms/Terminal.vb
+++ b/ShiftOS-TheRevival/MainForms/Terminal.vb
@@ -2,6 +2,7 @@
 
 Public Class Terminal
     Public TrackPos As Integer
+    Public RawCommand As String
     Public command As String
     Public DefaultPrompt As String
     Public AdvancedCommand As Boolean
@@ -144,6 +145,7 @@ Public Class Terminal
         Else
             command = command.Replace(DefaultPrompt, "")
         End If
+        RawCommand = command
         command = command.ToLower()
     End Sub
 
@@ -222,6 +224,7 @@ Public Class Terminal
                 TextBox1.Text = TextBox1.Text & Environment.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"
                 If Strings.AvailableFeature(16) = 1 Then
+                    TextBox1.Text = TextBox1.Text & Environment.NewLine & "DEL         Delete a selected file from the directory"
                     TextBox1.Text = TextBox1.Text & Environment.NewLine & "DIR         Displays subdirectories and files in a directory"
                 End If
                 TextBox1.Text = TextBox1.Text & Environment.NewLine & "GUESS       Runs 'Guess the Number' application"
@@ -407,9 +410,15 @@ Public Class Terminal
                 GetColor("terminal", command.Substring(6, 1), command.Substring(7, 1))
                 BadCommand = False
             End If
+            If command Like "cowsay *" Then
+                If Strings.AvailableFeature(22) = 1 Then
+                    Cowsay_Say(RawCommand.Substring(7))
+                    BadCommand = False
+                End If
+            End If
             If command Like "del *" Then
                 If Strings.AvailableFeature(16) = 1 Then
-                    DeleteFile(command.Substring(4))
+                    DeleteFile(RawCommand.Substring(4))
                     AdvancedCommand = False
                     BadCommand = False
                 End If
@@ -417,10 +426,10 @@ Public Class Terminal
             If command Like "hostname *" Then
                 If Strings.AvailableFeature(20) = 1 Then
                     Strings.ComputerInfo(0) = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
+                    AssignPrompt()
+                    AdvancedCommand = False
+                    BadCommand = False
                 End If
-                AssignPrompt()
-                AdvancedCommand = False
-                BadCommand = False
             End If
             If command Like "infobar *" Then
                 If Strings.AvailableFeature(4) = "1" Then
@@ -579,14 +588,21 @@ Public Class Terminal
             End If
             If command Like "print *" Then
                 If Strings.AvailableFeature(2) = "1" Then
-                    TextBox1.Text = TextBox1.Text & Environment.NewLine & command.Substring(6)
-                    Dim printed As String = command.Replace("print ", "")
+                    TextBox1.Text = TextBox1.Text & Environment.NewLine & RawCommand.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
                     AdvancedCommand = False
                 End If
             End If
+            If command Like "rev *" Then
+                If Strings.AvailableFeature(21) = 1 Then
+                    TextBox1.Text = TextBox1.Text & Environment.NewLine & StrReverse(RawCommand.Substring(4))
+                    BadCommand = False
+                    AdvancedCommand = False
+                End If
+            End If
             If command Like "rmdir *" Then
                 If Strings.AvailableFeature(16) = 1 Then
                     RemoveDir(command.Replace("rmdir ", ""))
@@ -613,7 +629,7 @@ Public Class Terminal
             If command Like "textpad *" Then
                 If Strings.AvailableFeature(17) = 1 Then
                     ChangeInterpreter = True
-                    command = command.Replace("textpad ", "")
+                    command = RawCommand.Replace("textpad ", "")
                     AppHost("textpad", True)
                     AdvancedCommand = False
                     BadCommand = False
@@ -625,11 +641,11 @@ Public Class Terminal
                         TextBox1.Text = TextBox1.Text & Environment.NewLine & "This username is already taken!"
                     Else
                         Strings.ComputerInfo(1) = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
+                        AssignPrompt()
                     End If
+                    AdvancedCommand = False
+                    BadCommand = False
                 End If
-                AssignPrompt()
-                AdvancedCommand = False
-                BadCommand = False
             End If
         End If
 
diff --git a/ShiftOS-TheRevival/MainForms/TerminalApps.vb b/ShiftOS-TheRevival/MainForms/TerminalApps.vb
index 40346af..dbfcaa1 100644
--- a/ShiftOS-TheRevival/MainForms/TerminalApps.vb
+++ b/ShiftOS-TheRevival/MainForms/TerminalApps.vb
@@ -78,24 +78,32 @@ Module TerminalApps
     Public Sub CaptureKeyBinding(KeysInput As Keys)
         Select Case KeysInput
             Case (Keys.S + Keys.Control)
-                If File.Exists(Terminal.CurrentDirectory & "\" & Terminal.command) = True Then
-                    Dim TempCompare As String = File.ReadAllText(Terminal.CurrentDirectory & "\" & Terminal.command)
-                    If Terminal.TextBox1.Text = TempCompare Then
+                Select Case Terminal.CurrentInterpreter
+                    Case "textpad"
+                        If File.Exists(Terminal.CurrentDirectory & "\" & Terminal.command) = True Then
+                            Dim TempCompare As String = File.ReadAllText(Terminal.CurrentDirectory & "\" & Terminal.command)
+                            If Terminal.TextBox1.Text = TempCompare Then
 
-                    Else
-                        Dim BeforeCP As Integer = Strings.ComputerInfo(2)
-                        SaveFile(Terminal.command)
-                        TextPad_GenerateCP_SavedFile()
-                        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"
-                    End If
-                Else
-                    Dim BeforeCP As Integer = Strings.ComputerInfo(2)
-                    SaveFile(Terminal.command)
-                    TextPad_GenerateCP_SavedFile()
-                    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"
-                End If
+                            Else
+                                Dim BeforeCP As Integer = Strings.ComputerInfo(2)
+                                SaveFile(Terminal.command)
+                                TextPad_GenerateCP_SavedFile()
+                                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"
+                            End If
+                        Else
+                            Dim BeforeCP As Integer = Strings.ComputerInfo(2)
+                            SaveFile(Terminal.command)
+                            TextPad_GenerateCP_SavedFile()
+                            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"
+                        End If
+                End Select
+            Case (Keys.N + Keys.Control)
+                Select Case Terminal.CurrentInterpreter
+                    Case "textpad"
+                        Terminal.TextBox1.Text = Nothing
+                End Select
         End Select
     End Sub
 
diff --git a/ShiftOS-TheRevival/MainForms/TerminalInternalApps.vb b/ShiftOS-TheRevival/MainForms/TerminalInternalApps.vb
new file mode 100644
index 0000000..b757cb6
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/TerminalInternalApps.vb
@@ -0,0 +1,85 @@
+Module TerminalInternalApps
+    Public Sub Cowsay_Say(Say As String)
+        Select Case Say.Length
+            Case 1 To 40
+                Dim SubtractLength As Integer = Say.Length + 1
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " "
+                Do
+                    Terminal.TextBox1.Text = Terminal.TextBox1.Text & "_"
+                    SubtractLength = SubtractLength - 1
+                    If SubtractLength = 0 Then
+                        Terminal.TextBox1.Text = Terminal.TextBox1.Text & "_"
+                        SubtractLength = Say.Length + 1
+                        Exit Do
+                    End If
+                Loop
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "< " & Say & " >"
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " "
+                Do
+                    Terminal.TextBox1.Text = Terminal.TextBox1.Text & "-"
+                    SubtractLength = SubtractLength - 1
+                    If SubtractLength = 0 Then
+                        Terminal.TextBox1.Text = Terminal.TextBox1.Text & "-"
+                        SubtractLength = Say.Length + 1
+                        Exit Do
+                    End If
+                Loop
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "        \   ^__^"
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "         \  (oo)\_______"
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "            (__)\       )\/\"
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "                ||----w |"
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "                ||     ||"
+            Case 41 To 80
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " __________________________________________ "
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "/ " & Say.Substring(0, 40) & " \"
+                Say = Say.Substring(40, Say.Length - 40)
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "\ " & Say
+                Dim Spaces As Integer = 40 - Say.Length
+                Do
+                    Terminal.TextBox1.Text = Terminal.TextBox1.Text & " "
+                    If Spaces = 0 Then
+                        Terminal.TextBox1.Text = Terminal.TextBox1.Text & "/"
+                        Exit Do
+                    End If
+                    Spaces = Spaces - 1
+                Loop
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " ------------------------------------------ "
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "        \   ^__^"
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "         \  (oo)\_______"
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "            (__)\       )\/\"
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "                ||----w |"
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "                ||     ||"
+            Case >= 81
+                Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "cowsay: Character limit exceeded"
+                'Dim SubtractLength As Integer = Say.Length + 1
+                'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & " __________________________________________ "
+                'Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "/ " & Say.Substring(0, 40) & " \"
+                'Dim CurrentLength As Integer = 40
+                'Dim WhatSay As String
+                'Dim Spaces As Integer
+                'Do
+                '    Try
+                '        WhatSay = Say.Substring(CurrentLength, 40)
+                '    Catch ex As Exception
+                '        WhatSay = Say.Substring(CurrentLength, (CurrentLength + 40) - Say.Length)
+                '    End Try
+                '    Spaces = 40 - WhatSay.Length
+                '    If Spaces > 0 Then
+                '        Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "\ " & WhatSay
+                '        Do
+                '            Terminal.TextBox1.Text = Terminal.TextBox1.Text & " "
+                '            If Spaces = 0 Then
+                '                Terminal.TextBox1.Text = Terminal.TextBox1.Text & "/"
+                '                Exit Do
+                '            End If
+                '            Spaces = Spaces - 1
+                '        Loop
+                '        Exit Do
+                '    Else
+                '        Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "| " & WhatSay & " |"
+                '        CurrentLength = CurrentLength + 40
+                '    End If
+                'Loop
+        End Select
+    End Sub
+End Module