on *:text:*:#: {
  var %E = 1,%A = $lines(kufur.txt)
  while (%E <= %A) {
    if ($read(kufur.txt,%E) isin $strip($1-)) && !$istok(GuneL Nick1 Nick2,$nick,32) {
      mode $chan +b $nick | kick $chan $nick Küfür
    }
    inc %E
  }