mIRC Clone Scan

menu menubar,channel {
  -
Clone Scan:/clonescan
}
alias clonescan {
  if ($chan) && ($ial) {
    var %clone.ticks = $ticks
    echo -a 5Now searching for clones in4 $chan
    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 5Clones:4 %clone $+($chr(40),$address($gettok(%clone,1,32),2),$chr(41))
        unset %clone
      }
      dec %x
    }
    echo -a 5Clonescan took $calc(($ticks - %clone.ticks)/1000) seconds.
  }
}