on *:text:*:#: {
   var %' $lines(kufur.txt)
   while ($read(kufur.txt, tn, %')) {
     if ($v1 iswm $1-) {
       ban -ku900 # $nick 2 sebeb
     }
     dec %' 
  }
}