vcomp

alias vcount {
  var %num.nick 1
  while (%num.nick <= $nick(#RSHelp,0)) {
    if ($nick(#RSHelp,%num.nick) !isvoice #RSHelp) {
      inc %num.nick
    }
    else {
      inc %vcount
      inc %num.nick
    }
  }
  say Number of 2+voices left in the competition:  $+ %vcount $+ .
  unset %vcount
}