Sorry your browser is not supported!

REM These are stored in image slots 1-100
FOR I=1 to 100
	INK 0,RGB(2.5*i,2.5*i,2.5*i)
	cls
	get image i,0,0,25,25
NEXT I

cls 0

REM This is the counter variable. It is used to time each frame to ensure
REM Proper speed of animation
animationcounter=0
REM This is a constant. It is the number of loops that it takes to change frames
framelength=10
REM Initializes the variable we will be using to control which picture will be
REM used for the sprite.
frame=1

REM Begin the loop
do
	REM Increase the counter
	inc animationcounter
	REM If the current frame has been displayed for the correct length of time
	REM then reset the counter and go to the next frame of the animation
	if animationcounter>=framelength
		animationcounter=0
		inc frame
	endif
	REM Make sure that the frames dont exceed the number of images.
	if frame>100 then frame=1
	REM Display everything
	sprite 1,300,200,frame
sync
loop

backdrop on
color backdrop rgb (200,0,0)
load image "C:\Media\Play.jpeg", 1 
do
paste image 1, 100, 100
loop

rem this controls if sprites will be used in the game
sprites_on = 0

rem set original player position
playerx = 320
playery = 460

rem main loop
do
	cls
	gosub control_player
	gosub without_sprites
	gosub update_bullets
	sync
loop

rem control player >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
control_player:
  rem controls for moving player side to side
  rem it will not let the player move out of the screen
  if playerx < 600 and rightkey()=1 then inc playerx, 2
  if playerx > 40 and leftkey()=1 then dec playerx, 2

  rem store fire key input
  oldfire = newfire
  newfire = spacekey()

  rem fire bullet if none exists
  if newfire > oldfire
    if bullet_fired = 0
      bullet_fired = 1
      rem position the bullet at the ship's position
      bullety = playery-20
      bulletx = playerx
    endif
  endif
return

rem load the sprites >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
load_sprites:

  rem load image for ship
  load image "images\ship.bmp",1

  rem load image for bullet
  load image "images\bullet.bmp",2

return

rem draw sprites to the screen >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
draw_sprites:

  rem draw player ship
  sprite 1,playerx-21,playery-13,1

  rem draw the bullet
  if bullet_fired = 1
    sprite 2,bulletx,bullety,2
    show sprite 2
  else
    rem draw sprite (to avoid any "sprite does not exist" error)
    sprite 2,bulletx,bullety,2
    hide sprite 2
  endif

return

rem draw objects without using sprites >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
without_sprites:

  rem set ink green for ship
  ink rgb(0,255,0),0

  rem draw player ship
  box playerx-20, playery-7, playerx+20, playery+7
  box playerx-4, playery-15, playerx+4, playery-7
  
  rem set ink white for bullet
  ink rgb(255,255,255),0

  rem draw the bullet
  if bullet_fired = 1
    line bulletx, bullety-5, bulletx, bullety+5
  endif

return

rem update bullets >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
update_bullets:
  rem update player bullet
  if bullet_fired = 1
    dec bullety, 1
    rem if bullet passes out of screen it dies
    if bullety < 0 then bullet_fired = 0
  endif
return

do
  print "Hello, Mr. Anderson."
