1. #Join.Part.FLoOD on
2.  
3. On @*:Join:#:{
4.   if ($istok(%Protect,$chan,32)) {
5.     if ( ~ isin $gettok($gettok($address($nick,5),2,33),1,64) ) {
6.       if $hget(eXpQuit,$wildsite) != $null { halt }
7.       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 }
8.     }
9.   }
10. }
11.  
12. On @*:Part:#:{
13.   if ($istok(%Protect,$chan,32)) {
14.     if ( ~ isin $gettok($gettok($address($nick,5),2,33),1,64) ) {
15.       if $hget(eXpQuit,$wildsite) != $null { halt }
16.       if ($hget($chan,Join $+ . $+ $nick)) {
17.         inc -u2 %RevoLving.Door.FLoODPro. [ $+ [ $chan ] ] 1
18.       }
19.       if (%RevoLving.Door.FLoODPro. [ $+ [ $chan ] ] == 1) {
20.         eXBan $chan $address($nick,2) 1800
21.       }
22.       elseif (%RevoLving.Door.FLoODPro. [ $+ [ $chan ] ] > 1) {
23.         if (!$Timer(#)) MODE $chan $+(+,%X.Join.Part.FLoOD,-k) Join.Part.FLoOD | .Timer $+ $chan 1 90 MODE $chan $+(-,%X.Join.Part.FLoOD)
24.         eXBan $chan $address($nick,4) 3600
25.       }
26.     }
27.   }
28. }
29.  
30. #Join.Part.FLoOD END
31.