find color with autoit script

nesbox-pokemon-red-blue-yellow-hunt.au3

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.5
 Author:         Paulo Tiago

 Script Function:
	find color and walk or atack
  into nesbox.com fullscreen running GBA pokemon red or blue or yellow

#ce ----------------------------------------------------------------------------

#include <MsgBoxConstants.au3>

;Opt("SendKeyDelay", 200) ;200 milliseconds

HotKeySet("{ESC}", "Terminate")
Func Terminate()
    Exit
EndFunc   ;==>Terminate

While 1
   verifyToAction()
   Sleep(200)
WEnd

Func verifyToAction()

   WinActivate("nesbox.com")

   ; Find a pixel grass
   Local $aCoord = PixelSearch(0, 0, 1278, 960, 0x7FBB71)
   If Not @error Then
	  ;MsgBox($MB_SYSTEMMODAL, "", "X and Y are: " & $aCoord[0] & "," & $aCoord[1])
	  walk()
	Else
	  ;MsgBox($MB_SYSTEMMODAL, "", "NOT FOUND PixelSearch(0, 0, 1278, 960, 0x7FBB71) ")
	  atack()
   EndIf

EndFunc


Func atack()
   Send("z")
   Sleep(1800)
   Send("z")
   Sleep(1800)
   Send("z")
   Sleep(1800)
   Send("z")
   Sleep(1800)
   Send("z")
   Sleep(1800)
   Send("z")
   Sleep(1800)
   Send("z")
   Sleep(1800)
   Send("z")
   Sleep(1800)
   Send("z")
   Sleep(1800)
EndFunc


Func walk()
   Send("{UP}")
   Send("{UP}")
   Send("{UP}")
   Send("{UP}")
   Sleep(800)
   Send("{UP}")
   Send("{UP}")
   Send("{UP}")
   Send("{UP}")
   Sleep(800)
   Send("{UP}")
   Send("{UP}")
   Send("{UP}")
   Send("{UP}")
   Sleep(800)
   Send("{DOWN}")
   Send("{DOWN}")
   Send("{DOWN}")
   Send("{DOWN}")
   Sleep(800)
   Send("{DOWN}")
   Send("{DOWN}")
   Send("{DOWN}")
   Send("{DOWN}")
   Sleep(800)
   Send("{DOWN}")
   Send("{DOWN}")
   Send("{DOWN}")
   Send("{DOWN}")
   Sleep(800)
   Send("{DOWN}")
   Send("{DOWN}")
   Send("{DOWN}")
   Send("{DOWN}")
   Sleep(800)
EndFunc