forked from Xyl2k/TrollHarder
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathForm1.frm
519 lines (494 loc) · 30.4 KB
/
Form1.frm
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
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form IDD_MAIN
BorderStyle = 1 'Fixed Single
Caption = "TrollHarder v0.1 /by Xyl/"
ClientHeight = 2655
ClientLeft = 45
ClientTop = 330
ClientWidth = 6495
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2655
ScaleWidth = 6495
StartUpPosition = 2 'CenterScreen
Begin VB.Frame IDC_FRAME_MANU
Caption = "/* Manual mode */"
Height = 2175
Left = 3240
TabIndex = 6
Top = 120
Width = 3135
Begin VB.CommandButton IDC_BUTTON_RANDOM_SHIT
Caption = "Random shits"
Height = 375
Left = 120
TabIndex = 10
Top = 1680
Width = 2895
End
Begin VB.CommandButton IDC_BUTTON_SVATISKA
Caption = "Svatiska (may not pass flood limit)"
Height = 375
Left = 120
TabIndex = 9
Top = 1200
Width = 2895
End
Begin VB.CommandButton IDC_BUTTON_BLINDLESS
Caption = "Blindless shit"
Height = 375
Left = 120
TabIndex = 8
Top = 240
Width = 2895
End
Begin VB.CommandButton IDC_BUTTON_SKEET
Caption = "Skeet-fighter quotes"
Height = 375
Left = 120
TabIndex = 7
Top = 720
Width = 2895
End
End
Begin VB.Timer IDC_TIMER_TROLLING
Enabled = 0 'False
Left = 0
Top = 0
End
Begin VB.Frame IDC_FRAME_AUTO
Caption = "/* Automatic mode */"
Height = 2175
Left = 120
TabIndex = 0
Top = 120
Width = 3015
Begin VB.CheckBox IDC_CHECKBOX_SVATISKA
Caption = "Enable svatiska"
Height = 195
Left = 120
TabIndex = 5
Top = 720
Width = 1815
End
Begin VB.TextBox IDC_EDIT_INTERVAL
Height = 285
Left = 960
TabIndex = 3
Text = "1000"
Top = 360
Width = 735
End
Begin VB.CommandButton IDC_BUTTON_START
BackColor = &H0000FF00&
Caption = "OLOLOLOL"
BeginProperty Font
Name = "Comic Sans MS"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 120
Style = 1 'Graphical
TabIndex = 2
Top = 1080
Width = 2775
End
Begin VB.CommandButton IDC_BUTTON_STOP
BackColor = &H000000FF&
Caption = "STOP"
BeginProperty Font
Name = "Comic Sans MS"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 120
Style = 1 'Graphical
TabIndex = 1
Top = 1080
Width = 2775
End
Begin VB.Label IDC_STATIC_MILISECONDS
Caption = "miliseconds"
Height = 255
Left = 1800
TabIndex = 11
Top = 360
Width = 975
End
Begin VB.Label IDC_STATIC_INTERVAL
Caption = "Interval:"
Height = 255
Left = 240
TabIndex = 4
Top = 360
Width = 735
End
End
Begin MSWinsockLib.Winsock Winsock1
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Label Label1
Caption = "07/01/2015"
Enabled = 0 'False
Height = 255
Left = 120
TabIndex = 12
Top = 2400
Width = 1575
End
Begin VB.Image IDC_IMAGE_XYLIBOXLABS_1
Height = 225
Left = 5160
Picture = "Form1.frx":0000
Top = 2400
Width = 1200
End
Begin VB.Image IDC_IMAGE_XYLIBOXLABS_2
Height = 225
Left = 5160
Picture = "Form1.frx":0C97
Top = 2400
Visible = 0 'False
Width = 1200
End
End
Attribute VB_Name = "IDD_MAIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private WithEvents Irc As CLIRC
Attribute Irc.VB_VarHelpID = -1
Dim chanel As String
'Public szText, szPart1, szPart2, szPart3, szPart4 As String
Option Compare Text
Option Explicit
Private Sub Form_Load()
Set Irc = New CLIRC
Randomize Timer
Irc.SocketHandle = IDD_MAIN.Winsock1
Irc.UserFullName = "Troll bot"
Irc.UserHostName = "Troller"
Irc.UserName = "546"
Irc.UserNick = "test" + Trim(Str(Int(Rnd * 11000)))
Irc.UserServName = "BLAH"
Irc.Connect "irc.x2x.cc"
chanel = "#test9"
End Sub
Private Sub Irc_Connected()
Irc.Join chanel
Irc.PrivMSG chanel, "1,8:þ" 'Automatic bot message when connected to channel
End Sub
Function RandomString(strLength As Integer)
Dim newString As String
Dim tmpNum As Integer
For tmpNum = 1 To strLength
newString = newString + Chr(Int(Rnd * 70) + 32)
Next tmpNum
RandomString = newString
End Function
Private Sub IDC_BUTTON_BLINDLESS_Click()
Dim w As String
w = Int(Rnd() * 31)
Select Case w
Case 1
Irc.PrivMSG chanel, "13,4 Tapzbot ZOOP BEEP BOOP ZIPPITY ZAP BAP BRRAP 5,13 tapzbot ZOOP BE 14,3 EP BOOP ZIPP ITY ZAP bap brrap sounds dum"
Case 2
Irc.PrivMSG chanel, "Screw you, pal 12,8 BARK 10,8 BARK 7,1 BARK 9,4 BARK 3,14 BARK 5,0 BARK 12,12 2,2 12,12 77.1 / 0,03 Green Reverse 0,04 Red 5 0,04 Red 5 to 13zzZzzZzz"
Case 3
Irc.PrivMSG chanel, "13,2 ZOOP BEEP BOOP ZIPPITY ZAP BAP BRRAP Tapzbot 8,2 ZOOP BEEP BOO 3,4P ZIPPI TY ZAP BAP BRRAP 7,10 Tapzbot ZOOP BEEP B OOP 14,14Z IPPI TY ZAP BAP BRRAP 5,11 Tapzbot Z OOP BEE P BOOP ZIPPITY ZAP BAP BRRAP 7,9 Tapzbot ZOOP BEEP BOOP Z IPPITY ZAP BAP BRRAP 7,10 THE T4PZ EXTENS 6,8I O N IS THE ONLY "
Irc.PrivMSG chanel, "6,8LOGIC A L ANSWER TO THE PARADIGM OF IMPROVI N G X YL2K "
Case 4
Irc.PrivMSG chanel, "8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoopz1"
Irc.PrivMSG chanel, "1,8,8zoopz8,1zoopz1,8zoopz8,1zoopz1,8zoopz8,1zoo: you revolting cake of pur"
Case 5
Irc.PrivMSG chanel, "7,3NEGROX DONGUS WARK14 ZIP ZOP BAPPITY ZOOP12,7NEGROX DONGUS WARK Z10IP ZOP BAPPITY ZOOP1,2NEGROX DON13GUS WARK ZIP ZOP BAPPITY ZOOP10,6NEGROX DONGUS WARK 14,6 wark 13,11 wark 5,9 wark 14,6 wark 6,13 wark 4,10 wark 8,11 i will tehstr0y yo!!!!!?TAB????????OP ???????"
Case 6
Irc.PrivMSG chanel, " 11,11 2,2 13,6 ZOOP BEEP BOOP ZIPPITY ZAP BAP BRRAP Xy litol 13,8 ZOOP BEEP BOOP ZIPPITY ZAP BAP B RRAP 13,8 Tapzbot ZOOP BEEP BOOP ZIPPI TY ZAP BAP BRRAP 8,15 Tapzbot ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ZOOP ))"
Case 7
Irc.PrivMSG chanel, "5,10 ZOOP BEEP BOOP ZIPPITY ZAP BAP BRRAP 8,14 Tapzbot ZOOP BEEP BOOP ZIPPITY ZAP BAP BRR A P Tapzbot 8,9 ZOOP BEEP BOOP ZIPPITY ZAP BA P BRRAP 13,5 Tapzbot ZOOP BEEP BOOP ZIPPITY ZAP BAP B RRAP "
Case 8
Irc.PrivMSG chanel, "12,6 AW BUDDY 6,12 ROLLIN LIKE A BIG SHOT 2,12 AW BUDDY 12,2 DONGUS 5,5 DONGUS DONGUS ZOOP ZOOP ZOOP wark wark 13,7 wark 12,6 wark 12,6 wark 3,15 WARK 2,10 WARK 8,0 WARK 9,2 WARK 6,14 WARK 6,4 WARK"
Case 9
Irc.PrivMSG chanel, "/dev/sda1 7,15 Z OOP BEEP BOOP ZIPPIT Y ZAP BAP BRRAP Tapzbot 8,14 ZOOP BEEP BOOP ZIPPITY ZAP BAP BRRAP 8,2 Tapzb ot ZOOP BEEP BOOP ZIPPITY ZAP BAP BRRAP 7,11 Tapzbot ZO OP BEEP BOOP ZIPPITY ZAP BAP BRRAP 5,10 Tapzbot ZOO P BE EP BOOP ZIPPITY ZAP BAP BRRAP 5,8 Tapzbot ZOOP B 10,1EEP B OOP ZIPPITY ZAP "
Irc.PrivMSG chanel, "10,1BAP BRR AP 8,4 tapzbot ZOOP BEEP BOOP ZIPPIT Y ZA 12,13P BAP BRRAP 5,11"
Case 10
Irc.PrivMSG chanel, "7,3NEGROX DONGUS WARK14 ZIP ZOP BAPPITY ZOOP12,7NEGROX DONGUS WARK Z10IP ZOP BAPPITY ZOOP1,2NEGROX DON13GUS WARK ZIP for wav"
Case 11
Irc.PrivMSG chanel, "6,10NEGROX DONG6US WARK ZIP ZOP BAPPITY ZOOP9,13NEGROX DONGUS WARK ZIP ZOP BAPPI14TY ZOOP12,13NEGROX DONGUS WA7RK ZIP ZOP BAPPITY ZOOP11,13NEGROX DONGUS WARK1 ZIP ZOP BAPPITY ZOOP2,8NEGROX DONGUS WARK ZIP ZO8P BAPPITY ZOOP1,3NEGROX DONGUS WARK ZIP ZOP BAPPITY Z1OOP6,9NEGROX DONGUS WARK ZIP ZOP BAPPITY ZOO3P5,7NEGROX DONGUS WARK "
Irc.PrivMSG chanel, "5,7ZIP ZO11P BAPPITY ZOOP9,13NEGROX DONGUS WARK 5,2 wark 9,7 wark 13,7 wark 12,6 wa"
Case 12
Irc.PrivMSG chanel, "4,14DONGUS DON9GUS DONGUS4,2DONGUS DONGUS WARK ZIP ZOP BAPP10ITY ZOOP9,13NEGROX DONGUS13 WARK ZIP ZOP BAPPITY ZOOP13,10NEGROX DONGU0S WARK ZIP ZOP BAPPITY ZOOP11,14NEGROX DON14GUS WARK ZIP ZOP BAPPITY ZOOP8,11NEGROX DONGUS WARK ZIP ZOP BAPPITY Z12OOP"
Case 13
Irc.PrivMSG chanel, "5,12 Spiffy S piff y 5,5 Spiffy Spiffy 5,6 Spiffy Spiffy 11,12 13,1 Spi 14,13ffy Spiffy 8,12 ZOOP BEEP BOOP ZIPP ITY 5,15ZAP B AP BRRAP 7,6 SUP TAB YES H E LLO TAN C O RRUPTING YOUR BOT :D 5,9 SU P TA B YES HELLO TAN 15,11 TAN how do I list mountable partitions (`A')"
Case 14
Irc.PrivMSG chanel, "11,1 wd 11,9 wd 4,12 wd 7,1 wd 11,9 WARK 15,2 WARK 10,8 WARK 12,15 WARK 9,7 WARK 1,4 WARK 6,1 WARK 2,12 WARK 4,7 WARK 12,1 WARK 13,0 NEGROX DEFENSE 0,13 NEGROX DEFENSE 13,0 NEGROX DEFENSE 0,13 NEGROX DEFENSE 13,0 NEGROX"
Case 15
Irc.PrivMSG chanel, "7,14 Tapzbot ZOOP BEEP BOOP ZIPP ITY ZAP BAP BRR AP 5,12 Tapzbot ZOOP BEEP BOOP ZIPPITY ZAP B AP BRRAP 8,3 Tapzbot ZOOP BEEP BOOP ZIPPITY ZAP BAP BRRAP 7,1 Tapz ZOOP BEEP BOOP ZIPPITY ZAP BAP BRRAP 13,3 Tapzbot ZOOP BEEP BOO P ZIPPI TY ZAP BAP BRRAP 13,4 Tap zbot ZOOP BEEP BO OP ZIPPIT Y ZAP BAP BRRAP 13,2 T apzot ZOOP BEEP BOO P ZIPPITY ZAP BAP BRRAP Tapzbot 7,4 ZOOP BEEP"
Case 16
Irc.PrivMSG chanel, "2O SUCK S W ARK 13,7 HYDRAZE SUCK S W A R K 5,3 HYDR A Z E SUCKS WARK 5,8 NUTTE R BUTTER D EL I CIOUS 13,4 NU T TER BUT T ER DELICIO U S 7,7 NUTTER B UTTER DELICIOUS 8,15 NUTTER BUTTER D ELICIOUS 5,5 NUTTER BU 10,1TTER DELICIOUS 7,13 NUTTE R BUTT E R DELICIOUS 13,14 NUTTER B U TTER DELICIOUS 5,8 NUTTE R BUTTER D EL I CIOUS 13,4"
Case 17
Irc.PrivMSG chanel, "9,14? DONGUS 9,7? DONGUS 11,9? DONGUS 11,15? DONGUS 12,7? DONGUS 12,10? DONGUS 14,10? DONGUS 15,4? DONGUS 9,15? DONGUS 12,4? DONGUS 10,14? DONGUS 9,8? DONGUS 10,6? DONGUS 13,9? DONGUS 15,13? DONGUS 13,11? DONGUS 9,11? DONGUS 9,7? DONGUS 14,5? DONGUS 13,4? DONGUS 13,12? DONGUS 14,3? DONGUS "
Case 18
Irc.PrivMSG chanel, "0,1 0,15 NIGUS 7,3 NIGUS 10,4 NIGUS 9,12 NIGUS 12,7 NIGUS 11,7 NIGUS 12,4 NIGUS 14,2 NIGUS 0,1 NIGUS 2,12 NIGUS 0,13 NIGUS 11,3 NIGUS 5,14 NIGUS 9,9 NIGUS 5,11 NIGUS 10,1 NIGUS 8,14 NIGUS 14,3 <3 1,12 <3 14,12 <3 8,12 <3 0,11 <3 12,2 <3 8,6 <3 6,0 <3"
Case 19
Irc.PrivMSG chanel, "13,13 6,6 13,13 6,6 13,13 6,6 13,13 6,6 Lotixyl: 5,3 Xylitol 14,2 NIGUS 0,1 NIGUS 2,12 NIGUS 15,11 NIGUS 3,1 NIGUS 5,15 tes@ 7,14 t$st 13,7 test 7,15 test 13,5 ? _?est 7,1 te!t "
Case 20
Irc.PrivMSG chanel, "Core 8: 6,6 13,13 6,6 13,13 6,6 NIGUS 1,15 NIGUS 12,4 NIGUS 14,2 NIGUS 0,1 NIGUS 2,12 NIGUS 15,11 NIGUS 0,13 NIGUS 11,3 NIGUS 5,14 NIGUS 9,9 NIGUS 5,11 NIGUS 10,1 NIGUS 8,14 NIGUS 14,3 linear: 3,8 AIDS 5,10 XYL: 7,8 YES THIS IS DOG 8,8 T E 14,2ACH ME HOW TO DOUGIE 7,6 TEACH ME HOW 14,8TO DOUGIE 5,10 ZOOP BEEP BOOP ZIPPITY ZAP BAP B 13,8RRAP Tapzbot 7,2 ZO"
Case 21
Irc.PrivMSG chanel, "Scr34m for the CREAM OUT THE OUTSIDE 12,7 NIGUS 13,7 NIGUS 0,15 NIGUS 7,3 NIGUS 10,4 NIGUS 9,12 NIGUS 12,7 NIGUS 11,7 NIGUS 12,6 NIGUS 13,5 NIGUS 1,15 NIGUS 4,7 NIGUS 15,7 NIGUS 14,15 CLEAN ON THE INSIDE 15,14 C"
Case 22
Irc.PrivMSG chanel, "4,3 BARK 1,12 BARK 9,5 BARK 8,5 BARK 9,12 BARK 7,12 BARK 10,12 BARK 10,8 BARK 7,0 BARK 11,2 BARK 0,7 BARK 4,5 BARK 10,8 BARK 5,6 BARK 12,10 BARK 1,7 BARK 6,6 BARK 11,9 BARK 1,14 BARK"
Case 23
Irc.PrivMSG chanel, "9,8 BARK 13,11 BARK 1,9 BARK 9,7 BARK 10,8 BARK 12,13 wd WARK 13,13 wd WARK 9,3 wd WARK 10,0 wd WARK 4,8 wd WARK 12,4 WARK 8,6 WARK 11,11 WARK 11,5 WARK 9,5 WARK 9,8 WARK 9,2 WARK 14,6 wark 6,13 wark 4,10 wark 8,11 wark 13,11 wark wark wark wark wark nigus nigus nigus 11,5 2pac 11,3 2pac 4,11 2pac 8,6 2pac 7,0 2pac 9,8 2pac 2,10 2pac 8,7 2pac 1,10 2pac 12,1 BARK 1,14 BARK 12,10 BARK 13,10 BARK 11,"
Case 24
Irc.PrivMSG chanel, "Tapz bot ZOOP BEEP BOOP ZIP PITY ZAP BAP BRRA P 8,9 Tapzbot ZOOP BEEP BOOP ZIPPITY ZAP BAP BRRA P Ta 1,11pzbot 5,7 ZOOP BEEP BOOP 5,7 Z IPPITY ZAP BAP BRRAP Tapzbot 8,9 Z OOP BEEP BOOP ZIPPITY ZA P BAP BRRAP "
Irc.PrivMSG chanel, "0,0 1,1 5,7 0,0 1,1 5,7 8,8 5,7 7,8 5,7 7,8 8 7 0,0 1,1 7,8 ZOOP BEEP BO OP ZIPPITY ZAP BAP BRRAP 13,13 Tapzbot ZOOP BEEP BOOP ZIPPITY # # #"
Case 25
Irc.PrivMSG chanel, "In4ders must die WizardFait 8,4 die WizardFait 13,7 wark 12,6 wark 5,9 wark 5,9 WARK 4,3 wark wark BARK BARK BARK CROCK BARK WARK WARK BARK WARK BARK WARK 1,1 wark wark BARK BARK BARK BARK WARK WARK WARK 6,0 WARK 6,15 WARK 0,10 WARK 12,7 WARK 5,7 WARK 3,6 WARK 9,11 WARK 5,11 WARK 1,10 wark wark BARK BARK BARK CROCK 9,9 CROCK 3,0 CROCK 0,9 14,1? 12 ill pop ur corn 14,1?14,1? 12 ill pop ur corn 14,1"
Case 26
Irc.PrivMSG chanel, "DONGUS DONGUS DONGUS ZOOP ZOOP ZOOP wark wark wark wark NIGUS 14,2 WARK 4,14 WARK 4,9 WARK 11,15 WARK 11,5 WARK 5,12 WARK 14,12 WARK 4,14 wark 12,6 wark 5,9 wark 14,6 wark 0,13 0,13 0,13 13,13 6,6 "
Case 27
Irc.PrivMSG chanel, "WARK 10,5 WARK 15,13 WARK 11,11 WARK 9,7 WARK WARK WARK WARK WARK WARK 11,8 WARK 7,5 WARK 8,13 WARK 14,8 WARK 14,9 WARK 2,0 WARK 6,6 WARK 2,7 wark 13,11 wark 5,9 Tapzbot ZOOP BEEP BOOP ZIPPITY ZAP BA 14,14P BR RAP Ta pzbo t 8,3 ZOOP B EEP BOOP ZIPPITY ZAP BAP BRRAP T 9,14apzbot"
Case 28
Irc.PrivMSG chanel, "9,9 wark 12,6 wark 5,9 wark 14,6 wark 6,13 wark 4,10 wark 8,11 wark 9,7 wark 13,7 wark 6,11 wark 8,11 wark 13,11 wark 5,9 wark 5,2 wark 3,7 wark 13,11 wark 13,11 wark 4,2 wark 13,7 wark 12,6 wark 5,2 dongus 0,2 0,4 DONGUS 8,0 DONGUS 15,15 DONGUS 9,4 DONGUS 10,1 DONGUS 0,4 DONGUS 13,14 DONGUS 2,9 wark 12,6 wark 5,9 wark 3,7 dongus 5,1 dongus 9,5 dongus 3,1 wark 13,7 wark 5,9 wark 5,2 wark"
Case 29
Irc.PrivMSG chanel, "0,9Reduced10,10c0,4t0,10o10,10e0Buy10,10g0,2Cheap10,10m0,13Oem10,10a0,14Software10,10e0,11Adobe10,10t0,8Photoshop10,10g0,13Lightroom10,10/0,031.410,10s0natural10,10r0,4or10,10h0,7nonmoral10,10d0,9terms10,10g0,13proposed10,10/0,9to10,10c0,4exhibit10,10r0either10,10:0,2innate10,10.0,8emotional8,8m0,10c0,11apabilities8,8e0or8,8 0,9that8,8:0,12required0,10,10,10o0the10,10.0,11design9,9a0may9,9i0,14be3,3m0split3,3h0into10,10/0a10,10c0,4number4,4o0,0ofe0,9relatively0,0i0,4independent0,0t0,10phases.10,10e0Will0,0g0,8be8,8.0located8,8s0,11in11,11i0,12the12,12p0,11co0,0untrypwitho0,9most2,2o0of2,2l0its.13,13m/p/asciipumper/ http://code.goog"
Irc.PrivMSG chanel, "0,14oem10,10p0,7software10,10g0,8sales10,10.0,9Adobe10,10/0,7Dreamweaver10,10/0,4CS510,10t0,151110,10/0,9oem10,10d0,5software10,10.0,2Adobe10,10/0,9Audition10,10p00210,10r0,12Download10,10/0,4Oem10,10e0,8Software10,10c0,2ElcomSoft10,10i0,14Advanced10,10h0,7IM10,10p0Password10,10g0,9Recovery8,8m0,13Download8,8p0,11Cheap8,8/0,4OEM4,4t0software10,10.0Adobe10,10e0,12Creative9,9s0,8Suite8,8m0029,9e0,11Premium10,10:0,12cheap10,10e0,7Microsoft2,2o0Streets2,2i0an0,9d9,9m0Trips9,9h0,0820101,1/0Purchase4,4o0cheap4,4o0,14Lavalys14,14i0EVEREST14,14/0,4Ultimate9,9c0,5Edition9,9g0,065.029,9o0,8discount9,9i0,11software9,9h0,14DesignProVideo14,14g"
Case 30
Irc.PrivMSG chanel, "0,10Ch0,3ea0,10p10,10/0,12Viagra12,12g0,3Cialis3,3c0,13Levitra13,13c0,11online11,11e0,8Search8,8p0,15through15,15.0,3pharmacies3,3/0,2recommended2,2e0,13on13,13 0,8our8,8p0,9site9,9o0,10and10,10g0,12find12,12e0,13your13,13/0,14best14,14c0,15offer15,15p0,7Discount7,7:0,6pfizer6,6.0,5Viagra5,5.0,4Cialis4,4a0,3Levitra3,3p0,2Order0,0tED13,13:0Pills13,13e0,8Visa,8,8l0,9Echeck9,9p0,2Online!3,3u0Low4,4r0priced3,3:0Viagra11,11.0Cialis2,2.0Levitra9,9s0Approved13,13r0by13,13h0,8FDA8,8:0,3and3,3o0,10Google10,10g0,14Health14,14/0,2Inc2,2s0,5Buy5,5p0,11Viagra11,11 0,8***0,9Pfizer9,9d0,6viagra6,6l0,0050c0,4mg4,4/0,7online?0,2***2,2p0=0,10===>10,10t0,9Levitra9,9d0,8blue8,8o0,4pill"
End Select
End Sub
Private Sub IDC_BUTTON_SKEET_Click()
Dim y As String
y = Int(Rnd() * 16)
Select Case y
Case 1
Irc.PrivMSG chanel, "04HOOOOOOOAHHH"
Case 2
Irc.PrivMSG chanel, "04FEELS SO GOOD AROUND MY DICK GURL"
Case 3
Irc.PrivMSG chanel, "04GIVE ME THE CHOCOLATE"
Case 4
Irc.PrivMSG chanel, "04SONIC BOOBS"
Case 5
Irc.PrivMSG chanel, "04NOW ALL WE NEED IS SOME PEE PEE"
Case 6
Irc.PrivMSG chanel, "04WHAT DO YOU THINK OF THIS ONE, VEGA?"
Case 7
Irc.PrivMSG chanel, "04NOW WE'RE TALKIN!"
Case 8
Irc.PrivMSG chanel, "04OOH, GOD DAMNIT! SEE WHAT'S YOU DIID"
Case 9
Irc.PrivMSG chanel, "04OH YEAH GURL, IT FEELS SO GOOD AROUND MAH DICK GURLLLL"
Case 10
Irc.PrivMSG chanel, "04OH GOD, EUUUOOOORRRGH"
Case 11
Irc.PrivMSG chanel, "04FUCKING MASK!!!!11 *BARF*"
Case 12
Irc.PrivMSG chanel, "04AW YEAH I LIKE BIG DICKS IN ME. AW GOD YEAH ME TOO, OH WAIT"
Case 13
Irc.PrivMSG chanel, "04AW YEAH GURL"
Case 14
Irc.PrivMSG chanel, "04IT-FEELS-SO-GOOD A-ROUND MY-DICK, GUUUURRRL"
Case 15
Irc.PrivMSG chanel, "4,4GAM1,1E4,4D1,1_GA4,4M1,1ED_4,4G1,1AME4,4D1,1_4,4GA1,1M4,4ED_1,1G4,4A1,1M4,4E1,1D_G4,4AMED1,1_4,4G1,1A4,4M1,1E4,4D_GA1,1M4,4E1,1D_"
Irc.PrivMSG chanel, "4,4G1,1A4,4M1,1E4,4D1,1_GA4,4M1,1ED_G4,4A1,1M4,4E1,1D_4,4G1,1AM4,4E1,1D4,4_1,1G4,4A1,1M4,4E1,1D_G4,4A1,1MED_4,4G1,1A4,4M1,1E4,4D1,1_G4,4A1,1M4,4E1,1D_"
Irc.PrivMSG chanel, "4,4GAM1,1E4,4D1,1_4,4G1,1A4,4M1,1ED_GA4,4M1,1ED_4,4GA1,1M4,4ED_1,1G4,4AME1,1D_G4,4A1,1M4,4ED1,1_4,4G1,1A4,4M1,1E4,4D_GA1,1M4,4E1,1D_"
Irc.PrivMSG chanel, "4,4G1,1A4,4M1,1E4,4D_1,1G4,4AM1,1ED_GA4,4M1,1ED_4,4G1,1AM4,4E1,1D4,4_1,1G4,4A1,1M4,4E1,1D_G4,4A1,1ME4,4D1,1_4,4G1,1A4,4M1,1E4,4D1,1_4,4G1,1AM4,4E1,1D_"
Irc.PrivMSG chanel, "4,4G1,1A4,4M1,1E4,4D1,1_GA4,4M1,1ED_GA4,4M1,1ED_4,4GA1,1M4,4E1,1D4,4_1,1G4,4A1,1M4,4E1,1D_G4,4AMED1,1_4,4GAM1,1E4,4D1,1_G4,4A1,1M4,4ED_"
End Select
End Sub
Private Sub IDC_BUTTON_SVATISKA_Click()
' Beware of excess flood
Dim z As String
z = Int(Rnd() * 5)
Select Case z
Case 1
Irc.PrivMSG chanel, "4,4t1,1r4,4oll"
Irc.PrivMSG chanel, "4,4t1,1r4,4o1,1ll"
Irc.PrivMSG chanel, "4,4troll" & vbCrLf
Irc.PrivMSG chanel, "1,1tr4,4o1,1l4,4l"
Irc.PrivMSG chanel, "4,4tro1,1l4,4l"
Case 2
Irc.PrivMSG chanel, "iji iji iji iji iji iji jtiji iji iji iji iji iji iji"
Irc.PrivMSG chanel, "iji iji iji iji iji ijjDMNQti iji iji iji iji iji iji"
Irc.PrivMSG chanel, "iji iji iji iji iji cXMNMNMNQjiji iji iji iji iji iji"
Irc.PrivMSG chanel, "iji iji iji iji ijcSMNMNMNMNHJiji iji iji iji iji iji"
Irc.PrivMSG chanel, "iji iji iji iji iSWMNMNMNMHJi iji iji iji iji iji iji"
Irc.PrivMSG chanel, "iji iji iji iji6WMNMNMNMNYiji iji Jci iji iji iji iji"
Irc.PrivMSG chanel, "iji iji iji i5WMNMNMNMN5iji ijiJHMNScji iji iji iji"
Irc.PrivMSG chanel, "iji iji iji5NMNMNMNMW5iji iji JHMNMNMWSji iji iji iji"
Irc.PrivMSG chanel, "iji iji ijcXMNMNMNMNNYiji ijtKMNMNMNMNMW6 iji iji iji"
Irc.PrivMSG chanel, "iji iji iji jDNMNN.-----------.MNMNMNMNMW5iji iji iji"
Irc.PrivMSG chanel, "iji itciji iji QWE| Trollkore |NMQWMNMNMNMN5i iji iji"
Irc.PrivMSG chanel, "ijitKMWSiji iji QM|- - - - - -|QtijSWMNMNMNMNYiji iji"
Irc.PrivMSG chanel, "itQMNMNMW6iji ii K| The *new* |tii icSMNMNMNMNHJi iji"
Irc.PrivMSG chanel, "iJHMNMNMNMW6iji cS| regime! |iji ij cXMNMNMNN5i iji"
Irc.PrivMSG chanel, "ijiYNMNMNMNMN5i SW'___________'MNN cj icDMNW6iiji iji"
Irc.PrivMSG chanel, "iji i5NMNMNMNMNSWMNMMNMNHNMNMNMNMNXciji iji5i iji iji"
Irc.PrivMSG chanel, "iji iji5WMNMNMNMNMMNMNN5ij5NMNMNMNMNScjji iji iji iji"
Irc.PrivMSG chanel, "iji iji i6WMNMNMMNMNW5iji ij6WMNMNMNMWSji iji iji iji"
Irc.PrivMSG chanel, "iji iji ijiSWMMNMNW6iji iji tKMNMNMNMNXci iji iji iji"
Irc.PrivMSG chanel, "iji iji iji cSMNWSiji iji tQMNMNMNMNDjiji iji iji iji"
Irc.PrivMSG chanel, "iji iji ij iji c6ciji iji QMNMNMNMNQi iji iji iji iji"
Irc.PrivMSG chanel, "iji iji iji iji iji ijjDMNMNMNMNQ iji iji iji iji iji"
Irc.PrivMSG chanel, "iji iji iji iji iji ijXMNMNMNMNKt iji iji iji iji iji"
Irc.PrivMSG chanel, "iji iji iji iji iji jQMNMNMNHJiji iji iji iji iji iji"
Irc.PrivMSG chanel, "iji iji iji iji iji iji tKMNHJiji iji iji iji iji iji"
Irc.PrivMSG chanel, "iji iji iji iji iji iji tYiji iji iji ifi iji xyl iji"
Case 3
Irc.PrivMSG chanel, "4,4t1,1r4,4oll1,1kor4,4e1,1.4,4t1,1h4,4e.1,1n4,4e1,1w4,4.1,1reg4,4ime1,1.4,4t1,1r4,4oll1,1k4,4ore1,1.4,4t1,1he4,4."
Irc.PrivMSG chanel, "4,4t1,1r4,4o1,1llkor4,4e1,1.4,4t1,1h4,4e1,1.new4,4.1,1reg4,4i1,1m4,4e1,1.trol4,4l1,1k4,4o1,1r4,4e1,1.4,4th1,1e4,4."
Irc.PrivMSG chanel, "4,4troll1,1kor4,4e.t1,1h4,4e.1,1n4,4e1,1w4,4.1,1reg4,4ime1,1.4,4t1,1ro4,4l1,1lk4,4o1,1r4,4e1,1.4,4the."
Irc.PrivMSG chanel, "1,1tr4,4o1,1l4,4l1,1kor4,4e1,1.4,4t1,1h4,4e1,1.n4,4e1,1w4,4.1,1reg4,4im1,1e.4,4t1,1r4,4o1,1llk4,4o1,1r4,4e1,1.4,4t1,1h4,4e."
Irc.PrivMSG chanel, "4,4tro1,1l4,4l1,1kor4,4e1,1.4,4t1,1h4,4e.1,1n4,4e1,1w4,4.r1,1eg4,4i1,1m4,4e1,1.4,4t1,1r4,4oll1,1k4,4ore1,1.4,4t1,1he4,4."
Case 4
Irc.PrivMSG chanel, "04HEIL SLAVIK"
End Select
End Sub
Private Sub IDC_BUTTON_RANDOM_SHIT_Click()
Dim w As String
w = Int(Rnd() * 4)
Select Case w
Case 1
Irc.PrivMSG chanel, "13T13R5O5L4L4I7N7G8 8H9A9R3D3,10 10F11U11C12K12 2Y2O6!"
Irc.PrivMSG chanel, "13T5R5O4L4L7I7N8G8 9H9A3R3D10,10 11F11U12C12K2 2Y6O6!"
Irc.PrivMSG chanel, "5T5R4O4L7L7I8N8G9 9H3A3R10D10,11 11F12U12C2K2 6Y6O13!"
Irc.PrivMSG chanel, "5T4R4O7L7L8I8N9G9 3H3A10R10D11,11 12F12U2C2K6 6Y13O13!"
Irc.PrivMSG chanel, "4T4R7O7L8L8I9N9G3 3H10A10R11D11,12 12F2U2C6K6 13Y13O5!"
Case 2
Irc.PrivMSG chanel, "01,00You00,04Tube 04»» [ 06 https://www.youtube.com/watch?v=xb8G8qA9ibI ] 04««"
Case 3
Irc.PrivMSG chanel, "03>2012"
'Case 4
'szText = "Lo0Ol"
'szPart1 = "0,4@0,6@0,2@0,3@0,5@0,7@0,0@0,1@0,8@0,9@@0,10@0,11@0,12@0,13@0,15@0,14@0,9@0,6@0,15@0,8@0,4@0,2@0,7@0,10@0,0@0,5@0,3@0,1@0,9@0,8@0,10@0,11@"
'szPart2 = "0,14@0,3@0,5@0,6@0,10@0,2@0,0@0,5@0,4@0,14@0,2@0,11@0,9@0,8@0,14@0,0@0,4@0,7@0,1@0,10@0,2@0,5@0,9@0,14@0,7@0,15@0,13@0,1@0,8@0,4@0,0@0,6@0,11@0,3@0,4@0,13@0,8@0,5@0,11@0,14@0,0@0,9@"
'szPart3 = "0,2@0,3@0,6@0,5@0,11@0,10@0,8@0,4@0,0@0,7@0,2@0,15@0,9@0,10@0,4@0,3@0,6@0,1@0,7@0,5@0,0@0,10@0,8@0,4@0,2@0,7@0,3@0,14@0,9@0,5@0,1@0,11@0,4@0,10@0,15@0,8@0,7@0,5@0,6@0,9@0,0@0,3@0,1@0,10@0,14@0,7@0,4@0,11@0,5@0,6@"
'szPart4 = "0,15@0,8@0,7@0,3@0,4@0,9@0,10@0,1@0,2@0,5@0,7@0,4@0,11@0,2@0,15@0,6@0,8@0,0@0,3@0,10@0,9@0,7@0,2@0,5@0,14@0,4@0,6@0,0@0,3@0,11@0,1@0,2@0,9@0,6@0,15@0,5@0,11@0,4@0,0@0,14@0,3@0,9@0,5@0,1@0,6@0,2@0,11@0,9@0,15@0,14@0,4@0,0@0,5@0,3@0,6@0,2@"
'szPart1 = Replace(szPart1, "@", szText)
'szPart2 = Replace(szPart2, "@", szText)
'szPart3 = Replace(szPart3, "@", szText)
'szPart4 = Replace(szPart4, "@", szText)
'Irc.PrivMSG chanel, szPart1
'Irc.PrivMSG chanel, szPart2
'Irc.PrivMSG chanel, szPart3
'Irc.PrivMSG chanel, szPart4
End Select
End Sub
Private Sub IDC_BUTTON_START_Click()
If IDC_EDIT_INTERVAL.Text = "" Then
MsgBox "Enter interval, recommended: 1000", vbInformation, "what the..."
Exit Sub
Else
IDC_TIMER_TROLLING.Interval = IDC_EDIT_INTERVAL.Text
IDC_TIMER_TROLLING.Enabled = True
IDC_BUTTON_START.Visible = False
IDC_BUTTON_STOP.Visible = True
End If
End Sub
Private Sub IDC_BUTTON_STOP_Click()
IDC_TIMER_TROLLING.Enabled = False
IDC_BUTTON_STOP.Visible = False
IDC_BUTTON_START.Visible = True
End Sub
Private Sub IDC_EDIT_INTERVAL_KeyPress(KeyAscii As Integer) 'anti letters
If (KeyAscii <> vbKeyBack) And Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
Private Sub IDC_IMAGE_XYLIBOXLABS_1_Click() 'easter egg
IDC_IMAGE_XYLIBOXLABS_1.Visible = False
IDC_IMAGE_XYLIBOXLABS_2.Visible = True
End Sub
Private Sub IDC_IMAGE_XYLIBOXLABS_1_DblClick() 'easter egg
IDC_IMAGE_XYLIBOXLABS_1.Visible = False
IDC_IMAGE_XYLIBOXLABS_2.Visible = True
End Sub
Private Sub IDC_IMAGE_XYLIBOXLABS_2_Click() 'easter egg
IDC_IMAGE_XYLIBOXLABS_2.Visible = False
IDC_IMAGE_XYLIBOXLABS_1.Visible = True
End Sub
Private Sub IDC_IMAGE_XYLIBOXLABS_2_DblClick() 'easter egg
IDC_IMAGE_XYLIBOXLABS_2.Visible = False
IDC_IMAGE_XYLIBOXLABS_1.Visible = True
End Sub
Private Sub IDC_TIMER_TROLLING_Timer()
Dim LETSGO As String
LETSGO = Int(Rnd() * 5)
Select Case LETSGO
Case 1
Call IDC_BUTTON_BLINDLESS_Click
Case 2
Call IDC_BUTTON_SKEET_Click
Case 3
If IDC_CHECKBOX_SVATISKA.Value = 1 Then
Call IDC_BUTTON_SVATISKA_Click
End If
Case 4
Call IDC_BUTTON_RANDOM_SHIT_Click
End Select
End Sub
Private Sub Irc_Action(nick As String, User As String, Host As String, Target As String, Message As String)
If Message = "slaps " + Irc.UserNick + " around a bit with a large trout" Then
Irc.Action Target, "Shoves the trout up " + nick + "'s bum"
End If
End Sub
Private Sub Irc_BAN(srcNick As String, srcUser As String, srcHost As String, Chan As String, tarNick As String, TarUser As String, TarHost As String)
If srcNick = Irc.UserNick Then Exit Sub
If Irc.UserNick Like tarNick And Irc.UserName Like TarUser And Irc.UserHostName Like TarHost Then
Irc.Kick Chan, srcNick, "Do not abuse thet power of @"
Irc.UNBAN Chan, tarNick + "!" + TarUser + "@" + TarHost
Irc.Notice srcNick, "Hello " + srcNick + ", your BAN has affected me on " + Chan + "! Please fix! BAN MASK to remove is " + tarNick + "!" + TarUser + "@" + TarHost
End If
End Sub
Private Sub Irc_OP(srcNick As String, srcUser As String, srcHost As String, Chan As String, TargetNick As String)
If TargetNick = Irc.UserNick Then
' Irc.DEOP Chan, TargetNick
Irc.Notice srcNick, "Thanks for the +o, " + srcNick + "!"
End If
End Sub
Private Sub Irc_PrivateMessage(nick As String, User As String, Host As String, Target As String, Message As String)
If Mid(Message, 1, 5) = "VOICE" Then
Irc.MODELIST "+v", Mid(Message, 7), Irc.CLChan.NickListing(Mid(Message, 7), "[!@,+]*")
End If
If Mid(Message, 1, 5) = "BANAL" Then
Irc.MODELIST "+b", Mid(Message, 7), Irc.ConvNToMask(Irc.CLChan.NickList(Mid(Message, 7)), 1)
End If
If Mid(Message, 1, 5) = "KIKAL" Then
Irc.KICKLIST Mid(Message, 7), Irc.CLChan.NickList(Mid(Message, 7)), "Kick all request"
End If
If Mid(Message, 1, 5) = "OPALL" Then
Irc.MODELIST "+o", Mid(Message, 7), Irc.CLChan.NickNOOPList(Mid(Message, 7))
End If
If Mid(Message, 1, 5) = "DOPAL" Then
Irc.MODELIST "-o", Mid(Message, 7), Irc.CLChan.NickOPList(Mid(Message, 7))
End If
If Mid(Message, 1, 4) = "JOIN" Then
Irc.Join Mid(Message, 6)
Exit Sub
End If
End Sub
Private Sub Winsock1_Connect()
Irc.Connected
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim tmpData As String
Winsock1.GetData tmpData
Irc.RecvData tmpData
End Sub