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
Animate m,1,0.5,men
Global player_start=0
Global player_stop=1
Global player_still=1
Global player_beg=0
Repeat
If KeyHit(1) End
UpdateWorld
player_start=0:player_beg=0
If KeyHit(200) player_start=1:player_stop=-0:Gosub level1
If KeyHit(205) player_beg=1:player_stop=-0:Gosub level2
Goto level3
.Level1
If KeyDown(200)
player_still=0
Else
If player_still=0 player_stop=1
EndIf
If player_start Animate m,1,0.5,men2,6
If player_stop Animate m,1,0.5,men,10 :player_still=1:player_stop=0
Return
.level2
If KeyDown(205)
player_still=0
Else
If player_still=0 player_stop=1
EndIf
If player_beg Animate m,1,0.5,men3,6
If player_stop Animate m,1,0.5,men,10 :player_still=1:player_stop=0
Return
.level3
RenderWorld tween
Flip
Forever
|
И за одно, как реализовывается одновременное нажатие клавиш вперед+Shift ?
|