Protectie clone

mIRC snippet ce baneaza clonele la join. Scriptul verifica hostmask-ul utilizatorului intrat si le compara cu celelalte.

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
BLKoldSUN	necunoscut	protections	Cod testat	561	2023-12-03 21:49:08

on *:JOIN:#: {
  if ($nick(#,$me,@&~%)) {  
    var %Clone.join.flood2 = $+(*!*@*.,$gettok($address($nick,2),-2,46),.,$gettok($address($nick,2),-1,46))  
    if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] == $null) {
      set -u3 %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] 1 
    }
    else { inc %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] }
    if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] >= 2) {
      if (%modechanx7 != $true) {
        .raw mode  $chan +b %Clone.join.flood2
        set -u3 %modechanx7 $true
      }
    }

    var %Clone.join.flood = $+(*!*@,$remove($gettok($address($nick,2),1-2,46),*!*@),.*)    
    if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] == $null) {
      set -u3 %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] 1 
    }
    else { inc %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] }
    if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] >= 2) {
      if (%modechan1MR76567 != $true) {
        .raw mode  $chan +b %Clone.join.flood
        set -u3 %modechan1MR76567 $true
      }
    }

    var %join.flood.ident = $left($remove($gettok($address($nick,3),1,$asc(@)),*!*),4)
    if (%join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] == $null) {
      set -u3 %join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] 1 
    }
    else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] }
    if (%join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] >= 2) {
      if (%modechan1MR541 != $true) {
        .raw mode  $chan +b $+(*!,$left($gettok($gettok($address($nick,5),1,64),2,33),5),*@*)    
        set -u3 %modechan1MR541 $true
      }
    }

    var %join.flood = $+($left($nick,4),*!*@*)
    if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] == $null) {
      set -u3 %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] 1 
    }
    else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] }
    if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] >= 2) {
      if (%modechan1MR != $true) {
        set -u3 %clnicks2 1
        .raw mode  $chan +b %join.flood   
        set -u3 %modechan1MR $true
      }
    }
  }
}