Untitled

alias devoiceall {
  set %cnick 1
  unset %cnicks
  while (%cnick < $nick($chan,0)) {
    if ($nick($chan,%cnick) isvoice $chan) {
      set %cnicks %cnicks $nick($chan,%cnick)
    }
    inc %cnick
  }
  $iif($numtok(%cnicks,$chr(32)) > 0, mode $chan -vvvvvvvv $gettok(%cnicks,1-8,$chr(32)))
  $iif($numtok(%cnicks,$chr(32)) > 8, mode $chan -vvvvvvvv $gettok(%cnicks,9-16,$chr(32)))
  $iif($numtok(%cnicks,$chr(32)) > 16, mode $chan -vvvvvvvv $gettok(%cnicks,17-24,$chr(32)))
}