alias geoip {
  var %pencere @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], %txt geoip.txt
  $iif(!$window(%pencere),window -hn %pencere) 
  filter -fw %txt %pencere $+(",$token($1,1,46),.*)
  var %x 1
  while $line(%pencere,%x) {
    var %v1 $v1, %ip1 $token($v1,1,34), %ip2 $token($v1,3,34), %ulke $token($v1,11,34)
    var %pr1 $token($1,1,46), %cr1 $token(%ip1,1,46), %vr1 $token(%ip2,1,46) 
    var %pr2 $token($1,2,46), %cr2 $token(%ip1,2,46), %vr2 $token(%ip2,2,46)
    var %pr3 $token($1,3,46), %cr3 $token(%ip1,3,46), %vr3 $token(%ip2,3,46) 
    var %pr4 $token($1,4,46), %cr4 $token(%ip1,4,46), %vr4 $token(%ip2,4,46) 
    if (%pr1 == %cr1 && %pr2 <= %vr2 && %pr3 <= %vr3 && %pr4 <= %vr4) { 
      goto end
    }
    inc %x
  }
  :end
var %mesaj $1 - %ulke
  $iif($prop == ulke,return %mesaj,echo %mesaj)
  window -c %pencere
}

;GeoIP

Alias geoip {
  set %geo.target $1
  sockClose geochecker
  sockOpen geochecker rscript.org 80
}
on *:SockOpen:geochecker: {
  sockwrite -nt geochecker GET /lookup.php?type=ipdns&ip= $+ %geo.target HTTP/1.0
  sockwrite -nt geochecker Host: rscript.org
  sockwrite -nt geochecker $crlf
}
on *:SockRead:geochecker: {
  var %read
  sockRead %read
  if (*Country: * iswm %read) { tokenize 32 %read | echo 3 -a Location of: %geo.target = $2- | unset %geo.* }
  if (*INVALID: please enter a valid IP address or hostname.* iswm %read) { echo 3 -a please use a valid IP address or hostname. | unset %geo.* }
}