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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

- - küfür rütük (https://www.ircforumlari.net/mirc-scripting-sorunlari/296753-kufur-rutuk.html)

Gulsum

12 Kasım 2009 23:03

küfür rütük

mRb
eklediğim küfürlü argolu kelimeler kanalda gectiği zaman o kelime kırımızı kutucuk icinde gözüksün üstü kapalı mümkünmü?

ircop

13 Kasım 2009 14:42

Cevap: küfür rütük

Aynı Mirc Kullanıldıgı Takdirde Mümkündür.. (input yöntemiyle argo kelime yazılır sonrasında kanala yansıyacak haliyle editlenir)

Basit Bir Örn;

On 1:input:*:{
if ($1- == Denyo) { say Yasaklı Kelime..!!! | halt }

Dediğim Gibi.. Bu Yöntem Sadece Bu İnput Kodunun Oldugu Mirc'lerde İşe Yarar..

Gulsum

13 Kasım 2009 15:06

Cevap: küfür rütük

hayır böle değil kanalda küfürlü kelime yazıldığı zaman sansurlensin ben görmim küfür icerikli kelime kırmızı kutucuk icinde gözüksün

Set	13 Kasım 2009 15:44

Cevap: küfür rütük

Kod:

on ^*:text:*mesaj*:#: { echo -a $+([,$nick,]) Yasak Kelime Kullandi Görmeniz Engellenmistir! 4,4 $1- | halt }

Boyle 1 Sey'de Yapabilirsin , Bir Dene Istersen.

Gulsum

13 Kasım 2009 16:43

Cevap: küfür rütük

evet buna benzer ama diyelimki salak kelimesini ekledim
[16:41] <tEo_EfFeCt> napıyon salak
kişi böyle yazdı sadece salak kelimesi kırmızı renkte gözüksün
Yasak Kelime Kullandi Görmeniz Engenlendi gibi olmasın .

Doktrin

13 Kasım 2009 18:15

Cevap: küfür rütük

on ^*:text:*:#:{
var %; = 1
while $read(kufur.txt,%;) {
if $+(*,$read(kufur.txt,%;),*) iswm $1- {
var %text = $remove($ifmatch,*)
var %ykln = 4,4 $remove($ifmatch,*)
echo # $+([,$time,]) $+(<,$nick,>) $replace($1-,%text,%ykln)
}
inc %;
}
}

Bu şekilde dene birde.Küfürleri kufur.txt adında bir dosyaya alt alta eklemelisin. wilcard(*) kullanmadan.

neobre

13 Kasım 2009 20:09

Cevap: küfür rütük

Çok Masraflısın Sende :)

Gulsum

13 Kasım 2009 22:33

Cevap: küfür rütük

oldu tşkler
wilcard(*) kullanmak istiyorum mümkünmü. bide /ekle kelime şeklinde bi ayar yapabilirmiyiz buna

Set	13 Kasım 2009 22:47

Cevap: küfür rütük

Kod:

alias kufurekle { if $1 { if $read(kufur.txt,w,$1-) { .msg $chan - $1- -  zaten listede. | halt } | else { write kufur.txt $1- | .echo -a - $1- - listeye eklendi. } } }

alias kufurlist { var %s = 1,%ss = $lines(kufur.txt) | while %s <= %ss {  .echo -a 4 $read(kufur.txt,%s) | inc %s } }

alias kufursil { if $1 { if !$read(kufur.txt,w,$1-) { .echo -a - $1- -  listesinde yok. | halt } | else { write $+(-dl,$readn) kufur.txt | .echo -a - $1- - listesinden silindi. } } }

alias kufur {

  if ($1 == ekle) {

    kufurekle $2

  }

  if ($1 == sil) {

    kufursil $2

  }

  if ($1 == list) {

    kufurlist

  }

}

Komutlari ;

/kufur Ekle Kelime
/kufur sil Kelime
/Kufur list

Seklindedir. Hayırlı IF'Ler..

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 13:56.