Something

Alias VAll {
  unset %vCount
  unset %vUser 
  var %i = 0
  while (%i < $nick($chan,0)) {
    inc %i
    if (($me ishop $chan || $me isop $chan) && ($Nick($chan,%i) isreg $chan)) {
      set %vCount %vcount $+ v
      set %vUser %vUser $nick($chan,%i)
    }
  }
  mode $chan + $+ %vcount %vuser
}
Alias DVAll {
  unset %vCount
  unset %vUser 
  var %i = 0
  while (%i < $nick($chan,0)) {
    inc %i
    if (($me ishop $chan || $me isop $chan) && ($Nick($chan,%i) isvoice $chan)) {
      set %vCount %vcount $+ v
      set %vUser %vUser $nick($chan,%i)
    }
  }
  mode $chan - $+ %vcount %vuser
}