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
  }
}