Loops 'n WEnds

[danner]

Ok, the problem is in Line 46, because the error states the WEnd shouldn't be there somehow.

What I want is, to loop from the first While to the last, but IF PixelGetColor is any other then the displayed Hex, then ti needs to re-do that loop over and over untill it's back into the origoinal color.

Little help anyone?

Script:

WinWaitActive($Window)

    While WinExists($Window)
        
        While WinActive($Window)
            Sleep(100)
            Send("{TAB}")
            Sleep(100)
            Send("{SPACE}")
            Sleep(12000)
            Send("{SPACE}")
            Sleep(4000)
            Send("{SPACE}")
            Sleep(3000)
            Send("{SPACE}")
            Sleep(3000)
    
            While 1 
                If PixelGetColor(117,45) <> 0xE25A54 Then
                    Send("{2}")
                    Sleep(100)
                Else ExitLoop
            WEnd
   
            
        WEnd
        
        Sleep(200)
        
    WEnd

[Somerset]

WinWaitActive($Window)

    While WinExists($Window)
       
        While WinActive($Window)
            Sleep(100)
            Send("{TAB}")
            Sleep(100)
            Send("{SPACE}")
            Sleep(12000)
            Send("{SPACE}")
            Sleep(4000)
            Send("{SPACE}")
            Sleep(3000)
            Send("{SPACE}")
            Sleep(3000)
   
            While 1 
                If PixelGetColor(117,45) <> 0xE25A54 Then
                    Send("{2}")
                    Sleep(100)
                Else 
                    ExitLoop
                endif
            WEnd
   
           
        WEnd
       
        Sleep(200)
       
    WEnd

try

[danner]

Lol just found out myself while reading that i forgot my endif, thanks

[danner]

Somehow it didn't work perfectly, so changed it to this:

while 1
        If PixelGetColor(117,45) <> 0xE25A54 Then
            Send("2")
            Sleep(2000)
        Else 
            Sleep(100)
            Send("{TAB}")
            Sleep(100)
            Send("{SPACE}")
            Sleep(10000)
            Send("{SPACE}")
            Sleep(3500)
            Send("{SPACE}")
            Sleep(2500)
            Send("{SPACE}")
            Sleep(2500)
        EndIf
    WEnd

Can't test it just yet, but this SHOULD work right? I mean press 2 when the color is different, and if not do the long loop...

[Shevilie]

Yes if the color is not (the color you have choosen) then it sends 2 and wait 2 seconds.. and it will do that until the color is the one you specified... then it will take the long loop (and do that until it changes again) etc etc etc

[Paulie]

Somehow it didn't work perfectly, so changed it to this:

expandcollapse popup

while 1
        If PixelGetColor(117,45) <> 0xE25A54 Then
            Send("2")
            Sleep(2000)
        Else 
            Sleep(100)
            Send("{TAB}")
            Sleep(100)
            Send("{SPACE}")
            Sleep(10000)
            Send("{SPACE}")
            Sleep(3500)
            Send("{SPACE}")
            Sleep(2500)
            Send("{SPACE}")
            Sleep(2500)
        EndIf
    WEndoÝ÷ Ø&§ßÛmzËb¶;¬·'­nëm+å
+¸ Ò&y©é­ë,Û^Ø^rh®+÷Þ­éíjwb~z-vazZ'Z(§ú®¢×rÛ§¢'hmmébz÷­«pYp¢¹jËmgrçO¥ëB¢Z+­ën­çmæÃ"¿Û½©nzíç(Úܨ¹ªÞr©j¸§+m w±¶¼­+ºÚ"µÍÚ[HBBRY^[Ù]ÛÛÜLMË

JH  ÉÝÈXÊLPMM
H[Õ]ÚÝ[ÛÜÂBBTÙ[
    ][ÝÌ][ÝÊBBBTÛY

BBQ[ÙHBBTÛY
L
BBBTÙ[
    ][ÝÞÕPI][ÝÊBBBTÛY
L
BBBTÙ[
    ][ÝÞÔÔPÑ_I][ÝÊBBBTÛY
L
BBBTÙ[
    ][ÝÞÔÔPÑ_I][ÝÊBBBTÛY
ÍL
BBBTÙ[
    ][ÝÞÔÔPÑ_I][ÝÊBBBTÛY
L
BBBTÙ[
    ][ÝÞÔÔPÑ_I][ÝÊBBBTÛY
L
BBQ[YUÑ[

[Shevilie]

Correct - My sleepness...

From docs

Success: Returns decimal value of pixel's color.

[Helge]

$nGUIColor = 0xFF00FF

GUICreate("", 10, 10, 0, 0, 0x80000000)
GUISetBkColor($nGUIColor)
GUISetState()

$nGetColor = PixelGetColor(5, 5)

MsgBox(64, "", _
"GUI : " & $nGUIColor & @CRLF & _
"GET : " & $nGetColor & @CRLF & @CRLF & _
"Equal : " & ($nGUIColor = $nGetColor))

Edited April 9, 2007 by Helge

[PsaltyDS]

Actually, no i don't believe that will work.

Last time I checked, PixelGetColor retured the DECIMAL value of the color. and you are comparing it to Hex

You don't actually have to worry about that in this situation. Number formatting is significant when humans are typing, reading, or printing numbers, not in programs comparing them. Demo:

$Hex = 0x10
$Dec = 16

If $Dec = 0x10 And $Hex = 16 Then
    MsgBox(64, "Match", "Match")
Else
    MsgBox(16, "No Match", "No Match")
EndIf

[therks]

Just in case Psalty's post was a bit vague, I just wanted to specifically and conspicuously point out that when you prefix a number with 0x and it's not inside a string, it evaluates that number as a decimal number.

So in Psalty's example above, both $Hex and $Dec are equal to eachother. 0x10 = 16, just like 0xF = 15, 0xFF = 255, etc.

Just try: MsgBox(0, 'Hex', 0xBEEFED); And you should get 12513261.

Remember not to wrap in quotes though. Cus MsgBox(0, 'Hex', '0xBEEFED') will just print 0xBEEFED.

Dec(0xE25A54) is functionally equivalent to Dec(14834260) (Which is obviously redundant )