стрельба очеридями и одиночная

[IGR]

как зделать ??
ну чё то типа :
очеридями - mousedown(1)
одиночная - mousehit(1)
у меня не получается чё то !!
желатель кусочек кода !!

[alcoSHoLiK]

Че не получается?

[H@NON]

Тут нужен таймер.
ml=millisecs()
if keydown(fire) and d#=ml+1000 then
FIRE
d#=millisecs()
endif

Что-то вроде этого.
ЗЫЖ Пишу по памяти, если че не так поправите, только не рычите.

[IGR]

у меня зделано с таймером !!
но тут новая проблема !!
допустим задержка 333 т.е. 3 выстрелов в секунду очередями, но когда я кликаю (маусХит) быстрей чем 3 раза в секунду (допустим 5 раз) оно всё равно стреляет 3 раза, т.е. мне приходится ждать задержку что бы потом опять стрельнуть !!

[moka]

Используешь Delay чтоли?
Используй обыкновенный Millisecs().

[IGR]

вроде без "делея" всё !!

[Horror]

Вот так я палю из слона!

 
curr_time=MilliSecs()
If MouseHit(1) 
     If curr_time - lastbullets > 1500
                 shooting ()
    chnFire = PlaySound(enfield_snd)
    lastbullets = MilliSecs()
EndIf

Вот так из колоша

curr_time=MilliSecs()
If MouseDown(1)
If curr_time - lastbulletm > 200
               shooting ()
     chnFire = PlaySound(ak47_snd)
     FlushMouse
     lastbulletm = MilliSecs()
EndIf

[johnk]

Вы чего? Какие миллисекунды? Юзайте переменную

[IGR]

мне нравиться версия Horror !!

[Raiter]

А я юзаю переменную просто

[IGR]

Вот так я палю из слона!

Код:


curr_time=MilliSecs()
If MouseHit(1)
If curr_time - lastbullets > 1500
shooting ()
chnFire = PlaySound(enfield_snd)
lastbullets = MilliSecs()
EndIf
Вот так из колоша

Код:

curr_time=MilliSecs()
If MouseDown(1)
If curr_time - lastbulletm > 200
shooting ()
chnFire = PlaySound(ak47_snd)
FlushMouse
lastbulletm = MilliSecs()
EndIf

только ещо и колошу надо добавить МаусеХит !!

[dimanche13]

Как из кОлоши можно стрелять??? А если серьезно, то у Horrora один и тот-же код для разных оружий, единственное отличие это задержка выстрела. Предлагаю добавить в тип оружия еще одно свойство delay_shoot.

type Weapon
    ...
    field delay_shoot ' для каждого оружия своё
    ...
end type
.........
      
If MouseDown(1) and (MilliSecs() - lastbulletm) > Weapon[cur_weapon].delay_shoot
              shooting ()
         FlushMouse
         lastbulletm = MilliSecs()
EndIf

[Horror]

...Blitz3D\Samples\Blitz 3D Samples\Misc\rsi\rsi.bb

Кури этот пример на мои взгляд там стрельба грамотно реализована!

[IGR]

у Horrora один и тот-же код для разных оружий, единственное отличие это задержка выстрела. Предлагаю добавить в тип оружия еще одно свойство delay_shoot.

да но у колоша два типа стрельбы: очеридями и одиночная т.е. маусеДаун и маусуХит , а пистолето одна :одиночная т.е. маусуХит !!

автомату нужно стрельбу два раза прописивать что ли ??

[dimond]

Global Bullet_time%

. . .

If MouseDown(1) And Bullet_time=0 Create_bullet():Bullet_time=10
If Bullet_time>0 Bullet_time=Bullet_time-1

имхо через переменную проще