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 %/ {
    echo -a Bilgi: 13IP:2 %halat 13Sehir:2 $gettok($gettok(%/,2,58),1,32) 13Yer:2 $gettok($gettok(%/,2,58),2,32) 13Baglanti turu:2 $gettok($gettok(%/,2,58),15-,32)
    sockclose $sockname
  }
}
alias cit {
  sockopen city whatismyipaddress.com 80
}
raw 378:*: { echo -a  4» 1&Yacute;p Adresi 4: $remove($3,@,*) | set %halat $remove($3,@,*) | cit $remove($3,@,*) | 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! }
}

raw 378:*: if $regex($1-,/(\d+\.\d+\.\d+\.\d+)/S) { cit $regml(1) }
alias cit { sockopen $+(city,$1) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(city,$1) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:city*:{  
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -n $sockname $crlf  
} 
on *:sockread:city*:{  
  var %:yerbul | sockread -f %:yerbul | tokenize 32 %:yerbul
  if (IP Country: isin %:yerbul) { .hadd -ms Ülke $sock($sockname).mark $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP City: isin %:yerbul) { .hadd -ms Sehir $sock($sockname).mark $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (ISP Provider: isin %:yerbul) { 
    echo -a Bilgi: 13IP:2 $sock($sockname).mark 13Ülke:2 $hget(Ülke,$sock($sockname).mark) 13Şehir:2 $hget(Sehir,$sock($sockname).mark) 13ISP:2 $sock($sockname).mark $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58))
.hdel -ms Ülke $sock($sockname).mark | .hdel -ms Sehir $sock($sockname).mark 
sockclose $sockname
  }
}