blob: b757cb672b95332db4c6739116851aa703aae1fd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
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
|