`  print "I've been expecting you for some time."
`  print "You are too late to save your friends.
`  print "Goodbye, Mr. Anderson."
loop

sync on : sync rate 60

rem this controls if sprites will be used in the game
sprites_on = 0

rem set original player position
playerx = 320
playery = 460

rem main loop
do
	cls
	gosub control_player
	gosub without_sprites
	gosub update_bullets
	gosub exposure
	sync
loop

rem control player >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
control_player:
  rem controls for moving player side to side
  rem it will not let the player move out of the screen
  if playerx < 600 and rightkey()=1 then inc playerx, 2
  if playerx > 40 and leftkey()=1 then dec playerx, 2

  rem store fire key input
  oldfire = newfire
  newfire = spacekey()

  rem fire bullet if none exists
  if newfire > oldfire
    if bullet_fired = 0
      bullet_fired = 1
      rem position the bullet at the ship's position
      bullety = playery-20
      bulletx = playerx
    endif
  endif
return

rem load the sprites >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
load_sprites:

  rem load image for ship
  load image "images\ship.bmp",1

  rem load image for bullet
  load image "images\bullet.bmp",2

return

rem draw sprites to the screen >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
draw_sprites:

  rem draw player ship
  sprite 1,playerx-21,playery-13,1

  rem draw the bullet
  if bullet_fired = 1
    sprite 2,bulletx,bullety,2
    show sprite 2
  else
    rem draw sprite (to avoid any "sprite does not exist" error)
    sprite 2,bulletx,bullety,2
    hide sprite 2
  endif

return

rem draw objects without using sprites >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
without_sprites:

  rem set ink green for ship
  ink rgb(0,255,0),0

  rem draw player ship
  box playerx-20, playery-7, playerx+20, playery+7
  box playerx-4, playery-15, playerx+4, playery-7
  
  rem set ink white for bullet
  ink rgb(255,255,255),0

  rem draw the bullet
  if bullet_fired
    line bulletx, bullety-8, bulletx, bullety+8
  endif

return

rem update bullets >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
update_bullets:
  rem update player bullet
  if bullet_fired
    dec bullety, 7
    rem if bullet passes out of screen it dies
    if bullety < 0 then bullet_fired = 0
  endif
return

exposure:

if returnkey()=1
  set cursor 10,10
  print "bullet_fired = ",bullet_fired
  set cursor 10,30
  print "playerx = ",playerx
  set cursor 10,50
  print "playery = ",playery
  set cursor 10,70
  print "bullety = ",bullety
  set cursor 10,90
  print "bulletx = ",bulletx
  set cursor 10,110
  print "spacekey() = ",spacekey()
  set cursor 10,130
  print "oldfire = ",oldfire
  set cursor 10,150
  print "newfire = ",newfire
endif

return

sync on : sync rate 60

rem this controls if sprites will be used in the game
sprites_on = 0

rem set original player position
playerx = 320
playery = 460
bulletx = 320
bullety = 460

rem draw ship and save it
ink rgb(0,255,0),0
box playerx-20, playery-7, playerx+20, playery+7
box playerx-4, playery-15, playerx+4, playery-7
get image 1,playerx-20, playery-15, playerx+20, playery+15

rem draw bullet and save it
ink rgb(255,255,255),0
line bulletx, bullety-8, bulletx, bullety+8
get image 2,bulletx-1, bullety-8, bulletx+1, bullety+8

rem reset screen
cls

rem main loop
do
	cls
	gosub control_player
	gosub without_sprites
	gosub update_bullets
	sync
loop

rem control player >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
control_player:
  rem controls for moving player side to side
  rem it will not let the player move out of the screen
  if playerx < 600 and rightkey()=1 then inc playerx, 2
  if playerx > 40 and leftkey()=1 then dec playerx, 2

  rem store fire key input
  oldfire = newfire
  newfire = spacekey()

  rem fire bullet if none exists
  if newfire > oldfire
    if bullet_fired = 0
      bullet_fired = 1
      rem position the bullet at the ship's position
      bullety = playery-20
      bulletx = playerx
    endif
  endif
return

rem draw objects without using sprites >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
without_sprites:

  rem set ink green for ship
  ink rgb(0,255,0),0

  rem draw player ship
  paste image 1,playerx-20, playery-11
  
  rem set ink white for bullet
  ink rgb(255,255,255),0

  rem draw the bullet
  if bullet_fired
    paste image 2,bulletx, bullety
  endif

return

rem update bullets >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
update_bullets:
  rem update player bullet
  if bullet_fired
    dec bullety, 7
    rem if bullet passes out of screen it dies
    if bullety < 0 then bullet_fired = 0
  endif
return

rem Draw graphics and store as images
img_shp = 1
img_blt = 2

rem draw ship
ink rgb(0,255,0),0
box 0,8,40,22
box 16,0,24,8
get image img_shp,0,0,41,23
cls 0

rem draw bullet
ink rgb(255,255,255),0
line 0,0,0,16
get image img_blt,0,0,1,17
cls 0

backdrop on
color backdrop rgb (200,0,0)
load image "C:\Media\Play.jpeg", 1 
do
paste image 1, 100, 100
loop

GOSUB Init_Arrays
GOSUB Load_Images

Sync On : Sync Rate 0
cls 0
DO
	GOSUB Animation_Control
	SYNC
	cls
LOOP
END

Init_Arrays:
	REM Stores Start Count (0), End Count(1), Current Frame (2), and Animation Number (3)
	Dim AnimFrames(65535,3)
	REM Stores Image numbers for animation data. Slot 0: Time/Frame Slot 1: Start frame Slot 2: End Frame Slot 3:Loop Code (0 for loop 1 for dead)
	Dim Animations(65535,3)

	REM REM Each Entity corresponds to a Sprite number
	REM Each value corresponds to the Animation number that the sprite is using
	DIM Entities(65535)
	FOR I=1 to 65535 : Entities(i)=1 : Next I

	REM Animation Data Initialization. Replace with new stuff
	Animations(1,0)=1000
	Animations(1,1)=1
	Animations(1,2)=3
	Animations(1,3)=0
RETURN

Load_Images:
	cls rgb(255,0,0)
	get image 1,0,0,10,10
	cls rgb(0,255,0)
	get image 2,0,0,10,10
	cls rgb(0,0,255)
	get image 3,0,0,10,10
RETURN

Animation_Control:
	REM Update the Animation Data
	UpdateAnimations(Timer())
	REM If Clicked, spawn the animation
	IF MouseClick()=1
		REM Increase the current sprite number
		inc cursprite
		REM Create the sprite with the starting image
		Sprite CurSprite,MouseX(),MouseY(),1
		REM Set the initial values for the animation
		AnimFrames(CurSprite,0)=Timer()
		AnimFrames(CurSprite,1)=Timer()+Animations(Entities(CurSprite),0)
		AnimFrames(CurSprite,2)=1
		AnimFrames(CurSprite,3)=1
	ENDIF		
	REM Display the sprites with their new images but only if they still exist
	For I=1 to CurSprite
		If Sprite Exist(I)
			Sprite I,Sprite X(I),Sprite Y(I),AnimFrames(I,2)
		ENDIF
	NEXT I
RETURN


FUNCTION UpdateAnimations(count)
	REM Cycle Though All Available Slots
	FOR I=1 to 65535
		REM Check if its time to change AND if it exists
		IF Count>=AnimFrames(i,1) AND Sprite Exist(I)
			REM Increase the current frame
			AnimFrames(i,2)=AnimFrames(i,2)+1
			REM Reset the Begin cound and end count for the animation
			AnimFrames(i,0)=Count
			AnimFrames(I,1)=Count+Animations(Entities(i),0)
			REM If the current frame number exceeds the total number of frames in the animation AND its supposed to loop, then loop
			If AnimFrames(i,2)>(1+Animations(Entities(i),2)-Animations(Entities(i),1)) AND Animations(AnimFrames(i,3),3)=0
				AnimFrames(i,2)=1
			ENDIF
		ENDIF
	NEXT I
ENDFUNCTION

If sprite exist(I) then else exit

GOSUB Init_Arrays
GOSUB Load_Images

Sync On : Sync Rate 0
cls 0
DO
	GOSUB Animation_Control
	SYNC
	cls
LOOP
END

Init_Arrays:
	REM Stores Start Count (0), End Count(1), Current Frame (2), and Animation Number (3)
	Dim AnimFrames(65535,3)
	REM Stores Image numbers for animation data. Slot 0: Time/Frame Slot 1: Start frame Slot 2: End Frame Slot 3:Loop Code (0 for loop 1 for dead)
	Dim Animations(65535,3)

	REM REM Each Entity corresponds to a Sprite number
	REM Each value corresponds to the Animation number that the sprite is using
	DIM Entities(65535)
	FOR I=1 to 65535 : Entities(i)=1 : Next I

	REM Animation Data Initialization. Replace with new stuff
	Animations(1,0)=1000
	Animations(1,1)=1
	Animations(1,2)=3
	Animations(1,3)=0
RETURN

Load_Images:
	cls rgb(255,0,0)
	get image 1,0,0,10,10
	cls rgb(0,255,0)
	get image 2,0,0,10,10
	cls rgb(0,0,255)
	get image 3,0,0,10,10
RETURN

Animation_Control:
	REM Update the Animation Data
	UpdateAnimations(Timer())
	REM If Clicked, spawn the animation
	IF MouseClick()=1
		REM Increase the current sprite number
		inc cursprite
		REM Create the sprite with the starting image
		Sprite CurSprite,MouseX(),MouseY(),1
		REM Set the initial values for the animation
		AnimFrames(CurSprite,0)=Timer()
		AnimFrames(CurSprite,1)=Timer()+Animations(Entities(CurSprite),0)
		AnimFrames(CurSprite,2)=1
		AnimFrames(CurSprite,3)=1
	ENDIF		
	REM Display the sprites with their new images but only if they still exist
	For I=1 to CurSprite
		If Sprite Exist(I)
			Sprite I,Sprite X(I),Sprite Y(I),AnimFrames(I,2)
		ENDIF
	NEXT I
RETURN


FUNCTION UpdateAnimations(count)
	REM Cycle Though All Available Slots
	FOR I=1 to 65535
		REM If the last loop contained the last sprite, exit to avoid useless loops
		If sprite exist(I) then else exit
		REM Check if its time to change AND if it exists
		IF Count>=AnimFrames(i,1) AND Sprite Exist(I)
			REM Increase the current frame
			AnimFrames(i,2)=AnimFrames(i,2)+1
			REM Reset the Begin cound and end count for the animation
			AnimFrames(i,0)=Count
			AnimFrames(I,1)=Count+Animations(Entities(i),0)
			REM If the current frame number exceeds the total number of frames in the animation AND its supposed to loop, then loop
			If AnimFrames(i,2)>(1+Animations(Entities(i),2)-Animations(Entities(i),1)) AND Animations(AnimFrames(i,3),3)=0
				AnimFrames(i,2)=1
			ENDIF
		ENDIF
	NEXT I
ENDFUNCTION

If sprite exist(I)=0 then exit

sync on : sync rate 60

rem set ID numbers for barriers
dim img_bar(4)
for a = 1 to 4
	img_bar(a) = a
next a

rem create varable for the barriers damage to be used in the collision_barriers subroutine
dim dam_bar(4)
for a = 1 to 4
	rem set the damage to 255 because the image will be colored using this varable
	dam_bar(a) = 255
next a

rem draw the barriers 
gosub draw_barriers

rem set the position for the barriers to be used to paste barriers and for collision
dim pos_bar_y(4)
dim pos_bar_x(4)

for a = 1 to 4
	rem position the barriers evenly spaced from the left of the screen to the right of the screen
	pos_bar_y(a) = 350
	pos_bar_x(a) = a*160-125 `a-1*160+35
