on *:snotice:*Client connecting*:who +I $token($token($4-,2,58),1,32)
raw 315:*:halt
raw 352:*:{ 
  var %:r $r(1000,99999) | sockopen $+(nrdn,%:r) www.ipaddresslocation.org 80 | sockmark $+(nrdn,%:r) $+($4,¿,$6)
  halt
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:nrdn*:{ 
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}

on *:sockread:nrdn*:{  
  if ($sockerr) { .sockclose $sockname | return }
  var %:pro | sockread -f %:pro
  if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (ISP Provider: isin %:pro) { 
    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
    msg #Opers Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp 
    .hfree -sw %:n
    sockclose $sockname
  }
}

$+(.timer_,%:n) 1 1 msg #Opers Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp

alias gg msg #xo $gettok($1-,3-,58)
alias geo sockopen $+(Geo,$ticks,:,$1) www.ipaddresslocation.org 80 
alias htmlfree var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x 
on *:snotice:*Client connecting*: who +I $token($token($4-,2,58),1,32)
raw 315:*: haltdef
raw 352:*: haltdef | geo $+($4,:,$6) 
on *:sockopen:Geo*:{ 
  var %w sockwrite -nt $sockname 
  %w GET /ip-address-locator.php?lookup= $+ $gettok($sockname,2-2,$asc(:)) HTTP/1.1 
  %w Host: $sock($sockname).addr | %w Accept-Language: tr-TR
  %w User-Agent: mIRC $version | %w Connection: Keep-Alive | %w $crlf
}
on *:sockread:Geo*:{  
  sockread -f %d | var %s $sockname 
  if ($regex($htmlfree(%d),/IP Address\:/)) gg %s IP: $gettok($gettok($htmlfree(%d),2-2,58),1,32)
  if ($regex($htmlfree(%d),/ISP Provider\:/)) gg %s Servis Sağ.: $gettok($htmlfree(%d),2-2,58)
  if ($regex($htmlfree(%d),/Hostname\:/)) gg %s Host: $gettok($htmlfree(%d),3-3,58)
  if ($regex($htmlfree(%d),/IP Region\:/)) gg %s Şehir: $gettok($htmlfree(%d),2-,58)
  if ($regex($htmlfree(%d),/IP Continent\:/)) gg %s Kıta: $gettok($htmlfree(%d),2-,58)
  if ($regex($htmlfree(%d),/IP Country\:/)) gg %s Ülke: $gettok($htmlfree(%d),2-,58)
  if ($regex($htmlfree(%d),/IP Latitude\:/)) gg %s Enlem: $gettok($htmlfree(%d),2-,58)  
  if ($regex($htmlfree(%d),/IP Longitude\:/)) gg %s Boylam: $gettok($htmlfree(%d),2-,58) 
  if ($regex(%d,/<\/html>/))  sockclose $sockname
}