raw 378:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($token($6,2,64),¿,$2)
on *:sockopen:pro*:{ 
  sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/json?token=bdbdb82ae05b96) HTTP/1.1 
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Host: ipinfo.io
  sockwrite -n $sockname  $crlf 
}
on *:sockread:pro*:{ 
  var %:pro | sockread %:pro | tokenize 32 %:pro
  if region isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $remove($gettok(%:pro,2-,58),$chr(44),") }
  if city isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) City $remove($gettok(%:pro,2-,58),$chr(44),") }
  if country isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $remove($gettok(%:pro,2-,58),$chr(44),") }
  if "org isin %:pro { 
    var %:isp $remove($gettok(%:pro,2-,58),$chr(44),") 
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)  $hget(%:n,City)
    msg %:kanal Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp 
    .hfree -w %:n | sockclose $sockname
  } 
}
on *:input:*: {
  if $regex($1,/^[!.-]nerden$/Si) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($2,¿,Bilinmiyor) }
    else { .whois $2 }
  }
}