Graphics3D 640,480,32,2
SetBuffer BackBuffer()
AppTitle "тест data"
light = CreateLight()
camera = CreateCamera()
PositionEntity camera,10,5,-3
texture = LoadTexture("tex.png")
texture2 = LoadTexture("tex2.png")

Restore level1
Read MapSize
Dim cube(MapSize,MapSize)
For j = 1 To MapSize
   For i = 1 To MapSize
    Read num
    Select num
     Case 1
      cube(j,i) = CreateCube()
      EntityTexture(cube(j,i), texture)
      PositionEntity (cube(j,i), i*2, 0, j*2)
     Case 0
      cube(j,i) = CreateCube()
      ScaleEntity (cube(j,i), 1, 1, 1)
      EntityTexture(cube(j,i),texture2)
      PositionEntity (cube(j,i), i*2, 0, j*2)
     Case 3
      cube(j,i) = CreateCube()
      ScaleEntity (cube(j,i), 1, 5, 1)
      EntityTexture(cube(j,i),texture2)
      ScaleTexture(texture2,5,5)
      PositionEntity (cube(j,i), i*2, 0, j*2)
    End Select
      
      
   Next
Next

While Not KeyHit(1)
   UpdateWorld
   RenderWorld
     
   Flip
     
Wend
End

.level1
Data 9
Data 1,1,1,1,1,1,1,1,1
Data 1,0,0,0,1,1,1,0,1
Data 1,0,3,0,1,1,1,3,1
Data 1,0,0,0,1,1,1,1,1
Data 1,1,1,1,1,0,1,0,1
Data 1,1,1,1,1,0,1,1,1
Data 1,1,1,1,1,1,1,0,1
Data 1,1,1,3,1,0,1,0,1
Data 1,1,1,1,1,1,1,1,1