![[-]](https://lamerler.com/images/collapse.png "[-]")
Güzel Koruma botu için Küfür Koruma Addonu
OPERLOG KANALINDA İŞLEV GORUR !kufur ekle !kufur sil kufur list seklinde komutları
İRCFORUM İRCFORUMLARI LAMERLER FORUM Paylaşım Platformu
OPERLOG KANALINDA İŞLEV GORUR !kufur ekle !kufur sil kufur list seklinde komutları
İRCFORUM İRCFORUMLARI LAMERLER FORUM Paylaşım Platformu
Kod:
on *:start:{ $iif(!$isfile(kufur.tprk),.write kufur.tprk) | .hmake kufur 100 | .hload kufur kufur.tprk }
on *:text:*:#:{
if $regex(#,/^#operlog$/i) {
if $regex($1,/^[!\.]k[uüÜ]f[uüÜ]r$/Si) {
if !$regex($2,/^(ekle|s[ıiİ]l|l[ıiİ]st)/Si) { msg # Lütfen 4!küfür 2<ekle|sil|list> olarak belirtiniz. }
elseif $regex($2,/^ekle$/Si) {
if (!$3) { msg # 12Lütfen kelime belirtiniz. }
elseif $hfind(kufur,$strip($3-),0,W).data { msg # Eklemeye çalıştığınız küfür zaten $+([,$chr(32),$hget(kufur,$hfind(kufur,$strip($3-),1,W).data),$chr(32),]) maskesi ile uyuşmakta. }
else {
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m kufur %n $strip($3-)
.hsave -o kufur kufur.tprk
msg # $strip($3-) 12Küfür 4Listesine 12Eklendi.
}
}
elseif $regex($2,/^s[ıiİ]l$/Si) {
if (!$3) { msg # 12Lütfen kelime belirtiniz. }
elseif !$hfind(kufur,$strip($3-),0,W).data { msg # 12Küfür listesinde bulunmamaktadir. }
else {
.hdel -m kufur $hfind(kufur,$strip($3-),1,W).data
.hsave -o kufur kufur.tprk
msg # $strip($3-) 12Küfür 4Listesinden 12Silindi.
}
}
elseif $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(kufur,0).data == 0) { msg # 12Küfür listesi boş. }
else {
msg # Küfür listesi
msg # -
var %i = 1 | while (%i <= $hget(kufur,0).data) { msg # %i $+ .4) [ $hget(kufur,%i).data ] | inc %i }
msg # -
msg # Küfür listesi sonu
}
}
}
}
elseif $hfind(kufur,$strip($1-),1,W).data && !$regex($nick(#,$nick).pnick,/^[%@&~.]/) {
;- Muaf kanal satırı
if $regex(#,/^#(OperHelp|Admin|Log|Services)$/i) { return }
;- Muaf nick satırı
elseif $regex($nick,/^(nick|nick1|nick2|nick3)$/i) { return }
;- Muaf host satırı
elseif $regex($site,/^(Root|Network|Services|Admin|IRCop)/i) { return }
else { mode # +b $nick | kick # $nick 3Küfür Yasak. }
}
}