AnyKey`щик
Регистрация: 24.01.2013
Сообщений: 15
Написано 2 полезных сообщений (для 3 пользователей)
|
Ответ: Смена анимации с помощью KeyDown
Graphics3D 800,600,16,2
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
Animate m,1,0.5,1
While Not KeyHit(1)
If KeyDown(200)
If Not Animating(men2)
Animate m,1,0.5,men2
EndIf
EndIf
Animate m,1,0.5,1
UpdateWorld
RenderWorld
Flip
Wend
End
|
Пробовал я и в оконном - да хоть ты тресни... И пути проверил - всё впорядке... не идёт зараза...
А так ходит, но мне нужно чтоб он шёл только при нажатой клавише...
Graphics3D 800,600,16,2
SetBuffer BackBuffer()
camera=CreateCamera()
light=CreateLight()
RotateEntity light,90,0,0
; Загрузка md2
m=LoadMD2( "officer_5.md2" )
;me1=LoadAnimSeq(
; Загрузка текстуры md2
m_tex=LoadTexture( "officer_1_D2.dds" )
; Наложить текстуру
EntityTexture m,m_tex
; Включаем анимацию md2
PositionEntity m,0,-35,70
RotateEntity m,0,0,0
AnimateMD2 m,1,0.3,1,24
While Not KeyDown( 1 )
If KeyHit(200) AnimateMD2 m,1,0.3,25,49
UpdateWorld
RenderWorld
Flip
Wend
End
|
|