Returning the size on Multi-Dimensional Arrays

Strict

Import mojo

Class MyApp Extends App

	Field grid:Int[][][]
	
	

	Method OnCreate:Int()
		SetUpdateRate(60)
		
		grid = grid.Resize(5)
	
		For Local i:Int = 0 Until grid.Length()
			grid[i] = New Int[8][]
			For Local j:Int= 0 to 7
				grid[i][j] = New Int[8]
			End
		End
		
		 For Local h:Int = 0 To 4
			For Local i:Int = 0 to 7
				For Local j:Int = 0 to 7
					If (i=0) Or (j=0) Or (i=7) Or (j=7)
						grid[h][i][j] = 1
					Else
						grid[h][i][j] = h
					End
				End
			End
		End
		
		Return(0)
	End
	
	Method OnUpdate:Int()
		
		Return(0)
	End
	
	Method OnRender:Int()
		Cls(0,0,0)
		SetColor(255,255,255)
		For Local i:Int = 0 To 7
			For Local j:Int = 0 To 7
				DrawText(grid[4][i][j],i*16,j*16)
			End
		End
		
		DrawText(grid[0].Length(),200,0)
		DrawText(grid[1].Length(),200,16)
		DrawText(grid[2].Length(),200,32)
		DrawText(grid[3].Length(),200,48)
		DrawText(grid[4].Length(),200,64)
		
	
		Return(0)
	End
	
End

Function Main:Int()
	New MyApp
	Return(0)
End