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

2Beğeni(ler)
  • 2 Post By Feragat

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 21 Şubat 2015, 18:33   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Badwords Shun + Rapor




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
On karaliste:join:#Kanal,#Kanal1,#Kanal2:{ var %::chan = $chan var %::nick = $nick var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { Shun $nick 2Sunucu kurallarına uymadığınız için bir süre girişiniz yasaklanmıştır. Lütfen Sunucu kurallarına uyunuz daha ayrıntılı bilgi ve yardım için 4/motd2 yazınız. 4Nick:2 $nick 4Kanal:2 $chan 12$time } msg #Rapor sebep } } } on *:action:*:#:{ var %::chan = $chan var %::nick = $nick var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { Shun $nick 2Sunucu kurallarına uymadığınız için bir süre girişiniz yasaklanmıştır. Lütfen Sunucu kurallarına uyunuz daha ayrıntılı bilgi ve yardım için 4/motd2 yazınız. 4Nick:2 $nick 4Kanal:2 $chan 12$time } msg #Rapor sebep } } } on *:notice:*:#:{ var %::chan = $chan var %::nick = $nick var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { Shun $nick 2Sunucu kurallarına uymadığınız için bir süre girişiniz yasaklanmıştır. Lütfen Sunucu kurallarına uyunuz daha ayrıntılı bilgi ve yardım için 4/motd2 yazınız. 4Nick:2 $nick 4Kanal:2 $chan 12$time } msg #Rapor } } } alias badword { if ($1 == add) { set %badwords $addtok(%badwords,$2,32) echo -a 14»1»15»4 Listeye $2 eklendi } if ($1 == del) { if ($istok(%badwords,$2,32)) { set %badwords $remtok(%badwords,$2,32) echo -a 14»1»15»4 Listeden $2 silindi } } if ($1 == delall) { unset %badwords echo -a 14»1»15»4 Küfür listesi boşaltıldı } if ($1 == list) { if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-List) == $null) { window -ab @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-List } if ($numtok(%badwords,32) == 0) { aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-List 14»1»15»1 Listede hiçbir kelime yok | halt } aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-List 14»1»14»4 Küfürlü kelimeler listeleniyor... 4Toplam küfür : ( $+ $numtok(%badwords,32) $+ ) var %n = 1 while (%n <= $numtok(%badwords,32)) { aline $color(info 2) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-List 4»»» $gettok(%badwords,%n,32) inc %n } aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-List 14»1»15»4 Liste sonu } } alias Badword dialog -m Badword Badword dialog Badword { title "Badwords" size -1 -1 355 200 button "«:Kapat:»"2, 25 125 300 25,ok button "«:Badwords Security ON:»"3, 25 25 150 25 button "«:Badwords Security OFF:»"4, 175 25 150 25 button "«:Badwords Add:»"5, 25 50 150 25 button "«:Badwords Del:»"6, 175 50 150 25 button "«:Listedeki tüm kelimeleri sil:»"7, 25 75 300 25 button "«:Küfür listesine bak:»"8, 25 100 300 25 box "Badwords Security "9, 2 1 350 190 } on 1:dialog:Badword:sclick:*:{ if ($did == 3) { /set %badword.detect on | echo -a 3«(14 *** Badwords Security ON 3)» } if ($did == 4) { /unset %badword.detect | echo -a 3«(14 *** Badwords Security OFF 3)» } if ($did == 5) { /badword add $$?="Küfür gir:" } if ($did == 6) { /badword del $$?="Küfür gir:" } if ($did == 7) { /badword delall } if ($did == 8) { /badword list } } Menu Channel { BADWORDS:/dialog -m Badword Badword } #blacklist on On karaliste:join:#Kanal,#Kanal1#Kanal2:{ var %::chan = $chan var %::nick = $nick if (%nickkor == ON) { Shun $nick 2Sunucu kurallarına uymadığınız için bir süre girişiniz yasaklanmıştır. Lütfen Sunucu kurallarına uyunuz daha ayrıntılı bilgi ve yardım için 4/motd2 yazınız. 4Nick:2 $nick 4Kanal:2 $chan 12$time } msg #Rapor sebep } } #blacklist END



Selamun aleykum arkadaşlar yukarıda paylaştığım Kod Küfür (badwords) koruması ben bu kodu sadece belirttiğim kanallarda aktif olsun ve #Rapor kanalına ileti göndersin şeklinde ayarlamaya çalıştım ama yapamadım. Yardımcı olacak arkadaşa şimdiden teşekkür ederim birde ricam hatalar nerde yapılmış yazabilir misiniz?

__________________
Dünya Tanrı'nın bir görünümü değil, Şeytan'ın bir yalanı'dır
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 21 Şubat 2015, 21:35   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Badwords Shun + Rapor




badword için join yerine text eventı kullanmalısın. join event'ı kanala giriş olduğunda tetiklenen bir event. Text eventı ise yazılan metin(ler) doğrultusunda tetiklenen bir event.
Ayrıca aynı eventı aynı sayfada 2 defa kullanmak yerine (join) tek event'ta birleştir. 2 aynı event sıkıntı çıkarabilir.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Cevapla

Etiketler
badwords, rapor, shun


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Shun Desmont Felsefe 0 29 Kasım 2014 18:54
Auto Shun POSOFxBELA mIRC Scripting Sorunları 3 27 Ağustos 2012 20:21
oto shun muratt_aziz mIRC Scripting Sorunları 6 18 Nisan 2012 18:36