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

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

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

Alıntı:

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

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.

-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 

  }

}

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.

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

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...]

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.

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

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

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.