IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Özele küfür koruması nasıl ayraç eklerim ?

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

- - Özele küfür koruması nasıl ayraç eklerim ? (https://www.ircforumlari.net/mirc-scripting-sorunlari/604822-ozele-kufur-korumasi-nasil-ayrac-eklerim.html)

Özele küfür koruması nasıl ayraç eklerim ?

on *:text:*:?:{ if $read(kufurler.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } }

Mrb yukarıdaki komutun dağa sağlıklı çalışması için kelimelere yildiz ile ayraç eklemek istiyorum nasıl yapabilirim ?

Mesela txt ye " ulan " diye eklediğimde sadece ulan yazılırsa bloke ediyor ama ben uzun cümlede korumanın görmesini istiyorum. Yıldız içerisinde çalışmıyor

Cevap: Özele küfür koruması nasıl ayraç eklerim ?

Daha önce bu konuda Feragat kod paylaşmış
Sizin istediğiniz gibi
kelime içinde gecerse, yada satırlar aralıklı selam naber nasılsın gibi bu kelimelerden listede eklı olan varsa işlem yapcaktır..

Kod:

on !*:text:*:?:{ 

  var %a 1

  while %a <= $lines(kufurler.txt) {

    if $read(kufurler.txt,%a) isin $1- { 

      ignore $nick 2

      msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. 

      echo -s $qt($nick) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- 

      closemsg $nick

      break 

    }

    inc %a 

  }

}

Kode Sahibi Feragat

Cevap: Özele küfür koruması nasıl ayraç eklerim ?

txt ye atarken yıldız ile ekleyince malesef çalışmıyor. mESELA ananı kelimesini eklediğimde adananın okuyunca algılıyor. Yıldız ile ayırmak istiyorum.

Cevap: Özele küfür koruması nasıl ayraç eklerim ?

Kode sahibi: Difuzyon

Kod:

on !*:text:*:?:{ var %jnk = 0, %cenk | while %jnk <= $numtok($1-,32) { %cenk = $strip($token($1-,$v1,32)) | if $hregex(Küfürler,%cenk,0) { .msg  $nick  Argo\Küfür sebebiyle ignore edildin. | .ignore $nick 2 | .closemsg $nick | halt } | inc %jnk }

}

#difiprotect end

alias küfürekle {

  if $hget(Küfürler,$1) { echo 06 -a $1 listede mevcut. }

  else {

    hadd -m Küfürler $1 1

    hsave -i Küfürler Küfürler.data

    echo 07 -a $1 Argo\Küfür listesine eklendi.

  }

}

alias küfürsil {

  if !$hget(Küfürler,$1) { echo 06 -a $1 listede yok }

  else {

    hdel Küfürler $1

    hsave -i Küfürler Küfürler.data

    echo 07 -a $1 Argo\Küfür listesinden silindi.

  }

}

alias küfürlist {

  $iif(!$window(@Küfürler),window -nz @Küfürler,clear @Küfürler)

  aline 04 @Küfürler Küfür Listesi

  var %dify 1 | while %dify <= $hget(Küfürler,0).item { aline -h 02 @Küfürler $hget(Küfürler,%dify).item | inc %dify }

  aline -h 05 @Küfürler Toplam $hget(Küfürler,0).item veri mevcut.

}

on *:start:.hload Küfürler Küfürler.data

menu channel {

  .Küfür Koruması

  ..Aç:.enable #difiprotect | echo 04 -a Koruma Açık | echo 02 -a Küfür eklemek için /küfürekle kelime | echo 02 -a Küfür silmek için /küfürsil kelime | echo 02 -a Liste için /küfürlist

  ..Kapa:.disable #difiprotect | echo 12 -a Koruma Kapalı

}

Küfür eklemek için /küfürekle kelime
Küfür silmek için /küfürsil kelime
Liste için /küfürlist
Senin istediğin gibi kısa bi kod oluşturamadık arkadasım
Daha önce paylaşılmış bir kod
Kode sahibi: Difuzyon

örnek: /küfürekle lan - şeklinde eklenen durum da
özelinizde yazılan (lan)
bana bak (lan)
hadi gidelim (lan) burdan
yukardakı kelimeleri kufur olarak algılayıp işlem yapar
aşağıdakı durumlarda işlem yapmaz
(aslan)
(kaplan)

Cevap: Özele küfür koruması nasıl ayraç eklerim ?

teşekkürler kardeşim