Qubick/ProcessFenceCommand.bas at master · BatchedFiles/Qubick · GitHub

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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
#include once "ProcessFenceCommand.bi"
#include once "CharConstants.bi"

Sub ProcessFenceCommand( _
		ByVal pBot As IrcBot Ptr, _
		ByVal User As WString Ptr, _
		ByVal Channel As WString Ptr, _
		ByVal MessageText As WString Ptr _
	)

	If StrStrI(MessageText, "http") Then
		Exit Sub
	End If

	Dim wSpace1 As WString Ptr = StrChr(MessageText, WhiteSpaceChar)
	If wSpace1 = 0 Then
		Exit Sub
	End If

	Dim FenceText As WString Ptr = wSpace1 + 1
	Dim FenceTextLength As Integer = lstrlen(FenceText)
	If FenceTextLength = 0 Then
		Exit Sub
	End If

	For i As Integer = 0 To FenceTextLength - 1
		Dim wChar As Integer = FenceText[i]
		If i Mod 2 = 0 Then
			Select Case wChar
				Case &h401 ' Ё
					wChar = &h451
				Case &h410 ' А
					wChar = &h430
				Case &h411
					wChar = &h431
				Case &h412
					wChar = &h432
				Case &h413
					wChar = &h433
				Case &h414
					wChar = &h434
				Case &h415
					wChar = &h435
				Case &h416
					wChar = &h436
				Case &h417
					wChar = &h437
				Case &h418
					wChar = &h438
				Case &h419
					wChar = &h439
				Case &h41A
					wChar = &h43A
				Case &h41B
					wChar = &h43B
				Case &h41C
					wChar = &h43C
				Case &h41D
					wChar = &h43D
				Case &h41E
					wChar = &h43E
				Case &h41F
					wChar = &h43F
				Case &h420
					wChar = &h440
				Case &h421
					wChar = &h441
				Case &h422
					wChar = &h442
				Case &h423
					wChar = &h443
				Case &h424
					wChar = &h444
				Case &h425
					wChar = &h445
				Case &h426
					wChar = &h446
				Case &h427
					wChar = &h447
				Case &h428
					wChar = &h448
				Case &h429
					wChar = &h449
				Case &h42A
					wChar = &h44A
				Case &h42B
					wChar = &h44B
				Case &h42C
					wChar = &h44C
				Case &h42D
					wChar = &h44D
				Case &h42E
					wChar = &h44E
				Case &h42F
					wChar = &h44F
			End Select
		Else
			Select Case wChar
				Case &h451 ' Ё
					wChar = &h401
				Case &h430 ' А
					wChar = &h410
				Case &h431
					wChar = &h411
				Case &h432
					wChar = &h412
				Case &h433
					wChar = &h413
				Case &h434
					wChar = &h414
				Case &h435
					wChar = &h415
				Case &h436
					wChar = &h416
				Case &h437
					wChar = &h417
				Case &h438
					wChar = &h418
				Case &h439
					wChar = &h419
				Case &h43A
					wChar = &h41A
				Case &h43B
					wChar = &h41B
				Case &h43C
					wChar = &h41C
				Case &h43D
					wChar = &h41D
				Case &h43E
					wChar = &h41E
				Case &h43F
					wChar = &h41F
				Case &h440
					wChar = &h420
				Case &h441
					wChar = &h421
				Case &h442
					wChar = &h422
				Case &h443
					wChar = &h423
				Case &h444
					wChar = &h424
				Case &h445
					wChar = &h425
				Case &h446
					wChar = &h426
				Case &h447
					wChar = &h427
				Case &h448
					wChar = &h428
				Case &h449
					wChar = &h429
				Case &h44A
					wChar = &h42A
				Case &h44B
					wChar = &h42B
				Case &h44C
					wChar = &h42C
				Case &h44D
					wChar = &h42D
				Case &h44E
					wChar = &h42E
				Case &h44F
					wChar = &h42F
			End Select
		End If
		FenceText[i] = wChar
	Next

	pBot->Say(Channel, FenceText)
End Sub