1. on @*:JOIN:#: {  
2.   if (!$regex($site,/(2001[:]67c[:]2f08[:]|192[.]184[.]9[.]108|192[.]184[.]10[.]118|192[.]184[.]10[.]9|192[.]184[.]8[.]73|[.]irccloud[.]com)/i)) {  
3.     set -z %door. [ $+ [ $wildsite ] $+ . $+ [ $chan ] $+ . $+ [ $network ] ] 3
4.   }
5. }
6.  
7.  
8. on @*:part:#: {
9.   if (!$regex($site,/(2001[:]67c[:]2f08[:]|192[.]184[.]9[.]108|192[.]184[.]10[.]118|192[.]184[.]10[.]9|192[.]184[.]8[.]73|[.]irccloud[.]com)/i)) {  
10.     if (%door. [ $+ [ $wildsite ] $+ . $+ [ $chan ] $+ . $+ [ $network ] ]) {
11.       if (!$Timer($network $+ #)) {  .raw MODE $chan +R-k  Rev-door | .Timer $+ $network $+ #  1 5 MODE $chan -R }
12.       Wbmask2022 $nick $chan
13.       unset %door. [ $+ [ $wildsite ] $+ . $+ [ $chan ] $+ . $+ [ $network ] ]
14.     }
15.   }
16. }
17.  
18. alias Wbmask2022 {
19.   if ($regex($address($1,2),/(2001[:]67c[:]2f08[:]|192[.]184[.]9[.]108|192[.]184[.]10[.]118|192[.]184[.]10[.]9|192[.]184[.]8[.]73|[.]irccloud[.]com)/i)) { halt }
20.   else { putmode -t0 $2 +b $regsubex($address($1,14),/[*?]+/g,*) }
21. }
22.  
23.  
24. On !^*:JOIN:#: {
25.   if ($nick(#,$me,@&~%)) {  
26.     var %join.flood = $+($left($nick,5),*!*@*)
27.     var %filterednickXLZx `^-_\|}{[] | if ($regex($nick,/[\Q $+ %filterednickXLZx $+ \E]/g) >= 1) { set -u3 %clnicks1 $addtok(%clnicks1,$nick,44)   }
28.     if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] == $null) {
29.       set -u3 %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] 1      
30.     }
31.     else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] }
32.     if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] >= 3) {
33.       set -u3 %clnicks1 $addtok(%clnicks1,$nick,44)
34.       putmode $chan +b $mask($fulladdress,2)
35.       if (%modechan1R != $true) {
36.         .raw mode  $chan +R-k  %join.flood    
37.         echo $chan  ( cloned nicks Flood ) !!!!! Channel Locked !!!!! %version  
38.         set -u5 %modechan1R $true
39.         .timer $+ mass $+ $chan 1 5 mode $chan -R
40.       }
41.       if ($nick(#,$me,@%&~)) { var %mcln 4 | while (%clnicks1) { kick $chan $gettok(%clnicks1,1- %mcln,44) (nick/host is trying to (re)join too fast -- throttled.) %version | %clnicks1 = $deltok(%clnicks1,1- %mcln,44) } }
42.     }  
43.   }
44. }  
45.  
46.  
47.  
48. on *:JOIN:#: {
49.   if (%Netsplit-Detected. [ $+ [ $chan ] $+ . $+ [ $network ] ]) { halt }
50.   if ($nick(#,$me,@&~%)) {
51.     if (!$regex($site,/(192[.]184[.]9[.]108|192[.]184[.]10[.]118|192[.]184[.]10[.]9|192[.]184[.]8[.]73|[.]pk|.*irccloud[.]com|.*mibbit.com|.*kiwiirc.com)/i)) { set -u5 %mjnicks. $+ $network $+ . $+ $chan $addtok($($+(%,mjnicks.,$network,.,$chan),2),$nick,44) | set -u5 $+(%,ipflood.,#) $addtok($($+(%,ipflood.,#),2),$mask($fulladdress,4),32)  }
52.     if ($floodchk(jflood, 2, $network $chan) > 3) {
53.       if (!$Timer(mass $network #)) { .raw MODE $chan +R-k  Mass.Join | .Timer $+ $chan 1 5 MODE $chan -R |  .timer $+ mass $+ $chan 1 5 mode $chan -R | .Timer $+ $network $+ #  1 5 MODE $chan -R }
54.       .timersuper.kickz. [ $+ [ # ] ] -m 1 10 super.modez $safe2018($chan)
55.       .timermjkick $+ $network $+ $chan -m 1 10 if ($($+(%,mjnicks.,$network,., $safe2018($chan) ),2)) $({,0) kick $safe2018($chan) $!($+(%,mjnicks.,$network,., $safe2018($chan) ) ,2) *** $+ Mass Joins Detected $+ ***  $(|) unset  $!+(%,mjnicks.,$network,., $safe2018($chan) ) $(},0)
56.       if ($numtok($($+(%,mjnicks.,$network,.,$chan),2),44) == 4) {
57.         kick $chan $($+(%,mjnicks.,$network,.,$chan),2) Mass Joins detected %version
58.         .timermjkick $+ $network $+ $chan off      
59.         unset $eval($+(%,mjnicks.,$network,.,$chan),1)
60.       }
61.     }
62.   }
63. }
64.