forum.boolean.name - необходим совет

forum.boolean.name (http://forum.boolean.name/index.php)

- 3D-программирование (http://forum.boolean.name/forumdisplay.php?f=12)

- - необходим совет (http://forum.boolean.name/showthread.php?t=2061)

необходим совет

Вот код:

Код:

Главный цикл:

Repeat

 If KeyDown(203) ;поворот <-

  pa#=pa#+1

 End If

 If KeyDown(205) ;поворот ->

  pa#=pa#-1

 End If

 If KeyDown(200) ;вперед

  xa1#=xa#

  za1#=za#

  xa#=xa#+g#*Cos(pa#+90)

  za#=za#+g#*Sin(pa#+90)

  If (xa#<-31)Or(xa#>31)Or(za#<-31)Or(za#>31) 

   xa#=xa1#

   za#=za1#

  EndIf

 End If

 If KeyDown(208) ;назад

  xa1#=xa#

  za1#=za#

  xa#=xa#-g#*Cos(pa#+90)

  za#=za#-g#*Sin(pa#+90)

  If (xa#<-31)Or(xa#>31)Or(za#<-31)Or(za#>31)

   xa#=xa1#

   za#=za1#

  EndIf

 End If

 If KeyDown(18) ;стрейф ->

  xa1#=xa#

  za1#=za#

  xa#=xa#+g#*Cos(pa#)

  za#=za#+g#*Sin(pa#)

  If (xa#<-31)Or(xa#>31)Or(za#<-31)Or(za#>31) 

   xa#=xa1#

   za#=za1#

  EndIf

 End If

 If KeyDown(17) ;стрейф <- 

  xa1#=xa#

  za1#=za#

  xa#=xa#-g#*Cos(pa#)

  za#=za#-g#*Sin(pa#)

  If (xa#<-31)Or(xa#>31)Or(za#<-31)Or(za#>31)

   xa#=xa1#

   za#=za1#

  EndIf

 End If

 If KeyHit(1) ;выход

  Exit

 End If

 If n>=1

   polet_igrok()

  ;Animate q,1,n/2,0,0

 EndIf

 If KeyHit(57) ;выстрел 

  If n=0 Then vistrel_igrok(xa#,za#,pa#)

 End If

 RotateEntity q,0,pa#+180,0

 PositionEntity q,xa#,0,za#

 RotateEntity c,90,pa#,0

 PositionEntity c,xa#, 10,za# ; вид сверху

 UpdateWorld 

 RenderWorld

 Flip

Forever

Процедуры:

Type vi

Field x#,y#,p#

End Type

Global n=0

Global st1=CreateSphere(5)

HideEntity st1

EntityColor st1,255,255,255

ScaleEntity st1,0.15,0.15,0.15

Function vistrel_igrok(vix#,viy#,vip#)

 st.vi=New vi

 st\x#=vix#

 st\y#=viy#

 st\p#=vip#

 PositionEntity st1,st\x#,1,st\y#

 ShowEntity st1

 n=1

End Function

Function polet_igrok()

 For st.vi=Each vi

  If n=20 

   Delete st

   HideEntity st1

   n=0

  Else

   n=n+1

   st\x#=st\x#+5*g#*Cos(st\p#+90)

   st\y#=st\y#+5*g#*Sin(st\p#+90)

   PositionEntity st1,st\x#,1,st\y#

  EndIf 

 Next 

End Function

не понимаю, почему при нажатии вперед+пов_влево(+стрейф_любой) или назад+...+... - выстрела не происходит (if -> false(?!)) ... если кто знает, объясните пожалуйста... вперед+вправо(+ любой_стрейф) - работают прекрасно...

Re: необходим совет

Хм... довольно интересно.. Но вроде как бы код то и там и там одинаковый (на сколько я посмотрел). По идее всё должно быть норм. А ты пробовал начинать сначала нажимать стрейф и пробовать стрелять сразу, а не после стрелок ?

Re: необходим совет

Можно выкладывать КОМПИЛИРУЕМЫЙ исходник?!

Re: необходим совет

нажимать не пробовал, но пробовал функцию, v_i вставлять в разные места и даже делать несколько ее копий...
вот...Вложение 2443...

Re: необходим совет

[imho]
не думаю что это програмная ошибка, попробуй сменить клавиши, ингода бывает такое, что нажимаеш несколько клавиш и ниче не работает.
[/imho]

Re: необходим совет

Понятно... у меня еще вопрос есть...
доп. у меня два файла с анимациями, мне надо просмотреть эти анимации одновременно (за один проход цикла - в моем примере)... мне придется делать еще 1 файл анимации?..

Re: необходим совет

HolyDel, ты прав...

Re: необходим совет

За один проход цикла просмотреть анимацию будет проблематично, будет один вызов UpdateWorld и RenderWorld.
Если имелось ввиду возможность наложения анимации на модель, то есть такие комманды LoadAnimSeq. Тогда мжно делаь так
[blitz]
mesh=loadanimmesh("Body.b3d")
walk=loadanimseq("walk.b3d")
idle=loadanimseq("idle.b3d")
[/blitz]
собсно mesh будет указателем на модель и файл модели должен содежать сетку объекта и кости, два других файла должны содержать кости и их анимацию (моделлеры, поправьте если не так).
walk и idle содержат номер секвенции анимации для хотьбы и простоя соответственно

Re: необходим совет

Понятно... спасибо, но наверное легче переменную на разные виды анимаций завести, тогда и команду animate один раз использовать придется...
еще вопр ("вопросы, вопросы требуют ответов"): можно ли из блица на модель (3ds), положить текстуру или задать ей цвет (entitytexture и entitycolor - не работают)?

Re: необходим совет

предыдушее сообщение было посвящено b3d моделям.;)

посмотри здесь, для задания цвета анимированной модели, для текстурирования анимированной модели придеццо поменять одну строчку ;)
http://www.boolean.name/showthread.php?t=2073 ;)

Re: необходим совет

ясно... пока все...

Re: необходим совет

Снова вопрос...
когда смотрел хелп (не помню какой, но он точно был на русском), заметил одну команду (ее название, собственно, я и хочу спросить)... она очищает буфер (что ли?) нажатых клавиш...
Если кто помнит и хочет подсказать, жду ответ...

Re: необходим совет

Спасибо, выручил...