What is wrong with my code?

[LuisPro]

While 1
    $box = PixelSearch(1530, 500, 1600, 1000, 0xDF3F3F)

    $atakowany = PixelGetColor($box[0], $box[1])
    If $atakowany <> 0xDF3F3F Then
        SoundPlay(@WindowsDir & "\media\tada.wav", 1)
    EndIf
    sleep(1000)
WEnd

 

point is: If a pixel in box change color, play alert

 

What is wrong with my code?

(6) : ==> Subscript used on non-accessible variable.:
$atakowany = PixelGetColor($box[0], $box[1])
$atakowany = PixelGetColor($box^ ERROR
->16:20:27 AutoIt3.exe ended.rc:1

[Trong]

Try:

While 1
    $box = PixelSearch(1530, 500, 1600, 1000, 0xDF3F3F)
;~  If Not @error Then
;~  If IsArray($box) Then
    If Not @error And IsArray($box) Then
        $atakowany = PixelGetColor($box[0], $box[1])
        If $atakowany <> 0xDF3F3F Then
            SoundPlay(@WindowsDir & "\media\tada.wav", 1)
        EndIf
    EndIf
    Sleep(1000)
WEnd

 

[BrewManNH]

This topic makes no sense to me.

Pixelsearch will return with an array ONLY when the pixel at that location is colored 0xDF3F3F. Why do you think that it would suddenly change color so that the PixelGetColor will return anything other than 0xDf3F3F? $atakowany is NEVER going to be <> than that color the way this is being written.

[Trong]

 

While 1
    $box = PixelSearch(1530, 500, 1600, 1000, 0xDF3F3F)
    If IsArray($box) Then SoundPlay(@WindowsDir & "\media\tada.wav", 1)
    Sleep(1000)
WEnd

 

[LuisPro]

6 minutes ago, Trong said:

Try:

While 1
    $box = PixelSearch(1530, 500, 1600, 1000, 0xDF3F3F)
;~  If Not @error Then
;~  If IsArray($box) Then
    If Not @error And IsArray($box) Then
        $atakowany = PixelGetColor($box[0], $box[1])
        If $atakowany <> 0xDF3F3F Then
            SoundPlay(@WindowsDir & "\media\tada.wav", 1)
        EndIf
    EndIf
    Sleep(1000)
WEnd

 

no errors but not working  ;/

when i testing = for <> its working ;s

 

5 minutes ago, BrewManNH said:

This topic makes no sense to me.

Pixelsearch will return with an array ONLY when the pixel at that location is colored 0xDF3F3F. Why do you think that it would suddenly change color so that the PixelGetColor will return anything other than 0xDf3F3F? $atakowany is NEVER going to be <> than that color the way this is being written.

like i said:

point is: in box is many pixels in color 0xDF3F3F in random posision . and if in box are total no pixel in color 0xDF3F3F  play alert.

[BrewManNH]

As I said above, if you're searching in an area for a certain color using PixelSearch, you will always get that color using the array returned by the PixelSearch because that is how the script is written, it will NEVER be anything other than the color you searched for AT THAT LOCATION.

[LuisPro]

1 minute ago, BrewManNH said:

As I said above, if you're searching in an area for a certain color using PixelSearch, you will always get that color using the array returned by the PixelSearch because that is how the script is written, it will NEVER be anything other than the color you searched for AT THAT LOCATION.

oh so if color of that pixel will change on my screen , than PixelSearch  will not refresh it in script? ok i understund now,. is any other way to do this?

[LuisPro]

23 minutes ago, Trong said:

 

While 1
    $box = PixelSearch(1530, 500, 1600, 1000, 0xDF3F3F)
    If IsArray($box) Then SoundPlay(@WindowsDir & "\media\tada.wav", 1)
    Sleep(1000)
WEnd

 

oh this is working but i need reversed version

i used this

While 1
    $box = PixelSearch(1530, 500, 1600, 1000, 0xDF3F3F)
    If IsArray($box) Then
        Sleep(100)
        Else
        SoundPlay(@WindowsDir & "\media\tada.wav", 1)
        EndIf
    Sleep(1000)
WEnd

its works now! can it stay like this? or is there any better way to make reversed @Trong code?

[Tumulus]

That should work fine, but you could try to simplify it and take out a few lines. IsArray returns 1 if the check is succesful or a 0 if not. So you could use that bool condition in your If statement instead of the whole function. Not too much different, but it would get rid of the need for an else statement.

$bCheck = IsArray($box)

If $bCheck = 0 Then
    SoundPlay(@WindowsDir & '\media\tada.wav', 1)

 

[LuisPro]

Final code:

While 1
$box = PixelSearch(1530, 500, 1600, 1000, 0xDF3F3F)
$bCheck = IsArray($box)

    If $bCheck = 0 Then
        SoundPlay(@WindowsDir & "\media\tada.wav", 1)
        EndIf
    Sleep(1000)
WEnd

 

Thanks you all for help.

[LuisPro]

Hello, i want to pimp up my script, got something like this:

While 1
$box = PixelSearch(1530, 500, 1600, 1000, 0xDF3F3F)
$bCheck = IsArray($box)

    If $bCheck = 0 Then
        SoundPlay(@WindowsDir & "\media\tada.wav", 1)
    EndIf
    Sleep(1000)
WEnd

While 2
        Send("{CTRLDOWN}{DOWN}{CTRLUP}")
        Sleep(100)
        Send("{CTRLDOWN}{LEFT}{CTRLUP}")
        Sleep(180000)
WEnd

First part: scan box all the time and do something

Second part: do something every 3 min

But i think i cant use it in this way, becouse second loop is not working.

I need to get first loop working like right now + independently do something every for example 3 min.

Edited May 18, 2016 by LuisPro

[mikell]

5 hours ago, LuisPro said:

But i think i cant use it in this way

Absolutely right.
Instead you could use a timer in the While 1 loop or have a look at AdlibRegister