alias check {
  var %x = 1
  while (%x <= $lines(p.txt)) {
    if ($read(p.txt,%x) $+ .*.* iswm $1) { return 1 }
    inc %x
  }
  return 0
}

alias conn.check { .ctcp $me ping }

alias conn.chk { .timerping 0 60 conn.check }

on *:text:*:*:{
  if ($1- == !BotPro on) && ($group(#BotPro) == off) { .enable #BotPro }
  elseif ($1- == !BotPro off) && ($group(#BotPro) == on) { .disable #BotPro }
}

#BotPro off
raw 205:*:{
  if (((!$check($replace($regsubex($10,/.*(?:@|-|CBL)(\d+(-|\.)\d+(-|\.)\d+(-|\.)\d+).*/,\1),-,.))) && (!$regex($remove($10,$chr(40),$chr(41)),/.*(\.bezeqint\.net|\.bb\.netvision\.net\.il|\.inter\.net\.il|\.barak-online\.net|\.012\.net\.il|\.co\.il))$/))) {
    if (!$regex($10,/pyrexhosting.com|Vegeta@ip|118.73.broadband.iol.cz|.+@BlackPs.1-irc.com/)) gline $9 :Abuse - Proxy User - for more information please contact Chief.mIRCx@gmail.com
  }
  halt
}

ctcp *:ping:if ($1 == ping) && ($nick == $me) { halt }

on *:connect:{ conn.chk }

on *:snotice:*:{
  if (*Client connecting* iswm $1-) {
    if $regex($9,/^([a-z][A-Z]\d([a-z]){2}\d[A-Z]\d{2}|\w{1}\d{4})$/) { gline $9 :Abuse - Potentially BotNet - for more information please contact Chief.mIRCx@gmail.com | halt }
    var %lx = $remove($10,$chr(40),$chr(41))
    if !$hget(cloner,%lx) { hadd -mu3 cloner %lx $9 }
    if $hget(cloner,0).item >= 4 {
      mode #mIRCx +R
      .timerBot 1 180 mode #mIRCx -R
      var %x 1
      while ($hget(cloner,%x).item) {
        dll WhileFix.dll WhileFix .
        gline $ifmatch - :Abuse - Connect Flood - for more information please contact Chief.mIRCx@gmail.com
        hdel -w cloner $ifmatch
        inc %x
      }
    }
    if (((!$check($replace($regsubex($10,/.*(?:@|-|CBL)(\d+(-|\.)\d+(-|\.)\d+(-|\.)\d+).*/,\1),-,.))) && (!$regex($remove($10,$chr(40),$chr(41)),/.*(\.bezeqint\.net|\.bb\.netvision\.net\.il|\.inter\.net\.il|\.barak-online\.net|\.012\.net\.il|\.co\.il))$/))) {
      if (!$regex($10,/pyrexhosting.com|Vegeta@ip|118.73.broadband.iol.cz|.+@BlackPs.1-irc.com/)) gline $9 :Abuse - Proxy User - for more information please contact Chief.mIRCx@gmail.com
    }
  }
  elseif (*Forbidding Q-lined* iswm $1-) {
    var %frm = $+(*@,$regsubex($6,/[\[\]]|\.$/gi,))
    gzline %frm - :Abuse - Q-lined - for more information please contact Chief.mIRCx@gmail.com
  }
  elseif (*has changed his/her nickname* iswm $1-) {
    var %lx = $remove($5,$chr(40),$chr(41))
    if !$hget(cn,%lx) { hadd -mu3 cn %lx $11 }
    if $hget(cn,0).item >= 4 {
      var %x 1
      while ($hget(cn,%x).item) {
        dll WhileFix.dll WhileFix .
        gline $ifmatch - :Abuse - Nick-Change Flood - for more informatio please contact Chief.mIRCx@gmail.com
        hdel -w cn $ifmatch
        inc %x
      }
    }
  }
}

on *:text:*:*:{
  var %hs = $+(a,.,$hash($strip($1-),32)), %tk = $token($address($nick,5),2,33)
  if (*@*mIRCx.Co.iL iswm %tk) halt
  if !$hget(%hs,%tk) { hadd -mu3 %hs %tk $nick }
  if $hget(%hs,0).item >= 3 {
    var %x 1
    while ($hget(%hs,%x).item) {
      dll WhileFix.dll WhileFix .
      gline $ifmatch - :Abuse - Global Text Flood - for more information please contact Chief.mIRCx@gmail.com
      hdel -w %hs $ifmatch
      inc %x
    }
  }
}

on *:notice:*:*:{
  var %hs = $+(a,.,$hash($strip($1-),32)), %tk = $token($address($nick,5),2,33)
  if (*@*mIRCx.Co.iL iswm %tk) halt
  if !$hget(%hs,%tk) { hadd -mu3 %hs %tk $nick }
  if $hget(%hs,0).item >= 3 {
    var %x 1
    while ($hget(%hs,%x).item) {
      dll WhileFix.dll WhileFix .
      gline $ifmatch - :Abuse - Notice Flood - for more information please contact Chief.mIRCx@gmail.com
      hdel -w %hs $ifmatch
      inc %x
    }
  }
}

ctcp *:*:*:{
  var %hs = $+(a,.,$hash($strip($1-),32)), %tk = $token($address($nick,5),2,33)
  if (*@*mIRCx.Co.iL iswm %tk) halt
  if !$hget(%hs,%tk) { hadd -mu3 %hs %tk $nick }
  if $hget(%hs,0).item >= 3 {
    var %x 1
    while ($hget(%hs,%x).item) {
      dll WhileFix.dll WhileFix .
      gline $ifmatch - :Abuse - CTCP Flood - for more information please contact Chief.mIRCx@gmail.com
      hdel -w %hs $ifmatch
      inc %x
    }
  }
}

on *:dccserver:*:{
  var %hs = $+(a,.,$hash($strip($1-),32)), %tk = $token($address($nick,5),2,33)
  if (*@*mIRCx.Co.iL iswm %tk) halt
  if !$hget(%hs,%tk) { hadd -mu3 %hs %tk $nick }
  if $hget(%hs,0).item >= 3 {
    var %x 1
    while ($hget(%hs,%x).item) {
      dll WhileFix.dll WhileFix .
      gline $ifmatch - :Abuse - Dcc Flood - for more information please contact Chief.mIRCx@gmail.com
      hdel -w %hs $ifmatch
      inc %x
    }
  }
}

on *:snotice:*Unauthorized connection*:{
  var %r = \d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}
  if $regex($7,/.+\[( %r )\]\./gx) { zline $+(*@,$regml(1)) - :Abuse - Unauthorized Connection - for more information please contact Chief.mIRCx@gmail.com }
}
#BotPro end