mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-22 03:11:48 -05:00
rev and cowsay added
This commit is contained in:
EverythingWindows
parent
344a0ff99e
commit
680d108f07
11 changed files with 253 additions and 37 deletions
|
|
@ -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()
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
||||
|
|
|
|||
85
ShiftOS-TheRevival/MainForms/TerminalInternalApps.vb
Normal file
85
ShiftOS-TheRevival/MainForms/TerminalInternalApps.vb
Normal file
|
|
@ -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
|
||||
21
ShiftOS-TheRevival/My Project/Resources.Designer.vb
generated
21
ShiftOS-TheRevival/My Project/Resources.Designer.vb
generated
|
|
@ -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
|
||||
'''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]";.
|
||||
'''</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.
|
||||
'''
|
||||
|
|
|
|||
|
|
@ -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>
|
||||
|
|
|
|||
4
ShiftOS-TheRevival/Resources/Fortunes.txt
Normal file
4
ShiftOS-TheRevival/Resources/Fortunes.txt
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
Fuck
|
||||
Shit
|
||||
Bitch
|
||||
Damn
|
||||
10
ShiftOS-TheRevival/Resources/hangman.txt
Normal file
10
ShiftOS-TheRevival/Resources/hangman.txt
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
|
||||
||===========|
|
||||
|| |
|
||||
|| |
|
||||
|| O
|
||||
|| /|\
|
||||
|| / \
|
||||
||
|
||||
||
|
||||
----
|
||||
|
|
@ -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" />
|
||||
|
|
|
|||
Loading…
Reference in a new issue