rev and cowsay added

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()

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

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)

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)
+                    TextBox1.Text = TextBox1.Text & Environment.NewLine & RawCommand.Substring(6)
-                    Dim printed As String = command.Replace("print ", "")
+                    '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
 

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
+                Select Case Terminal.CurrentInterpreter
-                    Dim TempCompare As String = File.ReadAllText(Terminal.CurrentDirectory & "\" & Terminal.command)
+                    Case "textpad"
-                    If Terminal.TextBox1.Text = TempCompare Then
+                        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
+                            Else
-                        Dim BeforeCP As Integer = Strings.ComputerInfo(2)
+                                Dim BeforeCP As Integer = Strings.ComputerInfo(2)
-                        SaveFile(Terminal.command)
+                                SaveFile(Terminal.command)
-                        TextPad_GenerateCP_SavedFile()
+                                TextPad_GenerateCP_SavedFile()
-                        Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP
+                                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"
+                                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 If
-                Else
+                        Else
-                    Dim BeforeCP As Integer = Strings.ComputerInfo(2)
+                            Dim BeforeCP As Integer = Strings.ComputerInfo(2)
-                    SaveFile(Terminal.command)
+                            SaveFile(Terminal.command)
-                    TextPad_GenerateCP_SavedFile()
+                            TextPad_GenerateCP_SavedFile()
-                    Dim AfterCP As Integer = Strings.ComputerInfo(2) - BeforeCP
+                            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"
+                            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 If
+                End Select
+            Case (Keys.N + Keys.Control)
+                Select Case Terminal.CurrentInterpreter
+                    Case "textpad"
+                        Terminal.TextBox1.Text = Nothing
+                End Select
         End Select
     End Sub
 

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

ShiftOS-TheRevival/My Project/Resources.Designer.vb

@@ -72,14 +72,9 @@ Namespace My.Resources
         '''<summary>
         '''  Looks up a localized string similar to WARNING: READ BEFORE PLAYING!
         '''
-        '''A very small percentage of individuals may experience epileptic seizures when 
+        '''A very small percentage of individuals may experience epileptic seizures when exposed to certain light patterns or flashing lights. Exposure to certain patterns or backgrounds on a computer screen, or while playing video games, may induce an epileptic seizure in these individuals. Certain conditions may induce previously undetected epileptic symptoms even in persons who have no history of prior seizures or epilepsy.
-        '''exposed to certain light patterns or flashing lights. Exposure to certain patterns or 
-        '''backgrounds on a computer screen, or while playing video games, may induce an 
-        '''epileptic seizure in these individuals. Certain conditions may induce previously 
-        '''undetected epileptic symptoms even in persons who have no history of prior 
-        '''seizures or epilepsy.
         '''
-        '''If you, or anyone in your family, have an epil [rest of string was truncated]&quot;;.
+        '''If you, or anyone in your family, have an epileptic cond [rest of string was truncated]&quot;;.
         '''</summary>
         Friend ReadOnly Property epilepsy() As String
             Get
@@ -87,6 +82,18 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized string similar to Fuck
+        '''Shit
+        '''Bitch
+        '''Damn.
+        '''</summary>
+        Friend ReadOnly Property Fortunes() As String
+            Get
+                Return ResourceManager.GetString("Fortunes", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized string similar to A basic command-line tool for simple calculation.
         '''

ShiftOS-TheRevival/My Project/Resources.resx

@@ -124,6 +124,9 @@
   <data name="epilepsy" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\epilepsy.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
   </data>
+  <data name="Fortunes" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\fortunes.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
   <data name="man_bc" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\man manuals\bc.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
   </data>

ShiftOS-TheRevival/Resources/Fortunes.txt

@@ -0,0 +1,4 @@
+Fuck
+Shit
+Bitch
+Damn

ShiftOS-TheRevival/Resources/hangman.txt

@@ -0,0 +1,10 @@
+                             
+ ||===========|
+ ||           |
+ ||           |
+ ||           O
+ ||          /|\
+ ||          / \
+ ||
+ ||
+----

ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj

@@ -131,6 +131,7 @@
     </Compile>
     <Compile Include="MainForms\TerminalApps.vb" />
     <Compile Include="MainForms\TerminalColorSystem.vb" />
+    <Compile Include="MainForms\TerminalInternalApps.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -200,6 +201,8 @@
   <ItemGroup>
     <None Include="Resources\CurrentVersion.txt" />
     <Content Include="Resources\epilepsy.txt" />
+    <Content Include="Resources\Fortunes.txt" />
+    <Content Include="Resources\hangman.txt" />
     <Content Include="Resources\man Manuals\bc.txt" />
     <Content Include="Resources\man Manuals\cd.txt" />
     <Content Include="Resources\man Manuals\clear.txt" />