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/)

- - Özelde küfür koruması sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/588310-ozelde-kufur-korumasi-sorunu.html)

tamerr

17 Mayıs 2014 12:21

Özelde küfür koruması sorunu

on *:text:*:?:{ if $read($kufurs.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 } }

------
Selamlar forumda yeniyim konulardan birkaç tane txt okutmalı koruma çalıştırdım fakat özelde koruma çalışmıyor. Denemek için *anan* diye ekledim çalışmadı. /remote on yaptım. Şimdiden teşekkürler.

Lociz

17 Mayıs 2014 12:34

Cevap: Özelde küfür koruması sorunu

Kod:

if $read($kufurs.txt,w,$1-)

buradaki hataniz dosyanin adi $kufurs.txt degil, kufurs.txtdir. Bunun icin identifier kullanmaya gerek yoktur. Ayrica eger wildcard kullanmak istiyorsaniz birlestirme identifieri olan $+ ile * wildcardlarini yaziyla birlestirebilirsiniz. $+(*,$1-,*) birlesturmek icin birlestirilecek seylerin arasina goruldugu gibi virgul koyduk.

Kod:

if $read(kufurs.txt,w,$+(*,$1-,*))

kodun tam calisan surumu icin:

Kod:

on *:text:*:?:if $read(kufurs.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 }

tamerr

17 Mayıs 2014 13:18

Cevap: Özelde küfür koruması sorunu

Aynısını ekledim denemek için sunucuya girerken duyuru mesajı geliyor. *RuLZzServices* diye txt ekledim görmedi.

Lociz

17 Mayıs 2014 14:25

Cevap: Özelde küfür koruması sorunu

Alıntı:

tamerr Nickli Üyeden Alıntı (Mesaj 1041434386)

Aynısını ekledim denemek için sunucuya girerken duyuru mesajı geliyor. *RuLZzServices* diye txt ekledim görmedi.

Yildiz isareti koymadan ekle.

Toprak__

17 Mayıs 2014 14:33

Cevap: Özelde küfür koruması sorunu

Boyle ayarlayin siz koda ekleyin;

Kod:

var %kufur = 1 | while %kufur <= $lines(kufurs.txt) {

if ($read(kufurs.txt,%kufur) isin $1-) {

ignore $nick

Vs. vs.

break

}

İnc %kufur

}

Telden yaziyorum yanlislik olabilir buna gore yapin.

tamerr

17 Mayıs 2014 16:48

Cevap: Özelde küfür koruması sorunu

Denedim olmuyor. Otomatik ağır argo mesajlar geliyor yıldız koymadan ekliyorum yine olmuyor. Yinede ilginiz için tşkler.

IRC-Dancer

17 Mayıs 2014 17:19

Cevap: Özelde küfür koruması sorunu

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] buyur.

Kod:

on *:text:*:?: { 

 if $read(kufurs.txt,w,$1-) { 

 .ignore $nick 

 .msg $nick Özelime küfür ettiğiniz tespit edildi , otomatik ignore edildiniz.

 .close -m $nick

 .echo -a $nick ignore edildi, kullandığı cümle : $1-

 } 

}

Feragat

17 Mayıs 2014 17:23

Cevap: Özelde küfür koruması sorunu

Alıntı:

tamerr Nickli Üyeden Alıntı (Mesaj 1041434650)

Denedim olmuyor. Otomatik ağır argo mesajlar geliyor yıldız koymadan ekliyorum yine olmuyor. Yinede ilginiz için tşkler.

Belirlenen metni, .txt içinde aratma harici; direk event üzerinde metin belirterekte yapabilirsin, tabi kelime listen çok çok uzun değilse.
- kelime1|kelime2|kelime3 ... yazan bölüme örnekteki gibi engelleyeceğin kelimeleri belirleyebilirsin.

Örnek:

Kod:

on $!*:text:/kelime1|kelime2|kelime3|kelime4|kelime5/Si:?:{ 

  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 

}

Eğer .txt tarasın istersen;
- kufurs.txt in içine kelime şeklinde eklemelisin, wildcard (* * ? gibi karakterler) kullanmadan. İyi forumlar.

Kod:

on !*:text:*:?:{ 

  var %a 1

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

    if $read(kufurs.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 

  }

}

Toprak__

17 Mayıs 2014 17:30

Cevap: Özelde küfür koruması sorunu

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] anlamiyorlar iste akil verdik **** olmadi :)

tamerr

17 Mayıs 2014 18:27

Cevap: Özelde küfür koruması sorunu

