Показать сообщение отдельно
Старый 24.01.2013, 14:55   #7
Niburiec
AnyKey`щик
 
Регистрация: 24.01.2013
Сообщений: 15
Написано 2 полезных сообщений
(для 3 пользователей)
Ответ: Смена анимации с помощью KeyDown

)))) Да не страшно, ведь я то всё равно ничего не понимаю, ведь так ? Вот куда мне здесь что вставить:

Graphics3D 800,600,16,1
SetBuffer BackBuffer()
cam=CreateCamera()
lite = CreateLight(1)
MoveEntity lite,5,0,0

;--------------------------------------
m=LoadAnimMesh("officer.b3d")
men=ExtractAnimSeq(m,212,232)
men2=ExtractAnimSeq(m,236,260)
men3=ExtractAnimSeq(m,301,319)

ScaleEntity m,0.1,0.1,0.1
PositionEntity m,0,0,0,True

PointEntity cam,m
PositionEntity cam,0,3,-7

While Not KeyHit(1)
Animate m,1,0.5,1
If KeyDown(200) Animate m,1,0.5,men2

If KeyDown(205) Animate m,1,0.5,men3

UpdateWorld
RenderWorld
Flip
Wend
End
(Offline)
 
Ответить с цитированием