on *:input:#:{ 
  if ($1 == !vall) { 
    var %count $nick($chan,0,a)
    var %i 1
    set %users, %v
    while (%i <= %count) {
      %users = %users $+ $chr(32) $+ $nick($chan,%i)
      %v = %v $+ v
      inc %i
    }
    mode $chan + $+ %v %users 
    unset %users
    unset %v
  }
}