#include <AutoItConstants.au3>

HotKeySet("o", "Terminate")


While 1 ;Scan
	$detect1 = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0xFF1515)

    $detect2 = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0xFF4545)

    $detect3 = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0xFF4545)

	If IsArray($detect1) = True  Then
    Beep(200, 300)

	EndIf


   If IsArray($detect2) = True  Then
     Beep(200, 300)

	EndIf

If IsArray($detect3) = True  Then
     Beep(200, 300)

	EndIf


	Sleep(200)
WEnd



 Func Terminate()
	 Exit 1
 EndFunc