[TÜRK]

alias clone {
$iif(!$ial,ial on)
$iif(!$chan($1).ial,who $1)
$iif($hget(clone),hfree clone)
var %s 1
while (%s <= $ialchan(*,$1,*)) {
var %n = $ialchan(*,$1,%s).nick, %h = $ialchan(*,$1,%s).host, %z = $ialchan($+(*@,%h),$1,0), %k = 1
if (%z > 1) {
while (%k <= %z) {
$iif($regex(%h,((.\wop)|(irc(op|help)er)|(yonetim)|(admin)|(dj))),return)
set %count $addtok(%count,$ialchan($+(*@,%h),$1,%k).nick,32)
hadd -m clone $+(*@,%h) %count
inc %k
}
unset %count
}
inc %s
}
if ($hget(clone)) {
echo -a $1 kanalının clone listesi:
var %dvm 1
while (%dvm <= $hget(clone,0).data) {
echo -a IP: $hget(clone,%dvm).item , Nickler: $hget(clone,%dvm).data
inc %dvm
}
}
}