on $*:text:/^[.!@]user(s|list)($|\s#)/Si:#:{ 
  set.tar $1
  if ($nick isop $chan) {  
    var %i,%x,%nicks,%y
    set %i 1 
    set %x $iif($2,$2,#soulfire)
    while (%i <= $nick(%x,0)) { 
      if ($nick(%x,%i) isvoice %x) { 
        set %nicks %nicks $nick(%x,%i) 14-07
        inc %y
      }
      inc %i 
    } 
    %send 14Voices on07 $chan $+ 14:07 $rsn($left(%nicks,-4)) 14(07 $+ %y $+ 14)
  } 
  un.tar
}

alias -l rsn {
  var %i,%x,%y
  set %y $replace($remove($1,$chr(32)),-,$chr(44))
  set %i 1
  set %x $readini(nicks.ini,$network,$gettok(%y,1,44))
  while (%i <= $numtok(%y,44)) {
    inc %i
    set %x $+(%x,$chr(44),$readini(nicks.ini,$network,$gettok(%y,%i,44)))

  }
  return %x
}