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 19use Irssi; 20use strict; 21use 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 33my $miodek = ' 34# moje w�asne dopiski :> (by yagus) 35 36szypko szybko 37wogule w ogole 38qrva panna lekkich obyczajow 39drobiask drobia zg 40ogladash ogl�da sz 41przeciesh przecie � 42zeszycikof zeszyt� w 43widzish widzi sz 44JESOOO Je zu 45jesooooooo Je zu 46jesoooooooo Je zu 47jesooooooooo Je zu 48jesoooooooooo Je zu 49jesooooooooooo Je zu 50jesoooooooooooo Je zu 51zgadzash zgadza sz 52jesooo Je zu 53jesoooo Je zu 54jesooooo Je zu 55jesoooooo Je zu 56zobaczysh zobaczy sz 57pokonash pokona sz 58nawidzish nawidzi sz 59myslish my�li sz 60komplexof komple ks � w 61chujq cz�onku 62moofi m �w i 63umiesh umie sz 64lubish lubi sz 65tilaf T.Love 66wjesz w i esz 67priff pri v 68prif pri v 69lukof �uk� w 70lukoof �uk �w 71kad sk �d 72k�d sk �d 73wlosoof w�os �w 74wlosof w�os� w 75dobzie dob rz e 76fog�le w og�le 77fogole w og�le 78wog�le w og�le 79wogole w og�le 80pishesz pi sz esz 81pishesh pi sz e sz 82mooofish m �w i sz 83uwazash uwa�a sz 84slyshysh s�y sz y sz 85zaparofaly zaparo w a�y 86wyprafiash wypra w ia sz 87wyprafiasz wypra w iasz 88znof zn� w 89idziesh idzie sz 90grash gra sz 91moofi� m �w i� 92moofil m �w i� 93qlfa kurwa 94dopsie do brz e 95schodof schod �w 96pierdolic kocha� 97pierdoli� kocha� 98jeba� uprawia� mi�o�� 99jebac uprawia� mi�o�� 100pierdolec kochanek 101psyjechac p rz yjecha� 102kces ch ce sz 103przyjebal pokocha� 104przyjeba� pokocha� 105ujebal pokocha� 106zajebal zakocha� 107ujeba� pokocha� 108zajeba� zakocha� 109chuja cz�onka 110huja cz�onka 111pierdoli kocha 112odwiezesh odwiezie sz 113bedziesh b�dzie sz 114mooofiles m �w i�e� 115moofiles m �w i�e� 116mofi m �w i 117dogryzash dogryza sz 118terash tera z 119tfooj t w� j 120dorosniesh doro�nie sz 121pofiem po w iem 122poffiem po w iem 123dopla do bra 124doblam do bra 125# typowe kretynizmy (90% by Lam) 126tesh te � 127tesz te � 128tysh t e� 129tysz t e� 130jush ju � 131jusz ju � 132ush j u � 133mash ma sz 134cush c � 135coosh c � 136cosh c � 137robish robi sz 138jesh je sz 139# qrwa ku rwa 140kurfa kur w a 141qrfa ku r w a 142kofam ko ch am 143koffam ko ch am 144kofany ko ch any 145koffany ko ch any 146kofana ko ch ana 147koffana ko ch ana 148moofie m �w i� 149moof m �w 150moofisz m �w isz 151moofish m �w i sz 152mofie m� w i� 153mof m� w 154mofisz m� w isz 155mofish m� w i sz 156pofiem po w iem 157gadash gada sh 158wiesh wie sz 159fiesh w ie sz 160fiem w iem 161# tego wprost nienawidz�! 162KCE ch c� 163kce ch c� 164kcem ch c � 165kcesz ch cesz 166kcesh ch ce sz 167moshe mo � e 168mosze mo � e 169moshna mo � na 170# widzia�em jak jaki� czik o inteligencji ameby pisa� "moszna", ale smaczek ;) 171bosh bo �e 172boshe bo � e 173boshesh bo � e 174jesu Je z u 175joosh j u� 176# no tego to ja bym nie wymy�li� :) 177fokle w o g� le 178psheprasham p rz epra sz am 179# a to s�owo ma tyle wersji.. ci ludzie naprawd� si� nudz�. 180dobshe dob rz e 181dopshe do brz e 182dopsze do brz e 183dopsz do brze 184topshe d o brz e 185topsze d o brz e 186topsz d o brze 187topla d ob r a 188toplanoc d ob r anoc 189dopry do b ry 190dopra do b ra 191# od tego momentu wy��cznie wy�apane na ircu 192napish napi sz 193palish pali sz 194trafke tra w k� 195trafka tra w ka 196slofa s�o w a 197pishe pi sz e 198piszem pisz � 199moozg m � zg 200kref kre w 201krfi kr w i 202naprafde napra w d� 203zafsze za w sze 204dziendopry dzie�do b ry 205snoof sn �w 206kopiom kopi � 207kcenie ch cenie 208kc� ch c� 209k�rfa k u r w a 210k�rwa k u rwa 211mooj m � j 212jesoo Je zu 213loodzie l u dzie 214loodzi l u dzi 215ktoora kt � ra 216ktoory kt � ry 217ktoore kt � re 218gloopi g� u pi 219gloopia g� u pia 220goopi g �u pi 221goopia g �u pia 222gupi g � upi 223gupia g � upia 224siem si � 225pshesada p rz esada 226booziak b u ziak 227booziaki b u ziaki 228mogem mog � 229bes be z 230spowrotem z powrotem 231poczeba po trz eba 232niepoczeba nie po trz eba 233czeba trz eba 234glofa g�o w a 235glofe g�o w � 236suonce s � o�ce 237fitam w itam 238fitaj w itaj 239fitajcie w itajcie 240slofnik 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 245cieshysh cie sz y sz 246tfierdzish t w ierdzi sz 247jezd je st 248brzytkie brzy d kie 249brzytki brzy d ki 250brzytka brzy d ka 251otfarty ot w arty 252otfarte ot w arte 253otfarta ot w arta 254leprzy lep sz y 255leprze lep sz e 256leprza lep sz a 257lepshy lep sz y 258lepshe lep sz e 259lepsha lep sz a 260zief zie w 261kfila chw ila 262kfile chw il� 263kfilka chw ilka 264kfilke chw ilk� 265bendem b � d � 266lecem lec � 267pifo pi w o 268pifko pi w ko 269pifkiem pi w kiem 270bszytkie b rz y d kie 271bszytki b rz y d ki 272bszytka b rz y d ka 273goofny g ��w ny 274goofno g �w no 275muoda m � oda 276miaua mia � a 277miauam mia � am 278tszeba t rz eba 279wporzo w porzo 280# na pro�b� Upiora troch� bluzg�w + nowe by yagoda 281kurwa dziewica orlea�ska 282kurwy panny 283kurwie pannie 284kurewka panienka 285kurwo panno 286qrwa prostytutka 287# eksperymentalne wielkie litery :-) 288CHUJ cz�oneczek 289HUJ cz�oneczek 290KURWA panienka 291KURWY panny 292CIPA pochwa 293PIZDA pochwa 294SKURWYSYN Protas 295chuj cz�onek 296chuje cz�onki 297chujowo cz�onkowsko 298chujowy cz�onkowski 299chujowa cz�onkowska 300chujowe cz�onkowskie 301huj cz�onek 302huje cz�onki 303hujowo cz�onkowsko 304hujowy cz�onkowski 305hujowa cz�onkowska 306hujowe cz�onkowskie 307cipa pochwa 308pizda pochwa 309pierdolony kochany 310pierdolona kochana 311pierdolone kochane 312jebany kochany 313jebana kochana 314jebane kochane 315skurwysyn Protas 316skurwysynu synu prostytutki 317skurwiel Lam 318skurwielu z kur wielu 319pierdole kocham 320jebie kocham 321pierdol kochaj 322kutas penis 323cipka pochewka 324'; 325 326my %slowa; 327my $ilosc_slow = 0; 328 329foreach 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 338sub 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). 367Irssi::signal_add_last("server event", "server_event"); 368Irssi::print "%GMiodek%c:%n ilo�� s��w w s�owniku: $ilosc_slow"; 369