loading tiles with type

Hi, Hope someone can help? I am doing a 2d break out type of game in blitz3d, and I have used an array to load my bricks, all works well.
my problem is, I want to use a type to load the graphic tiles,
I am using, Data 0,0,0,0,0 and so on to load the tiles, I do not want to change this if possible as I have the levels finished.
I have used some Ideas from another post in the the forums.



;setup the TypeArray.

Dim MapArray.TTile(ScreenWidth_For_Tiles,ScreenHeight_For_Tiles) ; made this to fit the screen resolution


;My level data

Data 0,0,0,0,0,0,0 and so on

Type TTile
Field frame[8]
Field x
Field y
End Type


For y = 0 To ScreenWidth_For_Tiles
For x = 0 To ScreenHeight_For_Tiles
MapArray(x,y)=New TTile
Next
Next

in my main loop this

DrawImage TileSet_Level_one,MapArray(x,y)

this does not work at all, could somone help me thanks.

Hmm. I don't know why you want to use a type for the graphic files. Are you loading a graphic for every individual tile or just have a pointer in each array entry to the graphic?

thanks for the reply Enay
yes I am using individual tiles.
well I made a grid using Data 0,1,0,2,3
loaded them in to array map(x,y)

I wanted to do it with Types, because I do not know how to
remove a block, from an array, when the ball hits the tile.

thought this was easy in the types ie. ( delete t )
for example.

I also have other types in the program my Bat,ball and so on. this would make Collision questions easy.

BTW to remove data from an array just do Dim array(20) for the full array or array(7) = 0 for one element in the array

> I wanted to do it with Types, because I do not
> know how to remove a block, from an array, when
> the ball hits the tile.

Well you don't need to remove it from the array to delete it. Just disable it. Use flags.
For example when a ball hits a block turn the flag off. If a tile doesn't exist then that level starts with a flag off.
So basically your level will be like a set of lights, they just get turned off when they are hit by a ball.

Do something like this:-

Graphics 640,480,16,2

SeedRnd MilliSecs()

; 16x16 grid then data/flag (0/1) as third entry

Dim grid(15,15,1)



For row = 0 To 15
	For column = 0 To 15
		; Fill each tile up with random info
		grid(row,column,0)=Rand(0,9)
		
		; Turn each flag on or off randomly
		grid(row,column,1)=Rand(0,1)
	Next
Next


Repeat
	; Flag check
	For row = 0 To 15
		For column = 0 To 15
			; Is the flag on?
			If grid(row,column,1)=1 Then
				; If so then draw it
				Color 0,Rand(100,255),0
				Rect (row*16),(column*16),16,16,1
			EndIf
		Next
	Next

	; Draw all the data
	For row = 0 To 15
		For column = 0 To 15
			Color 255,255,255
			; This proves the data is still there even if the tile isn't drawn	
			Text 4+(row*16),4+(column*16),grid(row,column,0)
		Next
	Next
Until KeyDown(1)