Sorry your browser is not supported!

  autocam off
  set display mode 800,600,32
  sync on
  sync rate 60
  hide mouse

  rem ---------------------------------
  rem - Shared Code/Varibles
  rem ---------------------------------
  scrw = screen width()
  scrh = screen height()

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

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

  set display mode 800,600,32

  scrw = screen width()
  scrh = screen height()

scrw = 800
scrh = 600

set display mode scrw,scrh,32

remstart
   ==============================================================
   =  Title   : Space Invaders
   =  Author  : Dark Noob Games
   =  Started : 9 August 2010
   =  Version : Pre-Alpha 0.1
   ==============================================================
   Comments

        aug 9,2010
        The goal of this project is to remake Space Invaders
        using DarkBASIC Professional with a team consisting 
	of novice programmers.

        Project Manager - OBese87.

        Team Members - AJAtom, Daygamer, Eminent.

	Special Thanks - BN2, Latch.
   ==============================================================
remend

rem =============================================================
rem = SETUP
rem =============================================================
  rem CONSTANTS

  rem screen dimensions
  scrw = 800 : scrh = 600

  rem image labels
  img_gun = 1 :`player gun
  img_inv = 2 :`invader
  img_bul = 3 :`bullet

  `--------------------------------------------------------------
  rem COMMON VARIABLES

  game = 0
  level = 0

  rem set original player position
  gunx = 320
  bulx = 320
  buly = 460

  rem total aliens allowed in the level
  maxaliens=41
  enemydir=1

  `--------------------------------------------------------------
  REM SETUP DISPLAY

  autocam off
  set display mode scrw,scrh,32
  sync on
  sync rate 60
  hide mouse

rem =============================================================
rem = MAIN
rem =============================================================
gosub load_images

do
  if game=0
    gosub menu
    rem create new game, start new level
  else
    gosub control_player
    gosub update_bullets
    sync:cls
  endwhile
loop

end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
load_images:
  REM INVADER IMAGE (AJAtom)
  ink rgb(255,0,0)
  box 0,0,25,25
  get image img_inv,0,0,25,25

  REM GUN IMAGE (Daygamer)
  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 img_gun,playerx-20, playery-15, playerx+20, playery+15

  REM BULLET IMAGE (Daygamer)
  ink rgb(255,255,255),0
  line bulletx, bullety-8, bulletx, bullety+8
  get image img_bul,bulletx-1, bullety-8, bulletx+1, bullety+8

  REM BARRIER IMAGE

  REM TEXT IMAGES?

  REM MENU IMAGES
return
`----------------------------------------------------------------

   rem ---------------------------------
   rem - Programmer - AJAtom
   rem ---------------------------------
   gosub enemy_creation

   gosub enemyprops
   enemyplacex=0
   enemyplacey=0

rem   inc loopcounter,1

`----------------------------------------------------------------
   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
REM /// SHOW ALIEN BULLET
      inc shoty,7
      `deactivates shot
      if shoty>ScrH*2
         shoty=0
         bulletlife=0
         bulletactive=0
      endif
   return
   `************************************
`================================================================
   rem ---------------------------------
   rem - Programmer - Daygamer
   rem ---------------------------------
   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 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 ---------------------------------
   menu:
    set text font "Arial"
    Set text size 30

    oldlmb = newlmb
    newlmb = (mouseclick()=1)

    rem :EDIT: show mouse sprite.


    rem DRAW BUTTONS
    rem :EDIT: use scrw and scrh to position.

    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, "Settings"

    Box 10, 500, 150, 550, rgb(175,175,175), rgb(175,175,175), rgb(175,175,175), rgb(175,175,175)
    Center text 350, 505, "Exit"

    if newlmb > oldlmb
      rem CLICK PLAY
      if mouseWithin(100,50,700,150)
	game=1
	rem :EDIT: hide mouse sprite, gosub setup new level.
      endif

      rem CLICK SETTINGS
      if mouseWithin(100, 300, 700, 400) and Click = 0

       Endif
       If mouseclick() = 1 and Click = 0
         if mousewithin(10,500,150,550) and Click = 0
           Gosub Settings
         endif
       endif

