Untitled

on $*:text:/^[!.]silence$/Si:#dragons_awakening:{
  if ($nick isop $chan) {
    var %x = 1
    mode $chan +m
    while ($nick($chan,%x,v)) { 
      mode $chan -v $nick($chan,%x,v)
      while (%voiced. [ $+ [ %x ] ]) { set $v1 $nick($chan,%x,v) }
      inc %x
    } 
  }
}
on $*:text:/^[!.]revoice$/Si:#dragons_awakening:{
  var %x = 1
  while (%voiced. [ $+ [ %x ] ]) {
    mode $chan +v $v1
    unset $v1
    inc %x
  }
}