Tekil Mesaj gösterimi
Alt 04 Haziran 2020, 15:53   #1
Çevrimiçi
Alper
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
mIRC Küfür Koruması (Hotlink)




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.

__________________
Davut Alper BALCI - pC`kOpAt
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet