on 1:start:{
  hmake kufur
  hload kufur kufur.mercy
}

on 1:text:*:#X:{
  var %::text = $strip($1-)
  if $hfind(kufur,%::text,1,W).data && $nick {
    if ($istok(#kanal1 #muafkanal ,$chan,32)) { halt }
    gzline $nick 1h Küfür ettiniz. Banlandiniz.
    echo -a 4 Bu nick 12 $nick 4Küfür etti Mesaj : 13 $hget(kufur,$hfind(kufur,%::text,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  2 Küfür korumanız Yüklenmiştir.
  echo -a  2 Kurmak için > 4/kufurkur 2 yazabilirsiniz
}

alias kufurkur {
  hmake kufur
  hload kufur kufur.mercy
  echo -a  2: Küfür korumanız kurulmuştur.
}