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
}