on *:TEXT:!clonescan*:#:{
  var %x = 1 
  while (%x <= $2($chan,0)) { 
    if ($address($2($chan,%x),2) == $address($2,2)) && ($2($chan,%x) != $me) { 
      var %clones %clones $2($chan,%x) 
    } 
    inc %x 
  }
  msg $chan 12Clones Found: $thmbr(%clones))
}