L4roXyL

özel küfür korumasında şifresiz nick
Sana text gönderen nick’e who çekersin.
Eğer kayıtsız nick ise ve gönderdiği text’de kufur.txt dosyasındaki yasaklı kelimelerden herhangi birisi mevcut’sa bulunduğun tüm kanallar’dan banlarsın. (Kod sorunsuz çalışır)

on *:text:*:?: { inc -e $+(%,t,$nick) | if $($+(%,t,$nick),2) == 1 { .enable #u | .who $nick } | else { var %1 = 1,%2 = $lines(kufur.txt) | while %1 <= %2 { if $+(*,$read(kufur.txt,%1),*) iswm $1- && $hmatch(nick,$nick) { var %p = $nick } | inc %1 } | var %s = 1,%ss = $comchan($me,0) | while %s <= %ss { if $nick ison $comchan($me,%s) { ban -ku900 $comchan($me,%s) %p 2 Küfür. } | inc %s } } }
#u off
raw *:*: { if $numeric == 352 { if r !isincs $7 { haltdef | hadd -m nick $6 1 } } | if $numeric == 315 { haltdef | .disable #u } }
#u end