`----------------------------------------------------------------
   Settings:

rem /// Perform checklist for available display modes.
     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 = FUNCTIONS
rem =============================================================
   rem ---------------------------------
   rem - Programmer - Eminent
   rem ---------------------------------
   function mouseWithin(x1,y1,x2,y2)
      mx = mousex()
      my = mousey()
      if mx>=x1 and mx<=x2 and my>=y1 and my<=y2 then exitfunction 1
   endfunction 0

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

rem menu
rem daygamer
rem Oct 10

rem make the text bigger
set text size 30

rem main menu (pause menu after player has been in the game loop)
do
cls

rem since all these buttons function the same I will discribe just one in detail
rem check if the player's mouse is over the button
if mousex()>120 and mousex()<520 and mousey()>120 and mousey()<180
	rem make button icons that will change when the player mouses over them
	box 120,120,520,180,rgb(0,255,0),rgb(255,0,0),rgb(0,255,0),rgb(255,0,0)
	rem depending on if the program has been to the game loop we will display the main menu or the pause menu
	if game_started
		ink rgb(255,255,255),0 : center text 320,135,"RESUME"
	else
		ink rgb(255,255,255),0 : center text 320,135,"START"
	endif
	rem if the player clicks the mouse then do something
	oldmouse = newmouse
	newmouse = mouseclick()
	if newmouse > oldmouse then gosub game
rem if the player's mouse is not over button
else
	box 120,120,520,180,rgb(55,0,0),rgb(255,0,0),rgb(55,0,0),rgb(255,0,0)
	if game_started
		ink rgb(0,0,0),0 : center text 320,135,"RESUME"
	else
		ink rgb(0,0,0),0 : center text 320,135,"START"
	endif
endif

if mousex()>120 and mousex()<520 and mousey()>210 and mousey()<270
	box 120,210,520,270,rgb(0,255,0),rgb(255,0,0),rgb(0,255,0),rgb(255,0,0)
	ink rgb(255,255,255),0 : center text 320,225,"OPTIONS"
	oldmouse = newmouse
	newmouse = mouseclick()
	if newmouse > oldmouse then gosub options
else
	box 120,210,520,270,rgb(55,0,0),rgb(255,0,0),rgb(55,0,0),rgb(255,0,0)
	ink 0,0 : center text 320,225,"OPTIONS"
endif

if mousex()>120 and mousex()<520 and mousey()>300 and mousey()<360
	box 120,300,520,360,rgb(0,255,0),rgb(255,0,0),rgb(0,255,0),rgb(255,0,0)
	ink rgb(255,255,255),0 : center text 320,315,"EXIT"
	oldmouse = newmouse
	newmouse = mouseclick()
	if newmouse > oldmouse then end
else
	box 120,300,520,360,rgb(55,0,0),rgb(255,0,0),rgb(55,0,0),rgb(255,0,0)
	ink 0,0 : center text 320,315,"EXIT"
endif

sync
loop

rem options menu
options:

rem make the text bigger
set text size 20

do
cls

`if inkey$()="1" then set display mode 640,480,32
`if inkey$()="2" then set display mode 800,600,32
`if inkey$()="3" then set display mode 960,720,32

box 70,210,270,260,rgb(55,0,0),rgb(255,0,0),rgb(55,0,0),rgb(255,0,0)
ink 0,0 : center text 170,225,"Set Display Mode"

if mousex()>270 and mousex()<370 and mousey()>210 and mousey()<260
	box 270,210,370,260,rgb(0,255,0),rgb(255,0,0),rgb(0,255,0),rgb(255,0,0)
	ink rgb(255,255,255),0 : center text 320,225,"640 x 480"
	oldmouse = newmouse
	newmouse = mouseclick()
	if newmouse > oldmouse then set display mode 640,480,32
else
	box 270,210,370,260,rgb(55,0,0),rgb(255,0,0),rgb(55,0,0),rgb(255,0,0)
	ink 0,0 : center text 320,225,"640 x 480"
endif

