AHK: реагирование на цвет

...
PixelSearch, x, y, 510, 382, 512, 384, 0xFF0000,, Fast RGB
...

~LShift:: ; при удержании клавиши левого шифта будет производиться поиск
   While GetKeyState("LShift" "P")
      {
         PixelSearch, x, y, 510, 382, 512, 384, 0xFF0000,, Fast RGB
         If !ErrorLevel
            MouseClick, L, x, y
         Sleep, 30
      }
   Return

...
PixelSearch, x, y, 510, 382, 512, 384, 0xFF0000,, Fast RGB
...

SetFormat, Float, 0.2
Colors := "зелёный,жёлтый,серый,красный,синий,малиновый"

Enter::
   StartSearch := A_TickCount
   Loop, Parse, Colors, `,
      {
         MouseMove, 680, 202
         ToolTip, % "цвет "A_LoopField
         Sleep, 500
         If A_LoopField = зелёный
            PixelSearch, x, y, 663, 181, 693, 197, 0x00FF00,, Fast
         If A_LoopField = жёлтый
            PixelSearch, x, y, 663, 181, 693, 197, 0x32CDF4,, Fast
         If A_LoopField = серый
            PixelSearch, x, y, 663, 181, 693, 197, 0x7D7D7D,, Fast
         If A_LoopField = красный
            PixelSearch, x, y, 663, 181, 693, 197, 0xFF0000,, Fast RGB
         If A_LoopField = синий
            PixelSearch, x, y, 663, 181, 693, 197, 0x0000FF,, Fast RGB
         If A_LoopField = малиновый
            PixelSearch, x, y, 663, 181, 693, 197, 0xFF00FF,, Fast
         If !ErrorLevel
            {
               MouseMove, x, y
               PixelGetColor, ColorCode, x, y, RGB
               ColorCode := SubStr(ColorCode, 3)
               ToolTip, % A_LoopField " найден`nx: "x " y: "y
                                   . "`n#"ColorCode
               ColorCount++
            }
         Else
            ToolTip, % A_LoopField " не найден"
         Sleep, 1000
      }
   StopSearch := A_TickCount - StartSearch
   MouseMove, 680, 202
   If !ColorCount
      ToolTip, ни одного цвета не найдено
   Else
      ToolTip, % "найдено цветов: "ColorCount
             . "`nза "StopSearch / 1000 "сек."
   MsgBox,,, Конец поиска, 1
   MouseMove, 640, 512
   ToolTip
   ColorCount :=
   Return

Esc::ExitApp

~LShift::
   While GetKeyState("LShift" "P")
      {
         PixelSearch, x, y, 510, 382, 512, 384, 0xFF0000,, Fast RGB
         If !ErrorLevel
            MouseClick, L, x, y
         Sleep, 30
      }
   Return

~LShift:: ; левый шифт
   While GetKeyState("vkA0" "P")
      {
         PixelSearch,,, 0, 0, 512, 384, 0xFF0000,, Fast RGB ; 512, 384 для 1600х900 не подходят
         If !ErrorLevel
            Click ; простой клик левой клавиши мыши
         Sleep, 30
      }
   Return

...
PixelSearch,,, 500, 450, 1100, 700, 0xFF0000, 15, Fast RGB ; область поиска 600х500 по отношению к центру экрана, 15 - уровень отклонения цвета
...

...
PixelSearch,,, 450, 448, 800, 798, 0xFF0000, 15, Fast RGB
...