PixelSearch

[XMacGyver]

There are 4 boxes and lights up every moment and gone the color to one of them. I wrote a program that clicks igniting field using PixelSearch. Unfortunately, few of igniting a field many times, and has only once before it goes to another incendiary fields, which also has a click only once and so on. I've added to the Sleep and the program works better, but unfortunately fields inflaming rate speeds up and after a few correct light field moves too fast and you have to think of something else. The best function that will be clicked only once in each color lit before it goes on. I wrote something like below and click once as I wanted, but unfortunately after the one-click program longer did not click. What can you add or change in the code to make it work?

expandcollapse popup

Global $done = False

HotKeySet ("p", "Start")

Func Start()

While 1

$red = PixelSearch(36, 220, 970, 450, 0xE23838)
$blue = PixelSearch(36, 220, 970, 450, 0x0170BF, 15)
$green = PixelSearch(36, 220, 970, 450, 0x00BE21)
$yellow = PixelSearch(36, 220, 970, 450, 0xDCDE3F)

If IsArray($red) = 1 Then
    If Not $done Then
    MouseClick("left", $red[0], $red[1], 1, 1)
    $done = Not $done
EndIf
EndIf

If IsArray($blue) = 1 Then
    If Not $done Then
    MouseClick("left", $blue[0], $blue[1], 1, 1)
    $done = Not $done
EndIf
EndIf

If IsArray($green) = 1 Then
    If Not $done Then
    MouseClick("left", $green[0], $green[1], 1, 1)
    $done = Not $done
EndIf
EndIf

If IsArray($yellow) = 1 Then
    If Not $done Then
    MouseClick("left", $yellow[0], $yellow[1], 1, 1)
    $done = Not $done
EndIf
EndIf

Sleep(10)
WEnd

EndFunc

While 1
    Sleep(10)
WEnd

Edited November 29, 2014 by XMacGyver

[Melba23]

XMacGyver,

Welcome to the AutoIt forums.

That sounds very much like you are automating a game of some sort. If so, please read the Forum rules (there is also a link at bottom right of each page) before posting again. if not, then please explain exactly why you need to click on these "incendiary fields".

M23