Help with a shooting system, turning numbers into objects

Author

Message

PAGAN_old

18

Years of Service

User Offline

Joined: 28th Jan 2006

Location: Capital of the Evil Empire

Posted: 6th Sep 2008 23:39

Link

I have been trying to make a good working shooting system for 2 days now. I ended up changing it several times, and here is what i have came up with just now,

+ Code Snippet

sync on
sync rate 60
`this is how much ammo you have
ammo=1000
`this is how much ammo have you fired already
ammo_fired=0
do
if mouseclick()=1
`if i click the ammo in the clip will be used up
ammo=ammo-1
`the count of how many bullets have been shot, will go up
ammo_fired=ammo_fired+1
endif

print ammo
print ammo_fired
sync
loop

the problem i have is turning the "ammo_shot" into physical bullets that will be fired. But I cant come up with how i can do it so the amount of bullets created will correspond with the number of bullets fired.

Help would be appreciated, Thanks

dont hate people who rip you off,cheat and get away with it, learn from them

Back to top

Profile PM Email

Terrorist Zero

18

Years of Service

User Offline

Joined: 29th Aug 2006

Location: Teh YouKai

Posted: 7th Sep 2008 00:21 Edited at: 7th Sep 2008 00:50

Link

Note: I'm currently in a state of utter tiredness from work, litterally no sleep last night, and much clubbing so only take this post lightly and vets will probs want to crit my advise too...

How I perceive it is that you want to create a "bullet entity" when you fire? So you'd click the mouse, a "bullet" would be created and shot forward and the world reacts to the effects of the bullet?

First off, creating 1000 bullet objects on screen isn't going to be economical in terms of processing time required and memory needed to store the object data, let alone all the stray polygons on screen that will have to be rendered.

The only way I can figure out a way to do this is to use an array holding data on individual bullets e.g.

+ Code Snippet

bulletData(maxNumberOfBullets,maxParameters)

If you need up to 1000 bullets and want about 5 parameters (including current bullet position etc) then you'd create the array as

+ Code Snippet

Dim bulletData(1000,4) as INTEGER

Then for example have the first parameter represent whether the bullet is created (0 for false, 1 for true) then in the same call to increase the ammo_fired variable you'd add in

+ Code Snippet

bulletData(ammo_fired,0) = 1

However, creating an array of that size is not advisable due to the vast amount of memory lost to the creation and storage of the array, so it would be advisable to create a sensible amount of bullets to be calculated at once, for example 5-10, and recycle the array so that when a bullet is no longer needed, the variables used in the array for that particular bullet are freed up for when you reach the final value in the array you can then start from the first value again.

Back when I was developing my FPS game Station 13 (remaking now) I found that it was better to use raycasting to find the theoretical direction of your bullet and then find all the objects colliding with that ray (using sparky's collision dll). Then if the first object hit was an enemy they'd take damage, if it was a wall I'd find out where the collision took place and apply a decal to the wall (by finding the normals, and using a plane and a texture with alpha).

What I'm getting at is that it's far more efficient to calculate what happens when you fire rather than what happens to each individual bullet and rendering the bullet in real time, along with the other 1000 bullets you've fired in the last few minutes (which wouldn't exist if you use the raycasting method). Also considering that when you fire a gun in real life, I doubt you'll be able to see the bullet flying towards your target, so not having a rendered bullet isn't going to make any difference to the aesthetics of the game.

AMD X2 6400+ (3.2GHz) // K9A2 Platinum 790FX Mobo // 2GB Corsair RAM 1066MHz // Powercolor HD4870 512MB OC'ed

Back to top

Profile PM Email Website

HWT

19

Years of Service

User Offline

Joined: 1st Apr 2005

Location: Earth

Posted: 9th Sep 2008 02:47

Link

I'm assuming you're relatively new to DBC programming (hence the many rem statements in the code).

This first one is a simple shooting system:

