on :start:{
  hmake kufur
  hload kufur kufur.mercy
}
on @:text:*:#:{
  if ($istok(#Ankara #izmir #İstanbul,$chan,32)) { halt }
  var %::nick $nick
  var %::text = $1-
  if $hfind(kufur,$1-,1,W).data && $nick {
    gline %::nick +1800 Ettiğiniz küfür :  ( $remove($gettok($1,1,33),:) )'den dolayı ( $network ) sunucusundan Gline yediniz.
  }
}
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ü girdisi 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.
  }
}