Forums Scripts & Popups Join flood protection

On *:JOIN:#:{
  echo $chan 12,00 $gettok($wildsite,2,64) 
  if (!$Timer($+(CheckAccessOP,_,$chan,_,$site,_,$network))) { .timer $+ $+(CheckAccessOP,_,$chan,_,$site,_,$network) -m 1 400 OP_check_access $unsafe($chan) $wildsite $nick }
}


Alias -l OP_check_access { 
  var %chan = $1, %site = $gettok($2,2,64) , %nick = $3, %wildsite = $2
  if (!$nick(%chan,%nick,!~&@%+)) { 
    if ($+(%,JoinPartFlood_,$site,_,$chan) == $null ) { set -u1800 $+(%,JoinPartFlood_,$site,_,$chan) 1   }
    else { inc $+(%,JoinPartFlood_,%site,_,%chan)  }
    if ($($+(%,JoinPartFlood_,%site,_,%chan),2) == 3) { .timerwarn 1 3 notice $unsafe(%nick) WARNING!!! }    
    if ($($+(%,JoinPartFlood_,%site,_,%chan),2) == 4) {
      if (%wildsite !isban %chan) { mode %chan +b %wildsite  }
      if (%nick ison %chan) { kick %chan %nick  WARNING  }
      unset $eval($+(%,JoinPartFlood_,%site,_,%chan),1)
    }
  }
}

if (%wildsite !isban %chan) { mode %chan +b %wildsite  }

if (%wildsite !isban %chan) { mode %chan +b %wildsite  }

if (%wildsite !isban %chan) { ban -u $+ $duration(3h)  %chan %nick 2  }