Вот весь код программы может кто знает в чём дело?У вас нет такого глюка? Graphics3D 1280,1024,32,1
SetBuffer BackBuffer()
Dim aMap(20,20)
Dim aCube(20,20)
Const TypePlayer = 1, TypeWall = 2
Global player=CreateSphere()
PositionEntity player,6, 0.1, 5
TurnEntity player,0,0,0
EntityRadius player, 1.5
EntityType player, TypePlayer
cam=CreateCamera(player)
light=CreateLight(1)
PositionEntity light, 1,1,1
Global Floortex=LoadTexture("floor.jpg")
Floor1=CreatePlane()
PositionEntity Floor1,0,-1,0
EntityTexture Floor1, floortex
Global skytex=LoadTexture("ceil.jpg")
ceiling=CreatePlane()
PositionEntity ceiling,0,1,0
EntityTexture ceiling, skytex
TurnEntity ceiling, 0,0,180
mapSize% = 20
filein = ReadFile("level1.map")
mapLines = 1
While Not Eof(filein)
mapStr$ = ReadLine$( filein )
For i=1 To MapSize
aMap(mapLines,i) = Int( Mid(mapStr,i,1 ))
Next
mapLines = mapLines + 1
Wend
CloseFile(filein)
tex = LoadTexture ("tex1.jpg")
For j=1 To mapSize
For i=1 To mapSize
If aMap(j,i) = 1
aCube(j,i)=CreateCube()
EntityTexture aCube(j,i), tex
PositionEntity aCube(j,i), i*2, 0, j*2
EntityType aCube(j,i), TypeWall
EndIf
Next
Next
Collisions TypePlayer, TypeWall, 3, 2
While Not KeyDown( 1 )
TurnEntity light, 0,1,0
If KeyDown(17) MoveEntity player, 0,0, .05
If KeyDown(31) MoveEntity player, 0,0, -.05
If KeyDown(30) TurnEntity player, 0,2,0
If KeyDown(32) TurnEntity player, 0,-2,0
RenderWorld
UpdateWorld
Flip
Wend
