Çevrimdışı

#uyarılı on
on *:text:*:#:{
if ($nick isreg $chan) {
if $istok($1-,it,32) || $istok($1-,lan,32) || $istok($1-,maymun,32) || $istok($1-,Ayı,32) || $istok($1-,köpek,32) || $istok($1-,mal,32) || $istok($1-,salak,32) || $istok($1-,aptal,32) || $istok($1-,enayi,32) || $istok($1-,?küz,32) || $istok($1-,angut,32) || $istok($1-,oğlum,32) || $istok($1-,ger?zekal?,32) || $istok($1-,sie,32) || $istok($1-,sia,32) || $istok($1-,hıyar,32) || $istok($1-,?nek,32) || $istok($1-,si@,32) || $istok($1-,uza,32) || $istok($1-,lahn,32) || $istok($1-,lanh,32) || $istok($1-,saxo,32) || $istok($1-,manyak,32) || $istok($1-,salak,32) || $istok($1-,uzaa,32) || $istok($1-,kro,32) {
if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | kick $chan $nick 10 Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. By $me Tarafindan }
else { if (%say [ $+ [ $nick ] ] >= 1) { mode $chan +b $nick | kick $chan $nick 12Daha Onceden 4 > $+ %kelime [ $+ [ $nick ] ] $+ < 12 Kelimesinden Dolayi Uyarı Aldınız 2. Olarak 4 > $+ $strip($1-) $+ < 12 Olan Yasak ve Kötü Unsur Içeren Sözcüğü Kullandıgınız Için Kanaldan 4 Uzaklaştırıldınız.. [ 12 $me 4] | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }
}
}
}
}
#uyarılı end

İşinizi görürse buyurun. kodun kime ait oldugunu bilmiyorum yapanin eline sağlık.