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