Показать сообщение отдельно
Старый 23.12.2006, 19:59   #34
Horror
Бывалый
 
Регистрация: 09.09.2006
Сообщений: 656
Написано 54 полезных сообщений
(для 110 пользователей)
Re: Исправьте код

у тебя когда на шифт нажимаешь чел идет без анимации когда на w с анимацией! зачем? типо бег??
попробуй так
Function updateplayer() 
V#=0.5
If MouseHit(1) 
create_shot(EntityX(robot),1,EntityZ(robot),EntityPitch(cam),EntityYaw(robot) - 90,0)
If AnimSeq(robot)<>an2 Then Animate robot,3,1,an2;CTPEJIb6A
EndIf
;42=shift 17=w 30=a 31=s 32=d
If KeyDown(17) Or KeyDown(31) Or KeyDown(30) Or KeyDown(32)
If KeyDown(17) 
If KeyDown(42)
If AnimSeq(robot)<>an1 Then Animate robot,1,1,an1 ;6er
MoveEntity robot,V#*2,0,0
Else
If AnimSeq(robot)<>an1 Then Animate robot,1,0.5,an1 ;][ogb6A
MoveEntity robot,V#,0,0
EndIf
EndIf
If KeyDown(31)
If AnimSeq(robot)<>an1 Then Animate robot,1,0.5,an1 ;HA3ag
MoveEntity robot,-V#,0,0
EndIf
If KeyDown(30)
If AnimSeq(robot)<>an1 Then Animate robot,1,0.5,an1 ;JIEBO
MoveEntity robot,0,0,V#
EndIf
If KeyDown(32)
If AnimSeq(robot)<>an1 Then Animate robot,1,0.5,an1 ;npaBo
MoveEntity robot,0,0,-V#
EndIf
Else
If AnimSeq(robot)<>an3 Then Animate robot,1,0.5,an3 ;CTOuT
EndIf
End Function 
B main()
updateplayer()
ПС я типо тоже начинающий) но код у меня работает если что))
а на твой вопрос про паузу тоже хотелбы узнатть ответ !
буду ждать...
(Offline)
 
Ответить с цитированием