Sorry your browser is not supported!

sync on

´nr of max bullets
maxbullets=20
dim bullet(maxbullets,2)
set current
currentbullet=0

do

´control player
if rightkey()=1 then inc xpos
if leftkey()=1 then dec xpos
if upkey()=1 then dec ypos
if downkey()=1 then inc ypos

´shooting
if spacekey()=1
 inc currentbullet
 if bullet(currentbullet,2)<0
  ´set xvalue = player x
  bullet(currentbullet,1)=xpos
  ´set yvalue = player y
  bullet(currentbullet,2)=ypos
 endif
endif

´bullet handling
for x=1 to maxbullets
 if bullet(x,2)>0 then bullet(x,2)=bullet(x,2)-5
next x

sprite 1,xpos,ypos,nr_of_ship_image
for x=1 to maxbullets
 sprite 1+x,bullet(x,1),bullet(x,2),nr_of_bullet_image
next x

sync
loop

if spacekey()=1 and isShooting=0
 sprite 111,bulletx,bullety,3
 isShooting=1 
endif

if isShooting=1
   bullety=bullety-6
endif

if bullety<0
  delete sprite 111
  isShooting=0
  bulletx=305 :`make sure we reset these values so the bullet can be re-uses
  bullety=420
endif