path: root/scripts/miodek.pl

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