it's a little clonescan...

alias clonescan {
  window -a @CloneScan
  var %clonescan1 = 1
  while (%clonescan1 <= $nick($1,0)) {
    if ($ialchan($address($nick($1,%clonescan1),2),$1,0) > 1) && ($address($nick($1,%clonescan1),2) !isin %clonescanaddresses) {
      var %clonescanaddresses = %clonescanaddresses $address($nick($1,%clonescan1),2)
      echo $gettok($readini(mirc.ini,colors,n0),16,44) @CloneScan $timestamp * CloneScanner Found ( $+ $ialchan($address($nick($1,%clonescan1),2),$1,0) $+ ) Clones in ( $+ $1 $+ ) from ( $+ $gettok($address($nick($1,%clonescan1),2),2,64) $+ )
      var %clonescan2 = 1
      while (%clonescan2 <= $ialchan($address($nick($1,%clonescan1),2),$1,0)) {
        echo $gettok($readini(mirc.ini,colors,n0),16,44) @CloneScan $timestamp * %clonescan2 $+ . $ialchan($address($nick($1,%clonescan1),2),$1,%clonescan2).nick
        inc %clonescan2
      }
      echo $gettok($readini(mirc.ini,colors,n0),16,44) @CloneScan $chr(15)
      echo $gettok($readini(mirc.ini,colors,n0),16,44) @CloneScan $chr(15)
    }
    inc %clonescan1
  }
  if (%clonescanaddresses == $null) { echo $gettok($readini(mirc.ini,colors,n0),16,44) @CloneScan $timestamp * No Clones Where Found in ( $+ $1 $+ ) }
}
menu channel {
 -
 CloneScan:clonescan #
}