rem First, we make our bullet objects - in this case, some simple cubes. Um... let's say 20 bullets
`(we hide the bullets right now because we only want them showing up when being fired)
For i = 1 to 20
   Make Object Cube i,10
   Hide Object i
Next i

rem Now let's make a very simple world (with some boxes for scenery)
Make Matrix 1,2500,2500,15,15
Make Object Box 100,50,200,50
Make Object Box 101,50,200,50
Make Object Box 102,50,200,50
Position Object 100,1250,100,1250
Position Object 101,750,100,1250
Position Object 102,750,100,750

rem Some variables (I'll explain these in the program itself)
currentBullet=1
Dim bulletLife(20)
ammo=1000

rem MAIN LOOP
SYNC ON : SYNC RATE 50 : DO

rem First, let's let the player do some simple camera movement using the mouse
If MouseClick()=2 Then Move Camera 10
XRotate Camera Wrapvalue(Camera Angle X()+MouseMoveY())
YRotate Camera Wrapvalue(Camera Angle Y()+MouseMoveX())

rem Now we handle the fun stuff - shooting! Let me tell you what's we want to happen here. First, we
rem want the player to be able to fire multiple bullets away from the camera at a certain speed. These bullets
rem should move out so that they come from the center of the camera position itself. Then we'll
rem want these bullets to "die off" eventually so that we can reuse them again - thus giving the impression that he's
rem able to fire continuously

`First, we've gotta check if the current bullet is "alive" or not i.e. if it has already been shot (in this program a value of 0 means dead and anything greater than 0 means alive)
`We've also gotta check if there's enough ammo left
If bulletLife(currentBullet)=0 and ammo>0
   `If not, when player presses fire button (left mouse), then set the bulletLife to something, say 50, and increment currenBullet (that way the program will use the next bullet in
   `line the next time). We also want the ammo variable to be reduced by one (obviously)
   If MouseClick()=1 Then bulletLife(currentBullet)=50 : Inc currentBullet : Dec ammo
Endif

`Now, since any of the 20 bullets could be alive, we've gotta check *each* one's life value using (you guessed it right!) a for-next loop
For i = 1 to 20
   `If the bullet (any one of the 20) is alive
   If bulletLife(i)>0
      `First show the bullet
      Show Object i
      `Make the bullet move straight ahead
      Move Object i,20
      `And decrement the life value so that it will ultimately die when bulletLife reaches 0
      bulletLife(i)=bulletLife(i)-1
   Endif
Next i

`Finally, we've gotta reset the position of the dead bullets to the camera's position and rotation so that it can be used properly again (otherwise the bullet will be fired from the last position it was when it was fired)
For i = 1 to 20
   `If bullet is dead
   If bulletLife(i)<=0
      `Just in case the bulletLife slipped below zero, we wanna reset it to zero because otherwise that line "If bulletLife(currentbullet)=0" won't work
      bulletLife(i)=0
      `Hide the bullet object
      Hide Object i
      `Reposition and re-rotate the bullet to the cam's position and rotation
      Position Object i,Camera Position X(),Camera Position Y(),Camera Position Z()
      Rotate Object i,Camera Angle X(),Camera Angle Y(),0.0
   Endif
Next i

`And we've gotta keep resetting the CurrentBullet variable to one everytime it exceeds 20 (since we've only got 20 bullets in this case - you can change it though)
If currentBullet>20 Then currentBullet=1

rem Finally-finally, some simple output for fancyness
Set Cursor 0,0
Print "Current Ammunition: ";ammo
Print "Ammo fired";1000-ammo
print currentBullet

SYNC : LOOP

+ Code Snippet

