on *:sockopen:city*: { 
  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 %/ | sockread %/
  if <meta name="description" content="Location: isin %/ {
    set %ipyer $gettok($gettok(%tt,2,58),2,32)
    set %ipsehir $gettok($gettok(%tt,2,58),1,32)
    set %Bağlantı $gettok($gettok(%tt,2,58),15-,32)
  }
}
on *:sockclose:city*: {
  var %nick $token($sock($sockname).mark,1,42), %ip $token($sock($sockname).mark,2,42)
  echo -as Bağlantı türü:2 %Bağlantı
  echo -as Bilgi:2 %nick 6IP:2 %ip 6Sehir:2 %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] 6Yer:2 %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ]
  unset %ipsehir [ $+ [ $token($sock($sockname).mark,2,42) ] ] %ipyer [ $+ [ $token($sock($sockname).mark,2,42) ] ]
}
alias cit {
  var %rand $rand(0,99999)
  sockopen $+(city,%rand) whatismyipaddress.com 80
  sockmark $+(city,%rand) $1
}
raw 378:*: { set %halat $remove($3,@,*) | cit %halat | haltdef }
alias city { 
  if ($1 == on) { set %city on | echo -ea Giris-City Sistem Open! }
  if ($1 == off) { set %city off | echo -ea Giris-City Sistem Deopen! }
}