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
diff --git a/ShiftOS-TheRevival/My Project/Resources.Designer.vb b/ShiftOS-TheRevival/My Project/Resources.Designer.vb
index 66b9315..4631ae5 100644
--- a/ShiftOS-TheRevival/My Project/Resources.Designer.vb
+++ b/ShiftOS-TheRevival/My Project/Resources.Designer.vb
@@ -72,14 +72,9 @@ Namespace My.Resources
'''
''' Looks up a localized string similar to WARNING: READ BEFORE PLAYING!
'''
- '''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.
+ '''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.
'''
- '''If you, or anyone in your family, have an epil [rest of string was truncated]";.
+ '''If you, or anyone in your family, have an epileptic cond [rest of string was truncated]";.
'''
Friend ReadOnly Property epilepsy() As String
Get
@@ -87,6 +82,18 @@ Namespace My.Resources
End Get
End Property
+ '''
+ ''' Looks up a localized string similar to Fuck
+ '''Shit
+ '''Bitch
+ '''Damn.
+ '''
+ Friend ReadOnly Property Fortunes() As String
+ Get
+ Return ResourceManager.GetString("Fortunes", resourceCulture)
+ End Get
+ End Property
+
'''
''' Looks up a localized string similar to A basic command-line tool for simple calculation.
'''
diff --git a/ShiftOS-TheRevival/My Project/Resources.resx b/ShiftOS-TheRevival/My Project/Resources.resx
index b8db027..9359e8c 100644
--- a/ShiftOS-TheRevival/My Project/Resources.resx
+++ b/ShiftOS-TheRevival/My Project/Resources.resx
@@ -124,6 +124,9 @@
..\resources\epilepsy.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8
+
+ ..\resources\fortunes.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8
+
..\resources\man manuals\bc.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8
diff --git a/ShiftOS-TheRevival/Resources/Fortunes.txt b/ShiftOS-TheRevival/Resources/Fortunes.txt
new file mode 100644
index 0000000..0bad7b3
--- /dev/null
+++ b/ShiftOS-TheRevival/Resources/Fortunes.txt
@@ -0,0 +1,4 @@
+Fuck
+Shit
+Bitch
+Damn
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/Resources/hangman.txt b/ShiftOS-TheRevival/Resources/hangman.txt
new file mode 100644
index 0000000..6760351
--- /dev/null
+++ b/ShiftOS-TheRevival/Resources/hangman.txt
@@ -0,0 +1,10 @@
+
+ ||===========|
+ || |
+ || |
+ || O
+ || /|\
+ || / \
+ ||
+ ||
+----
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
index d958b31..8548cf7 100644
--- a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
+++ b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
@@ -131,6 +131,7 @@
+
True
@@ -200,6 +201,8 @@
+
+