IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum - genele yazan istemediğim nicklere ban atsın istiyorum

Alıntı:

ShiRoi Nickli Üyeden Alıntı (Mesaj 4298)

selam arkadaşlar genele yazan nickler txt dosyasına eklemek istiyorum bu txt eklediğim nickler genele yazdıkları zaman sadece +b ban atsın istiyorum kick atmasın.

birde +b yaptığı zaman msg nickiniz genele uygun olmadığı için banlandınız diye uyarı vermesini istiyorum ben *pasif* boyle nick ekleyince ben_pasif nickler aldıkları zaman algılasın istiyorum txt ben ekleyecem nickleri lez gay pasif gibi sizlere şimdiden teşekkür ederim

Merhaba @ShiRoi,

Badnick korumasından yola çıkarak bişiler yaptım badnickleri sadece kendiniz eklemeniz için on *:input:#:{ eventi olarak belirledim eğer kendiniz değil başkaların kullanmasını isterseniz on *:text:*:#:{ eventi ile değiştirebilirsiniz.

Kod:

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

on *:input:#:{

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

    if !$regex($2,/^(ekle|s[ıiİ]l|l[ıiİ]st|tara)$/Si) { msg # Lütfen 4!badnick 2ekle|sil|list|tara olarak belirtiniz. }

    elseif $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.

    }

    elseif $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.

    }

    elseif $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),])

    }

    elseif $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

    }  

  }

}
 

on *:text:*:#:{

  if $regex($nick(#,$me).pnick,/[%@&~.]/) && $hfind(badnick,$nick,1,W).data {

    mode # +b $+(~q:,$nick)

    msg $nick Nick'iniz uygun olmadığı için # kanal'ında konuşmanız engellenmiştir.

  }

}

Komut(lar);

!badnick ekle *nick*
!badnick sil *nick*
!badnick list
!badnick tara nick (Nick'e uyan maskları verir.)