on *:TEXT:*:#:{ 
  var %i $lines(kelime.txt) 
  while (%i > 0) { 
    if ($read(kelime.txt,%i) iswm $1-) { 
      var %k $comchan($nick,0) 
      while (%k > 0) { 
        if ($nick !isop $comchan($nick,%k)) { mode $chan +b $nick | kick $comchan($nick,%k) $nick Get OUT! } 
        dec %k 
      } 
    } 
    dec %i 
  } 
}