IRCALEM.Com Genel Forum, IRC Forumu IF - mIRC Scripting mIRC Scripting Hazır Kodlar mIRC Girişte Şehir Gösterme ve Şehir Yasaklama
irc

mIRC Girişte Şehir Gösterme ve Şehir Yasaklama
Aytac
mIRC Girişte Şehir Gösterme ve Şehir Yasaklama
1
766
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Etiketler
mirc girişte şehir yasaklama gösterme ve

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
  • Konular351
  • Mesajlar364
  • Verilen beğeni8 in 5 posts
  • Alınan beğeni6
  • Rep puanı 6

mIRC Şehir yasaklama addonu
Kod :
on *:text:*:#Opers:{
  if $regex($1,/^[!.-]yasak/Si) {
    if !$2 { msg # Lütfen !yasak <ekle|sil|list> olarak belirtiniz. }
    elseif $regex($2,/^ekle$/Si) {
      if !$3 { msg # Lütfen !yasak <ekle> <Şehir> olarak belirtiniz. }
      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) }
      elseif $hget(YasakS,$strip($3)) { msg # $strip($3) şehri yasak listesinde zaten ekli, neyin kafası. }
      else { .hadd -ms YasakS $strip($3) $nick | .hsave -o YasakS yasaks.tprk | msg # $strip($3) şehri yasak listesine eklendi. }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 { msg # Lütfen !yasak <sil> <Şehir> olarak belirtiniz. }
      elseif !$hget(YasakS,$strip($3)) { msg # $strip($3) şehri yasak listesinde ekli değil. }
      else { .hdel -ms YasakS $strip($3) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) şehri yasak listesinden silindi. }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$hget(YasakS,0).data { msg # Yasak şehir listesi boş. }
      else {
        msg # Yasak şehir listesi
        msg # -
        var %:t = 1 | while %:t <= $hget(YasakS,0).data {
          msg # $+(%:t,.,$chr(41)) Şehir:4 $hget(YasakS,%:t).item  Ekleyen:2 $hget(YasakS,%:t).data
          inc %:t
        }
        msg # -
        msg # Yasak şehir listesi sonu
      }
    }
  }
}
on *:start:if $isfile(yasaks.tprk) { .hmake YasakS | .hload YasakS yasaks.tprk }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \([email protected]+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(isp,%:r) www.ipaddresslocation.org 80 | sockmark $+(isp,%:r) $+($4,¿,$6) }
on *:sockopen:isp*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $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 -nt $sockname $crlf
}
on *:sockread:isp*:{
  var %:isp | sockread -f %:isp | tokenize 32 %:isp
  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Ülke $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) {
    .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz)
    if $hget(YasakS,$regml(1)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak şehir girişi.. }
  }
  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
    $iif(!$window(@Network),window -e @Network)
    echo -t @Network [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Ülke,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(YasakS,$hget(Sehir,$sockname)),- 4Yasak Şehir Girişi!)
    .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname
    sockclose $sockname
  }
}

#Opers kanalında;
  • !yasak ekle Şehir
  • !yasak sil Şehir
  • !yasal list

Gibi kullanabilirsiniz..

Kendin kullanacaksan eğer;
Kod :
on *:text:*:#Opers:{

Böyle değiştir;
Kod :
on *:input:#Opers:{
“İnsanların en hayırlısı, insanlara faydalı olandır”. H.Ş.
Şuan Offine!
Şuan Offine!
Exe Yeni Üye
**
Kayıtlı Üye

  • Üyelik tarihi    08.04.2020
  • Konum  28 Giresun
  • Konular0
  • Mesajlar2
  • Verilen beğeni0 in 0 posts
  • Alınan beğeni0
  • Rep puanı 0
eline sağlık.


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Girişte Ülke/Şehir/İSP Gösterme 2021 Aytac 0 264 06.04.2021, 22:48
Son Mesaj: Aytac
  mIRC Youtube Remote Aytac 3 1,931 03.04.2021, 12:30
Son Mesaj: iSyan
  mIRC Yurt Dışı Girişlerini Yasaklama Aytac 1 1,933 03.04.2021, 12:29
Son Mesaj: iSyan
  Girişte Şehir ve ISP Yasaklama Aytac 2 527 03.04.2021, 12:26
Son Mesaj: iSyan
  mIRC Tüm Kanalları Aynı Moda Alma Aytac 0 1,891 20.02.2021, 00:03
Son Mesaj: Aytac

Foruma Git: