Something

on $*:TEXT:/^[!@.]voice all/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) && ($me ishop $chan || $me isop $chan) { 
    var %x = 1 
    while (%x <= $nick($chan,0)) { 
      if ($nick($chan,%x) isreg $chan) { mode $chan +v $nick($chan,%x)
      } 
      inc %x 
    } 
  } 
}
on $*:TEXT:/^[!@.]devoice all/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) && ($me ishop $chan || $me isop $chan) { 
    var %x = 1 
    while (%x <= $nick($chan,0)) { 
      if ($nick($chan,%x) isvoice $chan) { mode $chan -v $nick($chan,%x)
      } 
      inc %x 
    } 
  } 
}