Check IP Value v1.0 for Juandis

alias -l getsite {
  if (!$1-) || (!$isid) { return 0 }
  var %com = getsite_ $+ $rand(1,1000000)
  .comopen %com MSXML2.SERVERXMLHTTP.6.0
  noop $com(%com,Open,1,bstr,GET,bstr,$1-,bool,false) $com(%com,Send,1) $com(%com,ResponseText,2)
  var %a = $left($com(%com).result,4096)
  :error
  reseterror
  if ($com(%com)) { .comclose %com }
  if ($comerr) { return 0 }
  return $iif(%a,$v1,0)
}


ON *:TEXT:*:#: {
  tokenize 32 $strip($1-)
  if ($1 == !chk) {
    if (!$2) { msg $chan ERROR: Not enough parameters! | return }
    if (!$longip($2)) { msg $chan ERROR: Incorrect ip address! | return }
    var %r = $getsite(http://check.getipintel.net/check.php?ip= $+ $2 $+ &contact=jdhenaogranada@hotmail.com)
    if (%r == $null) { msg $chan ERROR: There was an connection problem between the server! | return }
    msg $chan Value: %r
  }
  if ($3 == IP:) && ($6 == Host:) && ($9 == Country:) {
    if (!$longip($4)) { return }
    var %r = $getsite(http://check.getipintel.net/check.php?ip= $+ $4 $+ &contact=jdhenaogranada@hotmail.com)
    if (%r == $null) { return }
    msg $chan $2 IP Status: %r
  }
}