this will scann joining nicks in channel for paterns in nicks and get rid of them

you can use together with the putmode code i posted here as well so u can compress mode settings

http://hawkee.com/snippet/22121/

By Cappuccino.

On !^*:JOIN:#: {
  if ($nick(#,$me,@&~%)) {  
    var %join.flood = $+($left($nick,5),*!*@*)
    set -u3 %clnicks1 $addtok(%clnicks1,$nick,44)
    if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] == $null) {
      set -u3 %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] 1       
    }
    else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] }
    if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] >= 2) {
      ban35RT $nick $chan  
      if (%modechan1MR != $true) {
        .raw mode  $chan +MRb  %join.flood    
        echo $chan 01,08 ( cloned nicks Flood ) !!!!! Channel Locked !!!!!  
        set -u5 %modechan1MR $true
        .timermjs1RM 1 30 mode $chan -MR
      }
      if ($nick(#,$me,@%&~)) { var %mcln 4 | while (%clnicks1) { kick $chan $gettok(%clnicks1,1- %mcln,44) Cloned Nicks ) ( Detected | %clnicks1 = $deltok(%clnicks1,1- %mcln,44) } } 
    }  
  }
}  

alias ban35RT {
  if (!$regex($gettok($address($1,2),-1,64),/[a-zA-Z]/g)) { 
    mode  $2 +b $+(*!*@,$gettok($gettok($address($1,2),1-3,46),2,64),.*)
  }    
  else {
    mode  $2 +b $+(*!*@*.,$gettok($address($1,2),3-,46))   
  } 
}

; revised 06 nov 2021

  On !^*:JOIN:#: {
  if ($nick(#,$me,@&~%)) {  
    var %join.flood = $+($left($nick,5),*!*@*)
    var %filterednickXLZx `^-_\|}{[] | if ($regex($nick,/[\Q $+ %filterednickXLZx $+ \E]/g) >= 1) { set -u3 %clnicks1 $addtok(%clnicks1,$nick,44)   } 
    if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] == $null) {
      set -u3 %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] 1       
    }
    else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] }
    if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] >= 2) {
    set -u3 %clnicks1 $addtok(%clnicks1,$nick,44)
    putmode $chan +b $mask($fulladdress,2)
      if (%modechan1MR != $true) {
        .raw mode  $chan +MRb  %join.flood    
        echo $chan 01,08 ( cloned nicks Flood ) !!!!! Channel Locked !!!!!  
        set -u5 %modechan1MR $true
        .timermjs1RM 1 30 mode $chan -MR
      }
      if ($nick(#,$me,@%&~)) { var %mcln 4 | while (%clnicks1) { kick $chan $gettok(%clnicks1,1- %mcln,44) Cloned Nicks ) ( Detected | %clnicks1 = $deltok(%clnicks1,1- %mcln,44) } } 
    }  
  }
}