on *:JOIN:#mobil: {
  var %newnick = $nick
  var %ip = $gettok(%newnick, 3, 64)
  userip %newnick %ip
}

alias userip {
  var %newnick = $1
  var %ip = $2
  var %command = /userip %newnick %ip


  if (%newnick != $null && %ip != $null) {
    $eval(%command, 1)
  }
}

alias ipcheck {
  var %ip = $1
  sockclose ipcheck
  sockopen ipcheck api.ip2location.io 80
}

on *:SOCKOPEN:ipcheck: {
  if ($sockerr) {
    echo 3 -s IP sorgulama hatası: $sock($sockname).wsmsg
    sockclose $sockname
  }
  else {
    sockwrite -n $sockname GET $+(/?key=87649C0EB55A4BEF8E7B8FA29B41F91D&ip=,%ip) HTTP/1.1
    sockwrite -n $sockname Host: api.ip2location.io
    sockwrite -n $sockname $crlf
  }
}

on *:SOCKREAD:ipcheck: {
  var %data
  sockread -f %data
  if {"ip": isin %data {
    var %ip = $remove($remove($gettok(%data,1,44),"),$chr(123))
    var %country = $remove($remove($gettok(%data,2,44),"),$chr(123))
    var %city = $remove($remove($gettok(%data,3,44),"),$chr(123))
    var %latitude = $remove($remove($gettok(%data,4,44),"),$chr(123))
    var %longitude = $remove($remove($gettok(%data,5,44),"),$chr(123))
    var %isp = $remove($remove($gettok(%data,6,44),"),$chr(123))
    var %domain = $remove($remove($gettok(%data,7,44),"),$chr(123))
    var %zipcode = $remove($remove($gettok(%data,8,44),"),$chr(123))
    var %timezone = $remove($remove($gettok(%data,11,44),"),$chr(123))
    var %currency = $remove($remove($gettok(%data,12,44),"),$chr(125))

    msg #code IP: %ip, Ülke: %country, Şehir: %city, Enlem: %latitude, Boylam: %longitude, ISP: %isp, Alan Adı: %domain, Posta Kodu: %zipcode, Zaman Dilimi: %timezone, Para Birimi: %currency
  }
}