Join BadIPS for Kendy v2.1

alias -l txt { return $mircdir $+ badips.txt }

ON *:START: {
  if (!$file($txt)) { return }

  window -hj100000000000 @BADIPS
  loadbuf @BADIPS $qt($txt)

  .timer[CHECK_BADIPS_FILE_RELOAD] -o 0 60 badip_file_reload
}

ON !*:JOIN:#: {
  var %ip = $gettok($site,1-2,46)

  if (%ip) && ($check_badip(%ip)) { ban -ku60 $chan $nick 2 Your IP ( $+ $site $+ ) is blacklisted - Email to KendyDaVang@gmail.com for removal! }
}

alias badip_file_reload {
  if ($window(@BADIPS)) { window -c $v1 }

  if ($file($txt)) {
    window -hj100000000000 @BADIPS
    loadbuf @BADIPS $qt($txt)
  }
}

alias check_badip {
  if (!$window(@BADIPS)) || (!$line(@BADIPS,0)) { return }

  var %r = $fline(@BADIPS,$1,0)

  if (%r) { return %r }

  return 0
}