Sorry your browser is not supported!

` Make 10 sprites
for t=1 to 10
 ` Change to a random color
 ink rgb(rnd(255),rnd(255),rnd(255)),0
 ` Make a box with the color above
 box 0,0,25,25
 ` Change the color to white
 ink rgb(255,255,255),0
 ` Add text to show different image numbers 
 center text 12,5,str$(t)
 ` Grab image
 get image t,0,0,25,25
next t


Image=1
tim=timer()
do

 ` Show sprite with current Image Number
 sprite 1,100,100,Image
 
 ` Check if the timer has past
 `  This allows you to control how fast it animates
 `  1000 = 1 second
 if timer()>tim+100
  ` Reset the timer
  tim=timer()
  ` Increase Image number
  inc Image
  ` If Image=11 make Image=1
  if Image=11 then Image=1
 endif

loop

load image "circle1.bmp",1
load image "circle2.bmp",2
load image "circle3.bmp",3


` Make 10 sprites
for t=1 to 3
 ` Change to a random color
 ink rgb(rnd(255),rnd(255),rnd(255)),0
 ` Make a box with the color above
 box 0,0,25,25
 ` Change the color to white
 ink rgb(255,255,255),0
 ` Add text to show different image numbers 
 center text 12,5,str$(t)
 ` Grab image
 get image t,0,0,100,100
next t


Image=1
tim=timer()
do

 ` Show sprite with current Image Number
 sprite 1,100,100,Image
 
 ` Check if the timer has past
 `  This allows you to control how fast it animates
 `  1000 = 1 second
 if timer()>tim+100
  ` Reset the timer
  tim=timer()
  ` Increase Image number
  inc Image
  ` If Image=4 make Image=1
  if Image=4 then Image=1
 endif

loop

load image "circle1.bmp",1
load image "circle2.bmp",2
load image "circle3.bmp",3

Image=1
tim=timer()
do

 ` Show sprite with current Image Number
 sprite 1,100,100,Image
 
 ` Check if the timer has past
 `  This allows you to control how fast it animates
 `  1000 = 1 second
 if timer()>tim+100
  ` Reset the timer
  tim=timer()
  ` Increase Image number
  inc Image
  ` If Image=4 make Image=1
  if Image=4 then Image=1
 endif

loop

` Change to a random color
ink rgb(rnd(255),rnd(255),rnd(255)),0
` Make a box with the color above
box 0,0,75,75
` Change the color to white
ink rgb(255,255,255),0
` Add text 
center text 37,27,"Image 1"
` Grab image
get image 1,0,0,75,75

` Clear the screen
cls

` Make one sprite at a random location
sprite 1,rnd(640),rnd(480),1
` Get the sprites x and y coordinates
x=sprite x(1)
y=sprite y(1)

` Print the coordinates
text 0,0,"Sprite #1 X = "+str$(x)
text 0,20,"Sprite #1 Y = "+str$(y)

wait key

` Change to a random color
ink rgb(rnd(255),rnd(255),rnd(255)),0
` Make a box with the color above
box 0,0,75,75
` Change the color to white
ink rgb(255,255,255),0
` Add text 
center text 37,27,"Image 1"
` Grab image
get image 1,0,0,75,75

` Make 10 sprites using same image
for t=1 to 10
 sprite t,rnd(640),rnd(480),1
next t

wait key

sync on

hide mouse

load image "ship.bmp",1
load image "laser.bmp",2
load image "greenpawn.bmp",3
load image "purplepawn.bmp",4


shipx=320
shipy=450

rem I had to add this line before the main loopto avoid a "Bob does not 
rem exist." message. Is there a better way to do this?
sprite 1,shipx,shipy,1

laserx = sprite x(1)
lasery = sprite y(1)

delete sprite 1

do

sprite 1,shipx,shipy,1

if leftkey()=1 then shipx=shipx-3
if rightkey()=1 then shipx=shipx+3

remstart 
I tried as best as I could to get the next three lines involving the
laser to work. The result is that you have to hold down the spacebar
to get the laser to move upward, and once it's off the screen there is
no way to fire again. Also, the laser always starts in the middle
of the screen regardless of the player's position.
remend

if spacekey()=1 then sprite 2,laserx,lasery,2
if sprite exist(2) then lasery=lasery-3
if lasery<5 then delete sprite 2

if shipx<40 then shipx=40
if shipx>600 then shipx=600

sync
loop

***your set up code
laserflag=0

