Tekil Mesaj gösterimi
Alt 15 Ekim 2023, 14:51   #8
Çevrimiçi
GeneraL
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Küfür Koruması (Hotlink)




Merhaba alper eline sağlık öncelikle peki bunu Txt doysasından çektirebilirmiyiz yani ekleme silme işlemi uygulancak şekilde düzenlene bilirmi acaba.? Teşekkürler.

Alper Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bir arkadaşın ricası üzerine yaptığım kodu sizinle paylaşıyorum...


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias kfrlr return (s[iİı]kt[iİı]r|p[iİı]ç(s[iİı]n)*|g[öÖo]t|amc[iİı]k) on *:text:*:#: { if $regex(x,$remove($1-,$chr(44),.,!,?,:,$chr(41),;),/(^|\s) $+ $kfrlr $+ (\s|$)/Si) { $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) echo -a $+($chr(3),07,$chan) $+($chr(3),01,Kanalında $chr(3),07,$nick $chr(3),01,Nicki Yasaklı:) $+($chr(3),04,$regml(x,2)) $+($chr(3),01,Kelimesini kullandı. Ceza:) [04 (Ban) 01] [10 (Ban+Kick) 01] [12 (Shun) 01] [06 (Zline) 01]) echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+($chr(3),07,$chan) $+($chr(3),01,Kanalında $chr(3),07,$nick $chr(3),01,Nicki Yasaklı:) $+($chr(3),04,$regml(x,2)) $+($chr(3),01,Kelimesini kullandı. Ceza:) [04 (Ban) 01] [10 (Ban+Kick) 01] [12 (Shun) 01] [06 (Zline) 01]) } } on ^$*:hotlink:*:*:{ if $regex($1,/\x28(Ban)\x29/Si) { return } elseif $regex($1,/\x28(Ban\+Kick)\x29/Si) { return } elseif $regex($1,/\x28(Shun)\x29/Si) { return } elseif $regex($1,/\x28(Zline)\x29/Si) { return } else { halt } } on *:hotlink:*:*:{ var %nck = $token($strip($hotline),3,32), %knl = $token($strip($hotline),1,32) if $regex($1,/\x28(Ban)\x29/Si) { if $regex(ops,$nick($chan,$me).pnick,[.~%&@]) || $regex(admns,$usermode,o) { mode %knl +b %nck } else { echo -a Yetkiniz Yok } } elseif $regex($1,/\x28(Ban\+Kick)\x29/Si) { if $regex(ops,$nick($chan,$me).pnick,[.~%&@]) || $regex(admns,$usermode,o) { mode %knl +b %nck $iif(%nck ison %knl,kick %knl %nck Küfür Yasak!) } else { echo -a Yetkiniz Yok } } elseif $regex($1,/\x28(Shun)\x29/Si) { if $regex(admns,$usermode,o) { shun %nck +0 Küfür Yasak! } else { echo -a Yetkiniz Yok } } elseif $regex($1,/\x28(Zline)\x29/Si) { if $regex(admns,$usermode,o) { zline %nck +0 Küfür Yasak! } else { echo -a Yetkiniz Yok } } }


Kırmızı işaretlediğim yere küfürleri aralarında | işaretini kullanarak eklemeniz gerekmekte.

Aktif pencere ve @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] penceresinde bildirim ve yapabileceğiniz ceza seçenekleri gözükür.

Örnek:



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


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet