PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias bkufur { //Ban -u $+ 900 # $nick 2 } | .mode $chan +b $nick | .kick $chan $1 Kanal genelindeki duzeysiz konusmalariniz sebebiyle uzaklastirildiniz. | halt }
#Kufurler on
ON @*:TEXT:*:#:if ($_kufur(#,$nick,$1-)) bkufur $nick
ON @*:NOTiCE:*:#:if ($_kufur(#,$nick,$1-)) bkufur $nick
ON @*:ACTION:*:#:if ($_kufur(#,$nick,$1-)) bkufur $nick
#Kufurler end
; $_kufur(kanal,nick,yazi)
alias -l _kufur {
if ($2 isop $1) || ($istok(#Opers #Ops #Services #Log #Operhelp #help,$1,32)) return
if (*a.k ?* iswm $3-) || (a.g ?* iswm $3-) || (a.q* iswm $3-) || (s?ürtüg* iswm $3-) || (o?rosbu* iswm $3-) || (o?nun bunun cocu* iswm $3-) || (anana y?dir* iswm $3-) || (SİİKİ* iswm $3-) || (KâlTâk* iswm $3-) || (*? siker?* iswm $3-) || (sakso ?* iswm $3-) || (kodumun ?* iswm $3-) return 1
if (Döt* iswm $3-) || (sullalen* iswm $3-) || (****** iswm $3-) || (a??cghını yltmk i* iswm $3-) || (siiki* iswm $3-) || (*? ananla ?* iswm $3-) || (*? ananı ?* iswm $3-) || (*? sokim ?* iswm $3-) || (******** iswm $3-) || (*? bok ?* iswm $3-) || (i?nelik iswm $3-) || (*? kıLLı ?* iswm $3-) return 2
if (*? amın ?* iswm $3-) || (*? ananısı ?* iswm $3-) || (*arka deliğe* iswm $3-) || (*? arka deliğe ?* iswm $3-) || (*malı şöyle vuracaksın* iswm $3-) || (*? zilli ?* iswm $3-) || (*? zıllı ?* iswm $3-) || (fai..şe* iswm $3-) || (sıktır ?* iswm $3-) || (Amînî* iswm $3-) || (gavaht* iswm $3-) return 3
if (*S İ K İ* iswm $3-) || (s i k i* iswm $3-) || (s.i.k.i* iswm $3-) || (*? o.ç ?* iswm $3-) || (*? o.c ?* iswm $3-) || (*? o.ç* iswm $3-) || (*? o.c* iswm $3-) || (s..tir* iswm $3-) || (s?k?t?i?r git* iswm $3-) || (s!kt!* iswm $3-) || (*? ananız ?* iswm $3-) || (s!ker* iswm $3-) || (*? ananın* iswm $3-) return 4
if (*? am ?* iswm $3-) || (ananı si* iswm $3-) || (göt ?* iswm $3-) || (â.q* iswm $3-) || (â-q* iswm $3-) || *anasına ?* iswm $3-) || (çocugu* iswm $3-) || (cocugu* iswm $3-) || (seks ?* iswm $3-) || (emmeli ?* iswm $3-) || (k.o.yum* iswm $3-) return 5
if (*A nneni* iswm $3-) || (*kan? bo?uk* iswm $3-) || (*? ***** ?* iswm $3-) || (*? amcik ?* iswm $3-) || (sktir ?* iswm $3-) || (*ni yalar?m* iswm $3-) || (sikim* iswm $3-) || (sihik* iswm $3-) || (am iswm $3-) || (Anânîzîn* iswm $3-) || (a.k. ?* iswm $3-) || (mikicem* iswm $3-) return 6
if (*a.k* iswm $3-) || (a.g* iswm $3-) || (m.k* iswm $3-) || (m.q* iswm $3-) || (******* iswm $3-) || (******* iswm $3-) || (PİÇ* iswm $3-) || (**** iswm $3-) || (kaşar* iswm $3-) || (*ka$ar* iswm $3-) return 7
if (*Qrospu* iswm $3-) || (dangalak* iswm $3-) || (a-q* iswm $3-) || (********* iswm $3-) || (amcuk* iswm $3-) || (****** iswm $3-) || (******** iswm $3-) || (sikicem* iswm $3-) || (ShîKécém * iswm $3-) return 8
if (*şıllık* iswm $3-) || (kaltak* iswm $3-) || (s!ker* iswm $3-) || (*? ***** ?* iswm $3-) || (******** iswm $3-) || (yarragım* iswm $3-) || (zalaq* iswm $3-) || (zalak* iswm $3-) || (zuhecem* iswm $3-) || (zuherim* iswm $3-) || (sikik* iswm $3-) return 9
if (*phese* iswm $3-) || (An.Ne.Ne* iswm $3-) || (ananun* iswm $3-) || (ámíná* iswm $3-) || (aNheniin* iswm $3-) || (ánánín* iswm $3-) || (zikicem* iswm $3-) || (zikik* iswm $3-) || (sikem* iswm $3-) || (a_q* iswm $3-) return 10
if (*0r0 Spu* iswm $3-) || (y.lattırmak* iswm $3-) || (a'q* iswm $3-) || (a-q* iswm $3-) || (kaşhar* iswm $3-) || (ka$har* iswm $3-) || (öküz* iswm $3-) || (zohacam* iswm $3-) || (zihecem* iswm $3-) || (p.i.ç* iswm $3-) || (a;q* iswm $3-) || (ÂnÂni* iswm $3-) return 11
if (*goyum* iswm $3-) || (qoyum* iswm $3-) || (m!q* iswm $3-) || (mahL* iswm $3-) || (a!q* iswm $3-) || (a!g* iswm $3-) || (ananı siker* iswm $3-) || (Siqe* iswm $3-) || (Döthü* iswm $3-) || (Koyıyım* iswm $3-) || (ejdadını* iswm $3-) || (ibne* iswm $3-) return 12
if (*ahmmcıgına* iswm $3-) || (ânân?* iswm $3-) || (YeNgElEriNi* iswm $3-) || (*?éqérím* iswm $3-) || (DinqiL* iswm $3-) || (ANAAN* iswm $3-) || (****** iswm $3-) || (Ghötünü* iswm $3-) || (Anhenin* iswm $3-) || (Anneni sik* iswm $3-) || (sıkıyım* iswm $3-) return 13
if (SaLaq* iswm $3-) || (A.cığ.nı* iswm $3-) || (hepinizin* iswm $3-) || (o c iswm $3-) || (GTHUNE* iswm $3-) || (VE3RİRİM* iswm $3-) || (PİÇ* iswm $3-) || (*** iswm $3-) || (Sochy!m* iswm $3-) || (anneen* iswm $3-) || (* siksin* iswm $3-) || (or gan la* iswm $3-) return 14
if (*SiKeYiM* iswm $3-) || (sokar?m* iswm $3-) || (*A-V-R-A-DI-N-I* iswm $3-) || (*4_k* iswm $3-) || (*$hq£R!M* iswm $3-) || (*****ken* iswm $3-) || (******** iswm $3-) || (******* iswm $3-) || (sik si* iswm $3-) || (* topunuz* iswm $3-) || (zi ke* iswm $3-) || (*amcıq* iswm $3-) return 15
if (*gotler* iswm $3-) || (a m ı na* iswm $3-) || (0r0$pu* iswm $3-) || (qajar* iswm $3-) || (o ç iswm $3-) || (aMCuh* iswm $3-) || (sikebil* iswm $3-) || (*Sié* iswm $3-) || (*sıkeyım seni* iswm $3-) || (*becerir* iswm $3-) || (*a.m.k* iswm $3-) || (*ænænın* iswm $3-) return 16
if (*şie* iswm $3-) || (amına * iswm $3-) || (SëñIñ* iswm $3-) || (sıker* iswm $3-) || (a..q* iswm $3-) || (ZÜKEr* iswm $3-) || (amina kor* iswm $3-) || (*******l* iswm $3-) || (****** iswm $3-) || (ıbne* iswm $3-) || (ibne* iswm $3-) || (s.i.k.?* iswm $3-) return 17
if (*anasını siker* iswm $3-) || (* Amg * iswm $3-) || (*Siğimi* iswm $3-) || (*Siğerım* iswm $3-) || (* s?ğer?m * iswm $3-) || (*gohthunu* iswm $3-) || (a zı na* iswm $3-) || (s2k* iswm $3-) || (s!ker* iswm $3-) || (ZühKéR* iswm $3-) || (Ânâs* iswm $3-) || (ØrØsbû* iswm $3-) || (zike* iswm $3-) || (S!q!cém* iswm $3-) || (Sokaim* iswm $3-) || (soyunu* iswm $3-) || (Anhanı* iswm $3-) || (SİKE* iswm $3-) || (AhNaN* iswm $3-) || (a-na-n-i* iswm $3-) || (si-ki10m* iswm $3-) || (a/q* iswm $3-) || (a/g* iswm $3-) || (m/q* iswm $3-) return 18
var %i 1
while $gettok(%kufurss,%i,46) {
if ($ifmatch isin $3-) return 1
inc %i
}
}
#Kufurler end
Daha önceden PC'imde mevcut olan bir code, Coderini bilmiyorum ama işine yarayacağına inanıyorum. Bu code ile kanal genelinde küfür edenler mutlaka atılacaktır, Cümle içinde yada tek başına fark etmez.. Ayrıca dediğiniz gibi belirlemiş olduğunuz odalarda işlevi olmaz.
Örnek
* eLdorado sets mode: +I carpat!*@*
* carpat has joined #X
<carpat> a.k
* carpat was kicked by eLdorado (Kanal genelindeki duzeysiz konusmalariniz sebebiyle uzaklastirildiniz.)
Herhangi bir problem var ise, konu başlığı altında belirtirsen yardımcı olunacaktır.
Örnek için kusura bakmayınız, saygılarımla iyi forumlar..