Sorry your browser is not supported!

set display mode 640,480,16
set image colorkey 255,0,255
rem load player sprite
load image "ship.png",1
rem load enemy sprite
load image "ufo.png",2
rem load bullet sprite
load image "bullet.png",11
rem load background music
load music "music.mp3",1
rem loop background music
loop music 1
load sound "explosion.wav",1
load sound "blaster.wav",2
load image "earth.bmp",20
rem set variables global
global bulletx
global bullety
global bulletalive
global playerx
global playery
global enemyx
global enemyy
global bullet
global spritex
global spritey
global spritenum
global max
global numberkilled

rem initialise players starting position
playerx=400
playery=420

rem the maximum number of enemies
max=10

rem sets up arrays for x and y values
dim spritex(max)
dim spritey(max)


rem hides mouse
hide mouse

rem generates the enemy sprites
for n=4 to max
spritex(n)=rnd(640)+640
spritey(n)=rnd(350)
sprite n,spritex(n),spritey(n),2
next n

sync rate 60
sync on

rem main game loop
do
rem pastes image 20 (of the earth)
paste image 20,0,0
print "numberkilled";numberkilled
moveplayersprite()
if bulletalive=1 then checkforcollisions()
updatesprites()
moveenemysprites()
sync
loop

function moveplayersprite
if leftkey() then dec playerx,2
if playerx<0 then playerx=0
if rightkey() then inc playerx,2
if playerx>580 then playerx=580
if spacekey() and bulletalive=0 then bullet()
endfunction

function updatesprites
sprite 1,playerx,playery,1
if bulletalive=1
sprite 3,bulletx,bullety,11
if sprite visible(3)<1 then show sprite 3
dec bullety,10
endif
if bullety<-60 then bulletalive=0
endfunction

rem this function plays the bullet sound, sets the bulletalive flag to 1 and makes the x, y coordinates of the bullet equal to the player position
function bullet()
     play sound 2
     bulletalive=1
     bulletx=playerx+16
     bullety=playery
endfunction

rem this function moves all of the enemy sprites
function moveenemysprites
for n=4 to max
if sprite exist(n)=1
dec spritex(n),1
sprite n,spritex(n),spritey(n),2
endif
rem if sprite moves off the screen set it to other right hand side of the screen
if spritex(n)<-100 then spritex(n)=700
rem if sprite does not exist then create it off the side of the screen on a random y value
if sprite exist(n)<1 then sprite n,rnd(640)+700,rnd(300),2
next n
endfunction

function checkforcollisions
for n=4 to max
if sprite hit(n,3)=1
delete sprite 3
play sound 1
bulletalive=0
delete sprite n
numberkilled=numberkilled+1
bulletx=playerx
bullety=playery
endif
next n
endfunction

set display mode 640,480,16
set image colorkey 255,0,255
rem load player sprite
load image "ship.png",1
rem load enemy sprite
load image "ufo.png",2
rem load bullet sprite
load image "bullet.png",11
rem load background music
load music "music.mp3",1
rem loop background music
loop music 1
load sound "explosion.wav",1
load sound "blaster.wav",2
load image "earth.bmp",20
rem set variables global
global bulletx
global bullety
global bulletalive
global playerx
global playery
global enemyx
global enemyy
global bullet
global spritex
global spritey
global spritenum
global max
global numberkilled
global spriteno
rem initialise players starting position
playerx=400
playery=420
rem the maximum number of enemies
max=13
rem sets up arrays for x and y values
dim spritex(max)
dim spritey(max)
dim spriteno(max)
rem hides mouse
hide mouse
rem generates the enemy sprites
for n=4 to max
spriteno(n)=1
spritex(n)=rnd(700)
spritey(n)=rnd(380)
sprite n,spritex(n),spritey(n),2
next n
sync rate 60
sync on
rem main game loop
do
paste image 20,0,0
moveplayersprite()
updatesprites()
checkforcollisions()
sync
loop

function moveplayersprite
if leftkey() then dec playerx,2
if playerx<0 then playerx=0
if rightkey() then inc playerx,2
if playerx>580 then playerx=580
if spacekey() and bulletalive=0
play sound 2
     bulletalive=1
     bulletx=playerx+16
     bullety=playery
endif
if bullety<-60 then bulletalive=0
endfunction

function updatesprites
sprite 1,playerx,playery,1
if bulletalive=1
sprite 3,bulletx,bullety,11
dec bullety,10
endif
for n=4 to max
dec spritex(n),1
sprite n,spritex(n),spritey(n),2
if spritex(n)<-100 then spritex(n)=rnd(640)+700
if spriteno(n)=0
spritex(n)=rnd(640)+700
spriteno(n)=1
endif
next n
endfunction

function checkforcollisions
for n=4 to max
if sprite hit(n,3)=1
spriteno(n)=spriteno(n)-1
play sound 1
bulletalive=0: sprite 3,700,700,3
inc numberkilled,1
endif
next n
endfunction