Users list // call

on *:text:!users:#: {
  var %i 0
  while (%i < $nick($chan, 0)) {
    inc %i
    var %string $addtok(%string,$+($chr(32),$nick($chan,%i)),44)
  }
  msg $chan $nick($chan, 0) users - %string
}