on *:snotice:*: {
  if ($regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si)) {
    .who +I $9
    .timerver 01 01 ctcp $9 VERSION
    var %_port = $regml(2), %_nick = $regml(3), %_ident = $regml(4), %_ip = $regml(5)
    set -l %girisipsi %_ip
    set -l %girisidenti %_ident
    if ($istok(6661,%_port,32)) { return }
    elseif ($istok(Lilith,%_nick,32)) { return }
    elseif ($istok(ident ident1 ident2,%_ident,32)) { return }
    elseif ($istok(85.104.93.153,%_ip,32)) { return }
    msg #Pusat 15,1 Giriş Nick: 9,1 $9 7,1 Giriş iP: 15,1 %_ip  7,1 PORT: 15,1 %_port  7,1 iDENT: 15,1 %_ident
    if (%_port == 6667 || %_port == 6668 || %_port == 6669 || %_port == 7000 || %_port == 7003) {
      ; msg #Opers 4 $regml(3)  Nicki : 4 %_port  Üzerinden Andro-Mirc Girişi yapmıştır.
    }
    sockopen $+(nrdn,%:rand) ipinfo.io 80
    sockmark $+(nrdn,%:rand) $+(%_ip,¿,%_nick)
  }
}

on *:sockopen:nrdn*: {
  sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/geo) 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: close
  sockwrite -n $sockname Host: ipinfo.io
  sockwrite -n $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  sockwrite -n $sockname Content-Type: application/json; charset=utf-8
  sockwrite -n $sockname $crlf
}

on *:sockread:nrdn*: {
  var %:nrdn
  sockread -f %:nrdn
  tokenize 32 %:nrdn
  if (region isin %:nrdn) { .hadd -m $token($sock($sockname).mark,2,191) Sehir $_tr($remove($gettok(%:nrdn,2-,58),$chr(44),")) }
  if (city isin %:nrdn) { .hadd -m $token($sock($sockname).mark,2,191) City $_tr($remove($gettok(%:nrdn,2-,58),$chr(44),")) }
  if (country isin %:nrdn) { .hadd -m $token($sock($sockname).mark,2,191) Ülke $_tr($remove($gettok(%:nrdn,2-,58),$chr(44),")) }
  if ("org isin %:nrdn) {
    var %:isp $_tr($remove($gettok(%:nrdn,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)
    write girisler.txt GiRiŞ: 10 $date 6 $time 4 $token($sock($sockname).mark,2,191)  iP: 4 %girisipsi  PORT: 4 %_port  iDENT: 4 %girisidenti  ŞEHİR: 4 %sehir
    msg #Pusat 9,1 $token($sock($sockname).mark,2,191)  7,1 ÜLKE: 15,1 %ülke  7,1 ŞEHİR: 15,1 %sehir  7,1 ISP: 15,1 %:isp
    if (vpn isin %:nrdn && $gettok(%:nrdn,2-,58) == true) {
      msg #Pusat Nick %nick bir VPN kullanıyor! Bağlantıyı kesme işlemi yapılıyor.
      ; Uyarı veya cezayı burada ekleyebilirsin
      ; örneğin: .mode $chan -o $nick
    }
    .hfree -sw %:n
    .hfree -sw %:nrdn
    sockclose $sockname
    unset %girisipsi
    halt
  }
}

alias _dzlt return $replace($1-,TR,TURKIYE,DE,ALMANYA,mins,dakika,min,dakika,hrs,saat,hr,saat,days,gün,day,gün,wks,hafta,wk,hafta)
alias _tr return $replace($1-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ÅŸ,Ş,ÄŸ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ,â,,Â,)