rem First, we make our bullet objects - in this case, some simple cubes. Um... let's say 20 bullets
`(we hide the bullets right now because we only want them showing up when being fired)
For i = 1 to 20
   Make Object Cube i,10
   Hide Object i
Next i

rem Now let's make a very simple world (with some boxes for scenery)
Make Matrix 1,2500,2500,15,15
Make Object Box 100,50,200,50
Make Object Box 101,50,200,50
Make Object Box 102,50,200,50
Position Object 100,1250,100,1250
Position Object 101,750,100,1250
Position Object 102,750,100,750

rem Some variables (I'll explain these in the program itself)
currentBullet=1
Dim bulletLife(20)
ammo=1000

rem MAIN LOOP
SYNC ON : SYNC RATE 50 : DO


rem First, let's let the player do some simple camera movement using the mouse
If MouseClick()=2 Then Move Camera 10
XRotate Camera Wrapvalue(Camera Angle X()+MouseMoveY())
YRotate Camera Wrapvalue(Camera Angle Y()+MouseMoveX())

rem Now we handle the fun stuff - shooting! Let me tell you what's we want to happen here. First, we
rem want the player to be able to fire multiple bullets away from the camera at a certain speed. These bullets
rem should move out so that they come from the center of the camera position itself. Then we'll
rem want these bullets to "die off" eventually so that we can reuse them again - thus giving the impression that he's
rem able to fire continuously

`First, we've gotta check if the current bullet is "alive" or not i.e. if it has already been shot (in this program a value of 0 means dead and anything greater than 0 means alive)
`We've also gotta check if there's enough ammo left
If bulletLife(currentBullet)=0 and ammo>0
   `If not, when player presses fire button (left mouse), then set the bulletLife to something, say 50, and increment currenBullet (that way the program will use the next bullet in
   `line the next time). We also want the ammo variable to be reduced by one (obviously)
   If MouseClick()=1 Then bulletLife(currentBullet)=50 : Inc currentBullet : Dec ammo
Endif

`Now, since any of the 20 bullets could be alive, we've gotta check *each* one's life value using (you guessed it right!) a for-next loop
For i = 1 to 20
   `If the bullet (any one of the 20) is alive
   If bulletLife(i)>0
      `First show the bullet
      Show Object i
      `Make the bullet move straight ahead
      Move Object i,20
      `And decrement the life value so that it will ultimately die when bulletLife reaches 0
      bulletLife(i)=bulletLife(i)-1
   Endif
Next i

`Finally, we've gotta reset the position of the dead bullets to the camera's position and rotation so that it can be used properly again (otherwise the bullet will be fired from the last position it was when it was fired)
For i = 1 to 20
   `If bullet is dead
   If bulletLife(i)<=0
      `Just in case the bulletLife slipped below zero, we wanna reset it to zero because otherwise that line "If bulletLife(currentbullet)=0" won't work
      bulletLife(i)=0
      `Hide the bullet object
      Hide Object i
      `Reposition and re-rotate the bullet to the cam's position and rotation
      Position Object i,Camera Position X(),Camera Position Y(),Camera Position Z()
      Rotate Object i,Camera Angle X(),Camera Angle Y(),0.0
   Endif
Next i

`And we've gotta keep resetting the CurrentBullet variable to one everytime it exceeds 20 (since we've only got 20 bullets in this case - you can change it though)
If currentBullet>20 Then currentBullet=1

rem Finally-finally, some simple output for fancyness
Set Cursor 0,0
Print "Current Ammunition: ";ammo
Print "Ammo fired";1000-ammo
print currentBullet


SYNC : LOOP

This second one, builds on the first:

rem First, we make our bullet objects - in this case, some simple cubes. Um... let's say 20 bullets
`(we hide the bullets right now because we only want them showing up when being fired)
For i = 1 to 20
   Make Object Cube i,10
   Hide Object i
Next i

rem Now let's make a very simple world (with some boxes for scenery)
Make Matrix 1,2500,2500,15,15
Make Object Box 100,50,200,50
Make Object Box 101,50,200,50
Make Object Box 102,50,200,50
Position Object 100,1250,100,1250
Position Object 101,750,100,1250
Position Object 102,750,100,750

rem Some variables (I'll explain these in the program itself)
currentBullet=1
Dim bulletLife(20)
ammo=1000
shootDelay=0

rem MAIN LOOP
SYNC ON : SYNC RATE 50 : DO

rem First, let's let the player do some simple camera movement using the mouse
If MouseClick()=2 Then Move Camera 10
XRotate Camera Wrapvalue(Camera Angle X()+MouseMoveY())
YRotate Camera Wrapvalue(Camera Angle Y()+MouseMoveX())

rem Now we handle the fun stuff - shooting! Let me tell you what's we want to happen here. First, we
rem want the player to be able to fire multiple bullets away from the camera at a certain speed. These bullets
rem should move out so that they come from the center of the camera position itself. Then we'll
rem want these bullets to "die off" eventually so that we can reuse them again - thus giving the impression that he's
rem able to fire continuously

`First, we've gotta check if the current bullet is "alive" or not i.e. if it has already been shot (in this program a value of 0 means dead and anything greater than 0 means alive)
`We've also gotta check if there's enough ammo left
`And now, we add a delay so that the bullets are fired so quickly - only if this variable is zero would player be able to fire
If bulletLife(currentBullet)=0 and ammo>0 and shootDelay<=0
   `If not, when player presses fire button (left mouse), then set the bulletLife to something, say 50, and increment currenBullet (that way the program will use the next bullet in
   `line the next time). We also want the ammo variable to be reduced by one (obviously)
   If MouseClick()=1 Then bulletLife(currentBullet)=50 : Inc currentBullet : Dec ammo : shootDelay=10