next a

rem main loop
do
	cls
	gosub paste_barriers
	gosub collision_barriers
	sync
loop

rem paste barriers >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
paste_barriers:

rem paste the four barriers
for a = 1 to 4
	paste image img_bar(a),pos_bar_x(a),pos_bar_y(a)
next a

return

rem collision barriers >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
collision_barriers:

rem screen text
ink rgb(255,255,255),0
set cursor 0,0
print "Click on a barrier to damage it"
set cursor 0,30
for a = 1 to 4
	print "Damage to barrier ",a," = ",dam_bar(a)
next a

rem control mouseclick varables
oldmouse = newmouse
newmouse = mouseclick()

rem check if mouse has been clicked
if newmouse > oldmouse

for a = 1 to 4
	rem check if the mouseclick is on a barrier
	if mousey()>349 and mousey()<459
		if mousex()>a*160-125 and mousex()<a*160-35
			rem increase the damage to the barrier
			if dam_bar(a) > 0 then dec dam_bar(a), 85
			rem draw all the barriers to update the one that has changed
			gosub draw_barriers
		endif
	endif
next a

endif

return

rem draw barriers >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
draw_barriers:

for a = 1 to 4
	
	cls
	rem if the image we want to draw already exist delete it
	if image exist(img_bar(a)) then delete image img_bar(a)
	rem color the barrier according to how damaged it is
	ink rgb(0,dam_bar(a),0),0
	rem generate barrier with boxes
	box 0,0,90,35
	box 0,35,30,50
	box 60,35,90,50
	rem grab the barrier and store its as with the correct ID
	get image img_bar(a),0,0,91,51
	cls 0

