On my shooting example thingy, sometimes all the shots fire at once? (DBC)

Author

Message

RandomSKK

20

Years of Service

User Offline

Joined: 15th Sep 2004

Location: Surrey, UK

Posted: 17th Sep 2004 08:15

Link

Heya
I'm making a demo kinda thing, so that I have code for 3d shooting in my games - and so far, it's OK except for one thing - sometimes, all 3 bullets will shoot at once. I can't figure out why, or get them to stop it, and I've been at it for an hour or so - I've tried making loads of delays, making it so that shot 2 only fires when shot one is far away enough from the camera, ect, but none of them seem to work

Right now it's on a delay which has a varible incresing each loop, and when it gets high enough the shot will fire - and sometimes this works, sometimes it still fires all three shots.

No media needed - it's all basic objects and stuff with no textures.

Can anyone help? (I'm using DBC)

rem print instructions
PRINT "Use arrow keys to move target up, down, left and right."
Print "Shift for away, ctrl for closer."
Print "Space to shoot"
Print "The amount of cicles in top left corner indicates ammo remaining."
Print "Ammo shoudl reload when all out"
Print "Press enter to manually reload"
Print "press any key to continue."

suspend for key

rem set sync ect
sync on  : sync rate 60
hide mouse

rem make bullets

for t=1 to 3
make object cube t, 0.07
hide object t
next t

bulletlife1=100
bulletfired1=0

bulletlife2=100
bulletfired2=0

bulletlife3=100
bulletfired3=0

rem make target
make object cube 4, 1

rem main loop
do

rem get target positions
tarx=object position x(4)
tary=object position y(4)
tarz=object position z(4)

rem move target
if upkey()=1 then tary=tary+1
if downkey()=1 then tary=tary-1
if leftkey()=1 then tarx=tarx-1
if rightkey()=1 then tarx=tarx+1
if shiftkey()=1 then tarz=tarz+1
if controlkey()=1 then tarz=tarz-1

rem shoot

if spacekey()=1

if bulletfired1=0

point object 1,tarx,tary,tarz
   bulletfired1=1
   show object 1
   goto endshoot
   endif

if bulletfired2=0 and bulletfired1=1 and firedelay1=40
   point object 2,tarx,tary,tarz
   bulletfired2=1
   show object 2
   goto endshoot
   endif

if bulletfired3=0 and bulletfired2=1 and firedelay2=40
   point object 3,tarx,tary,tarz
   bulletfired3=1
   show object 3
   goto endshoot
   endif

endshoot:
endif

if bulletfired1=1 and firedelay1<40 then firedelay1=firedelay1+1
if bulletfired2=1 and firedelay2<40 then firedelay2=firedelay2+1

rem decrease bullet life if it's fired
if bulletfired1=1 then bulletlife1=bulletlife1-1
if bulletfired2=1 then bulletlife2=bulletlife2-1
if bulletfired3=1 then bulletlife3=bulletlife3-1

rem kill bullet if bulletlife is less than one
if bulletlife1<1 then position object 1,0,0,0 : bulletlife1 = 100 : hide object 1 : firedelay1=0
if bulletlife2<1 then position object 2,0,0,0 : bulletlife2 = 100 : hide object 2 : firedelay2=0
if bulletlife3<1 then position object 3,0,0,0 : bulletlife3 = 100 : hide object 3 : firedelay2=0

rem kill bullet if it hits target
if object hit(1,4)=1
position object 1,0,0,0
bulletlife1 = 100
hide object 1
firedelay1=0
endif

if object hit(2,4)=1
position object 2,0,0,0
bulletlife2 = 100
hide object 2
firedelay2=0
endif

if object hit(3,4)=1
position object 3,0,0,0
bulletlife3 = 100
hide object 3
firedelay3=0
endif

rem move bullet
if bulletfired1=1 then move object 1,0.5
if bulletfired2=1 then move object 2,0.5
if bulletfired3=1 then move object 3,0.5

rem ammo indicator
if bulletfired1=0 then circle 10, 10, 10
if bulletfired2=0 then circle 25, 10, 10
if bulletfired3=0 then circle 40, 10, 10

rem reload mag if empty
if bulletfired1=1 and bulletfired2=1 and bulletfired3=1 and object visible(1)=0 and object visible(2)=0 and object visible(3)=0
bulletfired1 = 0
bulletfired2 = 0
bulletfired3 = 0
endif

if returnkey()=1
bulletfired1 = 0
bulletfired2 = 0
bulletfired3 = 0
endif

rem position target
position object 4, tarx, tary, tarz

rem update screen
sync

rem end main loop
loop

+ Code Snippet

rem print instructions
PRINT "Use arrow keys to move target up, down, left and right."
Print "Shift for away, ctrl for closer."
Print "Space to shoot"
Print "The amount of cicles in top left corner indicates ammo remaining."
Print "Ammo shoudl reload when all out"
Print "Press enter to manually reload"
Print "press any key to continue."


suspend for key

rem set sync ect
sync on  : sync rate 60
hide mouse

rem make bullets

for t=1 to 3
make object cube t, 0.07
hide object t
next t

bulletlife1=100
bulletfired1=0

bulletlife2=100
bulletfired2=0

bulletlife3=100
bulletfired3=0


rem make target
make object cube 4, 1


rem main loop
do



rem get target positions
tarx=object position x(4)
tary=object position y(4)
tarz=object position z(4)



rem move target
if upkey()=1 then tary=tary+1
if downkey()=1 then tary=tary-1
if leftkey()=1 then tarx=tarx-1
if rightkey()=1 then tarx=tarx+1
if shiftkey()=1 then tarz=tarz+1
if controlkey()=1 then tarz=tarz-1

rem shoot

if spacekey()=1

   if bulletfired1=0

   point object 1,tarx,tary,tarz
   bulletfired1=1
   show object 1
   goto endshoot
   endif


   if bulletfired2=0 and bulletfired1=1 and firedelay1=40
   point object 2,tarx,tary,tarz
   bulletfired2=1
   show object 2
   goto endshoot
   endif


   if bulletfired3=0 and bulletfired2=1 and firedelay2=40
   point object 3,tarx,tary,tarz
   bulletfired3=1
   show object 3
   goto endshoot
   endif

endshoot:
endif

if bulletfired1=1 and firedelay1<40 then firedelay1=firedelay1+1
if bulletfired2=1 and firedelay2<40 then firedelay2=firedelay2+1

rem decrease bullet life if it's fired
if bulletfired1=1 then bulletlife1=bulletlife1-1
if bulletfired2=1 then bulletlife2=bulletlife2-1
if bulletfired3=1 then bulletlife3=bulletlife3-1

rem kill bullet if bulletlife is less than one
if bulletlife1<1 then position object 1,0,0,0 : bulletlife1 = 100 : hide object 1 : firedelay1=0
if bulletlife2<1 then position object 2,0,0,0 : bulletlife2 = 100 : hide object 2 : firedelay2=0
if bulletlife3<1 then position object 3,0,0,0 : bulletlife3 = 100 : hide object 3 : firedelay2=0

rem kill bullet if it hits target
if object hit(1,4)=1
position object 1,0,0,0
bulletlife1 = 100
hide object 1
firedelay1=0
endif

if object hit(2,4)=1
position object 2,0,0,0
bulletlife2 = 100
hide object 2
firedelay2=0
endif

if object hit(3,4)=1
position object 3,0,0,0
bulletlife3 = 100
hide object 3
firedelay3=0
endif

rem move bullet
if bulletfired1=1 then move object 1,0.5
if bulletfired2=1 then move object 2,0.5
if bulletfired3=1 then move object 3,0.5


rem ammo indicator
if bulletfired1=0 then circle 10, 10, 10
if bulletfired2=0 then circle 25, 10, 10
if bulletfired3=0 then circle 40, 10, 10

rem reload mag if empty
if bulletfired1=1 and bulletfired2=1 and bulletfired3=1 and object visible(1)=0 and object visible(2)=0 and object visible(3)=0
bulletfired1 = 0
bulletfired2 = 0
bulletfired3 = 0
endif

if returnkey()=1
bulletfired1 = 0
bulletfired2 = 0
bulletfired3 = 0
endif


rem position target
position object 4, tarx, tary, tarz

rem update screen
sync

rem end main loop
loop

Back to top

Profile PM Email

Xander

21