| Alper | 04 Haziran 2020 15:49 |
mIRC Küfür Koruması (Hotlink)
Kod:
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(@Koruma),window -ne @Koruma)
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 @Koruma $+($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 @Koruma penceresinde bildirim ve yapabileceğiniz ceza seçenekleri gözükür.
Örnek: [Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] |
