Çevrimiçi

[MTX Script kötü yazı koruması ]

ON ^*:TEXT:*:*: {
var %coco = 1
var %metin = $strip($1-)
if (%kelime = [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) {
;kelimeler örnek olarak eklendi bunları while yada hget ile de faklı biçimlerde kullanbilirsiniz.
while $gettok(%kelime,%coco,44) {
if ($v1 isin %metin) {
var %metin = $replace(%metin,$v1,14*****)

;**** lı olan kısma alt+160 boş TAB karekterini kullanarak hiç bir yazı da görüntületmeyebilirsiniz. Tavsiye etmem. kişinin ne yazdıgı merak edilebilir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


inc %coco
}
}
}
if (***** isin %metin) {

;eger karakteri alt+160 ile ayarlarsanı yukarıdaki **** ları da aynı yapmalısınız.

echo -tbf $iif($chan,$v1,$nick) $+(<,$nick,>) %metin

;$+(<,$nick,>) kısmını $+([,$nick,]) gibi temanıza göre ayarlayabilirsiniz.

haltdef
}
}


kolay gelsin...

__________________
2b|!2b=? ~ mircscripting.net

 

Çevrimdışı

©º©º®î©º Nickli Üyeden Alıntı

[MTX Script kötü tazı koruması ]

tazı diiL yazı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimiçi

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)) Saol be iyiki uyardın yoksa script de öle kalacaktı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
code yazmakdan normal yazı yazmayı unuttuk
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
olur böle seyler. yanlışlıkla adam ölüyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
2b|!2b=? ~ mircscripting.net

 

Çevrimdışı

regex ile yazılmışını veriyim bende * yerine <cencored> kullandım
Özellikleri: içinde aranan kelime geçiyorsa aktif olur /S nin anlamı
/S strip codes yani $strip ile aynı işi görür control kodlarını iptal eder
regex hakkında daha fazla bilgi için [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].


ON ^$*:TEXT:/\/
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
var %x , %i = $regsub($1-,$matchkey, <cencored> ,%x)
echo -tbf $iif($chan,$v1,$nick) $+(<,$nick,>) %x
haltdef
}