2D Array Help

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Stevie G

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