[nikotin]

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
}
}

[KuL]

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

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

[nikotin]

KuL Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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*!*@

[Mylife]

nikotin01 Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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 } }

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

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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.)

[aLone]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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

[nikotin]

Ö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 --

aLone Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın! 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.