IRCALEM.Com Genel Forum, IRC Forumu IF - mIRC Scripting mIRC Scripting Hazır Kodlar mIRC Parça Kodlar mIRC Geoip - ULKE Bulma eklentisi
irc

mIRC Geoip - ULKE Bulma eklentisi
Aytac
mIRC Geoip - ULKE Bulma eklentisi
0
479
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Etiketler
ulke mirc eklentisi geoip bulma

Bu konuyu görüntüleyen kullanıcı(lar):1 Ziyaretçi
Şuan Offine!
Şuan Offine!
Aytac Administrator
********
Proje Sorumlusu

  • Üyelik tarihi    04.02.2020
  • Konum  78 Karabük
  • Konular353
  • Mesajlar365
  • Verilen beğeni8 in 5 posts
  • Alınan beğeni6
  • Rep puanı 6

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: geoip.txt indir

Kod :
alias geoip {
  var %pencere [MENTION=49122]Aeg[/MENTION], %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
}
“İnsanların en hayırlısı, insanlara faydalı olandır”. H.Ş.


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  mIRC Türkçe Sözlük Aytac 0 432 20.03.2020, 00:04
Son Mesaj: Aytac

Foruma Git: