on *:TEXT:!clonescan*:#:{
  ar %i = 0
    while (%i < $nick($chan,0)) {
      inc %i
      if ($address($2,2) iswm $address($nick($chan,%i),2)) var %clones = %clones $nick($chan,%i)
    }
    if ($count(%clones,$chr(32)) > 0) {
      notice $nick $iif($replace(%clones,$chr(32),$chr(44)),$replace(%clones,$chr(32),$chr(44)),No one)
    }
}