-
Notifications
You must be signed in to change notification settings - Fork 234
/
miodek.pl
368 lines (356 loc) · 9.52 KB
/
miodek.pl
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
# Miodek 1.0.2
#
# Lam 10-11.9.2001 + póĽniejsze zmiany słownika (głównie YagoDa)
#
# Pewnie ten skrypt jest napisany Ľle, co prawdopodobnie wynika z faktu, że
# to w ogóle mój pierwszy skrypt w perlu, ale cóż, na pewno ludzie, których
# ten skrypt kopie s± głupsi od niego :)
#
# Słownik jest wynikiem nocnego przegl±dania logów z irca (głównie
# grepowania po "sh" oraz "kunia") i powiększa się podczas każdej rozmowy :)
#
# 10:32 <aska|off> hm... to u was za kopiom???????
# 10:32 <aska|off> ehhee za kcenie??????
#
# Miodek 2.0 z obsług± regexów i słowników w plikach był w
# przygotowaniu, ale po padzie dysku straciłem ochotę odzyskiwania go.
# Na jaki¶ czas.
use Irssi;
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = "1.0.2";
%IRSSI = (
authors => "Leszek Matok, Andrzej Jagodziński",
contact => "lam\@lac.pl",
name => "miodek",
description => "Simple wordkick system, with extended polish dictionary for channels enforcing correct polish.",
license => "GPLv2",
changed => "10.3.2002 20:10"
);
my $miodek = '
# moje własne dopiski :> (by yagus)
szypko szybko
wogule w ogole
qrva panna lekkich obyczajow
drobiask drobiazg
ogladash ogl±dasz
przeciesh przecież
zeszycikof zeszytów
widzish widzisz
JESOOO Jezu
jesooooooo Jezu
jesoooooooo Jezu
jesooooooooo Jezu
jesoooooooooo Jezu
jesooooooooooo Jezu
jesoooooooooooo Jezu
zgadzash zgadzasz
jesooo Jezu
jesoooo Jezu
jesooooo Jezu
jesoooooo Jezu
zobaczysh zobaczysz
pokonash pokonasz
nawidzish nawidzisz
myslish myślisz
komplexof kompleksów
chujq członku
moofi mówi
umiesh umiesz
lubish lubisz
tilaf T.Love
wjesz wiesz
priff priv
prif priv
lukof Łuków
lukoof Łuków
kad sk±d
kąd sk±d
wlosoof włosów
wlosof włosów
dobzie dobrze
fogóle w ogóle
fogole w ogóle
wogóle w ogóle
wogole w ogóle
pishesz piszesz
pishesh piszesz
mooofish mówisz
uwazash uważasz
slyshysh słyszysz
zaparofaly zaparowały
wyprafiash wyprawiasz
wyprafiasz wyprawiasz
znof znów
idziesh idziesz
grash grasz
moofił mówił
moofil mówił
qlfa kurwa
dopsie dobrze
schodof schodów
pierdolic kochać
pierdolić kochać
jebać uprawiać miło¶ć
jebac uprawiać miło¶ć
pierdolec kochanek
psyjechac przyjechać
kces chcesz
przyjebal pokochał
przyjebał pokochał
ujebal pokochał
zajebal zakochał
ujebał pokochał
zajebał zakochał
chuja członka
huja członka
pierdoli kocha
odwiezesh odwieziesz
bedziesh będziesz
mooofiles mówiłe¶
moofiles mówiłe¶
mofi mówi
dogryzash dogryzasz
terash teraz
tfooj twój
dorosniesh doro¶niesz
pofiem powiem
poffiem powiem
dopla dobra
doblam dobra
# typowe kretynizmy (90% by Lam)
tesh też
tesz też
tysh też
tysz też
jush już
jusz już
ush już
mash masz
cush cóż
coosh cóż
cosh cóż
robish robisz
jesh jesz
# qrwa kurwa
kurfa kurwa
qrfa kurwa
kofam kocham
koffam kocham
kofany kochany
koffany kochany
kofana kochana
koffana kochana
moofie mówię
moof mów
moofisz mówisz
moofish mówisz
mofie mówię
mof mów
mofisz mówisz
mofish mówisz
pofiem powiem
gadash gadash
wiesh wiesz
fiesh wiesz
fiem wiem
# tego wprost nienawidzę!
KCE chcę
kce chcę
kcem chcę
kcesz chcesz
kcesh chcesz
moshe może
mosze może
moshna można
# widziałem jak jaki¶ czik o inteligencji ameby pisał "moszna", ale smaczek ;)
bosh boże
boshe boże
boshesh boże
jesu Jezu
joosh już
# no tego to ja bym nie wymy¶lił :)
fokle w ogóle
psheprasham przepraszam
# a to słowo ma tyle wersji.. ci ludzie naprawdę się nudz±.
dobshe dobrze
dopshe dobrze
dopsze dobrze
dopsz dobrze
topshe dobrze
topsze dobrze
topsz dobrze
topla dobra
toplanoc dobranoc
dopry dobry
dopra dobra
# od tego momentu wył±cznie wyłapane na ircu
napish napisz
palish palisz
trafke trawkę
trafka trawka
slofa słowa
pishe pisze
piszem piszę
moozg mózg
kref krew
krfi krwi
naprafde naprawdę
zafsze zawsze
dziendopry dzieńdobry
snoof snów
kopiom kopi±
kcenie chcenie
kcę chcę
kórfa kurwa
kórwa kurwa
mooj mój
jesoo Jezu
loodzie ludzie
loodzi ludzi
ktoora która
ktoory który
ktoore które
gloopi głupi
gloopia głupia
goopi głupi
goopia głupia
gupi głupi
gupia głupia
siem się
pshesada przesada
booziak buziak
booziaki buziaki
mogem mogę
bes bez
spowrotem z powrotem
poczeba potrzeba
niepoczeba nie potrzeba
czeba trzeba
glofa głowa
glofe głowę
suonce słońce
fitam witam
fitaj witaj
fitajcie witajcie
slofnik słownik
# usunięte w wyniku batalii o Jerzego Owsiaka. Prawdopodobnie niedługo
# zobaczymy to słowo w słowniku. Ciekawe co napisz± pod hasłem "siemanie"?
# siema się ma
# siemasz się masz
cieshysh cieszysz
tfierdzish twierdzisz
jezd jest
brzytkie brzydkie
brzytki brzydki
brzytka brzydka
otfarty otwarty
otfarte otwarte
otfarta otwarta
leprzy lepszy
leprze lepsze
leprza lepsza
lepshy lepszy
lepshe lepsze
lepsha lepsza
zief ziew
kfila chwila
kfile chwilę
kfilka chwilka
kfilke chwilkę
bendem będę
lecem lecę
pifo piwo
pifko piwko
pifkiem piwkiem
bszytkie brzydkie
bszytki brzydki
bszytka brzydka
goofny główny
goofno gówno
muoda młoda
miaua miała
miauam miałam
tszeba trzeba
wporzo w porzo
# na pro¶bę Upiora trochę bluzgów + nowe by yagoda
kurwa dziewica orleańska
kurwy panny
kurwie pannie
kurewka panienka
kurwo panno
qrwa prostytutka
# eksperymentalne wielkie litery :-)
CHUJ członeczek
HUJ członeczek
KURWA panienka
KURWY panny
CIPA pochwa
PIZDA pochwa
SKURWYSYN Protas
chuj członek
chuje członki
chujowo członkowsko
chujowy członkowski
chujowa członkowska
chujowe członkowskie
huj członek
huje członki
hujowo członkowsko
hujowy członkowski
hujowa członkowska
hujowe członkowskie
cipa pochwa
pizda pochwa
pierdolony kochany
pierdolona kochana
pierdolone kochane
jebany kochany
jebana kochana
jebane kochane
skurwysyn Protas
skurwysynu synu prostytutki
skurwiel Lam
skurwielu z kur wielu
pierdole kocham
jebie kocham
pierdol kochaj
kutas penis
cipka pochewka
';
my %slowa;
my $ilosc_slow = 0;
foreach my $linia (split(/\n/, $miodek)) {
chomp $linia;
next if ($linia =~ /^#/ || $linia eq "");
my ($org, $popraw) = split(/\s+/, $linia, 2);
$slowa{$org} = $popraw;
$ilosc_slow++
}
sub server_event {
my ($server, $data, $nick, $address) = @_;
my ($type, $data) = split(/ /, $data, 2);
return unless ($type =~ /privmsg/i);
my ($target, $tekst) = split(/ :/, $data, 2);
my $powod;
# pozbywam się syfów kontrolnych, oraz ^A z CTCP
# może jest jaka¶ funkcja w irssi do wycinania kolorów mircowych?
$tekst =~ s/[]//g;
foreach my $wyraz (split(/[\s,.;!?\/"`':()_-]/,$tekst)) {
my $popraw = $slowa{$wyraz};
if ($popraw) {
if ($powod) {
$powod = $powod . ", ";
}
$powod = $powod . $popraw;
}
}
if ($powod && $target =~ /^[#!+&]/ ) {
$server->command("/kick $target $nick $powod");
Irssi::print "%Rkop%n ($target): %c$nick%n, powod: $powod";
}
}
# Musiałem się podczepić pod server event zamiast event privmsg, bo irssi
# wycina CTCP z PRIVMSG (co jest dla mnie zachowaniem dziwnym).
Irssi::signal_add_last("server event", "server_event");
Irssi::print "%GMiodek%c:%n ilo¶ć słów w słowniku: $ilosc_slow";