on 1:start:{
  hmake kufur
  hload kufur kufur.bugra
}
on 1:text:*:#:{
  var %::text = $1-
  if $hfind(kufur,$1-,1,W).data && $nick {
    mode # +b $nick
    msg # $nick küfürlü konuştunuz Bu yuzden kanaldan uzaklaştırıldınız. yakalanan küfürünüz > 4,4 $hget(kufur,$hfind(kufur,$1-,1,W).data)
  }
}
alias küfür {
  if $1 == ekle {  
    hadd -m kufur $r(1000,999999) $2-
    hsave kufur kufur.mercy
    echo -a Kötü Söz 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 Silindi: ( $+ $ifmatch $+ ) $2-
    }
    else {
      Echo -a Silmeye çalıştıgınız küfür listede yok,  $+( ,$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..
  }
}
on *:load:{
  echo -a  4| 2WingmaN 4|   2 Küfür korumanız Yüklenmiştir.
  echo -a  4< 2WingmaN 4>   2 Kurmak için >  4/kufurkur  2 yazabilirsiniz
}
alias kufurkur {
  hmake kufur
  hload kufur kufur.bugra
  echo -a  4| 2WingmaN 4|   2: Küfür korumanız kurulmuştur.
}
