on *:text:*:#: {
   var %i = 1
   while (%i <= $lines(kufur.txt)) {
     if ($read(kufur.txt, tn, %i) iswm $1-) {
       ban -ku900 # $nick 2 sebeb
       break
     }
     inc %i
   }
}