I don't know if you wanted any, but here's some code for a simple bullet system. I didn't comment it all that much, but if you work your way through it, it isn't complicated.
`setup
global NumLasers=15
global time=1
type typeLaser
obj as integer
life as integer
speed as integer
endtype
dim laser(NumLasers) as typeLaser
for i = 1 to NumLasers
laser(i).obj=i
laser(i).life=5000
laser(i).speed=1
next i
`program loop
while escapekey()=0
if mouseclick()=1 and time=1
shoot_laser()
time=2
endif
`fake timer ;)
if time<500 and time>1 then inc time
if time=500 then time=1
`control the bullets
control_lasers()
endwhile
function shoot_laser()
for i = 1 to NumLasers
if object exist(laser(i).obj)=0
make object sphere laser(i).obj,5
position object laser(i).obj,0,0,0
exitfunction
endif
next i
endfunction
function control_lasers()
for i =1 to NumLasers
if object exist(laser(i).obj)=1
if laser(i).life>0
move object laser(i).obj,laser(i).speed
dec laser(i).life
else
delete object laser(i).obj
laser(i).life=5000
endif
endif
next i
endfunction
Hope that helps!
G2L
EDIT: we both joined on "Thu Dec 15th 2005"
