Unnamed

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