вот, наваял за 5 мин пример с 2д. в 3д сам переведеш.
Graphics 640,480,16,2
SetBuffer BackBuffer()
Dim m(17,17)
SeedRnd MilliSecs()
For i=0 To 17
m(i,0)=1
m(0,i)=1
m(i,17)=1
m(17,1)=1
Next
For i=1 To 16
For j=1 To 16
m(i,j)=Rand(0,1)
Next
Next
m(1,1)=0
px=1:py=1
While Not KeyDown(1)
Cls
Color 255,0,0
Rect px*16,py*16,16,16,1
Color 0,255,0
For i=1 To 16
For j=1 To 16
If m(i,j) Then Rect i*16,j*16,16,16,1
Next
Next
If KeyHit(203) And m(px-1,py)=0 Then px=px-1
If KeyHit(205) And m(px+1,py)=0 Then px=px+1
If KeyHit(208) And m(px,py+1)=0 Then py=py+1
If KeyHit(200) And m(px,py-1)=0 Then py=py-1
Flip
Wend