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 Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   İstenmeyen yazıları **** olarak görüntüleyin. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/2955-istenmeyen-yazilari-olarak-goruntuleyin.html)

CoCoRiCo 10 Mayıs 2005 07:49

İstenmeyen yazıları **** olarak görüntüleyin.
 
[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 :)

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

Yeppa 10 Mayıs 2005 09:43

Alıntı:

©º©º®î©º Nickli Üyeden Alıntı
[MTX Script kötü tazı koruması ]

tazı diiL yazı :)

CoCoRiCo 10 Mayıs 2005 13:40

:))) Saol be iyiki uyardın yoksa script de öle kalacaktı :) code yazmakdan normal yazı yazmayı unuttuk :) olur böle seyler. yanlışlıkla adam ölüyor :)

Alience 18 Aralık 2005 23:20

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
}


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk