[Crystal]

Да не пашет нифига!

derevo = LoadAnimMesh("giii.b3d")
Global rx# = 10
Global rz# = 0
Global ang = 90
Repeat
PositionEntity derevo, rx#, -8, rz#
RotateEntity derevo, 0, ang + 90, 0
If KeyDown(200)
;Если нажата клавиша "вверх" и робот стоит на месте, то задаем
; анимационную последовательность 1 (бег),
; тип анимации - зацикленная (1), скорость - 0.5,
; количество промежуточных фаз - 10
If AnimSeq(derevo) = 0 Then Animate derevo, 1, 0.5, 1, 10
rx# = rx# + Cos(ang) * 0.5
rz# = rz# + Sin(ang) * 0.5
Else
;Если клавиша "вверх" не нажата и робот бежит, то задаем
; анимационную последовательность 0 (стоять на месте),
; тип анимации - пинг-понг (2), скорость - 1,
; количество промежуточных фаз - 10
If AnimSeq(derevo)=1 Then Animate derevo, 2, 1, 0, 10
End If
If KeyDown(203) Then ang = ang + 5
If KeyDown (205) Then ang = ang - 5
If KeyDown(1) Then Exit