Bullet не могу создать...

[Colossus]

самый нубской вопрос.... как сделать пулю и привязать к пистолету?!

при этом на пистолете есть думми f1 и f2 вспышки я привязал... анимки сделал вот осталось сделать пули....

товарищи, если вам не трудно выложите примерчег с описанием....

или подскажите как и чего)
просто пулю не разу не делал

[dimanche13]

зачем терминатору пули, он голыми руками всех валит

[Colossus]

dimanche13,жжошь)))) но пулю мне над замутить))

[newman]

Покапайся в примере castle И ещё можешь посматреть код FPS'a Импера

[Colossus]

копался... ни черта не понял)))) ну впринципе меня интересует вопрос как создать очередь выстрелов, чтобы при этом звук не изкажался....

[ABTOMAT]

Сделай себе функцию "CreateBullet"
Шоб в аргументах были:

координаты создания пули
вектор направления полёта пули

тогда будет намного легче

[HolyDel]

лучше ф фи-ю передавать хендл думми, а координаты и вектор уже в самой ф-ии определять.
подсказка: EntityX(ent,1)

[Colossus]

пасибо) попробуем

[mr.DIMAS]

Примерно все делается так

 
Type Bullet
 Field Entity ;Сам ентити пули
 Field LifeTime ;время жизни пули по истечении которого пулю удаляем
End Type
 
;=================
;Функция: CreateBullet
;Описание: Создает пулю
;Исходя из координат указанного 
;Объекта ( Entity )
;=================
Function CreateBullet(Entity%)
 b.Bullet = New Bullet
 b\Entity = CreateSphere()
 PositionEntity b\Entity,EntityX(Entity,True),EntityY(Entity,True),EntityZ(Entity,True)
 RotateEntity b\Entity,EntityPitch(Entity,True),EntityYaw(Entity,True),EntityRoll(Entity,True)
End Function
 
;=================
;Функция: UpdateBullet()
;Описание: Обновляет все пули
;т.е их перемещения, время жизни и т.д
;=================
Function UpdateBullet()
 For B.Bullet = Each Bullet
  MoveEntity B\Entity,0,0,5 ;Пуля у нас летит в том направлении куды указали пистолетом( RotateEntity в CreateBullet )
  B\LifeTime = B\LifeTime + 1
  If B\LifeTime > 100
   FreeEntity B\Entity
   Delete B
  End If 
 Next
End Function

А теперь контроль за выстрелами

 
 
Global TimeOfShoot% = 0
Function ControlOfShooting()
 If MouseDown(1) Then
  TimeOfShoot% = TimeOfShoot% + 1
  If TimeOfShoot% > 10 Then
   PlaySound( Звук_Выстрела )
   CreateShot( Ентити_Пистолета )
   TimeOfShoot% = 0
  End If
 End If 
End Function

Если че не понял, объясню

[Colossus]

EEE! мне это стоит покурить!

[mr.DIMAS]

кури, только смотри, если торчить начнет, сразу бросай

[Colossus]

я тебе в аську отписаться хотел, не работает что то)))) тут кой чего не хватает)))

[NitE]

а нафига те пуля-то ?? тебе обязательно нужна визуальная ?? потомучто если нет то всё можно сделать примерно так -

if mousehit(1)
camerapick(cam,x,y)
if pickedentity=bot then botlide=botlife-1
endif

[Colossus]

не катит))) придется тогда камеры привязывать к стволам)))) потому что чел юзает ганката) боевые движения с пистолетами стреляет в разные стороны очередями,вывод: нужны вижуальные пули) ну тоесть просто черные сферки)

[mr.DIMAS]

ну я не врубил Терминатор че тебе в моем коде не нравитСо?