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
  }
}