Limitless Array

Type tilemap

	Field tset:TImage,tiles:tile[,,]	
	
	Function Create:tilemap(tsx:Int,tsy:Int,timg$,tnumx:Int,tnumy:Int,frms:Int)
		
		Local tm:tilemap=New tilemap
			tm.tset=LoadAnimImage(timg$,tsx,tsy,0,frms)	
			tm.tiles=New tile[tnumx,tnumy,11]
								
		For Local l:Int=1 To 10
			For Local x:Int=0 To tnumx-1
				For Local y:Int=0 To tnumy-1								
					tm.tiles[x,y,l]=New tile									
				Next
			Next
		Next
		
		Return tm					
		
	End Function
	
	Function Resize:tilemap(tnumx:Int,tnumy:Int)	
	
		Local tm:tile=New tile
			tm.tile=tm.tile[tnumx,tnumy,11]	
		Return tm						
		
	End Function

End Type

with the Draw() method taken out as it's big.