next a

return

cls
ScrW=screen width()
ScrH=screen height()
`total aliens allowed in the level
maxaliens=41
`sets what the rightmost alien is
rightalien=maxaliens
`sets what the left most alien is
leftalien=2
`points wich direction the aliens are traveling in (to the right now)
enemydir=1
`makes the bitmap and the original sprite
makeimage()
`clones the sprite "maxaliens" times (in this case 41)
gosub enemy_creation

`Main program loop
`***********
hide mouse : backdrop on : color backdrop 0 : sync on : sync rate 60 : do
`***********

`porperties for enemy moving, shooting, and deletion
gosub enemyprops

`***************
`end main program loop
`counts the numeber of times the program has been looped
inc loopcounter,1
sync : loop
`***************


`***************
`functions
`***************
function makeimage()
`will be replaced by alien graphic	
`************************
	create bitmap 1,25,25
		ink rgb(255,0,0),0
		box 0,0,25,25
		get image 1,0,0,25,25
	delete bitmap 1
	sprite 1,50,40,1
`************************
endfunction

`***************
`subroutines
`***************

enemy_creation:
	`enemy creation	
	`creates an array to hold the aliens position on the screen
	dim alienpos(maxaliens+1,3)
	`clones the aliens
	for enemycrt=2 to maxaliens
		`creates a new alien
		clone sprite 1,enemycrt
		show sprite enemycrt
		sprite enemycrt,sprite x(enemycrt)+enemyplacex,enemyplacey,1
		`creates another column of aliens once an alien's Y position has gone over 100
		if sprite y(enemycrt)>100
			`spaces aliens 50 to the right across the X axis
			inc enemyplacex,50
			enemyplacey=0
		else
			`spaces aliens 50 spaces down on the Y axis
			inc enemyplacey,50
		endif
		`saves the position of the aliens position
		rem alien's x position
		alienpos(enemycrt,1)=sprite x(enemycrt)
		rem alien's Y position
		alienpos(enemycrt,2)=sprite y(enemycrt)
			
	next enemycrt

return

enemyprops:
	for enemy=2 to maxaliens
	
		if sprite exist(enemy)=1
			`enemy movement
			`every 50 loops (subtracting alienspeed) the aliens move (creates grid like movement)
			if loopcounter=50-alienspeed
			`moves the enemies over every 50 loops
				inc alienx,20*enemydir
				loopcounter=0
			endif
			
			`checks to see if aliens have reached the right side of the screen
			if sprite x(rightalien)>=ScrW-Sprite width(enemy) and enemydir=1 
				`send the aliens down a row
				inc alieny,Sprite height(enemy)+10
				enemydir=-1
				`increases speed of the aliens
				inc alienspeed,4
			endif
			`checks to see if aliens have reached the left side of the screen
			if sprite x(leftalien)<=0+sprite width(enemy) and enemydir=-1
				`send the aliens down a row
				inc alieny,Sprite height(enemy)+10
				enemydir=1
				`increases speed of the aliens
				inc alienspeed,4
			endif
			
			`enemy shoot
			`every 10 loops an alien has a chance to shoot
			if loopcounter=10
				`1 in 20 chance of bullet being shot
				interval=rnd(20)
				if interval=1 
					sniper=enemy
					bulletactive=1
				endif
			endif
			
			`enemies get drawn
			sprite enemy,alienpos(enemy,1)+alienx,alienpos(enemy,2)+alieny,1
			
			`delete enemies when shot (where here sprite 1 is the shot)
			if sprite collision(1,enemy)
				`checks to see if the far right most alien is hit
				if sprite collision(1,0)=rightalien
					`sets up the findnext variable to find the next availabe sprite
					findnext=rightalien
					repeat
						`keeps on decrementing findnext until it gets to a exsisting sprite
						dec findnext
					until sprite exist(findnext)=1
					`that alien becomes the new rightalien, congratz!
					rightalien=findnext
				endif
				`checks to see if the far left most alien is hit
				if sprite collision(1,0)=leftalien
					`sets up the findnext variable to find the next availabe sprite
					findnext=leftalien
					repeat
						`keeps on incrementing findnext until it gets to a exsisting sprite
						inc findnext
					until sprite exist(findnext)=1
					`that alien becomes the new leftalien, congratz!
					leftalien=findnext
				endif
				`deletes alien that has been hit
				delete sprite enemy
			endif
		
		endif
	next enemy
	`controls the shot of the alien (out outside of for next loop so it wouldnt follow the path of the alien)
	if bulletactive=1 then gosub alienshot
return

alienshot:
	`draws the line at its begining position at the base of the alien
	if bulletlife=0
		rem draws the line at the nose of the shooting enemy
		linex=sprite x(sniper)+sprite width(sniper)/2
		liney=sprite y(sniper)+sprite height(sniper)
	endif
	`bullet now has life, cannot do above if then statement
	bulletlife=1
	ink -1,0
	`draws moving line
	line linex,liney+shoty,linex,(liney+25)+shoty
	`moves the bullet down towards the player
	inc shoty,7
	`deactivates shot
	if shoty>ScrH*2
		shoty=0
		bulletlife=0
		bulletactive=0
	endif 	
