[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;kanal opları için
 on *^&:JOIN:#: { 
if ($me isop #) {
if (a isin $nick) { halt } | if (A isin $nick) { halt } 
if (e isin $nick) { halt } | if (E isin $nick) { halt } | if (i isin $nick) { halt } 
if (I isin $nick) { halt } | if (o isin $nick) { halt } | if (O isin $nick) { halt } 
if (u isin $nick) { halt } | if (U isin $nick) { halt } | if (1 isin $nick) { halt } 
if (2 isin $nick) { halt } | if (3 isin $nick) { halt } | if (4 isin $nick) { halt } 
if (5 isin $nick) { halt } | if (6 isin $nick) { halt } | if (7 isin $nick) { halt } 
if (8 isin $nick) { halt } | if (9 isin $nick) { halt } | if (0 isin $nick) { halt } 
if ($nick isin $address($nick,1)) { 
;ceza
;.mode # +mi
.ban -u30 # $address($nick,2) 
.kick # 10Reklam4•10Küfür4•10Clone4•10Spam4 •10Saldırı Yasaktır 4/!\ [30 DK. T4:Ban] 
}
else {
.ban -u600 # $address($nick,2) 
kick # $nick perm 4 •10Banned 4Trojan 
}
halt 
} 
}
 
 
;irc oplar için
 on ^&*:SNOTICE:*:{ 
 if (a isin $9) { halt } | if (A isin $9) { halt } 
 if (e isin $9) { halt } | if (E isin $9) { halt } | if (i isin $9) { halt } 
 if (I isin $9) { halt } | if (o isin $9) { halt } | if (O isin $9) { halt } 
 if (u isin $9) { halt } | if (U isin $9) { halt } | if (1 isin $9) { halt } 
 if (2 isin $9) { halt } | if (3 isin $9) { halt } | if (4 isin $9) { halt } 
 if (5 isin $9) { halt } | if (6 isin $9) { halt } | if (7 isin $9) { halt } 
 if (8 isin $9) { halt } | if (9 isin $9) { halt } | if (0 isin $9) { halt } 
 if ($9 isin $10) { 
 .til $9 
 if (!$window(@šnotice) { window -en @šnotice } 
 echo 5 -t @šnotice Litmus: $9 
 halt 
 } 
 halt 
 } 
 ;30 dk. Kline 
 alias til { .kline $$1 30m 4 •10Banned 4Trojan }

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 }
 }