Сейчас создам...
Сейчас создам...
..::Добавил::..
[blitz]
;Инициализация.
Graphics3D 640,480,32,2
Camera = CreateCamera ()
Light = CreateLight ()
SetBuffer BackBuffer()
PositionEntity Camera , 0 , 15 ,0
RotateEntity Camera , 60 , 0 , 0
Global x[10], y[10], Rotat, cube[10]
;Создаем кубики и делаем их начальное положение.
For i = 0 To 6
Cube[i] = CreateCube ()
PositionEntity Cube[i] , 0 , 0 , 3-(i*3)
Next
EntityColor Cube[0], 255,0,0
;---------------
While Not KeyDown (1)
;Меняем движение головы
If KeyHit (200) Then
a ()
MoveEntity cube[0], 0 , 0 , +3
End If
If KeyHit (20
Then
a ()
MoveEntity cube[0], 0 , 0 , -3 :
End If
If KeyHit (203) Then
a ()
MoveEntity cube[0], -3 , 0 , 0 :
End If
If KeyHit (205) Then
a ()
MoveEntity cube[0], +3 , 0 , 0 :
End If
UpdateWorld ()
RenderWorld ()
Flip ()
Wend
;а вот и самое главное
Function A ()
For i = 0 To 5
x[i] = EntityX (cube[i])
y[i] = EntityZ (cube[i])
Next
For i = 1 To 5
PositionEntity cube[i] , x[i-1] , 0 , y[i-1]
Next
End Function
[/blitz]