on *:text:*:#: {
  var %i = 1, %ara
  while ($read(dosya.txt,%i)) {
    %ara = $v1
    var %bak = $regsubex(%ara,/([\\\^\$\.\|\?\*\+\(\)\[\]\{\}])/g,\\\1)
    if ($regex($1-,/\b $+ %bak $+ \b/i)) {
      echo -caet # $nick kanalında belirlediğiniz $+(ifade,$chr(40),%ara,$chr(41)) ifadesini kullandı.
      break
    }
    inc %i
  }
}

on *:text:*:#:{
  var %file = $mircdir\dosya.txt
  if (!$isfile(%file)) return

  var %msg = $lower($1-)
  var %i = 1, %line, %word, %tok

  while ($read(%file,%i)) {
    %line = $read(%file,%i)
    if (%line == $null) break

    if ($left(%line,3) == $chr(239) $+ $chr(187) $+ $chr(191)) {
      %line = $right(%line,$calc($len(%line)-3))
    }

    %line = $remove(%line,$chr(13),$chr(10))
    %line = $lower(%line)

    var %tok = 1
    while ($gettok(%line,%tok,32)) {
      %word = $gettok(%line,%tok,32)
      if ($pos(%msg,%word)) {
        if (!$window(@Uyarilar)) window -en @Uyarilar
        aline @Uyarilar [ $time(HH:nn) ] < $nick > $1-
        return
      }
      inc %tok
    }
    inc %i
  }
}