IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Güncel badtara rakamsal sayı (https://www.ircforumlari.net/mirc-scripting-sorunlari/761201-badtara-rakamsal-sayi.html)

badtara rakamsal sayı

Selamlar.
asagıda ki kodda bi cok kez degisiklik yapmama ragmen badnickleri nick olarak degilde rakamsal olarak gösteremedim bi türlü.
tarama yaptıdım zaman Tespit edilen. Badnickler *** nick
kısmını bu sekilde degilde
örnek: #kanal kanalında 10 adet badnick bulundu seklinde rakamsal gösterebilmemiz mümkün mü acaba.

alias tespit {
var %jnk 1
while %jnk <= $nick($1,0) {
if !$ulist($nick($1,%jnk),koruma,0) && $ulist($nick($1,%jnk),Bad,0) {
echo -a Tespit edilen. 5Badnickler 5***6 $nick($1,%jnk)
}
inc %jnk
}
}

Cevap: badtara rakamsal sayı

Selamun Aleykum @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bir Örnek verirmisin, User Bölümünde Badnickleri nasil ekledin.

Cevap: badtara rakamsal sayı

Alıntı:

KuL Nickli Üyeden Alıntı (Mesaj 1041815068)

Selamun Aleykum @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bir Örnek verirmisin, User Bölümünde Badnickleri nasil ekledin.

Aleyküm Selam

Bad:nick!*@*
Bad:*nick*!*@*
koruma:nick!*@*
koruma:*nick*!*@

Cevap: badtara rakamsal sayı

Alıntı:

nikotin01 Nickli Üyeden Alıntı (Mesaj 1041815039)

Sorunu anlamadım ama senin için birşeyler hazırladım umarım işine yarar...

Kod:

on *:input:#: {

  if $regex($1,/^[.!]bad.k.e/Si) {

    if (!$2) { msg # hatalı kullanım nick belirtin. }

    else if $read(badd.txt,w,$+(*,$2,*)) { msg # $2 zaten bad listesinde var }

    else {

      write badd.txt $2

      msg # bad listesine $2 eklendi.

    }

  }

  if $regex($1,/^[.!]badsi./Si) {

    if (!$2) { msg # hatalı kullanım nick belirtin. }

    else if !$read(badd.txt,w,$2) { msg # tanıma uygun nick bulunmuyor. }

    else {

      write $+(-dl,$readn) badd.txt

      msg # bad listesinden $2 silindi

    } 

  }

  if $regex($1,/^[.!]bad.ist/Si) {

    if $lines(badd.txt) = 0 { msg # bad listenizde hiç kimse yok. }   

    else { 

      badkontrl

    }

  }

}

on *:join:#: {

  if $read(badd.txt,w,$+(*,$nick,*)) {

    mode # +b $nick 

    kick # $nick Kurallara aykırı nick kullanıyoruz lütfen nick değiştirin.

  }

}

alias badkontrl {

  var %kod 1

  var %Mylife $lines(badd.txt)

  while %Mylife >= %kod {

    echo -a $read(badd.txt,%Mylife)

    dec %Mylife

  }

}

Kullanım;
.badekle nick
.badsil nick
.badlist

Örnek görünüm ve kullanım;
[18:39:07] <Mylife> bad listesine deneme1 eklendi.
[18:39:07] <Mylife> .badekle deneme1
deneme1
deneme
[18:39:10] <Mylife> .badlist
[18:39:19] <Mylife> bad listesinden deneme1 silindi
[18:39:19] <Mylife> .badsil deneme1
[18:39:20] <Mylife> bad listesinden deneme silindi
[18:39:20] <Mylife> .badsil deneme
[18:39:22] <Mylife> tanıma uygun nick bulunmuyor.
[18:39:22] <Mylife> .badsil deneme
[18:39:27] <Mylife> bad listenizde hiç kimse yok.
[18:39:27] <Mylife> .badlist
[18:40:26] <Mylife> bad listenizde hiç kimse yok.
[18:40:26] <Mylife> .badlist
[18:41:12] <Mylife> bad listesine mircsystem eklendi.
[18:41:11] <Mylife> .badekle mircsystem
[18:42:35] * Giriş: Mircsystem (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[18:42:36] * Mylife mod değiştirdi:+b Mircsystem!*@*
[18:42:36] * Mircsystem Mylife Tarafından Kanaldan Atıldı (Kurallara aykırı nick kullanıyoruz lütfen nick değiştirin.)

Cevap: badtara rakamsal sayı

Kod:

alias tespit {

  set %:m 0

  var %jnk 1

  while %jnk <= $nick($1,0) {

    if !$ulist($nick($1,%jnk),koruma,0) && $ulist($nick($1,%jnk),Bad,0) {

      inc %:m 1 

    }

    inc %jnk

  }

  echo -a Tespit edilen. 5Badnickler Sayısı 5***6  %:m

}

böylede kullanabilirsin

Cevap: badtara rakamsal sayı

Öncelikle üsenmeyip kodu paylastıgınız icin tşk. ederim.
benzer kod bende de var fakat diger arkadasların isine yarayacagından paylasmanız güzel olmus.
Tşkler.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 22:56 -->-> Daha önceki mesaj 22:54 --

Alıntı:

aLone Nickli Üyeden Alıntı (Mesaj 1041815325)

Kod:

alias tespit {

  set %:m 0

  var %jnk 1

  while %jnk <= $nick($1,0) {

    if !$ulist($nick($1,%jnk),koruma,0) && $ulist($nick($1,%jnk),Bad,0) {

      inc %:m 1 

    }

    inc %jnk

  }

  echo -a Tespit edilen. 5Badnickler Sayısı 5***6  %:m

}

böylede kullanabilirsin

İstedigim tam olarak buydu aLone. Eline emegine saglık, cok tesekkür ederim.