#shrtkp on
alias klk { sockopen city whatismyipaddress.com 80 }
on *:sockopen:city*: { 
  sockwrite -n $sockname GET /ip/ $+ %halat HTTP/1.1
  sockwrite -n $sockname Accept: text/html, application/xhtml+xml, */*
  sockwrite -n $sockname Accept-Language: tr-TR
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)
  sockwrite -n $sockname Host: whatismyipaddress.com
  sockwrite -n $sockname DNT: 1
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname $crlf
}
on *:sockread:city*: {
  var %az
  sockread %az
  if (Country: isin %az) { echo -a 4Ülke:3 $remove($htmlfree(%az),Country:) }
  if (IP Address: isin %az) { echo -a 4 $htmlfree(%az) }
  if ISP: isin %az { echo -a 4 $gettok($htmlfree(%az),5,58) }
  if State/Region isin %az { echo -a 4Þehir:3 $remove($htmlfree(%az),State/Region:) }
  if Latitude: isin %az {  echo -a 4Enlem:3 $remove($htmlfree(%az),Latitude:) }
  if Longitude: isin %az {  echo -a 4Boylam:3 $remove($htmlfree(%az),Longitude:) }
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}
raw 378:*: { var %halat $+($2,*,$gettok($gettok($1-,2,64),2,32)) | klk %halat  | haltdef }
#shrtkp end
alias klk { }
alias city { 
  if ($1 == on) { .enable #shrtkp | echo -ea Giris-City Sistem Açýk! }
  if ($1 == off) { .disable #shrtkp | echo -ea Giris-City Sistem Kapalý! }
}
menu * {
  Þehir Takip
  .Aç:city on
  .Kapat:city off
}