Bu kod el33t in yazdığı bir kod. iyi çalışıyor.
($nick,/neslisah|vaybe diye başlayan satır atılmamasını istediğin nickler kısmıdır. kodun sonundaki /i ise nicklerin büyük küçük harf duyarlılığıdır. nick
ahmet sede
AhMeT sede
AHMET sede atılmaz.
on @!*:JOIN:#:{
if (!$regex($nick,/neslisah|vaybe|tuqce|qozlem|zeyna|jotif|ciqsgirl|w awe|sema^^|extrem|companero|uyuz|selamm|xcomely|Sc arlett1|doktor|zxcourse|yokum|kerem|sahilci|demier en|nonamef|haziran|murat|doruk|karayel|mydream|naz l|smarties|meliz|yagmur|zpam|selda|ilke|kurabiye|b ade|bachelor|gezegen|nehrr|amele|erdem|plasser|ast racoupe|joelle|denizyildizi|serman|slmss|gamze|bil lur|hurols|gizemm|gambler|clkcoupe|syler|zeynaa|po yraz|yelis|kuram|myra|lapin|sleepp|yuppii|suistima l|shule|antuanet|zeynoo/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. Visit
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
}