mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 02:12:14 +00:00
86 lines
5.1 KiB
VB.net
86 lines
5.1 KiB
VB.net
|
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
|