What's wrong here

[Makalele]

Hi! I got a basic issue with array. Dunno what's wrong here:

Dim $pixeldata[100][4] 

$pixelcount=0

func PixelDataErase()
    for $q1=0 to 99
        for $q2=0 to 3
            $pixeldata[$q1][$q2]=0
        next
    next
    $pixelcount=0
endfunc

And there's an error:

D:\Dokumenty\AutoIt\DrognanShopBot\drognan_sb.au3 (451) : ==> Expected a "=" operator in assignment statement.:
$pixeldata[$q1][$q2]=0
$pixeldata^ ERROR

PLZ Help. Thanks a lot

[water]

The code snippet you provided runns fine here (Autoit 3.3.6.0).

Your script seems to be much larger - did you redefine $pixeldata somewhere?

What version of AutoIt do you run?

[KaFu]

How about this?

Func PixelDataErase()
    Dim $pixeldata[UBound($pixeldata)][UBound($pixeldata,2)]
EndFunc   ;==>PixelDataErase

[Makalele]

The code snippet you provided runns fine here (Autoit 3.3.6.0).

Your script seems to be much larger - did you redefine $pixeldata somewhere?

What version of AutoIt do you run?

Yep, my script is much longer but this is just new thing used in only one function:

expandcollapse popup

Func Scan2()
    
    $Wand = 2187742
    $Staff = 6535754
    $Scepter = 16766810
    
    $ItemBlock = 5394861
    
    PixelDataErase()
    
    for $sy=$ShopScanY1 to $ShopScanY2
        for $sx=$ShopScanX1 to $ShopScanX2
            If ToScan($sx,$sy) Then
                $pixel = PixelGetColor($sx,$sy)
                If ($pixel=$Wand OR $pixel=$Staff OR $pixel=$Scepter) Then
                    
                    $pixeldata[$pixelcount][0]=$sx
                    $pixeldata[$pixelcount][1]=$sy
                    
                    $px=$sx
                    $py=$sy
                    
                    While PixelGetColor($px,$sy)=$pixel
                        $px+=1
                    WEnd
                    
                    While PixelGetColor($sx,$py)=$pixel
                        $py+=1
                    WEnd
                    
                    $pixeldata[$pixelcount][2]=$px-$sx
                    $pixeldata[$pixelcount][3]=$py-$sy
                    
                    $pixelcount+=1
                EndIf
            endif
        next
    next
    
EndFunc

How about this?

Func PixelDataErase()
    Dim $pixeldata[UBound($pixeldata)][UBound($pixeldata,2)]
EndFunc   ;==>PixelDataErase

doesn't work :/

D:\Dokumenty\AutoIt\DrognanShopBot\drognan_sb.au3 (455) : ==> Array variable subscript badly formatted.:
Dim $pixeldata[UBound($pixeldata)][UBound($pixeldata,2)]
Dim $pixeldata[^ ERROR

[Nurav]

it is running perfectly fine here

array.au3 is included? I am just guessing - reinstallation of autoit will help?

[KaFu]

Hard to say without seeing the rest... try this...

expandcollapse popup

Func Scan2()

    $Wand = 2187742
    $Staff = 6535754
    $Scepter = 16766810
    $ItemBlock = 5394861

    $pixelcount = 0
    Local $pixeldata[($ShopScanY2-$ShopScanY1)*($ShopScanX2-$ShopScanX1)][4]

    For $sy = $ShopScanY1 To $ShopScanY2
        For $sx = $ShopScanX1 To $ShopScanX2
            If ToScan($sx, $sy) Then
                $pixel = PixelGetColor($sx, $sy)
                If ($pixel = $Wand Or $pixel = $Staff Or $pixel = $Scepter) Then

                    $pixeldata[$pixelcount][0] = $sx
                    $pixeldata[$pixelcount][1] = $sy

                    $px = $sx
                    $py = $sy

                    While PixelGetColor($px, $sy) = $pixel
                        $px += 1
                    WEnd

                    While PixelGetColor($sx, $py) = $pixel
                        $py += 1
                    WEnd

                    $pixeldata[$pixelcount][2] = $px - $sx
                    $pixeldata[$pixelcount][3] = $py - $sy

                    $pixelcount += 1

                EndIf
            EndIf
        Next
    Next

    Return $pixeldata

EndFunc   ;==>Scan2

[Makalele]

Rotfl i found it

Dim can't be inside code. It has to be on start Thank you anyway. Topic can be closed