IRC Script (Tool): Mass Voice/Devoice

If you've ever tried running a non-automated trivia event on IRC you know how bad the spam can get. One way to avoid this is by loading the following script and devoicing the channel with "/m d", and setting the channel mode "+m" once you've seen the correct answer (The mode +m blocks all messages from regular users participating in your event). Once you've found your winner you can tell the channel and either set "-m" to continue asking your questions or "/m v" to voice everyone again.

Code:


alias m {
  var %i 1,%j,%k $modespl,%l, %mv $iif($$1 = v,+,$iif($$1 = d,-))
  %j = $+(%mv,$str(v,%k)) | while $nick(#,%i,a,oh&~) {
    $iif($ifmatch != $me,%l = %l $ifmatch)
    if ($token(%l,0,32) = %k) || ($nick(#,0,a,oh&~) = %i) {
      mode # %j %l | %l = ""
    }
    inc %i
  }
}


Thank you Defo helps for my events!