Sorry your browser is not supported!

Text 1600, 47, "SPRITE HIT: " +str$ (Sprite hit(  "???" , 5))

box 0,0,50,50
get image 2,0,0, 5,10  `bullet
get image 1,0,0,1,1,1
load image "sprites\player\player_ship.bmp", 3
load image "sprites\enemies\enemy_1.bmp",5


sprite 3,896,990,3		//Player
sprite 5, 500,500,5		//Enemy

`======Max bullet life
MaxLife = 200
MaxNumOfBullets=200
Dim Bullets(maxnumofbullets,2)
BulletWait = 200 : `Number of milliseconds between each bullet
`======
`====== vars
X = 320
Y = 240
Ang=0
Velocity# = 0.0
`============

repeat

  goSub Bullets
  
  GoSub Feedback
sync

Bullets:

  rem Loop through each bullet "slot"
  for b = 1 to MaxNumOfBullets
  

    rem Fire Sprite
    if controlkey()=1 and Bullets(b,1)=0 and (timer()-LastCreated) > BulletWait

      sprite b+10, s_centre_x -5, s_centre_y -30, 2     
      rotate sprite b+10,(sprite angle(3) +180)
      Bullets(b,1)=1
      Bullets(b,2)=0
      show sprite b+10
      move sprite b+10,3
		play sound 1
		
      rem Store time when bullet was last created, to allow a few secs between each create
      LastCreated = timer() 
     

    endif
    

    rem If fired, move
    if Bullets(b,1)=1
      move sprite b+10,6
      `DBP bug - cannot decrement arrays
      l = bullets(b,2)
      inc l
      Bullets(b,2) = l
    endif



    rem Stop if at end of life and decrement bullets
    if Bullets(b,2) > maxlife
      Bullets(b,1)=0
      hide sprite b+10
    endif




  next b


`=======FEEDBACK====
Feedback:
 	    
Text 1724, 27, " &  PLAYER Y: "+str$(sprite Y (3))
Text 1600, 47, "SPRITE HIT: " +str$ (Sprite hit(  ???? , 5))
return
`==================================

return 
end

#CONSTANT SPR_BULLET = 10
#CONSTANT IMG_BULLET = 2

Type Bullet
    x as float
    y as float
EndType


Global _ActiveBullet = 0

maxNumOfBullets = 100
dim bullets(maxNumOfBullets) as Bullet


box 0,0,50,50
get image IMG_BULLET, 0,0,5,10  `bullet


sprite SPR_BULLET, 0, 0, IMG_BULLET
hide sprite SPR_BULLET


sync on
sync rate 60

DO
    cls
    
    
    rem User controls
    if mouseclick()
        if _ActiveBullet < maxNumOfBullets
            inc _ActiveBullet
            bullets(_ActiveBullet).x = mousex()
            bullets(_ActiveBullet).y = mousey()
        endif
    endif
    
    
    rem Loop through active bullets
    for i = 1 to _ActiveBullet
        rem update bullet position
        dec bullets(i).y, 3
        rem position and draw bullet
        paste sprite SPR_BULLET, bullets(i).x, bullets(i).y
        rem check for collision and screen boundaries
        if bullets(i).y < 0
            killBullet(i)
            dec i
        endif
    next i
    
    
    sync
LOOP


function killBullet(b)
    bullets(b) = bullets(_ActiveBullet)
    dec _ActiveBullet
endfunction