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
}