From 03929dac2a29664878d2c971648a4fe1fb698462 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Mon, 15 Apr 2024 22:19:02 +0200 Subject: Adding upstream version 20231031. Signed-off-by: Daniel Baumann --- scripts/miodek.pl | 368 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 368 insertions(+) create mode 100644 scripts/miodek.pl (limited to 'scripts/miodek.pl') diff --git a/scripts/miodek.pl b/scripts/miodek.pl new file mode 100644 index 0000000..ce00bc6 --- /dev/null +++ b/scripts/miodek.pl @@ -0,0 +1,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 hm... to u was za kopiom??????? +# 10:32 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"; -- cgit v1.2.3