Import scripts from scripts.irssi.org

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";