if mousex()>370 and mousex()<470 and mousey()>210 and mousey()<260
	box 370,210,470,260,rgb(0,255,0),rgb(255,0,0),rgb(0,255,0),rgb(255,0,0)
	ink rgb(255,255,255),0 : center text 420,225,"800 x 600"
	oldmouse = newmouse
	newmouse = mouseclick()
	if newmouse > oldmouse then set display mode 800,600,32
else
	box 370,210,470,260,rgb(55,0,0),rgb(255,0,0),rgb(55,0,0),rgb(255,0,0)
	ink 0,0 : center text 420,225,"800 x 600"
endif

if mousex()>470 and mousex()<570 and mousey()>210 and mousey()<260
	box 470,210,570,260,rgb(0,255,0),rgb(255,0,0),rgb(0,255,0),rgb(255,0,0)
	ink rgb(255,255,255),0 : center text 520,225,"960 x 720"
	oldmouse = newmouse
	newmouse = mouseclick()
	if newmouse > oldmouse then set display mode 960,720,32
else
	box 470,210,570,260,rgb(55,0,0),rgb(255,0,0),rgb(55,0,0),rgb(255,0,0)
	ink 0,0 : center text 520,225,"960 x 720"
endif

if mousex()>220 and mousex()<420 and mousey()>300 and mousey()<350
	box 220,300,420,350,rgb(0,255,0),rgb(255,0,0),rgb(0,255,0),rgb(255,0,0)
	ink rgb(255,255,255),0 : center text 320,315,"BACK"
	oldmouse = newmouse
	newmouse = mouseclick()
	rem return to the menu and set text back to big!
	if newmouse > oldmouse then set text size 30 : return
else
	box 220,300,420,350,rgb(55,0,0),rgb(255,0,0),rgb(55,0,0),rgb(255,0,0)
	ink 0,0 : center text 320,315,"BACK"
endif

sync
loop


rem this is where the game will go
game:
cls
rem tell the computer that the game has started so if the player pause it we can make the pause menu look right
game_started = 1
do

text 10,10,"you are in the game"
text 10,30,"click to return to the pause menu"

rem return to the pause menu
oldmouse = newmouse
newmouse = mouseclick()
if newmouse > oldmouse then return

sync
loop

Do
   -If your current menu variable=1, gosub to the main menu subroutine
   -If your current menu variable=2, gosub the options menu stuff
   sync
Loop

END

Main Menu Subroutine:
   Display stuff
   check mouseover stuff
   If you click play, game=1
   if you click options, set your state variable to options
   etc etc
return

options stuff
   display
   check
   etc
return

