#ipche on
on *:text:*:#xline:{ if (?ip iswm $1 && $2 && $left($1,1) isin .@!) { getip $2 # } }
on *:input:#xline:{ if (?ip iswm $1 && $server && /* !iswm $1 && $2 && $left($1,1) isin .@!) { getip $2 # } }
#ipche end

alias -l getip {
  sockclose cheip
  sockopen -46 cheip ipinfo.io 80
  sockmark cheip $1
  %xchan = $2
  %xline = ""
}
on *:sockopen:cheip:{
  if ($sockerr) { msg %xchan [IP-Bilgi] $c Hata! | unset %xchan %xline | return }
  sockwrite -n $sockname GET $+(http://ipinfo.io/,$sock($sockname).mark,/geo) HTTP/1.1
  sockwrite -n $sockname Host: ipinfo.io
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:62.0) Gecko/20100101 Firefox/62.0
  sockwrite -n $sockname Accept-Language: en-US
  sockwrite -n $sockname Content-Type: application/json; charset=utf-8
  sockwrite -n $sockname $str($crlf,2)
}
on *:sockread:cheip:{
  if ($sockerr) { msg %xchan [IP-Bilgi] $c okuma hatası! | unset %xchan %xline | return }
  var %che, %2
  sockread -f %che
  tokenize 32 %che
  if ("*": * iswm $1-) { 
    var %2 = $remove($2-,",$chr(44))
    if ($1 == "ip":) { %xline = 0,1 4[0,1 4IP-Bilgi] -0,1 4IP:0 %2 }
    if ($1 == "city":) { %xline = %xline -0,1 4Sehir:0 %2 }
    if ($1 == "region":) { %xline = %xline -0,1 4Bölge:0 %2 }
    if ($1 == "country":) { %xline = %xline -0,1 4Ülke:0 %2 }
    if ($1 == "loc":) { %xline = %xline -0,1 4Konum:0 $replace(%2,-,$+($chr(44),-)) }
    if ($1 == "timezone":) { %xline = %xline  -0,1 4Saat Dilimi:0 %2 | endxit | sockclose $sockname }
  }
  if ($chr(125) isin $1) { endxit | sockclose $sockname }
}
alias -l endxit {
  if (%xline) { msg %xchan %xline }
  else { msg %xchan [IP-Bilgi] $c İP Bulunamadı!
  }
  unset %xline %xchan
}
alias -l c { return $chr(9679) }