alias allnicks {
  var %a = 1, %b = $nick($chan,0)
  while (%a < %b) {
    if ($len(%allnicks) > 500) {
      msg $active %allnicks
      unset %allnicks
    }
    else {
      var %allnicks = $addtok(%allnicks,$+($nick($chan,%a),$chr(44)),32)
      inc %a
    }
  }
  msg $active $+($left(%allnicks,-1),$chr(46))
}