Little help with color recognating script

[R4WR]

Hello,

I am kinda new to all the scripting (still a newbie) and I needed some help with following script:

What I need to to do is:

- check pixel color --> (color = 0x214252 ; pixel = 470, 667) --> if so keep right clicking it (repeat)

- untill it changes --> then Alt tab, click (pixel = 494, 475), Alt tab (back to 1st window), moove mouse to go and check pixel again (pixel = 470, 667)

Im not sure about: PixelGetColor, PixelGetPos, Alt+Tab and the overall scripting interpretation (since im new ot this)

CODE

HotKeySet("{DELETE}", "Stop") ;script can be stopped by pressing DELETE

$Color = PixelGetColor ("0x214252"); check if pixel has got certain color

While 1 ;repeat endlessly

If $Color = 1 ;pixel has color 0x214252

Then

MouseClick ( "right", 470, 667, 1 , 2 )

Sleep ("600")

If $Color = 0 ;pixel has other color

Then

Send ("Alt+Tab") ;is Alt+Tab put in right?

Sleep("600")

Mouseclick ( "left", 494, 475, 1, 2)

Send("Alt+Tab")

Sleep("600")

MouseGetPos (470, 667) ;mouse goes back to position for colorcheck

WEnd ;repeat

Func Stop() ;to allow the script to stop

Exit ;same

EndFunc ;same

[spudw2k]

Keystrokes that are function keys (tab,ctrl,enter,etc..) should be surrounded by brackets.

Send("{ALT}+{TAB}")

Edited March 25, 2008 by spudw2k

[Paulie]

You are all screwed up

try this

HotKeySet("{DELETE}", "Stop") ;script can be stopped by pressing DELETE

While 1 ;repeat indefinitly
    $Color = PixelGetColor (470,667); get decimal color value of pixel (470,667)
    If $Color = 0x214252 then ; compare color to 0x214252  and if it is the same then
        MouseClick ( "right", 470, 667, 1 ,0 );rightclick on the pixel
        Sleep(600) ; wait for 6/10 of a second
    Else ; if its not the same
        Send("!{TAB}");send Alt+Tab
        Sleep(600);wait
        Mouseclick ( "left", 494, 475, 1, 2) ; leftclick on (494,475)
        Sleep(600); wait again
    EndIf
WEnd ; repeat


Func Stop() ;to allow the script to stop
    Exit ;same
EndFunc ;same

Edited March 25, 2008 by Paulie

[Jos]

For the record: your Sleep("600") are wrong too, should be Sleep(600) if you want your script to pause for 600ms.

[R4WR]

Thank you all so much :-D

Damn, I wanna study this too so I can learn how to do this without having to ask help.

But, I guess I didn't do too bad for the first try. :-)

I'll let u know if it worked how I expected it to work

Grtz, anna

[R4WR]

after some minor changes (sleep times and stuff) it worked

a next accomplishment wud be to do this minimised... feel free to hook me up, but its not necesaraly.

HotKeySet("{DELETE}", "Stop") ;script can be stopped by pressing DELETE

While 1 ;repeat indefinitly
    $Color = PixelGetColor (470,667); get decimal color value of pixel (470,667)
    If $Color = 0x214252 then ; compare color to 0x214252  and if it is the same then
        MouseClick ( "right", 470, 667, 1 ,0 ) ; rightclick on the pixel
        Sleep(600) ; wait for 6/10 of a second
    Else ; if its not the same
        Send("!{TAB}");send Alt+Tab
        Sleep(600);wait
        Mouseclick ( "left", 494, 475, 1, 2) ; leftclick on (494,475)
        Sleep(1600);wait
        Mouseclick ( "right", 250, 20, 1, 2) ; rightclick on (250, 20)
        Sleep(1600);wait
        Send("!{TAB}");send Alt+Tab
        Sleep(6000); wait again
    EndIf
WEnd ; repeat


Func Stop() ;to allow the script to stop
    Exit ;same
EndFunc ;same

Grtz, and thx again