Endif

`Now, since any of the 20 bullets could be alive, we've gotta check *each* one's life value using (you guessed it right!) a for-next loop
For i = 1 to 20
   `If the bullet (any one of the 20) is alive
   If bulletLife(i)>0
      `First show the bullet
      Show Object i
      `Make the bullet move straight ahead
      Move Object i,20
      `And decrement the life value so that it will ultimately die when bulletLife reaches 0
      bulletLife(i)=bulletLife(i)-1
   Endif
Next i

`Finally, we've gotta reset the position of the dead bullets to the camera's position and rotation so that it can be used properly again (otherwise the bullet will be fired from the last position it was when it was fired)
For i = 1 to 20
   `If bullet is dead
   If bulletLife(i)<=0
      `Just in case the bulletLife slipped below zero, we wanna reset it to zero because otherwise that line "If bulletLife(currentbullet)=0" won't work
      bulletLife(i)=0
      `Hide the bullet object
      Hide Object i
      `Reposition and re-rotate the bullet to the cam's position and rotation
      Position Object i,Camera Position X(),Camera Position Y(),Camera Position Z()
      Rotate Object i,Camera Angle X(),Camera Angle Y(),0.0
   Endif
Next i

`And we've gotta keep resetting the CurrentBullet variable to one everytime it exceeds 20 (since we've only got 20 bullets in this case - you can change it though)
If currentBullet>20 Then currentBullet=1

`And, of course, we've gotta keep decrementing shootDelay so that the player can shoot again (after the delay is up)
If shootDelay>0 Then Dec shootDelay

rem Finally-finally, some simple output for fancyness
Set Cursor 0,0
Print "Current Ammunition: ";ammo
Print "Ammo fired";1000-ammo

SYNC : LOOP

+ Code Snippet

rem First, we make our bullet objects - in this case, some simple cubes. Um... let's say 20 bullets
`(we hide the bullets right now because we only want them showing up when being fired)
For i = 1 to 20
   Make Object Cube i,10
   Hide Object i
Next i

rem Now let's make a very simple world (with some boxes for scenery)
Make Matrix 1,2500,2500,15,15
Make Object Box 100,50,200,50
Make Object Box 101,50,200,50
Make Object Box 102,50,200,50
Position Object 100,1250,100,1250
Position Object 101,750,100,1250
Position Object 102,750,100,750

rem Some variables (I'll explain these in the program itself)
currentBullet=1
Dim bulletLife(20)
ammo=1000
shootDelay=0

rem MAIN LOOP
SYNC ON : SYNC RATE 50 : DO


rem First, let's let the player do some simple camera movement using the mouse
If MouseClick()=2 Then Move Camera 10
XRotate Camera Wrapvalue(Camera Angle X()+MouseMoveY())
YRotate Camera Wrapvalue(Camera Angle Y()+MouseMoveX())

rem Now we handle the fun stuff - shooting! Let me tell you what's we want to happen here. First, we
rem want the player to be able to fire multiple bullets away from the camera at a certain speed. These bullets
rem should move out so that they come from the center of the camera position itself. Then we'll
rem want these bullets to "die off" eventually so that we can reuse them again - thus giving the impression that he's
rem able to fire continuously

`First, we've gotta check if the current bullet is "alive" or not i.e. if it has already been shot (in this program a value of 0 means dead and anything greater than 0 means alive)
`We've also gotta check if there's enough ammo left
`And now, we add a delay so that the bullets are fired so quickly - only if this variable is zero would player be able to fire
If bulletLife(currentBullet)=0 and ammo>0 and shootDelay<=0
   `If not, when player presses fire button (left mouse), then set the bulletLife to something, say 50, and increment currenBullet (that way the program will use the next bullet in
   `line the next time). We also want the ammo variable to be reduced by one (obviously)
   If MouseClick()=1 Then bulletLife(currentBullet)=50 : Inc currentBullet : Dec ammo : shootDelay=10
