on *:text:*:?:{
   var %+ = 1 | while $gettok(%c,%+,32) {
     if $v1 iswm $1- {
       var %- = 1 | while $comchan($nick,0) {
         var %_ = $v1, %¯ = $+($nick,!*@*)
        if $me isop %_ && $nick isreg %_ { 
           ban # $nick 2
           kick #  $nick 2
           timer 0 900 mode # -b $banmask
        }
         inc %-
       }
     }
     else { inc %+ }
   }
 }