on *:JOIN:#: {
  var %o == 5
  var %p == $chan
  var %s == $nick
  var %me == $me
  var %z == #Ayuda
  if ($ialchan($address(%s,2),%p,0) > %o) {
    if (%me isop %p) && (%s != %me) && ($chan(%p).mode != RM) {
      .mode %p +RM
      kick %p $ialchan($address(%s,2),%p,0) Ataque de Clones Detectado.
      Gline $ialchan($address(%s,2),%p,0) Actividades ilegales en la Red $server $+ .
      omsg %z Ataque de Clones en %p desde $ial($address(%s,2),0).nick
      .timer 1 120 .mode %p -RM
    }
    elseif {
      while ($ialchan($address(%s,2),%p,0) > %o) || ($gettok($right($ialchan($address(%s,2),%p,0),-1,64),1,64) !isalpha) || ($ialchan($address(%s,2),%p,0) != $null) {
        if (%me !isop %p) && (%me isreg %p) && (%p ischan) {
          msg CHaN op %p %me
          mode %p +RMib $ial($address(%s,0),0).nick
          .timer 1 120 mode %p -RMi
        }
      }
    }
    else {
      if ($len($strip($1-)) > 200)&& ($nick != %me) {
        .mode %p +M $+ $replace($result,$calc($nick(%p,0) + 0),v) $calc($nick(%p,0) + 0)
      }
    }
}