Sorry your browser is not supported!

sync on
sync rate 60
shipx=32
shipy=32
bulletx=0
bullety=0
shoot=0
score=0
LOAD IMAGE "ship.bmp",1
LOAD IMAGE "bullet.bmp",2
LOAD IMAGE "enemy.bmp",3
SPRITE 1,shipx,shipy,1
SPRITE 2,bulletx,bullety,2
SPRITE 3,280,16,3
do
if upkey() then shipy=shipy-2
if downkey() then shipy=shipy+2
if spacekey() and shoot=0 then shoot=1:bullety=shipy:bulletx=shipx
if shoot=1 then PASTE SPRITE 2,bulletx,bullety:bulletx=bulletx+5
if bulletx>320 then DELETE SPRITE 2:shoot=0
SPRITE 1,shipx,shipy,1
SPRITE 2,bulletx,bullety,2
SPRITE 3,280,16,3
sync
loop

set display mode 800,600,16
sync on:sync rate 0
shipx=400:shipy=540
bulletx=-100:bullety=0

Cls RGB(180,0,0)
Get Image 1,0,0,26,10,1
Get Image 2,0,0,3,6,1
Get Image 3,0,0,36,16,1

SPRITE 1,shipx,shipy,1
SPRITE 2,bulletx,bullety,2
x=20:y=20
for t=3 to 13
   SPRITE t,x,y,3
   inc x,50
next t


do
Cls
if Leftkey() then Dec shipx,2
if Rightkey() then Inc shipx,2
if shipx<10 then shipx=10
if shipx>790-sprite width(1) then shipx=790-sprite width(1)
if spacekey() and shoot=0
   shoot=1
   bulletx=shipx+12:bullety=shipy-1
endif
if shoot=1 then dec bullety,2
if bullety<0 then bulletx=-100:shoot=0
`----------------------------
`collision.
`----------------------------
col=sprite collision(2,0)
if col>2 and col<14
   delete sprite Col
endif
for t=3 to 13
   if sprite exist(t) then sprite t,sprite x(t),sprite y(t),3
next t
`----------------------------
SPRITE 1,shipx,shipy,1
SPRITE 2,bulletx,bullety,2
sync
loop

set display mode 800,600,16
sync on:sync rate 0:hide mouse
shipx=400:shipy=540
bulletx=-100:bullety=0

Cls RGB(180,0,0)
Get Image 1,0,0,26,10,1
Get Image 2,0,0,5,7,1
Get Image 3,0,0,36,16,1

SPRITE 100,shipx,shipy,1
SPRITE 200,bulletx,bullety,2

xx=80:yy=20
for y=1 to 5
   for x=1 to 10
      inc enemycount
      SPRITE enemycount,xx,yy,3
      inc xx,50
   next x
   inc yy,40
   xx=80
next y


do
Cls
if Leftkey() then Dec shipx,1
if Rightkey() then Inc shipx,1
if shipx<10 then shipx=10
if shipx>790-sprite width(1) then shipx=790-sprite width(1)
if spacekey() and shoot=0
   shoot=1
   bulletx=shipx+12:bullety=shipy-1
endif
if shoot=1 then dec bullety,1
if bullety<0 then bulletx=-100:shoot=0
`----------------------------
`collision.
`----------------------------
col=sprite collision(200,0)
if col>0 and col<66
   bulletx=-100
   shoot=0
   delete sprite Col
endif
for s=1 to enemycount
   if sprite exist(s) then sprite s,sprite x(s),sprite y(s),3
next s
`----------------------------
SPRITE 100,shipx,shipy,1
SPRITE 200,bulletx,bullety,2
sync
loop