Whoops...forgot to add code...here it is:
Rem Project: test
Rem Created: 17/03/2004 22:12:59
Rem ***** Main Source File *****
ink rgb(255,0,0),rgb(0,0,0)
circle 15,15,15
circle 41,10,10
circle 57,5,5
Get Image 1,0,0,31,31
Get Image 2,31,0,52,21
Get Image 3,52,0,63,11
load sound "C:\Program Files\Dark Basic Software\Dark Basic Professional\Media\Sounds\Space guns\White zap.wav",1
load sound "C:\Program Files\Dark Basic Software\Dark Basic Professional\Media\Sounds\explosions\boom 1.wav",2
x=1
y=400
x1=1
y1=20
score = 0
maxsprite=100
maxrocks=20
cycles=500
counter=0
dead =0
cls
sprite 200,x1,y1,1
sprite 1,x,y,1
sync on
do
rem create new rock
if counter>=cycles
j=200
while j<200+maxrocks+1
if sprite exist(j)=0
sprite j,rnd(639)+1,0,2
counter=0
j=200+maxrocks+1
endif
j=j+1
endwhile
endif
rem delete any bullets that have gone off of the screen
for i=2 to maxsprite+1
if sprite exist(i)=1
if sprite y(i)<0
delete sprite i
endif
endif
next i
rem delete any rocks that have gone off of the screen
for j=200 to maxrocks+200
if sprite exist(j)=1
if sprite y(j)>480
delete sprite j
endif
endif
next j
rem Check to see if any bullets have hit any rocks
for i=2 to maxsprite+1
if sprite exist(i)=1
for j=200 to 200+maxrocks
if sprite exist(j)=1
if sprite hit (i,j)=1
delete sprite i
delete sprite j
play sound 2
score = score + 5
endif
endif
next j
endif
next i
rem Check to see if rocks have hit player
for j=200 to 200+maxrocks
if sprite exist(j)=1
if sprite hit (j,1)=1
delete sprite 1
delete sprite j
dead=dead+1
PLAY SOUND 2
endif
endif
next j
rem Move bullets up screen
for i=2 to maxsprite+1
if sprite exist(i)=1
sprite i, sprite x(i), sprite y(i)-5,3
endif
next i
rem Move rocks down the screen
for j=200 to 200+maxrocks
if sprite exist(j)=1
sprite j,sprite x(j),sprite y(j)+1,2
endif
next j
rem Check for player interaction
if sprite exist(1)=1
if leftkey()=1 then sprite 1,sprite x(1)-1,sprite y(1),1
if rightkey()=1 then sprite 1,sprite x(1)+1,sprite y(1),1
if spacekey()=1
i=2
spdone=0
while i<maxsprite+1
if sprite exist(i)=0
sprite i,sprite x(1)+10,sprite y(1),3
play sound 1
i=maxsprite+1
endif
i=i+1
endwhile
endif
endif
counter=counter+1
text 0,0,"Score: "+str$(score)
sync
if dead>=1 then exit
loop
cls
Print "GAME OVER"
sync
wait key
