Scan paterns in nicks and mass kick

By simo on May 09, 2017

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

By Cappuccino.

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

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))   
  } 
}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.