return
`************************************

dim barr(4,4)
for definebarr=1 to 4
	`barr number
	barr(definebarr,1)=definebarr+1
	`barr health(transparency)
	barr(definebarr,2)=255
	`barr x pos
	barr(definebarr,3)=definebarr*160-125
	`barr Y pos
	barr(definebarr,4)=350
next definebarr

`creates a pointer so DB can check for sprite collision with the barriers
get image 2,0,0,5,5
sprite 6,0,0,2

`draws the barrier that all the rest will be cloned off of
draw_barr()
for a=2 to 5
	`makes clones of it
	clone sprite 1,a
next a


rem Main program loop >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><
backdrop on : color backdrop 0 : sync on : sync rate 60 : do
	`mouse
	sprite 5,mousex(),mousey(),2
	for a=1 to 4
		`checks to see if the mouse is clicking on a barrier
		if sprite collision(5,a+1)=1 and mouseclick()=1 and barr(a,2)>10 and handonmouse=0
			`decrements the barrier health
			dec barr(a,2),63
			handonmouse=1
		endif
		rem draw sprite with transparency
		Barrmake(a+1,barr(a,3),barr(a,4),barr(a,2))
	next a
	if mouseclick()=0 then handonmouse=0
sync : loop

rem draw sprite with transparency
function Barrmake(spritenum,xpos,ypos,alpha)
	sprite spritenum,xpos,ypos,1
	set sprite alpha spritenum,alpha
endfunction


rem draw barriers >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
function draw_barr()
	ink rgb(0,255,0),0
	rem generate barrier with boxes
	box 0,0,90,35
	box 0,35,30,50
	box 60,35,90,50
	rem grab the barrier and store its as with the correct ID
	get image 1,0,0,91,51
	sprite 1,-100,-100,1
endfunction

redraw_barr:
	rem delete old sprite
	delete sprite barr(a,1)
	`clone a new one
	clone sprite 1,a+1
	`set it in the position of the old one
	sprite barr(a,1),barr(a,3),barr(a,4),1
return

remstart
   ==============================================================
   =  Title  : Space Invaders
   =  Author : Dark Noob Games
   =  Date   : August 9,2010
   =  Update :
   =  Version:
   ==============================================================
   Comments



               aug 9,2010
               The goal of this project is to remake Space Invaders
               using DarkBASIC Professional in a team environment
               made up of beginner programmers.

               The Project Lead is:

               The team members are:


   ==============================================================
remend

rem =============================================================
rem = SET UP DISPLAY
rem =============================================================
   autocam off
   `set display mode 800,600,32
   sync on
   sync rate 60
   hide mouse

