on *:text:.voiceall:#:{
  var %a = 0
  while (%a <= $nick($chan,0)) {
    inc %a 1
    if ($nick($chan,%a) isreg $chan) {
      mode $chan +v $nick($chan,%a)
    }
  }
}