summaryrefslogtreecommitdiffstats
path: root/scripts/miodek.pl
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-15 20:19:02 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-15 20:19:02 +0000
commit03929dac2a29664878d2c971648a4fe1fb698462 (patch)
tree02c5e2b3e006234aa29545f7a93a1ce01b291a8b /scripts/miodek.pl
parentInitial commit. (diff)
downloadirssi-scripts-03929dac2a29664878d2c971648a4fe1fb698462.tar.xz
irssi-scripts-03929dac2a29664878d2c971648a4fe1fb698462.zip
Adding upstream version 20231031.upstream/20231031upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'scripts/miodek.pl')
-rw-r--r--scripts/miodek.pl368
1 files changed, 368 insertions, 0 deletions
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 <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";