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

- - ÖZELE küfür koruması (https://www.ircforumlari.net/mirc-scripting-sorunlari/458027-ozele-kufur-korumasi.html)

TİGeR

01 Mart 2012 21:47

ÖZELE küfür koruması

Selamlar..

Kod:

menu channel {

  Özele Küfür Koruma

  .Aç:enable #ozelkoruma | echo -a Koruma Açıldı

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

}

#ozelkoruma on

on *:text:*:?: { 

  if $regex($1-,(?<=^|\s)(-------|ananı|---|siktir|yavsak)(\s|$)) { 

    .msg  $nick Küfür etme | ignore $nick

    .close -m $nick 

  }

}

#ozelkoruma end

Elimdeki bu kodda eklenmiş ve eklencek Küfürleri büyük kücük veya asci karakter ayırt etmeksizin algılaması için ne yapmamız lazım acaba
Örnek "---" kelimesi ekli --- sekLinde "P" harfi büyükse algılamıor ;s2

Narsinha

03 Mart 2012 16:48

Cevap: ÖZELE küfür koruması

Regex koruması kullanabilmen için regex bilmen lazım.isin veya iswm gibi değil.

TİGeR

03 Mart 2012 18:19

Cevap: ÖZELE küfür koruması

Alıntı:

Egzodya Nickli Üyeden Alıntı (Mesaj 1041049284)

Regex koruması kullanabilmen için regex bilmen lazım.isin veya iswm gibi değil.

O kadar anlasak burda aranmayız demi Egzodya;s1

Narsinha

03 Mart 2012 20:46

Cevap: ÖZELE küfür koruması

Kod:

alias sil return $remove($regsubex($1-,/[[:punct:]]/g,$+),$chr(32))

menu channel {

  Özele Küfür Koruma

  .Aç:enable #ozelkoruma | echo -a Koruma Açıldı

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

}

#ozelkoruma on

on *:text:*:?: { 

  if $regex($strip($sil($1-)),/(ananı|s(i|İ)kt(i|İ)r|yavsak)/i) { 

    .msg $nick Küfür etme | ignore $nick

    .close -m $nick 

  }

}

#ozelkoruma end

gibi dene bakalım bir.

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