Endif

`Now, since any of the 20 bullets could be alive, we've gotta check *each* one's life value using (you guessed it right!) a for-next loop
For i = 1 to 20
   `If the bullet (any one of the 20) is alive
   If bulletLife(i)>0
      `First show the bullet
      Show Object i
      `Make the bullet move straight ahead
      Move Object i,20
      `And decrement the life value so that it will ultimately die when bulletLife reaches 0
      bulletLife(i)=bulletLife(i)-1
   Endif
Next i

`Finally, we've gotta reset the position of the dead bullets to the camera's position and rotation so that it can be used properly again (otherwise the bullet will be fired from the last position it was when it was fired)
For i = 1 to 20
   `If bullet is dead
   If bulletLife(i)<=0
      `Just in case the bulletLife slipped below zero, we wanna reset it to zero because otherwise that line "If bulletLife(currentbullet)=0" won't work
      bulletLife(i)=0
      `Hide the bullet object
      Hide Object i
      `Reposition and re-rotate the bullet to the cam's position and rotation
      Position Object i,Camera Position X(),Camera Position Y(),Camera Position Z()
      Rotate Object i,Camera Angle X(),Camera Angle Y(),0.0
   Endif
Next i

`And we've gotta keep resetting the CurrentBullet variable to one everytime it exceeds 20 (since we've only got 20 bullets in this case - you can change it though)
If currentBullet>20 Then currentBullet=1

`And, of course, we've gotta keep decrementing shootDelay so that the player can shoot again (after the delay is up)
If shootDelay>0 Then Dec shootDelay

rem Finally-finally, some simple output for fancyness
Set Cursor 0,0
Print "Current Ammunition: ";ammo
Print "Ammo fired";1000-ammo


SYNC : LOOP

This third builds on the second:

Hide Mouse
Set Display Mode 640,480,16

rem First, we make our bullet objects - in this case, some simple cubes. Um... let's say 20 bullets
`(we hide the bullets right now because we only want them showing up when being fired)
For i = 1 to 20
   Make Object Cube i,10
   Hide Object i
Next i

rem Now let's make a very simple world (with some boxes for scenery)
Make Matrix 1,2500,2500,15,15
Make Object Box 100,50,200,50
Make Object Box 101,50,200,50
Make Object Box 102,50,200,50
Position Object 100,1250,100,1250
Position Object 101,750,100,1250
Position Object 102,750,100,750

rem Some variables (I'll explain these in the program itself)
currentBullet=1
Dim bulletLife(20)
ammo=1000
shootDelay=0

rem MAIN LOOP
SYNC ON : SYNC RATE 50 : DO

rem First, let's let the player do some simple camera movement using the mouse
If MouseClick()=2 Then Move Camera 10
XRotate Camera Wrapvalue(Camera Angle X()+MouseMoveY())
YRotate Camera Wrapvalue(Camera Angle Y()+MouseMoveX())

rem Now we handle the fun stuff - shooting! Let me tell you what's we want to happen here. First, we
rem want the player to be able to fire multiple bullets away from the camera at a certain speed. These bullets
rem should move out so that they come from the center of the camera position itself. Then we'll
rem want these bullets to "die off" eventually so that we can reuse them again - thus giving the impression that he's
rem able to fire continuously

`First, we've gotta check if the current bullet is "alive" or not i.e. if it has already been shot (in this program a value of 0 means dead and anything greater than 0 means alive)
`We've also gotta check if there's enough ammo left
`And now, we add a delay so that the bullets are fired so quickly - only if this variable is zero would player be able to fire
If bulletLife(currentBullet)=0 and ammo>0 and shootDelay<=0
   `If not, when player presses fire button (left mouse), then set the bulletLife to something, say 50, and increment currenBullet (that way the program will use the next bullet in
   `line the next time). We also want the ammo variable to be reduced by one (obviously)
   If MouseClick()=1 Then bulletLife(currentBullet)=50 : Inc currentBullet : Dec ammo : shootDelay=10
