[KingMaks]

все получилось))
тока чуток поправка:
model = LoadAnimMesh("model.b3d")
animChild = FindChild(model, "Animate")
seqIdle = ExtractAnimSeq(animChild, 0, 19)
seqRun = ExtractAnimSeq(animChild, 20, 40)

Repeat
If KeyDown(200) Then
If AnimSeq(animChild) <> seqRun Then Animate seqChild, 1, 0.2, animRun
Else
If AnimSeq(animChild) <> seqIdle Then Animate seqChild, 1, 0.2, animIdle
EndIf

UpdateWorld()
Renderworld()
Until KeyDown(1)

end