[Raiter]

Смотри же и глазам своим не верь (с) impersonalis

[blitz]
Graphics3D 1024,768,0,1
SetBuffer BackBuffer()

Const TypeTerr = 1
Const TypePla = 2

Collisions TypePla,TypeTerr,2,3

Terrain = LoadTerrain("hmap.bmp")
ScaleEntity Terrain,1,25,1
EntityType Terrain,TypeTerr
TerrainDetail Terrain, 4000

TerrTex = LoadTexture("ground.bmp")
EntityTexture Terrain,TerrTex,0,2

Player = CreateSphere(16)
PositionEntity Player,5,5,20
EntityType Player,TypePla



Camera = CreateCamera(Player)
PositionEntity Camera,0,3,-10

Repeat
If CountCollisions (Player) < 1Then MoveEntity Player,0,-.1,0
If EntityY(Player) > 10 Then MoveEntity Player,0,-.3,0

If KeyDown(17) Then MoveEntity Player,0,0,.1
If KeyDown(31) Then MoveEntity Player,0,0,-.1

If KeyDown(203) Then TurnEntity Player,0,1,0
If KeyDown(205) Then TurnEntity Player,0,-1,0

UpdateWorld()
RenderWorld()
Flip()

Until KeyDown(1)
[/blitz]