Bullets.. (FPS) - GameCreators Forum

Author

Message

The Dream Keeper!

21

Years of Service

User Offline

Joined: 9th Oct 2003

Location: Netherlands! HOLLAND!

Posted: 30th Mar 2004 22:12 Edited at: 30th Mar 2004 22:13

Link

Hey all!

I'm working on an FPS (yeah, i know.. no one has ever done that before.. oeh.. aah..

) But well, i've made this code for it... got the mouse look done.. crosshair.. movement.. but now.. It only fires the first bullet!!!!!! the next 29 won't fire

! Can anyone help me? and tell me what's wrong with this code

?

Thanks in advance,

The Dream Keeper (DARK DREAMS)

p.s. Many things are in dutch because i am dutch.. sorry.

Bring fun to life!!!!!

Back to top

Profile PM Email Website

Emperor Baal

21

Years of Service

User Offline

Joined: 1st Dec 2003

Location: The Netherlands - Oudenbosch

Posted: 30th Mar 2004 23:21 Edited at: 31st Mar 2004 00:17

Link

<raar verhaal

>

You are using

for
if mouseclick()=1
next

loops?

These are the basics of bullets:

+ Code Snippet

rem 30 kogels met 4 waarden (0 = gelanceerd?, 1= x, 2=y, 3=z)
dim kogel_status(30,3)

do

if mouseclick()=1
 a = 1
 while kogel_status(a,0)=1
 inc a
  if a = 31 then exit
 endwhile
 
 if a <> 31
    kogel_status(a,0)=1
    position object a+20,camera position x(),camera position y(),camera position z()
    rotate object a+20, camera angle x(),camera angle y(),camera angle z()
  endif
endif


 for a = 1 to 30
  if kogel_status(a,0)=1 then move object a, 2.0
 next a


sync
loop

Quote: "UPDATED
Amd 2800+

1024mb pc3200

A7N8X - Deluxe

Ati Radeon 9800PRO 256mb"

Back to top

Profile PM Email Website

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 3rd Apr 2004 00:20

Link

Hey emperor Baal could you convert that to english?

P4 3.2Ghz/Alienware area 51/radeon 9800 pro 256mb/sound blaster audigy 2/5.1 surround sound speakers.

Back to top

Profile PM

Kentaree

22

Years of Service

User Offline

Joined: 5th Oct 2002

Location: Clonmel, Ireland

Posted: 3rd Apr 2004 01:03

Link

I'll do it for him just to show off my language skills :-P

+ Code Snippet

rem 30 bullets with 4 (0 = launched?, 1= x, 2=y, 3=z)
dim bullet_status(30,3)

do

if mouseclick()=1
 a = 1
 while bullet_status(a,0)=1
 inc a
  if a = 31 then exit
 endwhile
 
 if a <> 31
    bullet_status(a,0)=1
    position object a+20,camera position x(),camera position y(),camera position z()
    rotate object a+20, camera angle x(),camera angle y(),camera angle z()
  endif
endif


 for a = 1 to 30
  if bullet_status(a,0)=1 then move object a, 2.0
 next a


sync
loop

Its not a bug, its a feature!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Bullets.. (FPS)