Нажатие клавиши по появлении определенной строки в файле

name = chatlog.txt
Loop
{
FileGetSize, old_s, %Name%
   new_s := old_s
   while old_s = new_s {
      sleep 500
      FileGetSize, new_s, %Name%
   }
StringCaseSense, Locale
FindWords := "Объявление" 
Loop, Parse, FindWords, `, 
   {
      FileRead, OutPutVar, %A_ScriptDir%\chatlog.txt
      IfInString, OutPutVar, % A_LoopField
         {
            CurrentWord := % A_LoopField
            FoundWords .= ", "CurrentWord
            FoundWordsNum++
         }
   }
StringTrimLeft, FoundWords2, FoundWords, 1
StringTrimLeft, CountEmptyStringNum2, CountEmptyStringNum, 1
If !CurrentWord
   FileAppend, Not Detect (%A_Index%)`n, log.log
   {
   Send, {Shift Down}
   Sleep, 10
   Send, {Shift Up}
   }
 
}
return
F5::
ExitApp

StringCaseSense, Locale
name = chatlog.txt
loop
{
   FileGetSize, old, %Name%
   new := old
   while old = new
   {
      sleep 500
      FileGetSize, new, %Name%
   }
   Loop, read, chatlog.txt

       last_line := A_LoopReadLine

   IfInString, %last_line%, Следуйте к красному маячку на радаре
   {
      Fileappend, %last_line%`n`r, debug.txt
      Send {z down}
      sleep 10
      send {z up}
   }
   IfInString, %Last_line%, Осталось точек
   {
      fileappend, %last_line%`n`r, debug.txt
      sleep 100
      Send {z down}
      sleep 10
      send {z up}
   }
   IfInString, %last_line%, стоянку и получите
   {
      fileappend, %Last_line%, debug.txt
      Sleep 100
      send {z down}
      sleep 10
      send {z up}
   }
   ifinstring, %last_line%, следующий рейс
   {
    fileappend, %last_line%, debug.txt
    sleep 1000
    send {f6}/duty{enter}
    sleep 1000
    send {z down}
    sleep 10
    send {z up}
}

...
Loop, read, chatlog.txt
   if A_LoopReadLine
      last_line := A_LoopReadLine
...

IfInString, %last_line%, строка которую нужно найти

Loop, read, chatlog.txt
   if A_LoopReadLine
      last_line := A_LoopReadLine

ButtonStart:
StringCaseSense, Locale
name = chatlog.txt
loop
{
lastline := GetNewLine(name)
IfInString, lastline, Следуйте к красному маячку на радаре
{
Fileappend, %lastline%`n`r, debug.txt
Sendplay z
}
IfInString, Lastline, Осталось точек
{
fileappend, %lastline%`n`r, debug.txt
sleep 1500
;Sendplay {z down}
;sleep 100
Sendplay z 
}
IfInString, lastline, стоянку и получите
{
fileappend, %Lastline%`n, debug.txt
Sleep 1500
Sendplay z
}
ifinstring, lastline, следующий рейс
{
fileappend, %lastline%`n, debug.txt
sleep 1500
Sendplay {f6}/duty{enter}
sleep 1200
Sendplay z
}
}

GetNewLine(filename)
{
   static old
   static new
   if !old
   {
      FileGetSize, old, %filename%
	  new := old
   }
   while old = new
   {
      sleep 500
      FileGetSize, new, %filename%
   }
   old := new
   Loop, read, %filename%
      if A_LoopReadLine
         last := A_LoopReadLine
   return last
}