Endif

`Now, since any of the 20 bullets could be alive, we've gotta check *each* one's life value using (you guessed it right!) a for-next loop
For i = 1 to 20
   `If the bullet (any one of the 20) is alive
   If bulletLife(i)>0
      `First show the bullet
      Show Object i
      `Make the bullet move straight ahead
      Move Object i,20
      `And decrement the life value so that it will ultimately die when bulletLife reaches 0
      bulletLife(i)=bulletLife(i)-1
   Endif
Next i

`Finally, we've gotta reset the position of the dead bullets to the camera's position and rotation so that it can be used properly again (otherwise the bullet will be fired from the last position it was when it was fired)
For i = 1 to 20
   `If bullet is dead
   If bulletLife(i)<=0
      `Just in case the bulletLife slipped below zero, we wanna reset it to zero because otherwise that line "If bulletLife(currentbullet)=0" won't work
      bulletLife(i)=0
      `Hide the bullet object
      Hide Object i
      `Reposition and re-rotate the bullet to the cam's position and rotation
      Position Object i,Camera Position X(),Camera Position Y(),Camera Position Z()
      Rotate Object i,Camera Angle X(),Camera Angle Y(),0.0
   Endif
Next i

`And we've gotta keep resetting the CurrentBullet variable to one everytime it exceeds 20 (since we've only got 20 bullets in this case - you can change it though)
If currentBullet>20 Then currentBullet=1

`And, of course, we've gotta keep decrementing shootDelay so that the player can shoot again (after the delay is up)
If shootDelay>0 Then Dec shootDelay

rem Now for some ADDED fun, we are going to check collision with those pillars we included
`First, we scan all the 20 bullets and see if any one hits
For i = 1 to 20
   `If it hits any pillar we rotate the pillar a random angle
   If Object Collision(i,100)>0 Then Rotate Object 100,Rnd(360),Rnd(360),0.0
   If Object Collision(i,101)>0 Then Rotate Object 101,Rnd(360),Rnd(360),0.0
   If Object Collision(i,102)>0 Then Rotate Object 102,Rnd(360),Rnd(360),0.0
Next i

rem Finally, let's make some cool-looking cross hairs as the final touch!
`I'm just making 2D lines using the Line command from one point to another to make an open cross
Line 300,240,310,240
Line 330,240,340,240
Line 320,220,320,230
Line 320,250,320,260

rem Some simple output for fancyness
Set Cursor 0,0
Print "Current Ammunition: ";ammo
Print "Ammo fired";1000-ammo

SYNC : LOOP

+ Code Snippet

Hide Mouse
Set Display Mode 640,480,16


rem First, we make our bullet objects - in this case, some simple cubes. Um... let's say 20 bullets
`(we hide the bullets right now because we only want them showing up when being fired)
For i = 1 to 20
   Make Object Cube i,10
   Hide Object i
Next i

rem Now let's make a very simple world (with some boxes for scenery)
Make Matrix 1,2500,2500,15,15
Make Object Box 100,50,200,50
Make Object Box 101,50,200,50
Make Object Box 102,50,200,50
Position Object 100,1250,100,1250
Position Object 101,750,100,1250
Position Object 102,750,100,750

