alias dva {
  var %x = 1
  while ($nick($chan,%x,v)) {
    if (%z > $modespl) {
      mode $chan $str(-v,$modespl) %nicks
      var %nicks = $nick($chan,%x,v),%z = 1
    }
    var %nicks = $iif(%nicks,$v1 $+($chr(32),$nick($chan,%x,v)),$nick($chan,%x,v))
    inc %x,%z
  }
  if (%nicks) mode $chan $str(-v,$modespl) %nicks
}