Ответ: Вернуть анимацию
можно использовать select
ExtractAnimSeq model,10,10
ExtractAnimSeq model,10,20
;--------------------------------UPDATE------
select anim
case 0
If AnimSeq(model)<>1 Then Animate model,1,1,1,0
if keyhit(57) then anim=1 ;давим клаву
case 1
If AnimSeq(model)<>2 Then Animate model,1,1,2,0
If AnimTime(model)>=10 Then anim=0 ;первая анимация
end select
|