2D Array Help

I'm making a game like BREAKOUT but I don't know the best way to set up a 2D array of blocks. I thought of something like this but I don't know if it is that efficient and worth going through the trouble to make.

;Here some of my code

;a type to handle the blocks

Type BlockType

Field x,y ;coordinates

End Type

;creates a block row 'DUH'

Function CreateBlockRow(x,y)

maxBlocks = 8
x_spacing = 100

For i = 0 To maxBlocks

block.BlockType = New BlockType
block\x = x
block\y = y

[draw the block image here]

x = x + x_spacing;the blocks won't be very wide

Next

End Function

Function SetupBlocks()

block_rows = 3

y_gap = 0 ;once again,blocks are not very big

For ii = 0 to block_rows

CreateBlockRow(10,y_gap)

y_gap = y_gap + 150

Next

End Function

sorry I forgot to comment my code :(

Try and use a code/codebox block, as well as indent your code. See here:
Forum Codes

I really don't think you need to use an array for your bricks. Just use Types like you have done above.

It would be best to set up something like values for each color\type of block. So you wouldn't need to use types, you'd just go through the array and:

TotalBlocksX = 16 ;16 blocks width-wise, where each image should have 40 pixels in width.
TotalBlocksY = 7 ;7 rows of blocks, each one having 40 pixels too in height. 

 Dim Blocks(TotalBlocksX,TotalBlocksY) 



Restore Level_1

For W = 0 To TotalBlocksX-1
      For H = 0 To TotalBlocksY-1
            Read Blocks(W,H)
      Next
Next

.Level_1 
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1
Data 1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1
Data 1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1
Data 1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Then you could have differente block images for each color\type of block (the main reason for keeping different coloured blocks is, besides being able to draw "pictures" every level and make nice mozaics\patterns with the blocks, enabling items to fall down; each item depending on the block type, of course. There also can be different hardness between the block colors, so as to have blocks that need more than one hit to break).

In order to draw the blocks, judging you'd have 3 types of blocks:

For W = 0 To TotalBlocksX-1
      For H = 0 To TotalBlocksY-1
    
            Select Blocks(W,H)
                       Case 0
                                DrawImage Block1,W*40,H*40
                       Case 1
                                DrawImage Block2,W*40,H*40
                       Case 2
                                DrawImage Block3,W*40,H*40 
           End Select
      
      Next
Next

That code is awsome!!! How did you come up with that?????

How would you use that style of setting up blocks with Types instead of arrays?

p.s Sorry I haven't been really used to advance blitz programming (I'm a Visual Studio Developer).

TotalBlocksX = 16 ;16 blocks width-wise, where each image should have 40 pixels in width.
TotalBlocksY = 7 ;7 rows of blocks, each one having 40 pixels too in height. 
Type BlockT
	Field x
	Field y
	Field ID
End Type
Dim Blocks.BlockT(TotalBlocksX,TotalBlocksY) 


Restore Level_1

For W = 0 To TotalBlocksX-1
      For H = 0 To TotalBlocksY-1
			Blocks(W,H) = New BlockT
            Read Blocks(W,H)\ID
			Blocks(W,H)\x = W
			Blocks(W,H)\y = H
      Next
Next

.Level_1 
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1
Data 1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1
Data 1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1
Data 1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Awsome. Thanks everybody.