This snippet will scan clones for active channel and it will display the result in @Clonescan window.
Usage: /Clonescan

alias clonescan {
  if ($chan($chan).ial != $true) { echo 2 -a * /clonescan - IAL not updated. Type /who $chan }
  else {
    var %ialchan $chan
    var %i = 1
    window -a @Clonescanner
    echo -a Clonescanner by shitbreak - Scanning clones for channel %ialchan $+  
    while (%i <= $ialchan(*,%ialchan,0)) {
      if ($ialchan($+(*!*@,$gettok($ialchan(*,%ialchan,%i),2,64)),$chan,0) > 1) && (!%clone. [ $+ [ $+(*!*@,$gettok($ialchan(*,%ialchan,%i),2,64)) ] ]) {
        inc %cloneid
        var %clone. $+ $+(*!*@,$gettok($ialchan(*,%ialchan,%i),2,64)) 1
        echo -a Clonegroup: ID: ( $+ %cloneid $+ ) 4 $+ $+(*!*@,$gettok($ialchan(*,%ialchan,%i),2,64)) $+   $+  $ialchan($+(*!*@,$gettok($ialchan(*,%ialchan,%i),2,64)),%ialchan,0) $+  users
        var %x = 1
        while (%x <= $ialchan($+(*!*@,$gettok($ialchan(*,%ialchan,%i),2,64)),%ialchan,0)) {
          echo -a %x $+ ) $ialchan($+(*!*@,$gettok($ialchan(*,%ialchan,%i),2,64)),%ialchan,%x).nick
          inc %clones
          inc %x
        }
        echo -a 
      }
      inc %i
    }
    echo -a Total number of users   $+ $ialchan(*,%ialchan,0) $+ 
    echo -a Total number of clones  $+ %clones $+ 
    echo -a Total percent of clones  $+ $round($calc($calc(%clones / $ialchan(*,%ialchan,0)) * 100),2) $+  $+ %
    unset %cloneid %clones
  }
}