foodrun-4-1.au3

WinActivate("The Food Run")
While 1=1
   if(WinActive("The Food Run")) Then
	  Send("{RIGHT}")
	  Sleep(4000)
	  Send("R")
	  Sleep(3000)
	  EndIf
WEnd