on *:TEXT:!nickip *:#: {
  var %nick = $2
  if (%nick == $null) {
    msg $chan Lütfen bir nick girin! Örnek: !nickip nick
    return
  }
  if ($nick(%nick) == $null) {
    msg $chan %nick şu anda çevrimiçi değil!
    return
  }
  set %ipchan $chan
  set %ipnick %nick
  msg $chan %nick için IP adresi sorgulanıyor. . .
  .userip %nick
}
on *:USERIP:*: {
  var %ip = $2
  if (%ip == $null) {
    msg %ipchan %ipnick için IP adresi alınamadı. Yetkiniz olmayabilir veya IP gizlenmiş olabilir. . .
    return
  }
  if ($regex(%ip, /^(\d{1,3}\.){3}\d{1,3}$/) == 0) {
    msg %ipchan Geçersiz IP adresi: %ip
    return
  }
  set %ipaddr %ip
  msg %ipchan %ipnick için IP: %ip | Konum sorgulanıyor. . .
  sockopen iplookup api.ip-api.com 80
}
on *:SOCKOPEN:iplookup: {
  if ($sockerr) {
    msg %ipchan Bağlantı hatası!
    sockclose $sockname
    return
  }
  sockwrite -n $sockname GET /json/%ipaddr HTTP/1.1
  sockwrite -n $sockname Host: api.ip-api.com
  sockwrite -n $sockname User-Agent: mIRC
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:iplookup: {
  if ($sockerr) {
    msg %ipchan Okuma hatası!
    sockclose $sockname
    return
  }
  var %data
  sockread %data
  if ($regex(%data, /"status":"success"/)) {
    if ($regex(%data, /"country":"([^"]+)"/)) {
      var %country = $regml(1)
    }
    if ($regex(%data, /"city":"([^"]+)"/)) {
      var %city = $regml(1)
    }
    if ($regex(%data, /"isp":"([^"]+)"/)) {
      var %isp = $regml(1)
    }
    if (%country) {
      msg %ipchan Nick: %ipnick | IP: %ipaddr | Ülke: %country | Şehir: %city | ISP: %isp
    }
    else {
      msg %ipchan Üzgünüm konum bilgisi alınamadı. . .
    }
  }
  elseif ($regex(%data, /"status":"fail"/)) {
    msg %ipchan IP sorgulama başarısız; Geçersiz veya özel IP adresi. . .
  }
}
on *:SOCKCLOSE:iplookup: {
  unset %ipchan
  unset %ipnick
  unset %ipaddr
}

on *:TEXT:!nickip *:#: {
  var %nick = $2
  if (%nick == $null) {
    msg $chan Lütfen bir nick girin! Örnek: !nickip nick
    return
  }
  if ($nick(%nick) == $null) {
    msg $chan %nick şu anda çevrimiçi değil!
    return
  }
  set %ipchan $chan
  set %ipnick %nick
  msg $chan %nick için whois sorgusu yapılıyor...
  .whois %nick
}
on *:RAW:*: {
  if ($numeric == 311 || $numeric == 378) {
    ; 311: Standart whois bilgisi, 378: IP/hostname bilgisi (sunucuya bağlı)
    var %raw = $rawmsg
    if ($regex(%raw, /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/)) {
      set %ipaddr $regml(1)
      msg %ipchan %ipnick için IP: %ipaddr | Konum sorgulanıyor...
      sockopen iplookup api.ip-api.com 80
    }
  }
}