rem =============================================================
rem = MAIN
rem =============================================================
_main:
   rem call any setup routines before actually going to the main loop
   gosub _variables
   gosub _obese_get_images


   do

      rem daygamer's code
      cls
      gosub control_player
      gosub without_sprites
      gosub update_bullets
      sync

   loop

   end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   rem ---------------------------------
   rem - Shared Code/Varibles
   rem ---------------------------------

   _variables:

      rem by Daygamer
      rem this controls if sprites will be used in the game
      sprites_on = 0

      rem set original player position
      playerx = 320
      playery = 460
      bulletx = 320
      bullety = 460

      rem draw ship and save it
      ink rgb(0,255,0),0
      box playerx-20, playery-7, playerx+20, playery+7
      box playerx-4, playery-15, playerx+4, playery-7
      get image 1,playerx-20, playery-15, playerx+20, playery+15

      rem draw bullet and save it
      ink rgb(255,255,255),0
      line bulletx, bullety-8, bulletx, bullety+8
      get image 2,bulletx-1, bullety-8, bulletx+1, bullety+8

      `-------------------------------------
      rem ajatom variables
      `total aliens allowed in the level
      maxaliens=41
      enemydir=1


   return

`================================================================
   rem ---------------------------------
   rem - Programmer - AJAtom
   rem ---------------------------------
   rem ajatom
   cls
   ScrW=screen width()
   ScrH=screen height()

   makeimage()

   gosub enemy_creation

   `Main program loop
   `***********
   backdrop on : color backdrop 0 : sync on : sync rate 60 : do
   `***********

   gosub enemyprops
   enemyplacex=0
   enemyplacey=0

   `***************
   `end main program loop
   inc loopcounter,1
   sync : loop
   `***************

`----------------------------------------------------------------

   `************************************
   `What I am doing
   `************************************
   enemy_creation:
      `enemy creation
      for enemycrt=2 to maxaliens
         `creates a new alien
         clone sprite 1,enemycrt
         show sprite enemycrt
      next enemycrt
      totalaliens=maxaliens
   return
`----------------------------------------------------------------
   enemyprops:
      for enemy=2 to totalaliens
         if sprite exist(enemy)=1
            `variables
            alieny=sprite y(enemy)

            `enemy movement
            if loopcounter=50-alienspeed
            `moves the enemies over every 50 loops
               alienx=sprite x(enemy)+20*enemydir
               loopcounter=0
            endif

            `checks to see if aliens have reached the right side of the screen
            if sprite x(totalaliens)>=ScrW-Sprite width(totalaliens) and enemydir=1
                                   inc alienspeed,4
               flag=1
               enemydir=-1
            endif
            `checks to see if aliens have reached the left side of the screen
            if sprite x(2)<=0+sprite width(enemy) and enemydir=-1
                                   inc alienspeed,4
               flag=1
               enemydir=1
            endif

            `enemy shoot
            if loopcounter=10
               interval=rnd(20)
               if interval=1
                  sniper=enemy
                  bulletactive=1
               endif
            endif

            `enemies get drawn
            if flag=1 : inc newalieny,Sprite height(enemy)+10 : flag=0 : endif
            sprite enemy,alienx+enemyplacex,enemyplacey+newalieny,1
            `creates new column of enemies
            if sprite y(enemy)>100+newalieny
               inc enemyplacex,50
               enemyplacey=0
            else
               `spaces aliens apart
               inc enemyplacey,50
            endif

         endif
      next enemy
      if bulletactive=1 then gosub alienshot
   return
`----------------------------------------------------------------
   alienshot:
      if bulletlife=0
         rem draws the line at the nose of the shooting enemy
         linex=sprite x(sniper)+sprite width(sniper)/2
         liney=sprite y(sniper)+sprite height(sniper)
      endif
      bulletlife=1
      ink -1,0
      `draws moving line
      line linex,liney+shoty,linex,(liney+25)+shoty
      inc shoty,7
      `deactivates shot
      if shoty>ScrH*2
         shoty=0
         bulletlife=0
         bulletactive=0
      endif
   return
   `************************************
`================================================================
   rem ---------------------------------
   rem - Programmer - Shadow
   rem ---------------------------------

`================================================================

   rem ---------------------------------
   rem - Programmer - Daygamer
   rem ---------------------------------

   rem space invaders
   rem player movement and firing (medialess)
   rem 8/9/10

   rem control player >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   control_player:
     rem controls for moving player side to side
     rem it will not let the player move out of the screen
     if playerx < 600 and rightkey()=1 then inc playerx, 2
     if playerx > 40 and leftkey()=1 then dec playerx, 2

     rem store fire key input
     oldfire = newfire
     newfire = spacekey()

     rem fire bullet if none exists
     if newfire > oldfire
       if bullet_fired = 0
         bullet_fired = 1
         rem position the bullet at the ship's position
         bullety = playery-20
         bulletx = playerx
       endif
     endif
   return
`----------------------------------------------------------------
   rem draw objects without using sprites >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   without_sprites:

     rem set ink green for ship
     ink rgb(0,255,0),0

     rem draw player ship
     paste image 1,playerx-20, playery-11

     rem set ink white for bullet
     ink rgb(255,255,255),0

     rem draw the bullet
     if bullet_fired
       paste image 2,bulletx, bullety
     endif

   return
