Bengap La Pullok ..

on @*:join:#:{
  inc -u1 %adadforjoin. [ $+ [ $chan ] ]
  if (%adadforjoin. [ $+ [ $chan ] ] >= 7) && (%adadforjoin. [ $+ [ $chan ] ] <= 10) {
    .mode $chan +b $wildsite | unset %adadforjoin. [ $+ [ $chan ] ] | halt
  }
  set -u3 %Jfk. [ $+ [ $chan ] $+ . $+ [ $wildsite ] ] $calc( %Jfk. [ $+ [ $chan ] $+ . $+ [ $wildsite ] ] + 1 )
  if ( %Jfk. [ $+ [ $chan ] $+ . $+ [ $wildsite ] ] >= 3) {
    if ($nick isop #) return
    .mode $chan +b $wildsite
    .mode $chan +R
    set %palystan $nick($chan,0)
    unset %fastfilters
    :loop
    inc %fastfilters
    inc -u2 %3dad
    if (%3dad >= 4) halt
    if (%fastfilters > %palystan) halt
    set %temp.filter.kicks $ialchan($wildsite,$chan,%fastfilters).nick
    if (%temp.filter.kicks == $me) { goto loop }
    if (%temp.filter.kicks isop $chan) || (%temp.filter.kicks isvo $chan) { goto loop }
    if (%temp.filter.kicks ison $chan) kick $chan %temp.filter.kicks BanneD : Join FLooD
    goto loop
  }
}