on 1:start:{
hmake kufur
hload kufur kufur.mercy
}
on 1:text:*:#:{
var %::nick $nick
var %::text = $1-
if $hfind(kufur,$1-,1,W).data && $nick {
mode # +b $nick | kick # $nick Kanal genelinde küfürlü Konuşmanızdan Dolayı 15 banlandınız.Banlıyan nick : %::nick Ettiğiniz küfür : 4,4 $remove($gettok($1,1,33),:)
play $chan temizle.txt 300
timer 1 300 $chan -b $nick 
}
}
alias küfür {
if $1 == ekle { 
hadd -m kufur $r(1000,999999) $2-
hsave kufur kufur.mercy
echo -a Kötü Söz girdisi Eklendi: $2-
}
elseif $1 == sil {
if $hfind(kufur,$2-,1,W).data {
hdel kufur $ifmatch
hsave kufur kufur.mercy
echo -a Kötü Söz girdisi Silindi: ( $+ $ifmatch $+ ) $2-
}
else {
Echo -a Silmeye çalıştıgınız küfür listede mevcur değil, $+(,$me,)
}
}
elseif $1 == liste {
echo -a $+(,$me,) Küfür listesi listeleniyor
var %x = 1 
while (%x <= $hget(Kufur,0).item) { 
echo -a 4 $+ $hget(Kufur,%x).data 
inc %x 
}
echo -a $+(,$me,) küfür liste sonu.
}
}
alias kufurkur {
hmake kufur
hload kufur kufur.mercy
}
menu channel,status,query {
Küfür
.Küfür Ekle:/Küfür ekle $$?="Eklenecek kelime nedir?"
.Küfür Sil:/Küfür sil $$?="Silinecek kelime nedir?"
.Küfür Listele:/Küfür liste
}