Ya kusura bakmayın mirc olayına aşina olmadığım için hatalar yapıyorum. Sunucuda sapık cok uzun cümleli otomatik mesajlar geliyor satırın içinden txt içine belirli kelime yıldız koyarak ve yıldızsız ekledim olmadı :)
En basit örnek sunucuya girerken özelime notice olmayan 10 satırlık bilgi mesajı geliyor. Koruma devreye girecekmi diye belirli cümleleri txt ye ekledim. echo uyarı vermedi görmedi yani.

Feragat

17 Mayıs 2014 20:54

Cevap: Özelde küfür koruması sorunu

Alıntı:

tamerr Nickli Üyeden Alıntı (Mesaj 1041434721)

-Sunucuya giriş yaptığında özeline gelen services bot için;

Kod:

$iif($regex($nick,/geveze-org|nick1|nick2|nick3/Si), closemsg $nick)

satırını kullanabilirsin ve birden fazla nick i örnekteki gibi ekleyebilirsin. Bu şekilde özeline yazamayacaklardır. Bunun dışında sunucuda test ettim, özeline gelip txt içinde ekli olan kelimeyi kullanan olursa ignore edip mesajları atıyor.

-Kod eğer hiç çalışmadıysa, boş bir remote sayfasına ekleyip deneyebilirsin. mIRC Kodlarının mIRC e eklenmesi hakkında [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] da inceleyebilirsin. İyi forumlar.

Koda entegre edilmiş hali:

Kod:

on !*:text:*:?:{ 

  $iif($regex($nick,/geveze-org|nick1|nick2|nick3/Si), closemsg $nick)

  var %a 1

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

    if ($read(kufurs.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 

  }

}

Lociz

18 Mayıs 2014 10:22

Cevap: Özelde küfür koruması sorunu

Kod:

 on !*:text:*:?:{ 

  var %lcz 1

  while %lcz <= $numtok(%Kufurler,46) {

    if $gettok(%Kufurler,%lcz,46) 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 %lcz

  }

}
 

alias kekle if $1 { set %Kufurler $addtok(%Kufurler,$1-,46 }

alias klist var %lcz 1 | while %lcz <= $numtok(%Kufurler,46) { echo -a $+(%lcz,.) $gettok(%Kufurler,%lcz,46) | inc %lcz }

alias ksil if $1 { set %Kufurler $remtok(%Kufurler, $1-, 0, 46) }

Kullanimi:
/kekle KUFUR : Kufur ekler.
/klist :Kufurleri listeler.
/ksil KUFUR :Kufuru siler.

Denemedim mobilden yazdim.

Toprak__

18 Mayıs 2014 17:28

Cevap: Özelde küfür koruması sorunu

Sil alias'ını böyle degiştirin;

Kod:

alias ksil if $1 { set %Kufurler $remtok(%Kufurler,$1-,46) }

Ekle alias'ıda böyle ")" egsik.

Kod:

alias kekle if $1 { set %Kufurler $addtok(%Kufurler,$1-,46) }

Lociz

18 Mayıs 2014 17:37

Cevap: Özelde küfür koruması sorunu

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1041435363)

Sil alias'ını böyle degiştirin;

Kod:

alias ksil if $1 { set %Kufurler $remtok(%Kufurler,$1-,46) }

Ekle alias'ıda böyle ")" egsik.

Kod:

alias kekle if $1 { set %Kufurler $addtok(%Kufurler,$1-,46) }

$remtok identifieri degistirmk icin kullanilir, boyle bir $remtok kullanimi yoktur.

Sizin dediginiz $deltok dur. Benim yaptigim degistirme islemidir ve degistirme identifierinde 0a degistirirsek siler

Yani
$deltok(%Kufurler,$1-,46) = $remtok(%Kufurler,$1-,0,46) ≠ $remtok(%Kufurler,$1-,46)
Kaynak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Toprak__

18 Mayıs 2014 18:07

Cevap: Özelde küfür koruması sorunu

Şöyle açıklayım;

Kod:

//echo -a $remtok(bir.iki.üç.dört.bir,bir,1,46)

Sonuç: iki.üç.dört.bir

Yani belirttigimiz kelimeyi ilk sıradakini sildi . 2 yaparsak ne olcak?

Sonuç: bir.iki.üç.dört

Komut:

Kod:

//echo -a $remtok(deneme1.deneme2.deneme3,deneme1,46)

Yaparsak ne olcak? :
Sonuc: deneme2.deneme3

Senin dedigin şekil deniyelim:

Kod:

//echo -a $remtok(deneme1.deneme2.deneme3,deneme1,0,46)

Olarak denersek.

Sonuc: deneme1.deneme2.deneme3

Sanırım anlatabilmişimdir.

Lociz

18 Mayıs 2014 18:19

Cevap: Özelde küfür koruması sorunu

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1041435392)

