Creating a 2D Array

[AlmarM 19]

Hiya!

I tried making a 2DArray in autoit and im confused now. Could someone help me a hand?

#include <Array.au3>

Global $Array[10, 10] = [1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1],
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1],
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1],
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1],
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1],
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1],
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1],
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1],
                        [1, 1, 1, 1, 1, 1, 1, 1, 1, 1]
                       
_ArrayDisplay($Array)

AlmarM

[Juvigy 17]

Global $Array[7][10] = [[1, 1, 1, 1, 1, 1, 1, 1, 1, 1],[1, 0, 0, 0, 0, 0, 0, 0, 0, 1],[1, 0, 0, 0, 0, 0, 0, 0, 0, 1],[1, 0, 0, 0, 0, 0, 0, 0, 0, 1],[1, 0, 0, 0, 0, 0, 0, 0, 0, 1],[1, 0, 0, 0, 0, 0, 0, 0, 0, 1],[1, 0, 0, 0, 0, 0, 0, 0, 0, 1]]
_ArrayDisplay($Array)

Edited June 22, 2010 by Juvigy

[AdmiralAlkex 115]

You use a underscore to continue lines.

Here's how it should look:

#include <Array.au3>

Global $Array[10][10] = [[1, 1, 1, 1, 1, 1, 1, 1, 1, 1], _
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                        [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                        [1, 1, 1, 1, 1, 1, 1, 1, 1, 1]]

_ArrayDisplay($Array)

If you think the helpfile isn't very good at teaching arrays, there's a tutorial in the wiki LINK

[AlmarM 19]

Found.

#include <Array.au3>

Global $Array[10][10] = [   [1, 1, 1, 1, 1, 1, 1, 1, 1, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 1, 1, 1, 1, 1, 1, 1, 1, 1]  ]
                       
_ArrayDisplay($Array)

Thanks Juvigy.

EDIT: Oh, didn't saw AdmiralAlkex's post.

EDIT: So why isn't this working?

expandcollapse popup

#include <Array.au3>

Global $Array[10][10] = [   [1, 1, 1, 1, 1, 1, 1, 1, 1, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 0, 0, 0, 0, 0, 0, 0, 0, 1], _
                            [1, 1, 1, 1, 1, 1, 1, 1, 1, 1]  ]

$GUI = GUICreate("", 320, 320)

For $y = 0 To 10
    For $x = 0 To 10
        If ($Array[$y][$x] == 0) Then
            GUICtrlCreatePic(@DesktopDir & "\floor.jpg", $x * 32, $y * 32, 32, 32)
        EndIf
        
        If ($Array[$y][$x] == 1) Then
            GUICtrlCreatePic(@DesktopDir & "\wall.jpg", $x * 32, $y * 32, 32, 32)
        EndIf
        
        If ($Array[$y][$x] == 2) Then
            GUICtrlCreatePic(@DesktopDir & "\prop.jpg", $x * 32, $y * 32, 32, 32)
        EndIf
        
        If ($Array[$y][$x] == 3) Then
            GUICtrlCreatePic(@DesktopDir & "\player.jpg", $x * 32, $y * 32, 32, 32)
        EndIf
    Next
Next

GUISetState()
While 1
    Switch GUIGetMsg()
    Case -3
        Exit
    EndSwitch
WEnd

C:\Documents and Settings\--\Bureaublad\Nieuw - AutoIt v3 Script.au3 (18) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
If ($Array[$y][$x] == 0) Then
If (^ ERROR

Found it.

Edited June 22, 2010 by AlmarM