do

*** movement stuff

***laser fire
if laserflag=0  `if there is not a laser currently on the screen
     if spacekey()=1 `you pressed fire
          laserflag=1 `the laser beam is in motion
          sprite 2,laserx,lasery,2 `place sprite 2 at x,y
          lasery=lasery-3 `move the laser up by 3 pixels
     endif
endif

if laserflag=1 and lasery<=enemyy `if the laser is moving up hits an enemy or you can use sprite collision (probably better idea)
     explosion_function
     score=score + amount
     delete sprite 2
     laserflag=0 `reset laserflag so you can fire again
endif

if lasery<5 `if laser sprite moves out of the top of screen 
     delete sprite 2
     laserflag=0 `reset laser flag
endif

***your set up code
laserflag=0

do

*** movement stuff

***laser fire
if laserflag=0  `if there is not a laser currently on the screen
     if spacekey()=1 `you pressed fire
          laserflag=1 `the laser beam is in motion
          sprite 2,laserx,lasery,2 `place sprite 2 at x,y
          lasery=lasery-3 `move the laser up by 3 pixels
     endif
endif

if laserflag=1 and lasery<>enemyy 'while laser on screen and no sprite collision between laser and enemy
     sprite 2,laserx,lasery,2 `place sprite 2 at x,y
     lasery=lasery-3 `move the laser up by 3 pixels
endif

if laserflag=1 and lasery<=enemyy `if the laser is moving up hits an enemy or you can use sprite collision (probably better idea)
     explosion_function
     score=score + amount
     delete sprite 2
     laserflag=0 `reset laserflag so you can fire again
endif

if lasery<5 `if laser sprite moves out of the top of screen 
     delete sprite 2
     laserflag=0 `reset laser flag
endif

rem Laser
if spacekey()=1
   if laserflag=0
      laserx=shipx+10
      laserflag=1
   endif
endif

sync on

hide mouse

load image "ship.bmp",1
load image "laser.bmp",2
load image "greenpawn.bmp",3
load image "purplepawn.bmp",4

rem Functions
shipx=320
shipy=450
purplex=50
purpley=150
greenx=50
greeny=100
lasery = shipy-20
laserflag=0


do

rem Ship creation and controls
sprite 1,shipx,shipy,1

if leftkey()=1 then shipx=shipx-3
if rightkey()=1 then shipx=shipx+3


rem Enemies
	rem Green Pawn
		for t=3 to 11
		sprite t,t*greenx,greeny,3
		next t

	rem Purple Pawn
		for t=11 to 18
		sprite t,(t-8)*purplex,purpley,4
		next t
rem Laser
if spacekey()=1
	if laserflag=0
		laserflag=1
		laserx=shipx+10
	endif
endif

if laserflag=1
	lasery=lasery-3
	sprite 2,laserx,lasery,2

endif

if lasery<5 
		delete sprite 2
		laserflag=0
		lasery=shipy-20
	endif

rem Ship can't leave the screen.
if shipx<40 then shipx=40
if shipx>600 then shipx=600

sync
loop

` ` = rem also
` variables add in
ship_direction = 1
` 1 = left 2  = right ` 3 = drop down right 4 = drop down left

enemy:
if ship_direction = 1
		for t=3 to 11
		sprite t,sprite x(t) - 1,sprite y(t),3
		next t

	rem Purple Pawn
		for t=11 to 18
		sprite t,sprite x(t) - 1,sprite y(t),4
		next t
if sprite x(3) <= 10
ship_direction = 3
endif
endif
if ship_direction = 2
		for t=3 to 11
		sprite t,sprite x(t) +  1,sprite y(t),3
		next t

	rem Purple Pawn
		for t=11 to 18
		sprite t,sprite x(t) + 1,sprite y(t),4
		next t
if sprite x(11) >= screen width() - 10
ship_direction = 4
endif
endif
if ship_direction = 3
for t = 3 to 11
sprite t,sprite x(t),sprite y(t) + sprite height(t),3
next t
for t = 11 to 18
sprite t,sprite x(t),sprite y(t) + sprite height(t),4
next t
ship_direction = 2
endif
if ship_direction = 4
for t = 3 to 11
sprite t,sprite x(t),sprite y(t) + sprite height(t),3
next t
for t = 11 to 18
sprite t,sprite x(t),sprite y(t) + sprite height(t),4
next t
ship_direction = 1
endif

return

do
gosub enemy
loop