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
    sajoin $nick #A
    play #A kurallar.txt 300
    .timer5 0 15 ban #A $nick | kick #A $nick Okumuş olduğunuz Kurallara İtaat ediniz. 
    .timer5 0 20 timer5 off
  }
}
alias küfür {
  if $nick !isop $chan {
    if $nick == SaG0Pa {
      if $1 == ekle {
        msg $nick $nick $+ : Operatör Konumunda Tanınmamışsınız.
        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
          msg %::chan Kötü Söz girdisi Silindi: ( $+ $ifmatch $+ ) $2-
        }
        else {
          msg %::chan Silmeye çalıştıgınız küfür listede mevcut 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.
      }
    }
  }
}