`----------------------------------------------------------------
   rem update bullets >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   update_bullets:
     rem update player bullet
     if bullet_fired
       dec bullety, 7
       rem if bullet passes out of screen it dies
       if bullety < 0 then bullet_fired = 0
     endif
   return
`================================================================

   rem ---------------------------------
   rem - Programmer - Eminent
   rem ---------------------------------

   rem eminent
   Rem Project: Menu
   Rem Created: Monday, August 09, 2010


   Menu:
      Rem ***** Main Source File *****
      set text font "Ariel"
      Set text size 30
      `Set Sound Volume 1, 50 unrem this and delete this message when installing in main program
      `Set Music Volume 1, 50 same as above
      sw = screen width()` just in case
      sh= screen height()

     Repeat
     CLS
     Click = 0
     Box 100,50,700,150, rgb(0,0,255), rgb(0,0,255), rgb(0,0,255), rgb(0,0,255)
     Center Text 350, 85, " Play Space Invaders"
     Box 100, 300, 700, 400, rgb(255,0,0), rgb(255,0,0), rgb(255,0,0), rgb(255,0,0)
     Center Text 350, 335, "Exit"
     Box 10, 500, 150, 550, rgb(175,175,175), rgb(175,175,175), rgb(175,175,175), rgb(175,175,175)
     Center text 70, 505, "Settings"
     If mouseclick() = 1 and Click = 0
       If mouseWithin(100,50,700,150) and Click = 0 ` testing stuff, dont mind the "and click = 0" part
         Done = 1
         Click = 1
      endif
     Endif
     If mouseclick() = 1 and Click = 0
       If mouseWithin(100, 300, 700, 400) and Click = 0
         end
      endif
     Endif
     If mouseclick() = 1 and Click = 0
       if mousewithin(10,500,150,550) and Click = 0
         Gosub Settings
       endif
     endif
     Until Done = 1
`----------------------------------------------------------------
    Playing:
     do
     cls
     Print "Wow this is fun" ` to be replaced with the actual playing
     if keystate(25) = 1
       Gosub Pause
     endif
     loop
