$k = 0
 While 2
 HotKeySet("{ESC}", "Terminate")
 HotKeySet("{5}", "go")
 WEnd

Func go()
   Send("{Space down}")
   While 1
	If PixelGetColor(445,730) = 0xC72C24 And $k = 0 Then
	   Send("{1}")
	   $k += 1
    EndIf
	If PixelGetColor(445,730) = 0x181818 And $k = 1 Then
	   Send("{2}")
	   $k += 1
    EndIf
	If PixelGetColor(477,730) = Not 0xC72C24 And $k = 2 Then
	   Send("{3}")
	   $k += 1
    EndIf
	If PixelGetColor(509,730) = Not 0xC72C24 And $k = 3 Then
	   Send("{4}")
	   $k += 1
    EndIf
	If PixelGetColor(541,730) = Not 0xC72C24 And $k = 4 Then
	   Send("{F2}")
	   $k += 1
    EndIf
	If PixelGetColor(619,730) = Not 0xC72C24 And $k = 5 Then
	   Send("{F3}")
	   $k += 1
    EndIf
	If PixelGetColor(651,730) = Not 0xC72C24 And $k = 6 Then
	   Send("{F4}")
	   $k += 1
    EndIf

	  Send("{F1}")
	  Sleep(2000)
   WEnd
EndFunc

Func Terminate()
    Exit 0
 EndFunc   ;==>Terminate