alias kekle { 
  if $1 { 
    if $read(kufur.txt,w,$1) { 
      echo -at $1 kelimesi zaten listede. 
      return 
    } 
    else { 
      write kufur.txt $1 
      echo -at $1 kelimesi listeye eklendi. 
    } 
  } 
}
alias ksil { 
  if $1 { 
    if !$read(kufur.txt,w,$1) { 
      echo -st $1 kelimesi listede yok. 
      return 
    } 
    else { 
      write $+(-dl,$readn) kufur.txt 
      echo -st $1 kelimesi kufur listesinden silindi. 
    } 
  } 
}
alias klist { 
  var %s = 1,%ss = $lines(kufur.txt) 
  while %s <= %ss {
    echo -a Kelime: $read(kufur.txt,%s) 
    inc %s 
  } 
} 
on @*:text:*:#: { 
  var %s = 1,%ss = $lines(kufur.txt) | while %s <= %ss { 
    if $+(*,$read(kufur.txt,%s),*) iswm $1- { 
  msg #bilgikanalı BILGI: $chan kanalında $nick Kötü kelime kullandı: Kullanılan kelime [ $read(kufur.txt,%s) ] } | inc %s }
}