remstart
   ==============================================================
   =  Title   : Space Invaders
   =  Author  : Dark Noob Games
   =  Started : 9 August 2010
   =  Version : Pre-Alpha 0.2
   ==============================================================
   Comments

        aug 9,2010
        The goal of this project is to remake Space Invaders
        using DarkBASIC Professional with a team consisting 
	of novice programmers.

        Project Manager - OBese87.
	Assistant Project Manager - BN2 Productions.
        Programmers - AJAtom, Daygamer, Eminent.

	Special Thanks - Latch and everyone on the DBC board.
   ==============================================================
   !! THIS SECTION IS READ ONLY. PLEASE DO NOT EDIT ANYTHING IN THESE COMMENTS !!

   PM's Notes:
	TERMS
	  The main group of aliens is called the swarm.
	MENU
	  1. The menu should not call game subs/functions, it should only alter variables and flags.
	     This keeps the menu system detached and easy to alter or redesign.
	  2. All menus should be generated using shared functions.
	BULLETS
	  Bullets will now be stored in two arrays, pbullet (for the player's bullets) and aibullet (for AI).
	  Data: X Position, Y Position.
	  This gives us greater flexibility and allows us to include firing powerups
	  and/or alter the swarm's firing behaviour if we wish to in the future.

   PM's Questions: (? unanswered, * answered) Discuss on the forums.
	* How many aliens per row and how many rows? 5 rows of 11.
	? Are we having different aliens?
	? Are we animating the aliens? How many frames?
	? How often should aliens fire?
	? Should aliens fire randomly or only when above the player?
	? Can multiple aliens fire at the same time?
	? Do we need to support multiple screen resolutions? If so how will this effect the graphics.

   FLAGS
     NewGame	resets all game variables.
     NewLevel	initializes the level.
     Game	indicates whether a game is in progress.
     Paused	indicates whether the game is paused.
     GameOver	is on when the player has lost all their lives.

   SPRITE KEY
	1 		:: The Player
	2 to 56		:: Swarm Aliens (5 rows of 11)
	57		:: Flying Saucer
	58 up		:: Bullets

   TO BE INTEGRATED
	If you find something that doesn't work properly or isn't explained it's probably waiting on this list.
	At the start of a new level let swarmsize=swarmmax.
	swarmgapx and swarmgapy are the distance between aliens.
	the swarm only speeds up when aliens are killed.
	swarmfirerate is how many loops between alien fire.
	bullets_left=1 at start and is a flag for when player can shoot. I changed it to count down incase we want to give the player more than one shot.
	dim swarmcolumn(10)
	dim swarm(10,4,2) :`(,0) alive (,1) firing? (,2) type?
	dim aibullet(5,3) :`(,0)exist (,1)x (,2)y, (,3)image
	dim pbullet(5,3) :`(,0)exist (,1)x (,2)y, (,3)image

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

rem =============================================================
rem = INITIALIZATION
rem =============================================================
  rem CONSTANTS

  rem screen dimensions
  scrw = 800 : scrh = 600

  rem image labels
  img_gun = 1 :`player gun
  img_bul = 2 :`bullet
  img_swarm = 3 :`invader image

  `--------------------------------------------------------------
  rem COMMON VARIABLES

  game = 0
  level = 0

  rem set original player position
  gunx = 320

  rem bullets
  `See PM Notes.

  rem alien swarm data
  swarmmax=55 : `most aliens allowed in one swarm.
  swarmx=0
  swarmy=0
  swarmvel=1 :`positive velocity moves right, negative moves left.

  `--------------------------------------------------------------
  rem MEDIA
  
  gosub load_images

  rem Initialize all sprites. Let's do 64 for now.
  for s = 64
    sprite s,0,0,img_swarm :`don't worry about the image, it's just for initializing.
    hide sprite s : `hide all sprites never worked for me.
  next s

  `--------------------------------------------------------------
  rem SET DISPLAY

  set display mode scrw,scrh,32
  sync on
  sync rate 60

rem =============================================================
rem = MAIN
rem =============================================================

remstart

PSEUDO MAIN

repeat
  show main menu until newgame=1
  make new game (reset all game variables)

  make new level
    play level
      if paused show pause menu until paused=0
    until level is completed or gameover or player quits (game=0)
  until gameover or game=0
  if gameover show game over screen and high scores
until player quits to windows

end

remend

rem =============================================================
rem = SUBROUTINES
rem =============================================================
   rem ---------------------------------
   rem - Programmer - AJAtom
   rem ---------------------------------

swarmai:
  rem Swarm Movement
  inc swarmx,swarmvel

  rem check occupied columns for wall collision
  for column = 0 to 10
    if swarmcolumn(column)>0
      rem Find screen x of column (26 is alien width here)
      columnx = swarmx+column*(26+swarmgapx)

      rem check against screen boundaries (these are almost duplicates but I couldn't find a way of merging them without making another if statement)
      if columnx<0
        swarmx=0
        inc swarmy, 26+swarmgapy
        swarmvel = swarmvel*-1 :`this changes direction.
      endif
      if columnx>scrw-26
        swarmx=scrw-26
        inc swarmy, 26+swarmgapy
        swarmvel = swarmvel*-1 :`this changes direction.
      endif
    endif
  next column

  rem Alien Fire
  rem !!Needs Writing!!
  inc i
  if i>= swarmfirerate
    i=0
    rem use the bullet array to find a free bullet
    rem activate bullet and set it to a random surviving alien's position.
    rem set velocity for bullet.
  endif
return
`================================================================
   rem ---------------------------------
   rem - Programmer - Daygamer
   rem ---------------------------------
   control_player:
     rem controls for moving player side to side
     rem it will not let the player move out of the screen
     if playerx < 598 and rightkey()=1 then inc playerx, 2
     if playerx > 2 and leftkey()=1 then dec playerx, 2

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

     rem fire bullet if there is one ready.
     if newfire > oldfire
       if bullets_left >0
         dec bullets_left
         rem !!NEEDS WRITING!!
         rem find a free bullet in pbullet array and activate at player position.
       endif
     endif
   return
`----------------------------------------------------------------
   rem update bullets >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   update_bullets:
     rem !!NEEDS WRITING!!
     rem Use new bullet arrays. Include action on kills and player death.
   return
`================================================================

`---------------------------------------------------------------------------
load_images:
  REM INVADER A IMAGE (AJAtom) (placeholder)
  ink rgb(255,0,0)
  box 0,0,25,25
  get image img_inva,0,0,25,25
  cls

  REM INVADER B IMAGE

  REM INVADER C IMAGE

  REM GUN IMAGE (Daygamer) (placeholder)
  rem Obese: I got confused with your drawing around the playerx/y so I just replaced it with a box.
  ink rgb(0,255,0),0
  box 0,0,39,19
  get image img_gun, 0,0,40,20
  cls

  REM BULLET IMAGE (Daygamer) (placeholder)
  ink rgb(255,255,255),0
  box 0,0,0,7
  get image img_bul, 0,0,1,8

  REM BARRIER IMAGE

  REM TEXT IMAGES?

  REM MENU IMAGES
return

`================================================================
rem =============================================================
rem = FUNCTIONS
rem =============================================================
   rem ---------------------------------
   rem - Programmer - Eminent
   rem ---------------------------------
   function mouseWithin(x1,y1,x2,y2)
      mx = mousex()
      my = mousey()
      if mx>=x1 and mx<=x2 and my>=y1 and my<=y2 then exitfunction 1
   endfunction 0
`================================================================
rem =============================================================
rem = DATA STATEMENTS
rem =============================================================

draw_button(10,100,"Yello?")

xpos = 200
ypos = 10
name$ = "How Do You DO?"
draw_button(xpos,ypos,name$)

wait key
end

function draw_button(btnx,btny,title$)
  box btnx,btny,btnx+200,btny+100, rgb(0,255,0),rgb(255,0,0),rgb(0,255,0),rgb(255,0,0)
  ink -2,0
  center text btnx+100,btny+50,title$
endfunction

rem DATA
data 4
data "CONTINUE","NEW GAME","OPTIONS","END GAME","EXIT TO WINDOWS"

rem LOAD DATA INTO ARRAY
read max 
dim btn$(max)
for b = 0 to max
  read btn$(b)
next b

rem TESTING
for b = 0 to max
  print btn$(b)
next b

rem DATA
data 4
data "CONTINUE","NEW GAME","OPTIONS","END GAME","EXIT TO WINDOWS"

rem LOAD DATA INTO ARRAY
read max 
dim btn$(max)
for b = 0 to max
  read btn$(b)
next b

rem GO BUTTONS GO!
for b = 0 to max
  draw_button(320,20+b*150,btn$(b))
next b

wait key
end

function draw_button(btnx,btny,title$)
  box btnx,btny,btnx+160,btny+80, rgb(0,255,0),rgb(255,0,0),rgb(0,255,0),rgb(255,0,0)
  ink -2,0
  center text btnx+80,btny+40,title$
endfunction

the "btnx" parameter is always 320, so we could add this to the function and remove it from the parameter list.
But, we might want buttons in other places and I don't think having another parameter does any harm so let's keep it!

rem by eminent
function MouseWithin(ax,ay,bx,by)
  mx = mousex() : my = mousey()
  if mx>=ax and mx<=bx and my>=ay and my<=by then exitfunction 1
endfunction 0

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,2)
	`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
hide sprite 1
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
			
			remstart
			`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
			remend
			
		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
`************************************