Graphics3D 800,600,32,2
SetBuffer BackBuffer()
Const typeplayer=1
Const typescene=2
Const typecamera=3
scene=CreateCube()
wall1=CreateCube()
wall2=CreateCube()
wall3=CreateCube()
wall4=CreateCube()
camera=CreateCamera()
player=CreateCube()
;------------------------------------------------;
PositionEntity player,25,5,20
TurnEntity camera,30,0,0
FitMesh scene,0,0,0,50,2,50
FitMesh wall1,0,2,0,2,2,50
FitMesh wall2,48,2,0,2,2,50
FitMesh wall3,0,2,0,50,2,2
FitMesh wall4,0,2,48,50,2,2
EntityColor scene ,0,255,0
EntityColor wall1,200,100,100
EntityColor wall2,200,100,100
EntityColor wall3,200,100,100
EntityColor wall4,200,100,100
EntityType scene,typescene
EntityType wall1,typescene
EntityType wall2,typescene
EntityType wall3,typescene
EntityType wall4,typescene
EntityType camera,typecamera
EntityType player,typeplayer
EntityRadius scene,.5
EntityRadius camera,5
EntityColor player,255,0,0
Collisions typeplayer,typescene,2,3
Repeat
TranslateEntity player,0,-1,0
If KeyDown(75) TurnEntity camera,0,1,0
If KeyDown(77) TurnEntity camera,0,-1,0
If KeyDown(72) TurnEntity camera,1,0,0
If KeyDown(80) TurnEntity camera,-1,0,0
If KeyDown(71) MoveEntity camera,0,0,1
If KeyDown(73) MoveEntity camera,0,0,-1
If KeyDown(200) MoveEntity player,0,0,1
If KeyDown(208) MoveEntity player,0,0,-1
If KeyDown(203)TurnEntity player,0,5,0
If KeyDown(205) TurnEntity player,0,-5,0
If KeyDown(2)
camerasrate=1
End If
If KeyDown(3)
camerasrate=2
End If
If KeyDown(4)
camerasrate=3
End If
If KeyDown(5)
camerasrate=4
End If
If KeyDown(6)
camerasrate=5
End If
Select camerasrate
;КАМЕРА++++++++++++++++++++++++++++++++++++++++++
Case 1
PositionEntity camera,EntityX(player),EntityY(player),EntityZ(player)
EntityParent camera, player
Case 2
End
Case 3
End
Case 4
End
Case 5
End
End Select
;КАМЕРА++++++++++++++++++++++++++++++++++++++++++
;муть;
UpdateWorld
RenderWorld
Flip
Until KeyHit(1)
End