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

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

- - Güncel !değiştir <nick> Hakkında (https://www.ircforumlari.net/mirc-scripting-sorunlari/746659-degistir-ltnickgt-hakkinda.html)

!değiştir <nick> Hakkında

Merhaba arkadaşlar bende bir bad ekleme ve bad silme kodu var onu geliştirdim !bad ekle <nick> yaptığımda eklemiş olduğum nickleri otomatik #degistir kanalında degistirmesi lazım ama degistirmiyor .tara #kanal yaptığımda badları bulup sorunsuz bir şekilde #degistir kanalında degistiriyor ama bad list eklediğim atıyorum 300 nick varsa bunun anca 100 tanesini göryor yada görmüyor ve fonksiyon tam çalışmıyor eklemiş olduğum tüm badlar kanala girdiğinde otomatik tanıyığ #değiştir kanalında degistirmesini istiyorum yardımcı olursanız sevinirim teşekkürler şimdiden.

KOD

Kod:

on *:start:{ $iif(!$isfile(badnick.tprk),.write badnick.tprk) | .hmake badnick 100 | .hload badnick badnick.tprk }

on @*:join:#:{

  if $hfind(badnick,$nick,1,W).data {

    .msg #degistir !değiştir $wildsite

    if !$hget(bdnck,$nick) {

      .hinc -msu20 bdnck $nick

      msg #bot [ Giriş Yapan: ]  $nick nicki badnick olarak tespit edildi.  $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W).data),$chr(32),])  

    }

  }

}

on *:nick:{

  if $hfind(badnick,$newnick,1,W).data {

    msg #bot [ NICK ] $newnick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$newnick,1,W).data),$chr(32),])

    var %:c $regsubex($str(-,$comchan($newnick,0)),/./g, $iif($regex($nick($comchan($newnick,\n),$me).pnick,/(%|@|&|~\.)/i),$comchan($newnick,\n) $chr(32)))

    var %c = 1 | while %c <= $token(%:c,0,32) {
 

      inc %c

    }

  }

}

on *:input:#:{

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

    if $regex($2,/^ekle$/Si) {

      if (!$3) { msg # Lütfen nick belirtiniz | return }

      if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }

      var %n = $left($calc($ctime * $rand(1000,9999)),7)

      .hadd -m badnick %n $strip($3)

      .hsave -o badnick badnick.tprk

      msg # $strip($3) Badnick listesine eklendi.

    }

    if $regex($2,/^s[ıiİ]l$/Si) {

      if (!$3) { msg # Lütfen nick belirtiniz | return }

      if !$hfind(badnick,$strip($3),0,W).data { msg # Bad nick listesinde bulunmamaktadir. | return }

      .hdel -m badnick $hfind(badnick,$strip($3),1,W).data

      .hsave -o badnick badnick.tprk

      msg # $strip($3) Badnick listesinden silindi.

    }

    if $regex($2,/^tara$/Si) {

      if (!$3) { msg # Lütfen nick belirtiniz | return }

      if !$hfind(badnick,$strip($3),0,W).data { msg # Badnick listem'de $strip($3) ait bir mask yok. | return }

      msg # Nick: $strip($3) - 4Mask: $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),])

    }

    if $regex($2,/^l[ıiİ]st$/Si) {

      if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }

      msg # Badnick listesi

      msg # -

      var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }

      msg # -

      msg # Badnick listesi sonu

    }

  }

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

    if !$regex($2,/^#/Si) { msg # Lütfen #kanal belirtiniz | return }

    if !$chan($2) { msg # $2 kanal'ında bulunmuyorum | return }

    var %:tara = 1 | while %:tara <= $nick($2,0) {

      if $hfind(badnick,$nick($2,%:tara),1,W).data {

        msg #bot [ Tarama: ]  $nick($2,%:tara)  nicki badnick olarak tespit edildi.  $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick($2,%:tara),1,W).data),$chr(32),])

        msg #degistir !değiştir $nick($2,%:tara)  

      }

      inc %:tara

    }

  }

}

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ve diğer coder arklar yardımcı olursanız sevinirim. Şimdiden saolun.

Cevap: !değiştir <nick> Hakkında

ve @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sizde yardımcı olursanız sevinirim usta :)

Cevap: !değiştir <nick> Hakkında

Alıntı:

Smith Nickli Üyeden Alıntı (Mesaj 1041770190)

ve @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sizde yardımcı olursanız sevinirim usta :)

.hmake badnick 100 sorunun burdaki 100 olduğunu düşünüyorum " .hmake badnick " diye kullanırsan kısıtlama yaşamayacaksındır

Cevap: !değiştir <nick> Hakkında

Alıntı:

MatheuS Nickli Üyeden Alıntı (Mesaj 1041770222)

.hmake badnick 100 sorunun burdaki 100 olduğunu düşünüyorum " .hmake badnick " diye kullanırsan kısıtlama yaşamayacaksındır

yok usta o bir örnekti ama yinede bakıcağım dediğiniz gibi saolun.

Cevap: !değiştir <nick> Hakkında

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] & @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] pek bakan yok sanırım bu konuya yardımcı olurmusunuz rica etsem.

Cevap: !değiştir <nick> Hakkında

Alıntı:

MatheuS Nickli Üyeden Alıntı (Mesaj 1041770222)

.hmake badnick 100 sorunun burdaki 100 olduğunu düşünüyorum " .hmake badnick " diye kullanırsan kısıtlama yaşamayacaksındır

O kısım eğer mirc açıldığında klasör içerisinde "badnick.tprk" dosyası yok ise tablo oluştur anlamını taşıyor.

Cevap: !değiştir <nick> Hakkında

Şu kısmı.

Kod:

on @*:join:#:{

  if $hfind(badnick,$nick,1,W).data {

    .msg #degistir !değiştir $wildsite

    if !$hget(bdnck,$nick) {

      .hinc -msu20 bdnck $nick

      msg #bot [ Giriş Yapan: ]  $nick nicki badnick olarak tespit edildi.  $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W).data),$chr(32),])  

    }

  }

}

Şu sekil degiştirsene.

Kod:

on *:join:#:{

  if $hfind(badnick,$nick,1,W).data {

    msg #degistir !değiştir $wildsite

    if !$hget(bdnck,$nick) {

      .hinc -msu20 bdnck $nick

      msg #bot [ Giriş Yapan: ]  $nick nicki badnick olarak tespit edildi.  $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W).data),$chr(32),])  

    }

  }

}

Codda hata gözükmüyor, senin dediklerinle yola cıkarak anca bu sekil söyleyebilirim , .tara #kanal dediginde calisiyorsa duzgun sekil, o zaman ustteki gibi yapip tekrar denersin codu.

Cevap: !değiştir <nick> Hakkında

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] teşekkürler ama olmadı usta malesef. saol yinede.

Cevap: !değiştir <nick> Hakkında

.msg #degistir !değiştir $wildsite

Surayi

.msg #degistir !değiştir $nick

Yapcan :)

Cevap: !değiştir <nick> Hakkında

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] akşam çözdüm orayıda şimdi bada eklediğim nickler kanala girdiğidne bazısını görüyor bazısını görmüyor onu çözmemiz lazım :)