html/miodek.pl
1 # Miodek 1.0.2
2 #
3 # Lam 10-11.9.2001 + pó¼niejsze zmiany s³ownika (g³ównie YagoDa)
4 #
5 # Pewnie ten skrypt jest napisany ¼le, co prawdopodobnie wynika z faktu, ¿e
6 # to w ogóle mój pierwszy skrypt w perlu, ale có¿, na pewno ludzie, których
7 # ten skrypt kopie s± g³upsi od niego :)
8 #
9 # S³ownik jest wynikiem nocnego przegl±dania logów z irca (g³ównie
10 # grepowania po "sh" oraz "kunia") i powiêksza siê podczas ka¿dej rozmowy :)
11 #
12 # 10:32 <aska|off> hm... to u was za kopiom???????
13 # 10:32 <aska|off> ehhee za kcenie??????
14 #
15 # Miodek 2.0 z obs³ug± regexów i s³owników w plikach by³ w
16 # przygotowaniu, ale po padzie dysku straci³em ochotê odzyskiwania go.
17 # Na jaki¶ czas.
18
19 use Irssi;
20 use strict;
21 use vars qw($VERSION %IRSSI);
22 $VERSION = "1.0.2";
23 %IRSSI = (
24 authors => "Leszek Matok, Andrzej Jagodziñski",
25 contact => "lam\@lac.pl",
26 name => "miodek",
27 description => "Simple wordkick system, with extended polish dictionary for channels enforcing correct polish.",
28 license => "GPLv2",
29 changed => "10.3.2002 20:10"
30 );
31
32
33 my $miodek = '
34 # moje w³asne dopiski :> (by yagus)
35
36 szypko szybko
37 wogule w ogole
38 qrva panna lekkich obyczajow
39 drobiask drobia zg
40 ogladash ogl±da sz
41 przeciesh przecie ¿
42 zeszycikof zeszytó w
43 widzish widzi sz
44 JESOOO Je zu
45 jesooooooo Je zu
46 jesoooooooo Je zu
47 jesooooooooo Je zu
48 jesoooooooooo Je zu
49 jesooooooooooo Je zu
50 jesoooooooooooo Je zu
51 zgadzash zgadza sz
52 jesooo Je zu
53 jesoooo Je zu
54 jesooooo Je zu
55 jesoooooo Je zu
56 zobaczysh zobaczy sz
57 pokonash pokona sz
58 nawidzish nawidzi sz
59 myslish myœli sz
60 komplexof komple ks ó w
61 chujq cz³onku
62 moofi m ów i
63 umiesh umie sz
64 lubish lubi sz
65 tilaf T.Love
66 wjesz w i esz
67 priff pri v
68 prif pri v
69 lukof £ukó w
70 lukoof £uk ów
71 kad sk ±d
72 k¹d sk ±d
73 wlosoof w³os ów
74 wlosof w³osó w
75 dobzie dob rz e
76 fogóle w ogóle
77 fogole w ogóle
78 wogóle w ogóle
79 wogole w ogóle
80 pishesz pi sz esz
81 pishesh pi sz e sz
82 mooofish m ów i sz
83 uwazash uwa¿a sz
84 slyshysh s³y sz y sz
85 zaparofaly zaparo w a³y
86 wyprafiash wypra w ia sz
87 wyprafiasz wypra w iasz
88 znof znó w
89 idziesh idzie sz
90 grash gra sz
91 moofi³ m ów i³
92 moofil m ów i³
93 qlfa kurwa
94 dopsie do brz e
95 schodof schod ów
96 pierdolic kochaæ
97 pierdoliæ kochaæ
98 jebaæ uprawiaæ mi³o¶æ
99 jebac uprawiaæ mi³o¶æ
100 pierdolec kochanek
101 psyjechac p rz yjechaæ
102 kces ch ce sz
103 przyjebal pokocha³
104 przyjeba³ pokocha³
105 ujebal pokocha³
106 zajebal zakocha³
107 ujeba³ pokocha³
108 zajeba³ zakocha³
109 chuja cz³onka
110 huja cz³onka
111 pierdoli kocha
112 odwiezesh odwiezie sz
113 bedziesh bêdzie sz
114 mooofiles m ów i³e¶
115 moofiles m ów i³e¶
116 mofi m ów i
117 dogryzash dogryza sz
118 terash tera z
119 tfooj t wó j
120 dorosniesh doro¶nie sz
121 pofiem po w iem
122 poffiem po w iem
123 dopla do bra
124 doblam do bra
125 # typowe kretynizmy (90% by Lam)
126 tesh te ¿
127 tesz te ¿
128 tysh t e¿
129 tysz t e¿
130 jush ju ¿
131 jusz ju ¿
132 ush j u ¿
133 mash ma sz
134 cush c ó¿
135 coosh c ó¿
136 cosh c ó¿
137 robish robi sz
138 jesh je sz
139 # qrwa ku rwa
140 kurfa kur w a
141 qrfa ku r w a
142 kofam ko ch am
143 koffam ko ch am
144 kofany ko ch any
145 koffany ko ch any
146 kofana ko ch ana
147 koffana ko ch ana
148 moofie m ów iê
149 moof m ów
150 moofisz m ów isz
151 moofish m ów i sz
152 mofie mó w iê
153 mof mó w
154 mofisz mó w isz
155 mofish mó w i sz
156 pofiem po w iem
157 gadash gada sh
158 wiesh wie sz
159 fiesh w ie sz
160 fiem w iem
161 # tego wprost nienawidzê!
162 KCE ch cê
163 kce ch cê
164 kcem ch c ê
165 kcesz ch cesz
166 kcesh ch ce sz
167 moshe mo ¿ e
168 mosze mo ¿ e
169 moshna mo ¿ na
170 # widzia³em jak jaki¶ czik o inteligencji ameby pisa³ "moszna", ale smaczek ;)
171 bosh bo ¿e
172 boshe bo ¿ e
173 boshesh bo ¿ e
174 jesu Je z u
175 joosh j u¿
176 # no tego to ja bym nie wymy¶li³ :)
177 fokle w o gó le
178 psheprasham p rz epra sz am
179 # a to s³owo ma tyle wersji.. ci ludzie naprawdê siê nudz±.
180 dobshe dob rz e
181 dopshe do brz e
182 dopsze do brz e
183 dopsz do brze
184 topshe d o brz e
185 topsze d o brz e
186 topsz d o brze
187 topla d ob r a
188 toplanoc d ob r anoc
189 dopry do b ry
190 dopra do b ra
191 # od tego momentu wy³±cznie wy³apane na ircu
192 napish napi sz
193 palish pali sz
194 trafke tra w kê
195 trafka tra w ka
196 slofa s³o w a
197 pishe pi sz e
198 piszem pisz ê
199 moozg m ó zg
200 kref kre w
201 krfi kr w i
202 naprafde napra w dê
203 zafsze za w sze
204 dziendopry dzieñdo b ry
205 snoof sn ów
206 kopiom kopi ±
207 kcenie ch cenie
208 kcê ch cê
209 kórfa k u r w a
210 kórwa k u rwa
211 mooj m ó j
212 jesoo Je zu
213 loodzie l u dzie
214 loodzi l u dzi
215 ktoora kt ó ra
216 ktoory kt ó ry
217 ktoore kt ó re
218 gloopi g³ u pi
219 gloopia g³ u pia
220 goopi g ³u pi
221 goopia g ³u pia
222 gupi g ³ upi
223 gupia g ³ upia
224 siem si ê
225 pshesada p rz esada
226 booziak b u ziak
227 booziaki b u ziaki
228 mogem mog ê
229 bes be z
230 spowrotem z powrotem
231 poczeba po trz eba
232 niepoczeba nie po trz eba
233 czeba trz eba
234 glofa g³o w a
235 glofe g³o w ê
236 suonce s ³ oñce
237 fitam w itam
238 fitaj w itaj
239 fitajcie w itajcie
240 slofnik s³o w nik
241 # usuniête w wyniku batalii o Jerzego Owsiaka. Prawdopodobnie nied³ugo
242 # zobaczymy to s³owo w s³owniku. Ciekawe co napisz± pod has³em "siemanie"?
243 # siema siê ma
244 # siemasz siê masz
245 cieshysh cie sz y sz
246 tfierdzish t w ierdzi sz
247 jezd je st
248 brzytkie brzy d kie
249 brzytki brzy d ki
250 brzytka brzy d ka
251 otfarty ot w arty
252 otfarte ot w arte
253 otfarta ot w arta
254 leprzy lep sz y
255 leprze lep sz e
256 leprza lep sz a
257 lepshy lep sz y
258 lepshe lep sz e
259 lepsha lep sz a
260 zief zie w
261 kfila chw ila
262 kfile chw ilê
263 kfilka chw ilka
264 kfilke chw ilkê
265 bendem b ê d ê
266 lecem lec ê
267 pifo pi w o
268 pifko pi w ko
269 pifkiem pi w kiem
270 bszytkie b rz y d kie
271 bszytki b rz y d ki
272 bszytka b rz y d ka
273 goofny g ³ów ny
274 goofno g ów no
275 muoda m ³ oda
276 miaua mia ³ a
277 miauam mia ³ am
278 tszeba t rz eba
279 wporzo w porzo
280 # na pro¶bê Upiora trochê bluzgów + nowe by yagoda
281 kurwa dziewica orleañska
282 kurwy panny
283 kurwie pannie
284 kurewka panienka
285 kurwo panno
286 qrwa prostytutka
287 # eksperymentalne wielkie litery :-)
288 CHUJ cz³oneczek
289 HUJ cz³oneczek
290 KURWA panienka
291 KURWY panny
292 CIPA pochwa
293 PIZDA pochwa
294 SKURWYSYN Protas
295 chuj cz³onek
296 chuje cz³onki
297 chujowo cz³onkowsko
298 chujowy cz³onkowski
299 chujowa cz³onkowska
300 chujowe cz³onkowskie
301 huj cz³onek
302 huje cz³onki
303 hujowo cz³onkowsko
304 hujowy cz³onkowski
305 hujowa cz³onkowska
306 hujowe cz³onkowskie
307 cipa pochwa
308 pizda pochwa
309 pierdolony kochany
310 pierdolona kochana
311 pierdolone kochane
312 jebany kochany
313 jebana kochana
314 jebane kochane
315 skurwysyn Protas
316 skurwysynu synu prostytutki
317 skurwiel Lam
318 skurwielu z kur wielu
319 pierdole kocham
320 jebie kocham
321 pierdol kochaj
322 kutas penis
323 cipka pochewka
324 ';
325
326 my %slowa;
327 my $ilosc_slow = 0;
328
329 foreach my $linia (split(/\n/, $miodek)) {
330 chomp $linia;
331 next if ($linia =~ /^#/ || $linia eq "");
332
333 my ($org, $popraw) = split(/\s+/, $linia, 2);
334 $slowa{$org} = $popraw;
335 $ilosc_slow++
336 }
337
338 sub server_event {
339 my ($server, $data, $nick, $address) = @_;
340 my ($type, $data) = split(/ /, $data, 2);
341 return unless ($type =~ /privmsg/i);
342 my ($target, $tekst) = split(/ :/, $data, 2);
343 my $powod;
344
345 # pozbywam siê syfów kontrolnych, oraz ^A z CTCP
346 # mo¿e jest jaka¶ funkcja w irssi do wycinania kolorów mircowych?
347 $tekst =~ s/[ ]//g;
348
349 foreach my $wyraz (split(/[\s,.;!?\/"`':()_-]/,$tekst)) {
350 my $popraw = $slowa{$wyraz};
351 if ($popraw) {
352 if ($powod) {
353 $powod = $powod . ", ";
354 }
355 $powod = $powod . $popraw;
356 }
357 }
358
359 if ($powod && $target =~ /^[#!+&]/ ) {
360 $server->command("/kick $target $nick $powod");
361 Irssi::print "%Rkop%n ($target): %c$nick%n, powod: $powod";
362 }
363 }
364
365 # Musia³em siê podczepiæ pod server event zamiast event privmsg, bo irssi
366 # wycina CTCP z PRIVMSG (co jest dla mnie zachowaniem dziwnym).
367 Irssi::signal_add_last("server event", "server_event");
368 Irssi::print "%GMiodek%c:%n ilo¶æ s³ów w s³owniku: $ilosc_slow";