`----------------------------------------------------------------
   Settings:
     CLS
     Dim ScreenRes(6) ` again just in case
     ScreenRes(1) = 640
     ScreenRes(2) = 480
     ScreenRes(3) = 800
     ScreenRes(4) = 600
     ScreenRes(5) = 1024
     ScreenRes(6) = 768
     repeat
       CLS
       Set text size 30
       Box 50,10,700,70, RGB(175,175,175), RGB(175,175,175), RGB(175,175,175), RGB(175,175,175)
       Text 70, 20, "Screen Resolution      Press E to exit or press shiny blue button."
       Box 50,140,700,200, RGB(200,0,0), RGB(200,0,0), RGB(200,0,0), RGB(200,0,0)` the boxes
       Box 50,270,700,330,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0)
       Box 50,400,700,460,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0)
       Box 200,500,600,599,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255)
       Center Text 150,150, "640x480x32"
       center text 150,280, "800x600x32"
       center text 150,410, "1024x768x32"
       center text 350, 540, "Main Menu"
       If keystate(18) = 1
         exit
       endif
       If MouseWithin(50,140,700,200) and mouseclick() = 1 ` better way to do it
         Set Display Mode ScreenRes(1), ScreenRes(2), 32
         ScreenPrintTest$ = "640x480x16" ` testing to see if mousewithin function is working properly
       Endif
       If MouseWithin(50,280,700,340) and mouseclick() = 1
         Set Display Mode ScreenRes(3), ScreenRes(4), 32
         ScreenPrintTest$ = "800x600x16"
       endif
       If MouseWithin(50,400,700,460) and mouseclick() = 1
         Set Display Mode ScreenRes(5), ScreenRes(6), 32
         ScreenPrintTest$ = "960x720x16"
       endif
       If Mousewithin(200,500,600,599) and MouseClick() = 1
         Exit1 = 1
       endif
     until Exit1 = 1
   Return
`----------------------------------------------------------------
     Pause:
      thumbX= 250
      Volume# = 50
      Repeat
       BOX 80,50,500,250, RGB(255,0,0), RGB(255,0,0), RGB(255,0,0), RGB(255,0,0)
       Text 90, 60, "Volume"
       Text 90, 100, "0"
       Text 400, 100, "100"
       Text 90, 200, "Press spacebar to continue"
       if mouseclick() = 1 and CFlag = 0 ` ooooooohhhhhhhhhh a slider :D
         squaredDistance = (mousex() - thumbX)^2 + (mousey() - 100)^2
         if squaredDistance <= 16 and CFlag = 0
           thumbClicked = 1
           offsetX = mousex() - thumbX
           CFlag = 1
         endif
        CFlag = 1
      endif
      if mouseclick() = 0
        CFlag = 0
        thumbClicked = 0
      endif

      if thumbClicked = 1
        thumbX = mousex() - offsetX
        if thumbX < 100 then thumbX = 100
        if thumbX > 400 then thumbX = 400
           Volume# = (thumbX - 100) / 3
      endif

      ink rgb(255,255,255),0
      line 100,100,400,100
      ink rgb(0,255,0),0
      circle thumbX, 100, 4
      `set music volume 1, Volume# un rem when installing in code
      `set sound volume 1, Volume#
      if keystate(57) = 1
        Exit2 = 1
      endif
      Text 190, 60, str$(Volume#)
    until
    return
`================================================================

   rem ---------------------------------
   rem - Programmer - xxelixx
   rem ---------------------------------

   rem ---------------------------------
   rem - Programmer - Obese87
   rem ---------------------------------
   _obese_setup:
      secsize = 40 : rem make a variable to store the size of the sections so we can change it easily when needed.
      gosub get_images

      rem store the barrier section data in an array. This will tell us how damaged each section is and so which image to use.
      rem The first 8 barriers are in the first barrier, the second 8 in the second and so on. The sprite numbers are the same.
      dim barrdam(32)

      rem divide screen by five, not four, because we want to place the barriers on points in-between the two sides of the screen (0-1-2-3-4-5)
      divw# = screen width()/5.0
      rem set the y position based on screen height
      posy = screen height()*.75
      rem by offsetting the barrier we centre it in the right place
      bxoffset = 2*secsize

      rem build the barriers
      for barr = 0 to 3
        for sec = 1 to 8
          if sec > 4
            x = (barr+1)*divw#+(sec-4)*secsize-bxoffset
            y = posy+secsize
          else
            x = (barr+1)*divw#+sec*secsize-bxoffset
            y = posy
          endif
          sprite barr*8+sec, x, y, barrdam(barr*8+sec)
        next sec
      next barr

   return
      `end
`----------------------------------------------------------------
   `//

   _obese_get_images:
     rem These are the 32 images placeholder image; each of the eight sections has a unique image
     rem and each section needs four images to show damage condition (8x4 = 32)
     rem These images will just be one colour and each section will look the same, but they are just placeholders remember.

     for dam = 0 to 3
       rem select a different colour for each damage level
       select dam
         case 0 : colour=65535 : endcase
         case 1 : colour=rgb(255,255,0) : endcase
         case 2 : colour=rgb(255,128,0) : endcase
         case 3 : colour=rgb(255,0,0) : endcase
       endselect

       ink colour,0
       box 0,0,secsize,secsize

       for sec = 1 to 8
         get image dam*8+sec,0,0,secsize,secsize
       next sec
     next dam
   return
`================================================================

   rem ---------------------------------
   rem - Programmer - BN2
   rem ---------------------------------

`================================================================

   rem ---------------------------------
   rem - Programmer - sinani
   rem ---------------------------------

`================================================================
rem =============================================================
rem = FUNCTIONS
rem =============================================================
   rem ---------------------------------
   rem - Shared Code/Varibles
   rem ---------------------------------

`================================================================
   rem ---------------------------------
   rem - Programmer - AJAtom
   rem ---------------------------------
   function makeimage()
   `will be replaced by alien graphic
   `************************
      create bitmap 1,25,25
         ink rgb(255,0,0)
         box 0,0,25,25
         get image 1,0,0,25,25
      delete bitmap 1
      sprite 1,50,40,1 : hide sprite 1
   `************************
   endfunction

`================================================================
   rem ---------------------------------
   rem - Programmer - Shadow
   rem ---------------------------------
`================================================================
   rem ---------------------------------
   rem - Programmer - Daygamer
   rem ---------------------------------
`================================================================
   rem ---------------------------------
   rem - Programmer - Eminent
   rem ---------------------------------
   function mouseWithin(x1,y1,x2,y2)` this is very useful
      mx = mousex()
      my = mousey()
      if mx>=x1 and mx<=x2 and my>=y1 and my<=y2 then exitfunction 1 `self explanatory
   endfunction 0
`================================================================
   rem ---------------------------------
   rem - Programmer - xxelixx
   rem ---------------------------------
`================================================================
   rem ---------------------------------
   rem - Programmer - Obese87
   rem ---------------------------------
`================================================================
   rem ---------------------------------
   rem - Programmer - BN2
   rem ---------------------------------
`================================================================
   rem ---------------------------------
   rem - Programmer - sinani
   rem ---------------------------------
`================================================================


rem =============================================================
rem = DATA STATEMENTS
rem =============================================================