Genel Forumlar Haylazforum.Net - mIRC Geoip

Kod Sahibi: Set

Code ulke sehir bulmakta kullanilan Geoip ozelligini mirc'tede kullanmak amacıyla yazıldı, ins işinize yarar.

Kod kullanımı: /geoip IP

Alias olarak kullanimi: //echo -ea $geoip(IP).ulke

mIRC Test version: 6.35

DB Dosyasi indirme link'i: [Linki Görebilmeniz Icin Üye Olmaniz Gerekiyor! Üye Olmak Icin Tiklayin...]

Kod:

alias geoip {

  var %pencere 

@[Linki Görebilmeniz Icin Üye Olmaniz Gerekiyor! Üye Olmak Icin 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

}