Çevrimdışı

DALnet'teki bir arkadaşımın kendi kanalında kullandığı random nickleri kickleyen kodu aşağıdan alabilirsin, hepsini olmasa da çoğunu kicklediğini söyledi, denemediğim için bilemeyeceğim. mIRC'nin hangi nickin random olup olmadığını bilmesi imkansızdır, onun için random nicklerin ortak özelliklerini bulman gerek, örneğin hepsi ctcp time'a cevap vermiyor olabilir, kanala giren nicke /ctcp $nick time gönderdiğinde 5 saniye içinde cevap gelmezse kanaldan atabilirsin, benim bulunduğum kanallarda random nickler yaklaşık 10 saniye kanalda duruyor..
İşte kod:
on @!*:JOIN:#:{
tokenize 33 $gettok($fulladdress,1,64)
if (!$hget($+($chan,$cid,drone),$nick)) && (($len($1) > 3) || ($len($2) > 3)) && ($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]{3}/)) || ($regex($2,/[aeiou]{3}/)) { 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) { .raw kick $chan $nick :(When u pull my boot outta your ass, i want it back)[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) { 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...] }
}