Mine

on *:text:!clonescan:#: {
  if ($nick isreg $chan) || ($nick isvoice $chan) { notice $nick Command only available to channel operators | halt }
  var %d = 1
  msg $chan 4Scanning ..
  while (%d <= $nick($chan,0)) {
    if ($readini(clones.ini,clone,$address($nick($chan,%d),1))) {
      msg $chan 4Found clone: $nick($chan,%d) and $v1 $+(,$chr(40),,$remove($address($nick($chan,%d),1),*!*,@),,$chr(41),)
      inc %scan
    }
    echo -a $nick($chan,%d)
    writeini clones.ini clone $address($nick($chan,%d),2) $nick($chan,%d)
    writeini clones.ini clone $nick $address($nick($chan,%d),1)
    inc %d  
  }
  remini clones.ini clone
  if (!%scan) { msg $chan 4No clones found | halt }
  msg $chan 3Scanning finished
}