rem Some variables (I'll explain these in the program itself)
currentBullet=1
Dim bulletLife(20)
ammo=1000
shootDelay=0

rem MAIN LOOP
SYNC ON : SYNC RATE 50 : DO


rem First, let's let the player do some simple camera movement using the mouse
If MouseClick()=2 Then Move Camera 10
XRotate Camera Wrapvalue(Camera Angle X()+MouseMoveY())
YRotate Camera Wrapvalue(Camera Angle Y()+MouseMoveX())

rem Now we handle the fun stuff - shooting! Let me tell you what's we want to happen here. First, we
rem want the player to be able to fire multiple bullets away from the camera at a certain speed. These bullets
rem should move out so that they come from the center of the camera position itself. Then we'll
rem want these bullets to "die off" eventually so that we can reuse them again - thus giving the impression that he's
rem able to fire continuously

`First, we've gotta check if the current bullet is "alive" or not i.e. if it has already been shot (in this program a value of 0 means dead and anything greater than 0 means alive)
`We've also gotta check if there's enough ammo left
`And now, we add a delay so that the bullets are fired so quickly - only if this variable is zero would player be able to fire
If bulletLife(currentBullet)=0 and ammo>0 and shootDelay<=0
   `If not, when player presses fire button (left mouse), then set the bulletLife to something, say 50, and increment currenBullet (that way the program will use the next bullet in
   `line the next time). We also want the ammo variable to be reduced by one (obviously)
   If MouseClick()=1 Then bulletLife(currentBullet)=50 : Inc currentBullet : Dec ammo : shootDelay=10
Endif

`Now, since any of the 20 bullets could be alive, we've gotta check *each* one's life value using (you guessed it right!) a for-next loop
For i = 1 to 20
   `If the bullet (any one of the 20) is alive
   If bulletLife(i)>0
      `First show the bullet
      Show Object i
      `Make the bullet move straight ahead
      Move Object i,20
      `And decrement the life value so that it will ultimately die when bulletLife reaches 0
      bulletLife(i)=bulletLife(i)-1
   Endif
Next i

`Finally, we've gotta reset the position of the dead bullets to the camera's position and rotation so that it can be used properly again (otherwise the bullet will be fired from the last position it was when it was fired)
For i = 1 to 20
   `If bullet is dead
   If bulletLife(i)<=0
      `Just in case the bulletLife slipped below zero, we wanna reset it to zero because otherwise that line "If bulletLife(currentbullet)=0" won't work
      bulletLife(i)=0
      `Hide the bullet object
      Hide Object i
      `Reposition and re-rotate the bullet to the cam's position and rotation
      Position Object i,Camera Position X(),Camera Position Y(),Camera Position Z()
      Rotate Object i,Camera Angle X(),Camera Angle Y(),0.0
   Endif
Next i

`And we've gotta keep resetting the CurrentBullet variable to one everytime it exceeds 20 (since we've only got 20 bullets in this case - you can change it though)
If currentBullet>20 Then currentBullet=1

`And, of course, we've gotta keep decrementing shootDelay so that the player can shoot again (after the delay is up)
If shootDelay>0 Then Dec shootDelay


rem Now for some ADDED fun, we are going to check collision with those pillars we included
`First, we scan all the 20 bullets and see if any one hits
For i = 1 to 20
   `If it hits any pillar we rotate the pillar a random angle
   If Object Collision(i,100)>0 Then Rotate Object 100,Rnd(360),Rnd(360),0.0
   If Object Collision(i,101)>0 Then Rotate Object 101,Rnd(360),Rnd(360),0.0
   If Object Collision(i,102)>0 Then Rotate Object 102,Rnd(360),Rnd(360),0.0
Next i


rem Finally, let's make some cool-looking cross hairs as the final touch!
`I'm just making 2D lines using the Line command from one point to another to make an open cross
Line 300,240,310,240
Line 330,240,340,240
Line 320,220,320,230
Line 320,250,320,260

rem Some simple output for fancyness
Set Cursor 0,0
Print "Current Ammunition: ";ammo
Print "Ammo fired";1000-ammo

SYNC : LOOP

Hello World Tommorrow

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Help with a shooting system, turning numbers into objects