From 680d108f072a4505ba6e2148d619bc8b6de6ad84 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Wed, 9 Nov 2022 06:30:53 +0700 Subject: [PATCH] rev and cowsay added --- .../MainForms/SaveLoadSystem.vb | 8 +- ShiftOS-TheRevival/MainForms/Shiftoriums.vb | 72 +++++++++++++++- ShiftOS-TheRevival/MainForms/Strings.vb | 6 +- ShiftOS-TheRevival/MainForms/Terminal.vb | 36 +++++--- ShiftOS-TheRevival/MainForms/TerminalApps.vb | 42 +++++---- .../MainForms/TerminalInternalApps.vb | 85 +++++++++++++++++++ .../My Project/Resources.Designer.vb | 21 +++-- ShiftOS-TheRevival/My Project/Resources.resx | 3 + ShiftOS-TheRevival/Resources/Fortunes.txt | 4 + ShiftOS-TheRevival/Resources/hangman.txt | 10 +++ ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj | 3 + 11 files changed, 253 insertions(+), 37 deletions(-) create mode 100644 ShiftOS-TheRevival/MainForms/TerminalInternalApps.vb create mode 100644 ShiftOS-TheRevival/Resources/Fortunes.txt create mode 100644 ShiftOS-TheRevival/Resources/hangman.txt 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 @@ + +