on *:INPUT:#: { if ($1 == !nickalert) { names } }
alias names {
  var %totalnicks $nick($chan,0)
  while (%totalnicks) {
    if (%nicks) {
      set %nicks %nicks 14,4 $nick($chan,%totalnicks)
    }
    else {
      set %nicks $nick($chan,%totalnicks)
    }
    dec %totalnicks
  }
  set %newnicks $replace(%nicks,$me $+ $chr(44),$chr(32))
  msg $chan 4 $+ %newnicks
  unset %nicks
  unset %totalnicks
  unset %newnicks
}