on !*:text:*:?:{ 
  var %lcz 1
  while %lcz <= $numtok(%Kufurler,46) {
    if $gettok(%Kufurler,%lcz,46) isin $1- { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | .echo -s $qt($nick) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | closemsg $nick | break }
    inc %lcz
  }
}

alias kekle if $1 { set %Kufurler $addtok(%Kufurler,$1-,46 }
alias klist var %lcz 1 | while %lcz <= $numtok(%Kufurler,46) { echo -a $+(%lcz,.) $gettok(%Kufurler,%lcz,46) | inc %lcz }
alias ksil if $1 { set %Kufurler $remtok(%Kufurler, $1-, 0, 46) }