Kod: Kodu kopyalamak için üzerine çift tıklayın!
on @!*:JOIN:#:{
if (!$regex($nick,/korunannick1|korunannick2/i)) {
tokenize 33 $gettok($fulladdress,1,64)
if (!$hget($+($chan,$cid,drone),$nick)) && (($len($1) > 4) || ($len($2) > 4)) && ($regex($1,/^[a-z]+$) && $regex($2,/^~?[a-z]+$)) {
if ($regex($1,/^[^aeiou]{4}/)) || ($regex($2,/^(~?)[^aeiou]{4}/)) { goto end }
elseif ($regex($1,/([a-z])\1{2}/)) || ($regex($2,/([a-z])\1{2}/)) { goto end }
elseif ($regex($1,/[aeiou]{4/)) || ($regex($2,/[aeiou]{4}/)) { goto end }
elseif ($regex($1,q[^u]) || $regex($2,q[^])) { goto end }
elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) || ($regex($2,/[^aeioux]x[^aeiouyx]/)) { goto end }
else { halt }
:end
if ($nick ison $chan) { ban $chan $nick 2 | .timer 1 600 mode $chan -b $address($nick,2) | kick $chan $nick (Random (Rastgele) Nick ve/veya Ident..)[Drones Kicked: $+(%d.k,]) | inc %d.k }
hadd -mu60 $+($chan,$cid,drone) $replace($fulladdress,!,$chr(32))
halt
}
;elseif ($regex($nick,/^[A-Z][a-z]+[^0-9][0-9]{2}$/)) && (Guest* !iswm $nick) { echo 4 -s ban -ku600 $chan $nick 2 autokicked: [exp/ma] You are infected with an IRC trojan/virus. }
}
Ban atıyor şu anda, ban'ları line olarak değiştirirsen işine yarayabilir.