raw 353:*: {
  var %i 1
  %n = $4-
  while %i <= $numtok(%n,32) {
    %s = $gettok(%n,%i,32)
    if $left(%s,1) isalpha && $level(%s $+ !*@*) == 666 {
      %ret. [ $+ [ $3 ] ] = $addtok(%ret. [ $+ [ $3 ] ],%s,44)
    }
    inc %i
  }
}
on *:op:#: {
  if $opnick == $me {
    if %ret. [ $+ [ # ] ] {
      var %i 1
      while %i <= $numtok(%ret. [ $+ [ # ] ],44) {
        %s = $gettok(%ret. [ $+ [ # ] ],%i,44)
        mode # +b %s
        kick # %s Badnick.
        inc %i
      }
      unset %ret. [ $+ [ # ] ]
    }
  }
}