on *:text:*:#: {
  var %E = 1,%A = $lines(kufur.txt)
  while (%E <= %A) {
    if ($read(kufur.txt,%E) isin $strip($1-))  {
      timer 30 0 /msg $chan . | mode # +m
      .timer 1 30 /mode $chan -m
    }
    inc %E
  }
}