Şöyle açıklayım;

Kod:

//echo -a $remtok(bir.iki.üç.dört.bir,bir,1,46)

Sonuç: iki.üç.dört.bir

Yani belirttigimiz kelimeyi ilk sıradakini sildi . 2 yaparsak ne olcak?

Sonuç: bir.iki.üç.dört

Komut:

Kod:

//echo -a $remtok(deneme1.deneme2.deneme3,deneme1,46)

Yaparsak ne olcak? :
Sonuc: deneme2.deneme3

Senin dedigin şekil deniyelim:

Kod:

//echo -a $remtok(deneme1.deneme2.deneme3,deneme1,0,46)

Olarak denersek.

Sonuc: deneme1.deneme2.deneme3

Sanırım anlatabilmişimdir.

Removing tokens
There are two identifiers that lets you remove tokens from the list: $deltok allows the deletion of tokens by their position while $remtok can be used to delete tokens by their value.

var %str = $deltok(<list>, <Nth_pos>, <code_point>)
;$deltok also supports a range of tokens
var %str = $deltok(<list>, <Nth_pos-N2th_pos>, <code_point>)
var %str = $remtok(<list>, <token>, <Nth_pos>, <code_point>)
$deltok can delete a single token or multiple depending on the specified range. $remtok's <Nth_pos> parameter is used to specify the Nth matching token to be removed. If <Nth_pos> is 0, all matching tokens are removed.

//echo -a $deltok(this is not really cool!, 3-4, 32)
this is cool!
//echo -a $deltok(A B C D, -1, 32)
A B C
//echo -a $remtok(A:B:C:A:B:C:A:B:C, A, 0, 58)
B:C:B:C:B:C

Toprak__

18 Mayıs 2014 18:21

Cevap: Özelde küfür koruması sorunu

Sizdemi sorun var bendemi :)

Kod:

//echo -a $remtok(A:B:C:A:B:C:A:B:C,A,0,58)

A:B:C:A:B:C:A:B:C

Kod:

//echo -a $remtok(A:B:C:A:B:C:A:B:C,A,58)

Böyle yapınca bak çıkan sonuç:

B:C:A:B:C:A:B:C

Böyle yaparsan:

Kod:

//echo -a $remtok(A:B:C:A:B:C:A:B:C,A,1,58)

İlk "A" yı siler dogrudur ama 0 orada etkisiz.

mIRC Help Dosyası

Kod:

$remtok(text,token,N,C)
 

Removes the Nth matching token from text. If N = 0, applies to all matching items.
 

 
 

$remtok(a.b.c.d,b,1,46)        returns a.c.d
 

$remtok(a.b.c.d,e,1,46)        returns a.b.c.d
 

$remtok(a.c.c.d,c,1,46)        returns a.c.d

MikaiL

18 Mayıs 2014 18:34

Cevap: Özelde küfür koruması sorunu

.....

Lociz

18 Mayıs 2014 19:01

Cevap: Özelde küfür koruması sorunu

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1041435401)

Sizdemi sorun var bendemi :)

Kod:

//echo -a $remtok(A:B:C:A:B:C:A:B:C,A,0,58)

A:B:C:A:B:C:A:B:C

Kod:

//echo -a $remtok(A:B:C:A:B:C:A:B:C,A,58)

Böyle yapınca bak çıkan sonuç:

B:C:A:B:C:A:B:C

Böyle yaparsan:

Kod:

//echo -a $remtok(A:B:C:A:B:C:A:B:C,A,1,58)

İlk "A" yı siler dogrudur ama 0 orada etkisiz.

mIRC Help Dosyası

Kod:

$remtok(text,token,N,C)
 

Removes the Nth matching token from text. If N = 0, applies to all matching items.
 

 
 

$remtok(a.b.c.d,b,1,46)        returns a.c.d
 

$remtok(a.b.c.d,e,1,46)        returns a.b.c.d
 

$remtok(a.c.c.d,c,1,46)        returns a.c.d

Removes the Nth matching token from text. If N = 0, applies to all matching items.

N eger 0sa tum tokenlere uygulandigi soylenmis. Etkisiz falan degil. İngilizcen varsa anlarsin.

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