Скопируйте этот скрипт в Alt+R - Aliases
Для поиска клонов на канале используйте команду /clonescan
clonescan {
if ($chan) && ($ial) {
var %clone.ticks = $ticks
var %x = $nick(#,0)
while (%x) {
if ($ialchan($address($nick(#,%x),2),#,0) > 1) && ($address($nick(#,%x),2) !isin %clone.adr) {
var %clone.adr = %clone.adr $address($nick(#,%x),2)
var %y = $ialchan($address($nick(#,%x),2),#,0)
while (%y) {
var %clone = %clone $ialchan($address($nick(#,%x),2),#,%y).nick
dec %y
}
echo -a Clones: %clone $+($chr(40),$address($gettok(%clone,1,32),2),$chr(41))
unset %clone
}
dec %x
}
echo -a Clonescan took $calc(($ticks - %clone.ticks)/1000) seconds.
}
}Пример работы:
[17:00:00] <@tvrsh> /clonescan
Clones: tvrsh SweRt (*!*@ircnet.ru)
Clones: iSystem BukTopuHa (*!*@ircnet-20540.ircd.su)
Clones: lamestbot FAQbot bionic (*!*@qwertylife.ru)
Clonescan took 0.062 seconds.
© Sparkle











