до цикла пишешь,
твой персонаж=LoadAnimMesh("путь к персу\перс.b3d")
ExtractAnimSeq( твой персонаж,первый кадр,последний кадр,название секвенции)
ExtractAnimSeq( твой персонаж,первый кадр,последний кадр,название секвенции)
ExtractAnimSeq( твой персонаж,первый кадр,последний кадр,название секвенции)
В цикле пишем:
If KeyDown (UP) Then
If Pers_speed#<=0
Pers_speed#=0.75
Animate твой персонаж,2,Pers_speed#,1,0
EndIf
Else If KeyDown (DN) Then
If Pers_speed#<=0
Pers_speed#=0.75
Animate твой персонаж,2,Pers_speed#,1,0
EndIf
Else If Pers_speed#;<=0
Pers_speed#=0;.7
Animate твой персонаж,2,Pers_speed#,2
EndIf