on *:text:!dv:#:{ devoiceall $chan }
alias devoiceall {
  var %devoice.nick 1
  while %devoice.nick <= $nick($1,0,v) {
    mode $chan -v $nick($1,%devoice.nick,v)
    inc %devoice.nick 1
  }
}

on *:text:!v:#:{ voiceall $chan }
alias voiceall {
  var %voice.nick 1
  while %voice.nick <= $nick($1,0,r) {
    mode $chan -v $nick($1,%voice.nick,r)
    inc %voice.nick 1
  }
}