#Join.Part.FLoOD on

On @*:Join:#:{
  if ($istok(%Protect,$chan,32)) {
    if ( ~ isin $gettok($gettok($address($nick,5),2,33),1,64) ) {
      if $hget(eXpQuit,$wildsite) != $null { halt }
      if (!$regex($wildsite,/(2001[:]67c[:]2f08[:]|192[.]184[.]9[.]108|192[.]184[.]9[.]110|192[.]184[.]9[.]112|192[.]184[.]10[.]118|192[.]184[.]10[.]9|192[.]184[.]8[.]73|192[.]184[.]8[.]103|[.]irccloud[.]com)$/i)) { .hadd -mu2 $chan Join $+ . $+ $nick 1 }
    }
  }
}

On @*:Part:#:{
  if ($istok(%Protect,$chan,32)) {
    if ( ~ isin $gettok($gettok($address($nick,5),2,33),1,64) ) {
      if $hget(eXpQuit,$wildsite) != $null { halt }
      if ($hget($chan,Join $+ . $+ $nick)) { 
        inc -u2 %RevoLving.Door.FLoODPro. [ $+ [ $chan ] ] 1
      }
      if (%RevoLving.Door.FLoODPro. [ $+ [ $chan ] ] == 1) {
        eXBan $chan $address($nick,2) 1800
      }
      elseif (%RevoLving.Door.FLoODPro. [ $+ [ $chan ] ] > 1) {
        if (!$Timer(#)) MODE $chan $+(+,%X.Join.Part.FLoOD,-k) Join.Part.FLoOD | .Timer $+ $chan 1 90 MODE $chan $+(-,%X.Join.Part.FLoOD)
        eXBan $chan $address($nick,4) 3600
      }
    }
  }
}

#Join.Part.FLoOD END