Sorry your browser is not supported!

sync on:sync rate 0:hide mouse
`set display mode 800,600,32

set image colorkey 255,0,255
disect("player ship.bmp",4,2,1)
disect("player weapons.bmp",5,4,10)
disect("explosion32.png",16,1,50)
disect("numbers.bmp",10,1,30)
load image "uibar.bmp",5001
load image "building1.bmp",6000
load music "ng1975.mp3",1

for a = 8 to 15
   sprite a,-100,-100,19
next a


type ship
   xpos as integer
   ypos as integer
   height as integer
   animation_time as integer
   animation_step as integer
   animation_frame as integer
   start_frame as integer
   end_frame as integer
   next_move as integer
   shadow as integer
   next_fire as integer
   fire_speed as integer
   sprite_number as integer
   shadow_number as integer
   gun_strength as integer
   vulnerable as integer
endtype

type tile
  spritenumber as integer
  imagetype as integer
  imagename as string
  y as float
  occupied as integer
endtype

type tileimage
  imagenumber as integer
  imagetype as string
  spriteID as integer
endtype

type doodad
   xpos as integer
   image as integer
   ypos as float
   height as integer
   sprite_number as integer
   shadow as integer
   points as integer
endtype

type effect
   xpos as integer
   ypos as integer
   frame as integer
   start_frame as integer
   end_frame as integer
   next_frame as integer
   sprite_number as integer
endtype

type bullettype
  active as integer
  spritenumber as integer
  xpos as float
  ypos as float
  angle as float
  heatseeking as integer
  life as integer
endtype

dim explosion(-1) as effect
dim object_tile(-1) as doodad
dim perm_object_tile(-1) as doodad
global player as ship
dim player_missile(-1) as ship
#CONSTANT BACKGROUND_IMAGE=5000
#CONSTANT CLOUD_IMAGE=5002
#CONSTANT TREES_IMAGE=5003
global background_scroll as float
global background_scroll_rate as float
background_scroll_rate=0.6
global cloud_scroll as float
global cloud_scroll_rate as float
cloud_scroll_rate=1.22
global tree_scroll as float
global tree_scroll_rate as float
tree_scroll_rate=0.6
level=1
global spriteseed
spriteseed=10
global numberofrows
global tilespeed#
global SCORE
tilespeed#=1 `best to keep this as an integer, as it represents the number of pixels to scroll each loop
global shipspeed#
shipspeed#=3
global numberofbullets as integer
global bulletimage as integer
global bulletspeed# as float
bulletspeed#=2

make_bullet()

set_player()

make_temp_background()

load_level(level)


player.vulnerable=timer()+2000
loop music 1
do
   `display fps - update once every 10 loops to reduce hit
   fps=screen fps()
   inc textcounter
   if textcounter=10 then textcounter=0
   if textcounter=0 then text_sprite(2000,0,0,str$(fps))

   cls

   draw_background()
   scroll_tiles()
   player_state()
   if array count(object_tile())>=0 then scroll_doodads()
   if array count(perm_object_tile())>=0 then scroll_perm_doodads()
   if array count(explosion())>=0 then draw_explosions()
   animate_player()
   draw_player()
   test_features()
   if array count(player_missile())>=0 then draw_missiles()
   `if timer()>player.next_move
      controls()
      player.next_move=timer()+3
   `endif
   doodad_attack()
   move_bullets()


   sync
loop

function text_sprite(entity,x,y,text$)
if text$="" then text$=" "
If Bitmap Exist(2)=0
   create bitmap 2,screen width()/2,screen height()/8
Else
   Set Current Bitmap 2
   cls
Endif
ink rgb(1,250,1),0
set text size 14
set text font "Arial"
text 0,0,text$
if image exist(entity) then delete image entity
if sprite exist(entity) then delete sprite entity
get image entity,0,0,text width(text$),text height(text$),1
sprite entity,x,y,entity
set sprite entity,0,0
set sprite priority entity,300
Set Current Bitmap 0
`endif
endfunction



function load_level(level)

  `The level is made up of tiles.  Each tile is a 64x64 sprite, and has a sprite number
  `which links to the array 'tile(column,row).spritenumber'.

  `Each sprite also has an image identifier, which is made of two characters, stored
  `in 'tile(column,row).imagetype'.

  `for example, if it has the tile image "t2.png", then the identifier is tile(column,row)="t2"

  `The level file "level1.txt", where the '1' can be any level number is a text file with the following format:
  `1st line is a header, and contains the names of all the images it need to load
  `All other lines represent the tiles' column, row and image.  If it is 't0' it is an empty space.
  `A comma is used to separate tiles - including a comma at the end of each row.


  open to read 1,"level"+str$(level)+".txt"
  `Read header. The header contains the image types used in the level
  read string 1,header$
  numberoftileimages=len(header$)/3
  dim tileimage(numberoftileimages) as tileimage
  for n=1 to numberoftileimages
      chunk=n*3
      image$=left$(right$(left$(header$,chunk),3),2) `parse the string: this takes the left 2 characters (to get rid of the comma) of the right 3 (ie. the end bit) of the left 'chunk' (the chunk is increased in steps of 3)
      if image$<>"" and image$<>"t0"
        tileimage(n).imagenumber=free_image()
        tileimage(n).spriteID=free_sprite()
        tileimage(n).imagetype=image$
        load image image$+".png",tileimage(n).imagenumber,1
        sprite tileimage(n).spriteID,-100,-100,tileimage(n).imagenumber
      endif
  next n

  row=0
  repeat
    `scan through each subsequent row of the text file to get tile type and position
    inc row
    numberofrows=row
    dim tile(13,row) as tile
    read string 1,string$
    `scan through each column of the text file
    for column=1 to 13 `there are 13 columns, made up of 3 characters each (2 letters and a comma)
      chunk=column*3
      image$=left$(right$(left$(string$,chunk),3),2) `Parse the string: this takes the left 2 characters (to get rid of the comma) of the right 3 (ie. the end bit) of the left 'chunk' (the chunk is increased in steps of 3)
      if image$<>"" and image$<>"t0"
        tile(column,row).spritenumber=free_sprite()
        image=0
        for n=1 to numberoftileimages
          if image$=tileimage(n).imagetype
            imagenumber=tileimage(n).imagenumber
            image=n
            Exit
          Endif
        next n
        `as we don't know how big the level is until this loop has finished, we don't know where to position the tiles yet,
        `so we'll put them at 0,0 for the time being
        `sprite tile(column,row).spritenumber,0,0,imagenumber
        tile(column,row).imagetype=image
        tile(column,row).imagename=image$
      endif
    next column$
  until file end(1)=1

  `go through tiles again.  This time, now that we know the total number of rows, we can position the tiles correctly
  for column=1 to 13
    for row=1 to numberofrows
      `if there is a tile at that coordinate
      if (tile(column,row).spritenumber)>0
        tile(column,row).y=(row-1)*64-(numberofrows*64)+(9*64)
        `sprite tile(column,row).spritenumber,(column-1)*64-13,tile(column,row).y,sprite image(tile(column,row).spritenumber)
        `set sprite tile(column,row).spritenumber,1,0
      endif
    next row
  next column

endfunction

function scroll_tiles()

for row=1 to numberofrows
  for column=1 to 13
    spriteID=tileimage(tile(column,row).imagetype).spriteID
    if spriteID>0
      `imageID=tileimage(tile(column,row).imagetype).imagenumber
      tile(column,row).y=tile(column,row).y+tilespeed#
      if tile(column,row).y>-64 and tile(column,row).y<screen height()-64
        Paste sprite SpriteID,(column-1)*64-32,tile(column,row).y
        if left$(tile(column,row).imagename,1)="d" and tile(column,row).occupied=0
          tile(column,row).occupied=1
          make_new_object((column-1)*64-16,tile(column,row).y+16,rnd(24)+6,100,6000)
        endif
      endif
    endif
  next column
next row

endfunction

function set_player()
   player.xpos=(screen width()-32)/2
   player.ypos= screen height()-115
   player.height =10
   player.animation_step=50
   player.animation_time=timer()+player.animation_step
   player.animation_frame=1
   player.start_frame=1
   player.end_frame=4
   player.next_move=timer()+3
   player.shadow=5
   player.next_fire=timer()
   player.fire_speed=100
endfunction

function animate_player()
   if timer()>player.animation_time
      inc player.animation_frame
      if player.animation_frame>player.end_frame then player.animation_frame=player.start_frame
      player.animation_time=timer()+player.animation_step
   endif
endfunction



function draw_player()
   sprite 1,player.xpos,player.ypos,player.animation_frame
   sprite 2,player.xpos+(player.height/2)+2,player.ypos+player.height+2,player.shadow
   set sprite priority 1,5+player.height
   set sprite priority 2,4+player.height
   set sprite alpha 2,80-player.height
   scale sprite 1,85+player.height/2
   scale sprite 2,85+player.height/1.5
   if sprite collision(1,0)>2 then check_player_collision()
endfunction

function disect(filename as string,across,down,imagestart)

   load bitmap filename,1
   x=bitmap width(1)/across
   y=bitmap height(1)/down
   for a = 0 to down-1
   for b = 0 to across-1
   get image imagestart+a*across+b,x*b,y*a,x*b+x,y*a+y
   next b:next a
   delete bitmap 1
endfunction

function controls()
   if upkey()=1 then dec player.ypos,shipspeed#
   if downkey()=1 then inc player.ypos,shipspeed#
   if leftkey()=1 then dec player.xpos,shipspeed#
   if rightkey()=1 then inc player.xpos,shipspeed#
   if keystate(31)=1 then inc player.height,1
   if keystate(17)=1 then dec player.height,1
   if spacekey()=1 and timer()>player.next_fire then add_missile(8)

   if player.height<6 then player.height=6
   if player.height>30 then player.height=30
   if player.xpos<5 then player.xpos=5
   if player.xpos>screen width()-37 then player.xpos=screen width()-37
   if player.ypos>screen height()-115 then player.ypos=screen height()-115
   if player.ypos<128 then player.ypos=128
endfunction

function make_temp_background()
   load image "BackGround.png",BACKGROUND_IMAGE,1
   load image "Clouds.png",CLOUD_IMAGE,1
   load image "Trees.png",TREES_IMAGE,1
endfunction

function draw_background()
   paste image BACKGROUND_IMAGE,0,background_scroll
   paste image BACKGROUND_IMAGE,0,background_scroll+screen height()*2
   inc background_scroll,background_scroll_rate
   if background_scroll>screen_height*2 then dec background_scroll,screen height()*2

   paste image TREES_IMAGE,0,tree_scroll,1
   paste image TREES_IMAGE,0,tree_scroll+screen height()*1.5,1
   inc tree_scroll,tree_scroll_rate
   if tree_scroll>screen_height*1.5 then dec tree_scroll,screen height()*1.5

   sprite CLOUD_IMAGE,0,cloud_scroll,CLOUD_IMAGE
   sprite CLOUD_IMAGE+1,0,cloud_scroll+screen height()*1.5,CLOUD_IMAGE
   set sprite priority CLOUD_IMAGE,30
   set sprite priority CLOUD_IMAGE+1,30
   inc cloud_scroll,cloud_scroll_rate
   if cloud_scroll>screen_height*1.5 then dec cloud_scroll,screen height()*1.5

   sprite 3,0,522,5001
   set sprite 3,0,1
   set sprite priority 3,100
   score$=str$(score)
   for a = len(score$) to 1 step -1
      value=val(mid$(score$,a))
      if value=0 then value=10
      sprite 8+a,751-((len(score$)-a)*16),554,29+value
      set sprite priority 8+a,110
   next a
endfunction

function add_missile(offset)
   array insert at top player_missile()
   player_missile(0).xpos=player.xpos+offset
   player_missile(0).ypos=player.ypos-16
   player_missile(0).height=player.height
   player_missile(0).start_frame=10
   player_missile(0).end_frame=13
   player_missile(0).animation_step=50
   player_missile(0).animation_time=timer()+50
   player_missile(0).animation_frame=10
   player_missile(0).shadow=14
   player_missile(0).sprite_number=free_sprite()
   sprite player_missile(0).sprite_number,player_missile(0).xpos,player_missile(0).ypos,player_missile(0).animation_frame
   player_missile(0).shadow_number=free_sprite()
   sprite player_missile(0).shadow_number,player_missile(0).xpos+(player_missile(0).height/2),player_missile(0).ypos+player_missile(0).height,player_missile(0).shadow
   set sprite alpha player_missile(0).shadow_number,80-player_missile(0).height
   set sprite priority player_missile(0).sprite_number,50
   set sprite priority player_missile(0).shadow_number,40
   player.next_fire=timer()+player.fire_speed
endfunction

function draw_missiles()
   for a = array count(player_missile()) to 0 step -1
      dec player_missile(a).ypos,3
      if timer()>player_missile(a).animation_time
         inc player_missile(a).animation_frame
         if player_missile(a).animation_frame>player_missile(a).end_frame then player_missile(a).animation_frame=player_missile(a).start_frame
         player_missile(a).animation_time=timer()+player_missile(a).animation_step
      endif
      sprite player_missile(a).sprite_number,player_missile(a).xpos,player_missile(a).ypos,player_missile(a).animation_frame
      sprite player_missile(a).shadow_number,player_missile(a).xpos+(player_missile(a).height/2),player_missile(a).ypos+player_missile(a).height,player_missile(a).shadow
      set sprite alpha player_missile(a).shadow_number,80-player_missile(a).height
      set sprite priority player_missile(a).sprite_number,player_missile(a).height+5
      set sprite priority player_missile(a).shadow_number,player_missile(a).height+4
      if player_missile(a).ypos<-16
         kill_missile(a)
      else
         if array count(perm_object_tile())>=0 then check_shot_object_collision(a)
      endif

   next a
endfunction

function check_shot_object_collision(count)
  hit=sprite collision(player_missile(count).sprite_number,0)
      if hit=0 then exitfunction
      for a = array count(perm_object_tile()) to 0 step -1
         if sprite collision(player_missile(count).sprite_number,perm_object_tile(a).sprite_number)=1 and  player_missile(count).height<=perm_object_tile(a).height
            add_explosion(player_missile(count).xpos-8,player_missile(count).ypos-8)
            kill_missile(count)
            inc score,perm_object_tile(a).points
            kill_doodad(a)


            exitfunction
         endif
      next a
endfunction

function doodad_attack()

count=array count(perm_object_tile())
for n=1 to count
  bearing#=get_bearing(perm_object_tile(n).xpos,perm_object_tile(n).ypos,player.xpos,player.ypos)
  firingangle#=bearing#+rnd(20)-10
  if rnd(200)=0 then fire_bullet(perm_object_tile(n).xpos,perm_object_tile(n).ypos,firingangle#)
  if rnd(1000)=0 then fire_heatseeker(perm_object_tile(n).xpos,perm_object_tile(n).ypos,firingangle#)
next n

endfunction

function make_bullet()

bulletimage=free_image()
load image "bullet.png",bulletimage,1

endfunction



function fire_bullet(startx,starty,angle#)

inc numberofbullets
bulletnumber=numberofbullets
dim bullet(numberofbullets) as bullettype
bullet(bulletnumber).spritenumber=free_sprite()
sprite bullet(bulletnumber).spritenumber,startx,starty,bulletimage
offset sprite bullet(bulletnumber).spritenumber,sprite width(bullet(bulletnumber).spritenumber)/2,sprite height(bullet(bulletnumber).spritenumber)/2
bullet(bulletnumber).active=1
bullet(bulletnumber).xpos=startx
bullet(bulletnumber).ypos=starty
bullet(bulletnumber).angle=angle#
bullet(bulletnumber).life=200


endfunction

function fire_heatseeker(startx,starty,angle#)

inc numberofbullets
bulletnumber=numberofbullets
dim bullet(numberofbullets) as bullettype
bullet(bulletnumber).spritenumber=free_sprite()
sprite bullet(bulletnumber).spritenumber,startx,starty,bulletimage
set sprite diffuse bullet(bulletnumber).spritenumber,255,0,0
offset sprite bullet(bulletnumber).spritenumber,sprite width(bullet(bulletnumber).spritenumber)/2,sprite height(bullet(bulletnumber).spritenumber)/2
bullet(bulletnumber).active=1
bullet(bulletnumber).xpos=startx
bullet(bulletnumber).ypos=starty
bullet(bulletnumber).angle=angle#
bullet(bulletnumber).heatseeking=1
bullet(bulletnumber).life=200


endfunction

function move_bullets()

for bulletnumber=1 to numberofbullets
  if bullet(bulletnumber).active=1
    `if heatseeking, update direction and move along new path
    if bullet(bulletnumber).heatseeking=1
      bullet(bulletnumber).angle=get_bearing(bullet(bulletnumber).xpos,bullet(bulletnumber).ypos,player.xpos,player.ypos)
      inc bullet(bulletnumber).xpos,bulletspeed#*1.2*sin(bullet(bulletnumber).angle)
      inc bullet(bulletnumber).ypos,bulletspeed#*1.2*cos(bullet(bulletnumber).angle)
    else
    `otherwise, update position along same path
      inc bullet(bulletnumber).xpos,bulletspeed#*sin(bullet(bulletnumber).angle)
      inc bullet(bulletnumber).ypos,bulletspeed#*cos(bullet(bulletnumber).angle)
    endif
    `move all bullets down to account for background scrolling
    inc bullet(bulletnumber).ypos,tilespeed#
    `draw the bullet in its new position
    sprite bullet(bulletnumber).spritenumber,bullet(bulletnumber).xpos,bullet(bulletnumber).ypos,bulletimage
    `decrease the lifespan of the bullet and fade accordingly
    dec bullet(bulletnumber).life
    set sprite alpha bullet(bulletnumber).spritenumber,int(bullet(bulletnumber).life*255/200.0)
    `kill bullet if lifespan over
    if bullet(bulletnumber).life<=10
      delete sprite bullet(bulletnumber).spritenumber
      bullet(bulletnumber).active=0
    endif
    `kill bullet if outside of screen range
    if bullet(bulletnumber).active=1
      if bullet(bulletnumber).ypos>screen height() or bullet(bulletnumber).ypos<0 or bullet(bulletnumber).xpos>screen width() or bullet(bulletnumber).xpos<0
        delete sprite bullet(bulletnumber).spritenumber
        bullet(bulletnumber).active=0
      endif
    endif
    `check for collision between bullet and player
    if bullet(bulletnumber).active=1
      if sprite collision(1,bullet(bulletnumber).spritenumber)=1
        add_explosion(player.xpos,player.ypos)
        kill_player()
        delete sprite bullet(bulletnumber).spritenumber
        bullet(bulletnumber).active=0
      endif
    endif
  endif
next bulletnumber

endfunction



function kill_missile(count)
   delete sprite player_missile(count).sprite_number
   delete sprite player_missile(count).shadow_number
   array delete element player_missile(),count
endfunction

`temporary function to test added features

function test_features()

 if inkey$()="1" then player.gun_strength=1
 if inkey$()="2" then player.gun_strength=2
 if inkey$()="3" then player.gun_strength=3
 if inkey$()="=" then add_explosion(rnd(screen width()),rnd(screen height())):add_explosion(rnd(screen width()),rnd(screen height()))
endfunction

function add_doodad(xpos,ypos,image)
   array insert at bottom object_tile()
   count=array count(object_tile())
   object_tile(count).xpos=xpos
   object_tile(count).ypos=ypos
   object_tile(count).image=image
endfunction

function scroll_doodads()
   for a = array count(object_tile()) to 0 step -1
      if object_tile(a).ypos<=DISTANCE_TRAVELLED-32
          make_new_object(object_tile(a).xpos,object_tile(a).ypos-DISTANCE_TRAVELLED-32,object_tile(a).height,object_tile(a).points,object_tile(a).image)
          array delete element object_tile(),a
      endif
   next a
endfunction

function make_new_object(xpos,ypos,height,points,image)
   array insert at bottom perm_object_tile()
   count=array count(perm_object_tile())
   perm_object_tile(count).xpos=xpos
   perm_object_tile(count).ypos=ypos
   perm_object_tile(count).image=image
   perm_object_tile(count).height=height
   perm_object_tile(count).points=points
   perm_object_tile(count).sprite_number=free_sprite()
   sprite perm_object_tile(count).sprite_number,perm_object_tile(count).xpos,perm_object_tile(count).ypos,perm_object_tile(count).image
   Set Sprite Priority perm_object_tile(count).sprite_number,perm_object_tile(count).height
   perm_object_tile(count).shadow=free_sprite()
   Sprite perm_object_tile(count).shadow,perm_object_tile(count).xpos,perm_object_tile(count).ypos,perm_object_tile(count).image
   Set Sprite Diffuse perm_object_tile(count).shadow,0,0,0
   Set Sprite Alpha perm_object_tile(count).shadow,50
   Set Sprite Priority perm_object_tile(count).shadow,perm_object_tile(count).height-1
endfunction



function scroll_perm_doodads()
   for a = array count(perm_object_tile()) to 0 step -1
      h=perm_object_tile(a).height
      sprite perm_object_tile(a).sprite_number,perm_object_tile(a).xpos,perm_object_tile(a).ypos,perm_object_tile(a).image
      Scale Sprite perm_object_tile(a).sprite_number,85+h
      sprite perm_object_tile(a).shadow,perm_object_tile(a).xpos+4,perm_object_tile(a).ypos+4,perm_object_tile(a).image
      Scale Sprite perm_object_tile(a).shadow,85+h*2
      inc perm_object_tile(a).ypos,tilespeed#
      if perm_object_tile(a).ypos>screen height() then kill_doodad(a)
   next a
endfunction

function kill_doodad(count)
   if sprite exist(perm_object_tile(count).sprite_number)=1 then delete sprite perm_object_tile(count).sprite_number
   if sprite exist(perm_object_tile(count).shadow)=1 then delete sprite perm_object_tile(count).shadow
   array delete element perm_object_tile(),count
endfunction

function free_sprite()
count=spriteseed
   repeat
      inc count
   until sprite exist(count)=0
endfunction count

function free_image()
   repeat
      inc count
   until image exist(count)=0
endfunction count

function add_explosion(xpos,ypos)
   array insert at bottom explosion()
   count=array count(explosion())
   explosion(count).xpos=xpos
   explosion(count).ypos=ypos
   explosion(count).frame=50
   explosion(count).start_frame=50
   explosion(count).end_frame=65
   explosion(count).next_frame=timer()+50
   explosion(count).sprite_number=free_sprite()
   sprite explosion(count).sprite_number,explosion(count).xpos,explosion(count).ypos,explosion(count).frame
endfunction

function draw_explosions()
   for a = array count(explosion()) to 0 step -1
      if timer()>explosion(a).next_frame
         inc explosion(a).frame
         explosion(a).next_frame=timer()+50
      endif
      sprite explosion(a).sprite_number,explosion(a).xpos,explosion(a).ypos,explosion(a).frame
      if explosion(a).frame>=explosion(a).end_frame then kill_explosion(a)
   next a
endfunction

function kill_explosion(count)
   if sprite exist(explosion(count).sprite_number) then delete sprite explosion(count).sprite_number
   array delete element explosion(),count
endfunction

function check_player_collision()
   if player.vulnerable<=timer()
      if array count(perm_object_tile())>=0
         for a = array count(perm_object_tile()) to 0 step -1
            if player.height<=perm_object_tile(a).height
               if sprite collision(1,perm_object_tile(a).sprite_number)=1
                  kill_doodad(a)
                  add_explosion(player.xpos,player.ypos)
                  kill_player()
                  exitfunction
               endif
            endif
         next a
      endif
   endif
endfunction

function player_state()
   if player.vulnerable>timer()
      player.start_frame=6:player.end_frame=8
   else
      player.start_frame=1:player.end_frame=4
   endif
endfunction

function kill_player()
   player.xpos=(screen width()-32)/2
   player.ypos= screen height()-115
   player.vulnerable=timer()+3000
endfunction

function get_bearing(x1#,y1#,x2#,y2#)
ang#=atanfull((x2#-x1#),(y2#-y1#))
endfunction ang#

sync on:sync rate 0:hide mouse
`set display mode 800,600,32

set image colorkey 255,0,255
disect("player ship.bmp",4,2,1)
disect("player weapons.bmp",5,4,10)
disect("explosion32.png",16,1,50)
disect("numbers.bmp",10,1,30)
load image "uibar.bmp",5001
load image "building1.bmp",6000
load music "ng1975.mp3",1

for a = 8 to 15
   sprite a,-100,-100,19
next a


type ship
   xpos as integer
   ypos as integer
   height as integer
   animation_time as integer
   animation_step as integer
   animation_frame as integer
   start_frame as integer
   end_frame as integer
   next_move as integer
   shadow as integer
   next_fire as integer
   fire_speed as integer
   sprite_number as integer
   shadow_number as integer
   gun_strength as integer
   vulnerable as integer
endtype

type tile
  spritenumber as integer
  imagetype as integer
  imagename as string
  y as float
  occupied as integer
endtype

type tileimage
  imagenumber as integer
  imagetype as string
  spriteID as integer
endtype

type doodad
   xpos as integer
   image as integer
   ypos as float
   height as integer
   sprite_number as integer
   shadow as integer
   points as integer
endtype

type effect
   xpos as integer
   ypos as integer
   frame as integer
   start_frame as integer
   end_frame as integer
   next_frame as integer
   sprite_number as integer
endtype

type bullettype
  active as integer
  spritenumber as integer
  xpos as float
  ypos as float
  angle as float
  heatseeking as integer
  life as integer
endtype

dim explosion(-1) as effect
dim object_tile(-1) as doodad
dim perm_object_tile(-1) as doodad
global player as ship
dim player_missile(-1) as ship
#CONSTANT BACKGROUND_IMAGE=5000
#CONSTANT CLOUD_IMAGE=5002
#CONSTANT TREES_IMAGE=5003
global background_scroll as float
global background_scroll_rate as float
background_scroll_rate=0.6
global cloud_scroll as float
global cloud_scroll_rate as float
cloud_scroll_rate=1.22
global tree_scroll as float
global tree_scroll_rate as float
tree_scroll_rate=0.6
level=1
global spriteseed
spriteseed=10
global numberofrows
global tilespeed#
global SCORE
tilespeed#=1 `best to keep this as an integer, as it represents the number of pixels to scroll each loop
global shipspeed#
shipspeed#=3
global numberofbullets as integer
global bulletimage as integer
global bulletspeed# as float
bulletspeed#=2
global tileshadow
global dt as float
global missilespeed#
missilespeed#=3

make_tile_shadow()

make_bullet()

set_player()

make_temp_background()

load_level(level)


player.vulnerable=timer()+2000
loop music 1

starttime=timer()

do

   newtime=timer()-starttime
   dt=(newtime-oldtime)*.05
   oldtime=newtime

   `display fps - update once every 10 loops to reduce hit
   fps=screen fps()
   inc textcounter
   if textcounter=10 then textcounter=0
   if textcounter=0 then text_sprite(2000,0,0,str$(fps))

   cls

   draw_background()
   scroll_tiles()
   player_state()
   if array count(object_tile())>=0 then scroll_doodads()
   if array count(perm_object_tile())>=0 then scroll_perm_doodads()
   if array count(explosion())>=0 then draw_explosions()
   animate_player()
   draw_player()
   test_features()
   if array count(player_missile())>=0 then draw_missiles()
   `if timer()>player.next_move
      controls()
      player.next_move=timer()+3
   `endif
   doodad_attack()
   move_bullets()


   sync
loop

function text_sprite(entity,x,y,text$)
if text$="" then text$=" "
If Bitmap Exist(2)=0
   create bitmap 2,screen width()/2,screen height()/8
Else
   Set Current Bitmap 2
   cls
Endif
ink rgb(1,250,1),0
set text size 14
set text font "Arial"
text 0,0,text$
if image exist(entity) then delete image entity
if sprite exist(entity) then delete sprite entity
get image entity,0,0,text width(text$),text height(text$),1
sprite entity,x,y,entity
set sprite entity,0,0
set sprite priority entity,300
Set Current Bitmap 0
`endif
endfunction

function make_tile_shadow()

tileshadow=free_sprite()
load image "shadow.png",tileshadow
sprite tileshadow,-100,-100,tileshadow
set sprite tileshadow,0,1
set sprite alpha tileshadow,150

endfunction

function load_level(level)

  `The level is made up of tiles.  Each tile is a 64x64 sprite, and has a sprite number
  `which links to the array 'tile(column,row).spritenumber'.

  `Each sprite also has an image identifier, which is made of two characters, stored
  `in 'tile(column,row).imagetype'.

  `for example, if it has the tile image "t2.png", then the identifier is tile(column,row)="t2"

  `The level file "level1.txt", where the '1' can be any level number is a text file with the following format:
  `1st line is a header, and contains the names of all the images it need to load
  `All other lines represent the tiles' column, row and image.  If it is 't0' it is an empty space.
  `A comma is used to separate tiles - including a comma at the end of each row.


  open to read 1,"level"+str$(level)+".txt"
  `Read header. The header contains the image types used in the level
  read string 1,header$
  numberoftileimages=len(header$)/3
  dim tileimage(numberoftileimages) as tileimage
  for n=1 to numberoftileimages
      chunk=n*3
      image$=left$(right$(left$(header$,chunk),3),2) `parse the string: this takes the left 2 characters (to get rid of the comma) of the right 3 (ie. the end bit) of the left 'chunk' (the chunk is increased in steps of 3)
      if image$<>"" and image$<>"t0"
        tileimage(n).imagenumber=free_image()
        tileimage(n).spriteID=free_sprite()
        tileimage(n).imagetype=image$
        load image image$+".png",tileimage(n).imagenumber,1
        sprite tileimage(n).spriteID,-100,-100,tileimage(n).imagenumber
      endif
  next n

  row=0
  repeat
    `scan through each subsequent row of the text file to get tile type and position
    inc row
    numberofrows=row
    dim tile(13,row) as tile
    read string 1,string$
    `scan through each column of the text file
    for column=1 to 13 `there are 13 columns, made up of 3 characters each (2 letters and a comma)
      chunk=column*3
      image$=left$(right$(left$(string$,chunk),3),2) `Parse the string: this takes the left 2 characters (to get rid of the comma) of the right 3 (ie. the end bit) of the left 'chunk' (the chunk is increased in steps of 3)
      if image$<>"" and image$<>"t0"
        tile(column,row).spritenumber=free_sprite()
        image=0
        for n=1 to numberoftileimages
          if image$=tileimage(n).imagetype
            imagenumber=tileimage(n).imagenumber
            image=n
            Exit
          Endif
        next n
        `as we don't know how big the level is until this loop has finished, we don't know where to position the tiles yet,
        `so we'll put them at 0,0 for the time being
        `sprite tile(column,row).spritenumber,0,0,imagenumber
        tile(column,row).imagetype=image
        tile(column,row).imagename=image$
      endif
    next column$
  until file end(1)=1

  `go through tiles again.  This time, now that we know the total number of rows, we can position the tiles correctly
  for column=1 to 13
    for row=1 to numberofrows
      `if there is a tile at that coordinate
      if (tile(column,row).spritenumber)>0
        tile(column,row).y=(row-1)*64-(numberofrows*64)+(9*64)
        `sprite tile(column,row).spritenumber,(column-1)*64-13,tile(column,row).y,sprite image(tile(column,row).spritenumber)
        `set sprite tile(column,row).spritenumber,1,0
      endif
    next row
  next column

endfunction

function scroll_tiles()

for row=1 to numberofrows
  for column=1 to 13
    spriteID=tileimage(tile(column,row).imagetype).spriteID
    if spriteID>0
      `imageID=tileimage(tile(column,row).imagetype).imagenumber
      tile(column,row).y=tile(column,row).y+tilespeed#*dt
      if tile(column,row).y>-114 and tile(column,row).y<screen height()-114
        paste sprite tileshadow,(column-1)*64-16+50,tile(column,row).y+50
      endif
      if tile(column,row).y>-64 and tile(column,row).y<screen height()-64
        Paste sprite SpriteID,(column-1)*64-16,tile(column,row).y
        if left$(tile(column,row).imagename,1)="d" and tile(column,row).occupied=0
          tile(column,row).occupied=1
          make_new_object((column-1)*64,tile(column,row).y+16,6,100,6000)
        endif
      endif
    endif
  next column
next row

endfunction

function set_player()
   player.xpos=(screen width()-32)/2
   player.ypos= screen height()-115
   player.height =6
   player.animation_step=50
   player.animation_time=timer()+player.animation_step
   player.animation_frame=1
   player.start_frame=1
   player.end_frame=4
   player.next_move=timer()+3
   player.shadow=5
   player.next_fire=timer()
   player.fire_speed=100
endfunction

function animate_player()
   if timer()>player.animation_time
      inc player.animation_frame
      if player.animation_frame>player.end_frame then player.animation_frame=player.start_frame
      player.animation_time=timer()+player.animation_step
   endif
endfunction



function draw_player()
   sprite 1,player.xpos,player.ypos,player.animation_frame
   sprite 2,player.xpos+(player.height/2)+2,player.ypos+player.height+2,player.shadow
   set sprite priority 1,5+player.height
   set sprite priority 2,4+player.height
   set sprite alpha 2,80-player.height
   scale sprite 1,85+player.height/2
   scale sprite 2,85+player.height/1.5
   if sprite collision(1,0)>2 then check_player_collision()
endfunction

function disect(filename as string,across,down,imagestart)

   load bitmap filename,1
   x=bitmap width(1)/across
   y=bitmap height(1)/down
   for a = 0 to down-1
   for b = 0 to across-1
   get image imagestart+a*across+b,x*b,y*a,x*b+x,y*a+y
   next b:next a
   delete bitmap 1
endfunction

function controls()
   if upkey()=1 then dec player.ypos,shipspeed#*dt
   if downkey()=1 then inc player.ypos,shipspeed#*dt
   if leftkey()=1 then dec player.xpos,shipspeed#*dt
   if rightkey()=1 then inc player.xpos,shipspeed#*dt
   if keystate(31)=1 then inc player.height,1
   if keystate(17)=1 then dec player.height,1
   if spacekey()=1 and timer()>player.next_fire then add_missile(8)

   if player.height<6 then player.height=6
   if player.height>30 then player.height=30
   if player.xpos<5 then player.xpos=5
   if player.xpos>screen width()-37 then player.xpos=screen width()-37
   if player.ypos>screen height()-115 then player.ypos=screen height()-115
   if player.ypos<128 then player.ypos=128
endfunction

function make_temp_background()
   load image "BackGround.png",BACKGROUND_IMAGE,1
   load image "Clouds.png",CLOUD_IMAGE,1
   load image "Trees.png",TREES_IMAGE,1
endfunction

function draw_background()
   paste image BACKGROUND_IMAGE,0,background_scroll
   paste image BACKGROUND_IMAGE,0,background_scroll+screen height()*2
   inc background_scroll,background_scroll_rate*dt
   if background_scroll>screen_height*2 then dec background_scroll,screen height()*2

   paste image TREES_IMAGE,0,tree_scroll,1
   paste image TREES_IMAGE,0,tree_scroll+screen height()*1.5,1
   inc tree_scroll,tree_scroll_rate*dt
   if tree_scroll>screen_height*1.5 then dec tree_scroll,screen height()*1.5

   sprite CLOUD_IMAGE,0,cloud_scroll,CLOUD_IMAGE
   sprite CLOUD_IMAGE+1,0,cloud_scroll+screen height()*1.5,CLOUD_IMAGE
   set sprite priority CLOUD_IMAGE,30
   set sprite priority CLOUD_IMAGE+1,30
   inc cloud_scroll,cloud_scroll_rate*dt
   if cloud_scroll>screen_height*1.5 then dec cloud_scroll,screen height()*1.5

   sprite 3,0,522,5001
   set sprite 3,0,1
   set sprite priority 3,100
   score$=str$(score)
   for a = len(score$) to 1 step -1
      value=val(mid$(score$,a))
      if value=0 then value=10
      sprite 8+a,751-((len(score$)-a)*16),554,29+value
      set sprite priority 8+a,110
   next a
endfunction

function add_missile(offset)
   array insert at top player_missile()
   player_missile(0).xpos=player.xpos+offset
   player_missile(0).ypos=player.ypos-16
   player_missile(0).height=player.height
   player_missile(0).start_frame=10
   player_missile(0).end_frame=13
   player_missile(0).animation_step=50
   player_missile(0).animation_time=timer()+50
   player_missile(0).animation_frame=10
   player_missile(0).shadow=14
   player_missile(0).sprite_number=free_sprite()
   sprite player_missile(0).sprite_number,player_missile(0).xpos,player_missile(0).ypos,player_missile(0).animation_frame
   player_missile(0).shadow_number=free_sprite()
   sprite player_missile(0).shadow_number,player_missile(0).xpos+(player_missile(0).height/2),player_missile(0).ypos+player_missile(0).height,player_missile(0).shadow
   set sprite alpha player_missile(0).shadow_number,80-player_missile(0).height
   set sprite priority player_missile(0).sprite_number,50
   set sprite priority player_missile(0).shadow_number,40
   player.next_fire=timer()+player.fire_speed
endfunction

function draw_missiles()
   for a = array count(player_missile()) to 0 step -1
      dec player_missile(a).ypos,missilespeed#*dt
      if timer()>player_missile(a).animation_time
         inc player_missile(a).animation_frame
         if player_missile(a).animation_frame>player_missile(a).end_frame then player_missile(a).animation_frame=player_missile(a).start_frame
         player_missile(a).animation_time=timer()+player_missile(a).animation_step
      endif
      sprite player_missile(a).sprite_number,player_missile(a).xpos,player_missile(a).ypos,player_missile(a).animation_frame
      sprite player_missile(a).shadow_number,player_missile(a).xpos+(player_missile(a).height/2),player_missile(a).ypos+player_missile(a).height,player_missile(a).shadow
      set sprite alpha player_missile(a).shadow_number,80-player_missile(a).height
      set sprite priority player_missile(a).sprite_number,player_missile(a).height+5
      set sprite priority player_missile(a).shadow_number,player_missile(a).height+4
      if player_missile(a).ypos<-16
         kill_missile(a)
      else
         if array count(perm_object_tile())>=0 then check_shot_object_collision(a)
      endif

   next a
endfunction

function check_shot_object_collision(count)
  hit=sprite collision(player_missile(count).sprite_number,0)
      if hit=0 then exitfunction
      for a = array count(perm_object_tile()) to 0 step -1
         if sprite collision(player_missile(count).sprite_number,perm_object_tile(a).sprite_number)=1 and  player_missile(count).height<=perm_object_tile(a).height
            add_explosion(player_missile(count).xpos-8,player_missile(count).ypos-8)
            kill_missile(count)
            inc score,perm_object_tile(a).points
            kill_doodad(a)


            exitfunction
         endif
      next a
endfunction

function doodad_attack()

count=array count(perm_object_tile())
for n=1 to count
  bearing#=get_bearing(perm_object_tile(n).xpos,perm_object_tile(n).ypos,player.xpos,player.ypos)
  firingangle#=bearing#+rnd(20)-10
  if rnd(400)=0 then fire_bullet(perm_object_tile(n).xpos,perm_object_tile(n).ypos,firingangle#)
  if rnd(2000)=0 then fire_heatseeker(perm_object_tile(n).xpos,perm_object_tile(n).ypos,firingangle#)
next n

endfunction

function make_bullet()

bulletimage=free_image()
load image "bullet.png",bulletimage,1

endfunction



function fire_bullet(startx,starty,angle#)

inc numberofbullets
bulletnumber=numberofbullets
dim bullet(numberofbullets) as bullettype
bullet(bulletnumber).spritenumber=free_sprite()
sprite bullet(bulletnumber).spritenumber,startx,starty,bulletimage
offset sprite bullet(bulletnumber).spritenumber,sprite width(bullet(bulletnumber).spritenumber)/2,sprite height(bullet(bulletnumber).spritenumber)/2
bullet(bulletnumber).active=1
bullet(bulletnumber).xpos=startx
bullet(bulletnumber).ypos=starty
bullet(bulletnumber).angle=angle#
bullet(bulletnumber).life=200


endfunction

function fire_heatseeker(startx,starty,angle#)

inc numberofbullets
bulletnumber=numberofbullets
dim bullet(numberofbullets) as bullettype
bullet(bulletnumber).spritenumber=free_sprite()
sprite bullet(bulletnumber).spritenumber,startx,starty,bulletimage
set sprite diffuse bullet(bulletnumber).spritenumber,255,0,0
offset sprite bullet(bulletnumber).spritenumber,sprite width(bullet(bulletnumber).spritenumber)/2,sprite height(bullet(bulletnumber).spritenumber)/2
bullet(bulletnumber).active=1
bullet(bulletnumber).xpos=startx
bullet(bulletnumber).ypos=starty
bullet(bulletnumber).angle=angle#
bullet(bulletnumber).heatseeking=1
bullet(bulletnumber).life=200


endfunction

function move_bullets()

for bulletnumber=1 to numberofbullets
  if bullet(bulletnumber).active=1
    `if heatseeking, update direction and move along new path
    if bullet(bulletnumber).heatseeking=1
      bullet(bulletnumber).angle=get_bearing(bullet(bulletnumber).xpos,bullet(bulletnumber).ypos,player.xpos,player.ypos)
      inc bullet(bulletnumber).xpos,bulletspeed#*1.2*sin(bullet(bulletnumber).angle)*dt
      inc bullet(bulletnumber).ypos,bulletspeed#*1.2*cos(bullet(bulletnumber).angle)*dt
    else
    `otherwise, update position along same path
      inc bullet(bulletnumber).xpos,bulletspeed#*sin(bullet(bulletnumber).angle)*dt
      inc bullet(bulletnumber).ypos,bulletspeed#*cos(bullet(bulletnumber).angle)*dt
    endif
    `move all bullets down to account for background scrolling
    inc bullet(bulletnumber).ypos,tilespeed#
    `draw the bullet in its new position
    sprite bullet(bulletnumber).spritenumber,bullet(bulletnumber).xpos,bullet(bulletnumber).ypos,bulletimage
    `decrease the lifespan of the bullet and fade accordingly
    dec bullet(bulletnumber).life,1.0*dt
    set sprite alpha bullet(bulletnumber).spritenumber,int(bullet(bulletnumber).life*255/200.0)
    `kill bullet if lifespan over
    if bullet(bulletnumber).life<=10
      delete sprite bullet(bulletnumber).spritenumber
      bullet(bulletnumber).active=0
    endif
    `kill bullet if outside of screen range
    if bullet(bulletnumber).active=1
      if bullet(bulletnumber).ypos>screen height() or bullet(bulletnumber).ypos<0 or bullet(bulletnumber).xpos>screen width() or bullet(bulletnumber).xpos<0
        delete sprite bullet(bulletnumber).spritenumber
        bullet(bulletnumber).active=0
      endif
    endif
    `check for collision between bullet and player
    if bullet(bulletnumber).active=1
      if sprite collision(1,bullet(bulletnumber).spritenumber)=1
        add_explosion(player.xpos,player.ypos)
        kill_player()
        delete sprite bullet(bulletnumber).spritenumber
        bullet(bulletnumber).active=0
      endif
    endif
  endif
next bulletnumber

endfunction



function kill_missile(count)
   delete sprite player_missile(count).sprite_number
   delete sprite player_missile(count).shadow_number
   array delete element player_missile(),count
endfunction

`temporary function to test added features

function test_features()

 if inkey$()="1" then player.gun_strength=1
 if inkey$()="2" then player.gun_strength=2
 if inkey$()="3" then player.gun_strength=3
 if inkey$()="=" then add_explosion(rnd(screen width()),rnd(screen height())):add_explosion(rnd(screen width()),rnd(screen height()))
endfunction

function add_doodad(xpos,ypos,image)
   array insert at bottom object_tile()
   count=array count(object_tile())
   object_tile(count).xpos=xpos
   object_tile(count).ypos=ypos
   object_tile(count).image=image
endfunction

function scroll_doodads()
   for a = array count(object_tile()) to 0 step -1
      if object_tile(a).ypos<=DISTANCE_TRAVELLED-32
          make_new_object(object_tile(a).xpos,object_tile(a).ypos-DISTANCE_TRAVELLED-32,object_tile(a).height,object_tile(a).points,object_tile(a).image)
          array delete element object_tile(),a
      endif
   next a
endfunction

function make_new_object(xpos,ypos,height,points,image)
   array insert at bottom perm_object_tile()
   count=array count(perm_object_tile())
   perm_object_tile(count).xpos=xpos
   perm_object_tile(count).ypos=ypos
   perm_object_tile(count).image=image
   perm_object_tile(count).height=height
   perm_object_tile(count).points=points
   perm_object_tile(count).sprite_number=free_sprite()
   sprite perm_object_tile(count).sprite_number,perm_object_tile(count).xpos,perm_object_tile(count).ypos,perm_object_tile(count).image
   Set Sprite Priority perm_object_tile(count).sprite_number,perm_object_tile(count).height
   perm_object_tile(count).shadow=free_sprite()
   Sprite perm_object_tile(count).shadow,perm_object_tile(count).xpos,perm_object_tile(count).ypos,perm_object_tile(count).image
   Set Sprite Diffuse perm_object_tile(count).shadow,0,0,0
   Set Sprite Alpha perm_object_tile(count).shadow,50
   Set Sprite Priority perm_object_tile(count).shadow,perm_object_tile(count).height-1
endfunction



function scroll_perm_doodads()
   for a = array count(perm_object_tile()) to 0 step -1
      h=perm_object_tile(a).height
      sprite perm_object_tile(a).sprite_number,perm_object_tile(a).xpos,perm_object_tile(a).ypos,perm_object_tile(a).image
      Scale Sprite perm_object_tile(a).sprite_number,85+h
      sprite perm_object_tile(a).shadow,perm_object_tile(a).xpos+4,perm_object_tile(a).ypos+4,perm_object_tile(a).image
      Scale Sprite perm_object_tile(a).shadow,85+h*2
      inc perm_object_tile(a).ypos,tilespeed#*dt
      if perm_object_tile(a).ypos>screen height() then kill_doodad(a)
   next a
endfunction

function kill_doodad(count)
   if sprite exist(perm_object_tile(count).sprite_number)=1 then delete sprite perm_object_tile(count).sprite_number
   if sprite exist(perm_object_tile(count).shadow)=1 then delete sprite perm_object_tile(count).shadow
   array delete element perm_object_tile(),count
endfunction

function free_sprite()
count=spriteseed
   repeat
      inc count
   until sprite exist(count)=0
endfunction count

function free_image()
   repeat
      inc count
   until image exist(count)=0
endfunction count

function add_explosion(xpos,ypos)
   array insert at bottom explosion()
   count=array count(explosion())
   explosion(count).xpos=xpos
   explosion(count).ypos=ypos
   explosion(count).frame=50
   explosion(count).start_frame=50
   explosion(count).end_frame=65
   explosion(count).next_frame=timer()+50
   explosion(count).sprite_number=free_sprite()
   sprite explosion(count).sprite_number,explosion(count).xpos,explosion(count).ypos,explosion(count).frame
endfunction

function draw_explosions()
   for a = array count(explosion()) to 0 step -1
      if timer()>explosion(a).next_frame
         inc explosion(a).frame
         explosion(a).next_frame=timer()+50
      endif
      sprite explosion(a).sprite_number,explosion(a).xpos,explosion(a).ypos,explosion(a).frame
      if explosion(a).frame>=explosion(a).end_frame then kill_explosion(a)
   next a
endfunction

function kill_explosion(count)
   if sprite exist(explosion(count).sprite_number) then delete sprite explosion(count).sprite_number
   array delete element explosion(),count
endfunction

function check_player_collision()
   if player.vulnerable<=timer()
      if array count(perm_object_tile())>=0
         for a = array count(perm_object_tile()) to 0 step -1
            if player.height<=perm_object_tile(a).height
               if sprite collision(1,perm_object_tile(a).sprite_number)=1
                  kill_doodad(a)
                  add_explosion(player.xpos,player.ypos)
                  kill_player()
                  exitfunction
               endif
            endif
         next a
      endif
   endif
endfunction

function player_state()
   if player.vulnerable>timer()
      player.start_frame=6:player.end_frame=8
   else
      player.start_frame=1:player.end_frame=4
   endif
endfunction

function kill_player()
   player.xpos=(screen width()-32)/2
   player.ypos= screen height()-115
   player.vulnerable=timer()+3000
endfunction

function get_bearing(x1#,y1#,x2#,y2#)
ang#=atanfull((x2#-x1#),(y2#-y1#))
endfunction ang#

t0,t1,t2,d1,r1,

t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,
t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,d1,d1,d1,d1,d1,t0,d1,d1,d1,d1,d1,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t1,d1,d1,d1,d1,d1,t0,d1,d1,d1,d1,d1,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,d1,d1,d1,d1,d1,t0,d1,d1,d1,d1,d1,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t0,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,t0,
t0,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,t0,
d1,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,d1,
t0,t0,t1,t0,t0,t0,t2,t0,t0,t0,t1,t0,t0,
d1,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,d1,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
d1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,d1,
t0,t0,t1,d1,t0,t0,t2,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t1,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t2,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t1,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t2,t0,t0,d1,t1,t0,t0,
t0,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t0,
t0,d1,d1,t0,t0,t1,t2,t1,t0,t0,d1,d1,t0,
t0,d1,d1,t0,t0,t1,t1,t1,t0,t0,d1,d1,t0,
t0,d1,d1,t0,t0,t0,t0,t0,t0,t0,d1,d1,t0,
t0,t0,t0,t0,d1,d1,d1,d1,d1,t0,t0,t0,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,t0,t0,t0,d1,d1,d1,d1,d1,t0,t0,t0,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t0,
t0,t0,d1,t0,t0,t1,t2,t1,t0,t0,d1,t0,t0,
t0,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t0,
t1,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t1,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,d1,d1,t0,t0,t0,t0,t0,t0,t0,d1,d1,t0,
t0,d1,d1,t0,t0,t0,t0,t0,t0,t0,d1,d1,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t1,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,d1,d1,d1,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t1,t0,t0,t1,t1,t1,t1,t1,t0,t0,t1,t1,
t1,t0,t0,t0,t1,t2,t2,t2,t1,t0,t0,t1,t1,
t1,t0,t0,t0,t1,t1,t1,t1,t1,t0,t0,t1,t1,
t1,t0,d1,t0,t0,t0,t0,t0,t0,t0,d1,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,
t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,
t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,
t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,d1,d1,d1,d1,d1,t0,d1,d1,d1,d1,d1,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t1,d1,d1,d1,d1,d1,t0,d1,d1,d1,d1,d1,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,d1,d1,d1,d1,d1,t0,d1,d1,d1,d1,d1,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t0,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,t0,
t0,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,t0,
d1,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,d1,
t0,t0,t1,t0,t0,t0,t2,t0,t0,t0,t1,t0,t0,
d1,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,d1,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
d1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,d1,
t0,t0,t1,d1,t0,t0,t2,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t1,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t2,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t1,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t2,t0,t0,d1,t1,t0,t0,
t0,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t0,
t0,d1,d1,t0,t0,t1,t2,t1,t0,t0,d1,d1,t0,
t0,d1,d1,t0,t0,t1,t1,t1,t0,t0,d1,d1,t0,
t0,d1,d1,t0,t0,t0,t0,t0,t0,t0,d1,d1,t0,
t0,t0,t0,t0,d1,d1,d1,d1,d1,t0,t0,t0,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,t0,t0,t0,d1,d1,d1,d1,d1,t0,t0,t0,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t0,
t0,t0,d1,t0,t0,t1,t2,t1,t0,t0,d1,t0,t0,
t0,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t0,
t1,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t1,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,d1,d1,t0,t0,t0,t0,t0,t0,t0,d1,d1,t0,
t0,d1,d1,t0,t0,t0,t0,t0,t0,t0,d1,d1,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t1,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,d1,d1,d1,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t1,t0,t0,t1,t1,t1,t1,t1,t0,t0,t1,t1,
t1,t0,t0,t0,t1,t2,t2,t2,t1,t0,t0,t1,t1,
t1,t0,t0,t0,t1,t1,t1,t1,t1,t0,t0,t1,t1,
t1,t0,d1,t0,t0,t0,t0,t0,t0,t0,d1,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,
t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,
t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,
t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,d1,d1,d1,d1,d1,t0,d1,d1,d1,d1,d1,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t1,d1,d1,d1,d1,d1,t0,d1,d1,d1,d1,d1,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,d1,d1,d1,d1,d1,t0,d1,d1,d1,d1,d1,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t0,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,t0,
t0,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,t0,
d1,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,d1,
t0,t0,t1,t0,t0,t0,t2,t0,t0,t0,t1,t0,t0,
d1,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,d1,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
d1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,d1,
t0,t0,t1,d1,t0,t0,t2,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t1,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t2,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t1,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t2,t0,t0,d1,t1,t0,t0,
t0,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t0,
t0,d1,d1,t0,t0,t1,t2,t1,t0,t0,d1,d1,t0,
t0,d1,d1,t0,t0,t1,t1,t1,t0,t0,d1,d1,t0,
t0,d1,d1,t0,t0,t0,t0,t0,t0,t0,d1,d1,t0,
t0,t0,t0,t0,d1,d1,d1,d1,d1,t0,t0,t0,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,t0,t0,t0,d1,d1,d1,d1,d1,t0,t0,t0,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t0,
t0,t0,d1,t0,t0,t1,t2,t1,t0,t0,d1,t0,t0,
t0,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t0,
t1,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t1,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,d1,d1,t0,t0,t0,t0,t0,t0,t0,d1,d1,t0,
t0,d1,d1,t0,t0,t0,t0,t0,t0,t0,d1,d1,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t1,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,d1,d1,d1,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t1,t0,t0,t1,t1,t1,t1,t1,t0,t0,t1,t1,
t1,t0,t0,t0,t1,t2,t2,t2,t1,t0,t0,t1,t1,
t1,t0,t0,t0,t1,t1,t1,t1,t1,t0,t0,t1,t1,
t1,t0,d1,t0,t0,t0,t0,t0,t0,t0,d1,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,
t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,
t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,
t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,t1,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,d1,d1,d1,d1,d1,t0,d1,d1,d1,d1,d1,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t1,d1,d1,d1,d1,d1,t0,d1,d1,d1,d1,d1,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,d1,d1,d1,d1,d1,t0,d1,d1,d1,d1,d1,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t0,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,t0,
t0,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,t0,
d1,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,d1,
t0,t0,t1,t0,t0,t0,t2,t0,t0,t0,t1,t0,t0,
d1,t0,t1,t0,t0,t0,t1,t0,t0,t0,t1,t0,d1,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
d1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,d1,
t0,t0,t1,d1,t0,t0,t2,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t1,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t2,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t1,t0,t0,d1,t1,t0,t0,
t0,t0,t1,d1,t0,t0,t2,t0,t0,d1,t1,t0,t0,
t0,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t0,
t0,d1,d1,t0,t0,t1,t2,t1,t0,t0,d1,d1,t0,
t0,d1,d1,t0,t0,t1,t1,t1,t0,t0,d1,d1,t0,
t0,d1,d1,t0,t0,t0,t0,t0,t0,t0,d1,d1,t0,
t0,t0,t0,t0,d1,d1,d1,d1,d1,t0,t0,t0,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,t0,t0,t0,d1,d1,d1,d1,d1,t0,t0,t0,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t0,
t0,t0,d1,t0,t0,t1,t2,t1,t0,t0,d1,t0,t0,
t0,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t0,
t1,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t1,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t0,d1,d1,t0,t0,t0,t0,t0,t0,t0,d1,d1,t0,
t0,d1,d1,t0,t0,t0,t0,t0,t0,t0,d1,d1,t0,
t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,
t1,t0,t0,t0,t0,t1,t1,t1,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,d1,d1,d1,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t1,t0,t0,t1,t1,t1,t1,t1,t0,t0,t1,t1,
t1,t0,t0,t0,t1,t2,t2,t2,t1,t0,t0,t1,t1,
t1,t0,t0,t0,t1,t1,t1,t1,t1,t0,t0,t1,t1,
t1,t0,d1,t0,t0,t0,t0,t0,t0,t0,d1,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t0,t1,
t1,t0,t0,t0,t1,t1,r1,t1,t1,t0,t0,t1,t1,
t1,t0,t0,t0,t1,t1,r1,t1,t1,t0,t0,t1,t1,
t1,t0,t0,t0,t1,t1,r1,t1,t1,t0,t0,t1,t1,
t1,t0,t0,t0,t1,t1,r1,t1,t1,t0,t0,t1,t1,
t1,t1,t1,t1,t1,t1,r1,t1,t1,t1,t1,t1,t1,
t1,t0,t0,t0,t0,t0,t1,t0,t0,t0,t0,t0,t1,

Game Concept: Based on the classic game Break Out, a prisoner
must break in to prison. There will be several modes the player may
choose from.

Story Mode: The prisoner must escape from prison by playing a
more standard version of breakout for one (or more) levels. Once
the player escapes from prison, the player must free his fellow
criminals so they can tell him where the loot is hidden by playing
Breakin from the top.

Game Mode: The player plays breakin from the top.

Competition Mode (optional): Two player game. Players play a Game
Mode side-by-side version of Breakin (the screen divided left and
right).

Level Ideas:
Standard: A standard block/layout of bricks, nothing special.
Small Bricks: A standard block/layout of bricks made of smaller
bricks.
Reinforced: A standard block/layout with some bricks/areas that are
indestructable
High-Security: Most of the bricks facing the player are
indestructable, except for a few gaps which leads to a back area of bricks.

Specials:
Explosives: Increases the speed of the ball.
Alarm: Triggers an alarm. A search light moves from the brick area
to the player area and then off screen. If the paddle touches the
spotlight, the paddle will freeze until the light is gone.
Multi-Ball: Adds another ball to the field.
Loot: Money moves from the brick to the player area then off
screen. If the player catches the money, bonus points are earned.
Time Bomb (Skill Shot): 1st hit sets a countdown timer. If the 
brick is hit a 2nd time before the timer expires, the brick will
explode eliminating all adjacent bricks.
Guard Bot: Hitting a Guard Bot brick will create a Guard Bot.
The Guard Bot interposes itself between the player and the bricks
and can move from side to side. The Guard Bot does not move as fast
as the paddle and always tries to position itself directly below
(or above) the paddle. The Guard Bot takes 5 to 10 hits to
eliminate.
Lock Down: A Lock Down brick imposes a Lock Down for a given
amount of time: Bricks take twice as many hits to destroy.
The player's paddle's speed is reduced slightly. A flashing red
alpha mapped "Lock Down" alert flashes in the center of the screen.

Other specials - whatever folks think of.
========================================
Game Style: 2D using Sprites.
Screen Resolution: 800x600x32

Menu:
Select Mode:
[Standard][Story][Competition]
[Start Game]
[High Scores]
[Exit Game]

sync on
set display mode 800,600,32

type bit
   image as integer
   points as integer
   special as integer
   xpos as integer
   ypos as integer
   hits as integer
endtype

dim brick(-1) as bit
dim grid(25,29)
Global Grid_x
Global Grid_y

load image "break-in_UI-1.png",1,1
load image "testbrick.bmp",2,1


do
   Draw_screen()
   get_grid()
   if array count(brick())>=0 then draw_bricks()
   draw_brick_place()
   if mouseclick()=1 then add_brick()
   text 15,15,str$(Grid_x)+" - "+str$(grid_y)

   sync
loop

function Draw_Screen()
   cls
   paste image 1,0,0
   ink rgb(255,255,0),0
   for a = 0 to 25
      line 15,184+a*16,585,184+a*16
   next a
   for b=0 to 30
      line 15+b*19,184,15+b*19,584
   next b
endfunction

function get_grid()
   mx=mousex()
   my=mousey()
   Grid_X=-1:Grid_Y=-1
   if mx>=15 and mx<=584 and my>=184 and my<=584
      Grid_X=(mx-15)/19
      Grid_Y=(my-184)/16
   endif
endfunction

function draw_brick_place()
   if gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25
      paste image 2,15+grid_X*19,184+Grid_y*16
   endif
endfunction

function add_brick()
   if gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25
      if grid(grid_y,grid_x)=0 and grid(grid_y,grid_x+1)=0
         array insert at bottom brick()
         count=array count(brick())
         brick(count).xpos=grid_x
         brick(count).ypos=grid_y
         brick(count).image=2
         grid(Grid_y,Grid_x)=1:grid(Grid_y,Grid_X+1)=1
      endif
   endif
endfunction

function draw_bricks()
   for a = 0 to array count(brick())
      paste image brick(a).image,15+brick(a).xpos*19,184+brick(a).ypos*16
   next a
endfunction

REM Project: SpriteFun
REM Created: 12/25/2006 11:15:28 AM
REM
REM ***** Main Source File *****
REM
makebrick(1,255,127,63,32,32)
show sprite 1

hide mouse

do
sprite 1,mousex(),mousey(),1
show sprite 1
  if mouseclick()=1
    for splash=1 to 99
      makebrick(splash,rnd(255),rnd(255),rnd(255),rnd(48)+16,rnd(48)+16)
      show sprite splash
    next splash
  endif
loop

function makebrick(num as integer,R as integer, G as integer, B as integer, xsize as integer, ysize as integer)

   create bitmap 1,xsize+8,ysize+8
   ink rgb(255,255,255),0
   box 0,0,xsize+4,ysize+4
   get image 999,1,1,xsize,2,1
   sprite 999,0,0,999
   hide sprite 999
   box 1,1,xsize,ysize,rgb(R,G,B),rgb(R/3,G/3,B/3),rgb(R,G,B),rgb(R/3,G/3,B/3)
   set sprite alpha 999,222
   paste sprite 999,1,1
   set sprite alpha 999,182
   paste sprite 999,1,2
   set sprite alpha 999,142
   paste sprite 999,1,3
   set sprite alpha 999,102
   paste sprite 999,1,4
   set sprite alpha 999,62
   paste sprite 999,1,5
   ink rgb(22,22,22),0:line 1,1,xsize,1:line 1,1,1,ysize:line xsize,1,xsize,ysize:line 1,ysize,xsize,ysize:dot xsize,ysize
   dot 2,2:dot 2,ysize-1:dot xsize-1,2:dot xsize-1,ysize-1
   ink rgb(0,0,0),0:dot 1,1:dot 1,2:dot 2,1:dot xsize-1,1:dot xsize,1:dot xsize,2:dot 1,ysize-1:dot 1,ysize:dot 2,ysize:dot xsize-1,ysize:dot xsize,ysize:dot xsize,ysize-1
   get image num,1,1,xsize+1,ysize+1,1
   sprite num,rnd(screen width()-xsize),rnd(screen height()-ysize),num
   hide sprite 1
   delete bitmap 1

   set current bitmap 0

endfunction

sync on
set display mode 800,600,32
set image colorkey 255,0,255

type bit
   image as integer
   points as integer
   special as integer
   xpos as integer
   ypos as integer
   hits as integer
   Brick_Number as integer
endtype

dim brick(-1) as bit
dim grid(25,29)
Global Grid_x
Global Grid_y
Global Brick_Number
Global CURRENT_BRICK=2
Global GRID_ON

load image "break-in_UI-1.png",1,1
disect("testbrick.bmp",1,10,2)


do
   Draw_screen()
   get_grid()
   controls()
   if array count(brick())>=0 then draw_bricks()
   draw_brick_place()

   text 15,15,str$(Grid_x)+" - "+str$(grid_y)
   text 15,30,str$(Brick_Number)
   text 15,45,str$(array count(brick()))

   sync
loop

function controls()
   if mouseclick()=1 and gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25 then add_brick()
   if mouseclick()=2 and gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25 then remove_brick()
   if mouseclick()=1 and mousex()>=600 and mousex()<=638
      my=mousey()
         ypoint=(my-234)/25
         if ypoint>=0 and ypoint<=9
               if my>=234+(ypoint*25) and my<=250+ypoint*25 then CURRENT_BRICK=ypoint+2
         endif
   endif
   if inkey$()="1" then grid_on=1
   if inkey$()="2" then grid_on=0
   if lower$(inkey$())="e" then export_level("level1"):repeat:until scancode()=0
endfunction


function Draw_Screen()
   cls
   paste image 1,0,0
   if grid_on=0
      ink rgb(255,255,0),0
      for a = 0 to 25
          line 15,184+a*16,585,184+a*16
      next a
      for b=0 to 30
          line 15+b*19,184,15+b*19,584
      next b
   endif

   for a = 2 to 11
      paste image a,600,184+a*25
   next a

   paste image current_brick,600,100
endfunction

function get_grid()
   mx=mousex()
   my=mousey()
   Grid_X=-1:Grid_Y=-1
   if mx>=15 and mx<=584 and my>=184 and my<=584
      Grid_X=(mx-15)/19
      Grid_Y=(my-184)/16
   endif
endfunction

function draw_brick_place()
   if gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25
      sprite 1,15+grid_X*19,184+Grid_y*16,CURRENT_BRICK
      set sprite alpha 1,80
      show sprite 1
   else
      if sprite exist(1)
         hide sprite 1
      endif
   endif
endfunction

function add_brick()
   if gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25
      if grid(grid_y,grid_x)=0 and grid(grid_y,grid_x+1)=0
         array insert at bottom brick()
         count=array count(brick())
         brick(count).xpos=grid_x
         brick(count).ypos=grid_y
         brick(count).image=CURRENT_BRICK
         inc Brick_Number
         brick(count).Brick_NUmber=Brick_Number
         grid(Grid_y,Grid_x)=Brick_Number:grid(Grid_y,Grid_X+1)=Brick_Number
      endif
   endif
endfunction

function remove_brick()
   if gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25
      if grid(grid_y,grid_x)>0
         if array count(brick())>=0
            for a = array count(brick()) to 0 step -1
               which=grid(grid_y,grid_x)
               if brick(a).Brick_Number=which
                  array delete element brick(),a
               endif
            next a
            for a = 0 to 25
               for b = 0 to 29
                  if grid(a,b)=which then grid(a,b)=0
               next b
            next a
         endif
      endif
   endif
endfunction

function draw_bricks()
   for a = 0 to array count(brick())
      paste image brick(a).image,15+brick(a).xpos*19,184+brick(a).ypos*16
   next a
endfunction

function disect(filename as string,across,down,imagestart)

   load bitmap filename,1
   x=bitmap width(1)/across
   y=bitmap height(1)/down
   for a = 0 to down-1
   for b = 0 to across-1
   get image imagestart+a*across+b,x*b,y*a,x*b+x,y*a+y
   next b:next a
   delete bitmap 1
endfunction

function export_level(file$)
   file$=file$+".bil"
   if file exist(file$)=1 then delete file file$
   open to write 1,file$
      count=array count(brick())
      write long 1,count
      for a = 0 to count
         write byte 1,brick(a).xpos
         write byte 1,brick(a).ypos
         write byte 1,brick(a).image
      next a
   close file 1
endfunction

sync on
set display mode 800,600,32
set image colorkey 255,0,255

type bit
   image as integer
   xpos as integer
   ypos as integer
   Brick_Number as integer
endtype

type format
   red as byte
   blue as byte
   green as byte
   hits as byte
   points as integer
   special as integer
endtype

dim brick_data(9) as format
dim brick(-1) as bit
dim grid(25,29)
Global Grid_x
Global Grid_y
Global Brick_Number
Global CURRENT_BRICK=2
Global GRID_ON

for a = 0 to 9
   read brick_data(a).red:read brick_data(a).blue:read brick_data(a).green
   read brick_data(a).hits:read brick_data(a).special:read brick_data(a).points
   makebrick(brick_data(a).red, brick_data(a).blue, brick_data(a).green,38,16,a+2)
next a

load image "break-in_UI-1.png",1,1




do
   Draw_screen()
   get_grid()
   controls()
   if array count(brick())>=0 then draw_bricks()
   draw_brick_place()

   sync
loop

function controls()
   if mouseclick()=1 and gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25 then add_brick()
   if mouseclick()=2 and gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25 then remove_brick()
   if mouseclick()=1 and mousex()>=600 and mousex()<=638
      my=mousey()
         ypoint=(my-234)/25
         if ypoint>=0 and ypoint<=9
               if my>=234+(ypoint*25) and my<=250+ypoint*25 then CURRENT_BRICK=ypoint+2
         endif
   endif
   if mouseclick()=1 and mousex()>=650 and mousex()<=650+text width("EDIT")
      my=mousey()
         ypoint=(my-234)/25
         if ypoint>=0 and ypoint<=9
               if my>=234+(ypoint*25) and my<=250+ypoint*25 then edit_brick(ypoint)
         endif
   endif
   if inkey$()="1" then grid_on=1
   if inkey$()="2" then grid_on=0
   if lower$(inkey$())="e" then export_level("level1"):repeat:until scancode()=0
endfunction


function Draw_Screen()
   cls
   paste image 1,0,0
   if grid_on=0
      ink rgb(255,255,0),0
      for a = 0 to 25
          line 15,184+a*16,585,184+a*16
      next a
      for b=0 to 30
          line 15+b*19,184,15+b*19,584
      next b
   endif

   for a = 2 to 11
      paste image a,600,184+a*25,1
      ink rgb(255,255,255),0
      text 650,184+a*25,"EDIT"
   next a

   paste image current_brick,600,100,0
   text 600,120,"HITS: "+str$(brick_data(CURRENT_BRICK-2).hits)
   text 600,140,"SPECIAL: "+str$(brick_data(CURRENT_BRICK-2).special)
   text 600,160,"POINTS: "+str$(brick_data(CURRENT_BRICK-2).points)
endfunction

function get_grid()
   mx=mousex()
   my=mousey()
   Grid_X=-1:Grid_Y=-1
   if mx>=15 and mx<=584 and my>=184 and my<=584
      Grid_X=(mx-15)/19
      Grid_Y=(my-184)/16
   endif
endfunction

function draw_brick_place()
   if gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25
      sprite 1,15+grid_X*19,184+Grid_y*16,CURRENT_BRICK
      set sprite alpha 1,80
      show sprite 1
   else
      if sprite exist(1)
         hide sprite 1
      endif
   endif
endfunction

function add_brick()
   if gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25
      if grid(grid_y,grid_x)=0 and grid(grid_y,grid_x+1)=0
         array insert at bottom brick()
         count=array count(brick())
         brick(count).xpos=grid_x
         brick(count).ypos=grid_y
         brick(count).image=CURRENT_BRICK
         inc Brick_Number
         brick(count).Brick_NUmber=Brick_Number
         grid(Grid_y,Grid_x)=Brick_Number:grid(Grid_y,Grid_X+1)=Brick_Number
      endif
   endif
endfunction

function remove_brick()
   if gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25
      if grid(grid_y,grid_x)>0
         if array count(brick())>=0
            for a = array count(brick()) to 0 step -1
               which=grid(grid_y,grid_x)
               if brick(a).Brick_Number=which
                  array delete element brick(),a
               endif
            next a
            for a = 0 to 25
               for b = 0 to 29
                  if grid(a,b)=which then grid(a,b)=0
               next b
            next a
         endif
      endif
   endif
endfunction

function draw_bricks()
   for a = 0 to array count(brick())
      paste image brick(a).image,15+brick(a).xpos*19,184+brick(a).ypos*16,1
   next a
endfunction

function edit_brick(number as integer)

   Red1=brick_data(number).red
   Green1=brick_data(number).green
   Blue1=brick_data(number).blue
   makebrick(red1,blue1,green1,38,16,5000)
   repeat
      cls
      draw_screen()
      if array count(brick())>=0 then draw_bricks()
      ink rgb(200,200,200),0
      box 180,95,500,480
      ink 0,0
      text 200,100,"EDITING BRICK "+str$(number)
      paste image 5000,200,130,1
      text 190,190,"R":line 200,200,455,200:line 200+red1,200,200+red1,190:text 465,190,str$(red1)
      text 190,210,"G":line 200,220,455,220:line 200+blue1,220,200+blue1,210:text 465,210,str$(blue1)
      text 190,230,"B":line 200,240,455,240:line 200+green1,240,200+green1,230:text 465,230,str$(green1)
      oldred=red1:oldgreen=green1:oldblue=blue1
      if mouseclick()=1
         mx=mousex():my=mousey()
         if mx>=200 and mx<=455
            if my>=190 and my<=200 then red1=mx-200
            if my>=210 and my<=220 then blue1=mx-200
            if my>=230 and my<=240 then green1=mx-200
         endif
      endif

      if oldred<>red1 or oldgreen<>green1 or oldblue<>blue1
         makebrick(red1,blue1,green1,38,16,5000)
      endif
      sync
   until mouseclick()=2
   brick_data(number).red=red1
   brick_data(number).green=green1
   brick_data(number).blue=blue1
   makebrick(red1,blue1,green1,38,16,number+2)
endfunction

function disect(filename as string,across,down,imagestart)

   load bitmap filename,1
   x=bitmap width(1)/across
   y=bitmap height(1)/down
   for a = 0 to down-1
   for b = 0 to across-1
   get image imagestart+a*across+b,x*b,y*a,x*b+x,y*a+y
   next b:next a
   delete bitmap 1
endfunction

function export_level(file$)
   file$=file$+".bil"
   if file exist(file$)=1 then delete file file$
   for a = 0 to 9
      write byte 1,brick_data(a).red
      write byte 1,brick_data(a).blue
      write byte 1,brick_data(a).green
      write byte 1,brick_data(a).hits
      write byte 1,brick_data(a).special
      write long 1,brick_data(a).points
   next a

   open to write 1,file$
      count=array count(brick())
      write long 1,count
      for a = 0 to count
         write byte 1,brick(a).xpos
         write byte 1,brick(a).ypos
         write byte 1,brick(a).image
      next a
   close file 1
endfunction

function makebrick(R as integer, G as integer, B as integer, xsize as integer, ysize as integer, image_number as integer)

   create bitmap 1,xsize+8,ysize+8
   ink rgb(255,255,255),0
   box 0,0,xsize+4,ysize+4
   get image 999,1,1,xsize,2,1
   sprite 999,0,0,999
   hide sprite 999
   box 1,1,xsize,ysize,rgb(R,G,B),rgb(R/3,G/3,B/3),rgb(R,G,B),rgb(R/3,G/3,B/3)
   set sprite alpha 999,222
   paste sprite 999,1,1
   set sprite alpha 999,182
   paste sprite 999,1,2
   set sprite alpha 999,142
   paste sprite 999,1,3
   set sprite alpha 999,102
   paste sprite 999,1,4
   set sprite alpha 999,62
   paste sprite 999,1,5
   ink rgb(22,22,22),0:line 1,1,xsize,1:line 1,1,1,ysize:line xsize,1,xsize,ysize:line 1,ysize,xsize,ysize:dot xsize,ysize
   dot 2,2:dot 2,ysize-1:dot xsize-1,2:dot xsize-1,ysize-1
   ink rgb(255,0,255),0:dot 1,1:dot 1,2:dot 2,1:dot xsize-1,1:dot xsize,1:dot xsize,2:dot 1,ysize-1:dot 1,ysize:dot 2,ysize:dot xsize-1,ysize:dot xsize,ysize:dot xsize,ysize-1
   get image Image_number,1,1,xsize+1,ysize+1,1
   delete bitmap 1
   if sprite exist(999) then delete sprite 999

   set current bitmap 0

endfunction

data 217,2,6,1,0,10
data 2,218,55,1,0,20
data 27,2,218,1,0,30
data 232,255,77,1,0,40
data 218,164,2,1,0,50
data 77,253,252,1,0,60
data 173,24,196,1,0,70
data 243,205,249,1,0,80
data 22,93,23,1,0,90
data 40,40,40,1,0,100

set display mode 800,600,32
set image colorkey 255,0,255

#CONSTANT BRICK_WIDTH = 40
#CONSTANT BRICK_HEIGHT = 15
#CONSTANT X_SEGS = 25
#CONSTANT Y_SEGS = 29

#CONSTANT STATE_OFF = 0
#CONSTANT STATE_ON = 1
#CONSTANT STATE_FALLING = 2

#CONSTANT ANGLE_MAX = 75

#CONSTANT BOUND_TOP = 0
#CONSTANT BOUND_BOTTOM = 600
#CONSTANT BOUND_LEFT = 0
#CONSTANT BOUND_RIGHT = 800

Global MX
Global MY

type Bit
   state as byte     :`added this attribute to HL's existing struct
   image as integer
   points as integer
   special as integer
   xpos as integer
   ypos as integer
   hits as integer
   Brick_Number as integer
endtype

type Ball
   x as float
   y as float
   oldx as float
   oldy as float
   speed as integer
   radius as integer
   dx as float
   dy as float
endtype

type Bat
   x as integer
   y as integer
   width as integer
endtype


dim bricks(X_SEGS, Y_SEGS) as Bit
dim balls(1) as Ball


Global paddle as Bat
paddle.width = 50 : `real width is actually twice this numer (just saves me on division)
paddle.y = 590

create_random_map()

balls(1).x = 400
balls(1).y = 200
balls(1).dx = cos(75)
balls(1).dy = sin(75)
balls(1).radius = 5
balls(1).speed = 6

hide mouse
sync on
sync rate 60
DO
   cls
   set cursor 0,0


   MX = mousex()
   MY = mousey()

   gosub _controls

   update_positions()

   brick_collision()
   ball_collision()
   draw_bricks()
   draw_paddle()
   draw_balls()


   sync
LOOP


_controls:
   paddle.x = MX
   if paddle.x-paddle.width < 0 then paddle.x = paddle.width
   if paddle.x+paddle.width > 800 then paddle.x = 800-paddle.width
RETURN


function update_positions()
   for b = 1 to array count(balls())
      rem update position
      balls(b).oldx = balls(b).x
      balls(b).oldy = balls(b).y
      balls(b).x = balls(b).x + balls(b).dx*balls(b).speed
      balls(b).y = balls(b).y + balls(b).dy*balls(b).speed
      rem check bounds
      if balls(b).x-balls(b).radius <= BOUND_LEFT then balls(b).dx = balls(b).dx*-1
      if balls(b).x+balls(b).radius >= BOUND_RIGHT then balls(b).dx = balls(b).dx*-1
      if balls(b).y-balls(b).radius <= BOUND_TOP then balls(b).dy = balls(b).dy*-1
      if balls(b).y+balls(b).radius >= BOUND_BOTTOM then balls(b).dy = balls(b).dy*-1
   next b
endfunction


REM balls and paddle
function ball_collision()
   for b = 1 to array count(balls())
      t# = BPcollides#(b)
      if t# > 0.0 and t# < 1.0
         rem position ball on top of paddle (incase it had positioned beyond it)
         balls(b).x = balls(b).oldx + balls(b).dx*balls(b).speed*t#
         balls(b).y = paddle.y - balls(b).radius
         d# = balls(b).x - paddle.x
         a# = 270 + (d#/paddle.width)*ANGLE_MAX
         balls(b).dx = cos(a#)
         balls(b).dy = sin(a#)
      endif
   next b

endfunction


REM bricks and balls
function brick_collision()
   for b = 1 to array count(balls())
      for y = 1 to Y_SEGS
         for x = 1 to X_SEGS
            if bricks(x,y).state = STATE_ON
               if BBcollides(b, x, y) = 1
                  bricks(x,y).state = STATE_OFF
               endif
            endif
         next x
      next y
   next b
endfunction


function BBcollides(b as integer, x as integer, y as integer)
   if balls(b).x+balls(b).radius >= bricks(x,y).xpos and balls(b).x-balls(b).radius <= bricks(x,y).xpos+BRICK_WIDTH
      if balls(b).y+balls(b).radius >= bricks(x,y).ypos and balls(b).y-balls(b).radius < bricks(x,y).ypos+BRICK_HEIGHT then exitfunction 1
   endif
endfunction 0

rem uses ball 'b' from the balls array and
rem uses its velocity vector to determine
rem what time it collides with the paddle
rem ball hits paddle if t# is in [0,1]
function BPcollides#(b as integer)
   num# = -paddle.width*(balls(b).oldy-paddle.y)
   den# = 0 - (-paddle.width)*(balls(b).y-balls(b).oldy)
   t# = num# / den#
endfunction t#


function draw_paddle()
   box paddle.x-paddle.width,paddle.y,paddle.x+paddle.width,paddle.y+8
endfunction


function draw_bricks()
   ink rgb(51,173,250),0
   lock pixels
   for y = 1 to Y_SEGS
      for x = 1 to X_SEGS
         if bricks(x,y).state = STATE_ON
            box bricks(x,y).xpos+1, bricks(x,y).ypos+1,bricks(x,y).xpos+BRICK_WIDTH-1,bricks(x,y).ypos+BRICK_HEIGHT-1
         endif
      next x
   next y
   unlock pixels
endfunction


function draw_balls()
   ink rgb(255,0,0), 0
   for b = 1 to array count(balls())
      circle balls(b).x, balls(b).y, balls(b).radius
   next b
endfunction


function import_level(file$)
   file$ = file$+".bil"
   if file exist(file$)=1
      empty array bricks()  :  rem will this work on 2D arrays?
      open to read 1,file$
      read long 1, count
      for i = 0 to count
         read byte 1, bricks(i).xpos
         read byte 1, bricks(i).ypos
         read byte 1, bricks(i).image
      next i
      close file 1
   endif
endfunction


function create_random_map()
   randomize timer()
   for y = 1 to Y_SEGS
      for x = 1 to X_SEGS
         if rnd(3) = 2
            bricks(x,y).state = STATE_ON
            bricks(x,y).xpos = BRICK_WIDTH*x
            bricks(x,y).ypos = BRICK_HEIGHT*y
            bricks(x,y).points = (rnd(4)+1)*5
         endif
      next x
   next y
endfunction

sync on
set display mode 800,600,32
set image colorkey 255,0,255

type bit
   image as integer
   xpos as integer
   ypos as integer
   Brick_Number as integer
endtype

type format
   red as byte
   blue as byte
   green as byte
   hits as byte
   points as integer
   special as integer
endtype

dim brick_data(9) as format
dim brick(-1) as bit
dim grid(25,29)
dim special$(6)
Global Grid_x
Global Grid_y
Global Brick_Number
Global CURRENT_BRICK=2
Global GRID_ON

for a = 0 to 9
   read brick_data(a).red:read brick_data(a).blue:read brick_data(a).green
   read brick_data(a).hits:read brick_data(a).special:read brick_data(a).points
   makebrick(brick_data(a).red, brick_data(a).blue, brick_data(a).green,38,16,a+2)
next a

for a = 0 to 6
   read special$(a)
next a

load image "break-in_UI-1.png",1,1




do
   Draw_screen()
   get_grid()
   controls()
   if array count(brick())>=0 then draw_bricks()
   draw_brick_place()

   sync
loop

function controls()
   if mouseclick()=1 and gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25 then add_brick()
   if mouseclick()=2 and gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25 then remove_brick()
   if mouseclick()=1 and mousex()>=600 and mousex()<=638
      my=mousey()
         ypoint=(my-234)/25
         if ypoint>=0 and ypoint<=9
               if my>=234+(ypoint*25) and my<=250+ypoint*25 then CURRENT_BRICK=ypoint+2
         endif
   endif
   if mouseclick()=1 and mousex()>=650 and mousex()<=650+text width("EDIT")
      my=mousey()
         ypoint=(my-234)/25
         if ypoint>=0 and ypoint<=9
               if my>=234+(ypoint*25) and my<=250+ypoint*25 then edit_brick(ypoint)
         endif
   endif
   if inkey$()="1" then grid_on=1
   if inkey$()="2" then grid_on=0
   if lower$(inkey$())="e" then export_level("level1"):repeat:until scancode()=0
endfunction


function Draw_Screen()
   cls
   paste image 1,0,0
   if grid_on=0
      ink rgb(255,255,0),0
      for a = 0 to 25
          line 15,184+a*16,585,184+a*16
      next a
      for b=0 to 30
          line 15+b*19,184,15+b*19,584
      next b
   endif

   for a = 2 to 11
      paste image a,600,184+a*25,1
      ink rgb(255,255,255),0
      text 650,184+a*25,"EDIT"
   next a

   paste image current_brick,600,100,0
   text 600,120,"HITS: "+str$(brick_data(CURRENT_BRICK-2).hits)
   text 600,140,"SPECIAL: "+special$(brick_data(CURRENT_BRICK-2).special)
   text 600,160,"POINTS: "+str$(brick_data(CURRENT_BRICK-2).points)
endfunction

function get_grid()
   mx=mousex()
   my=mousey()
   Grid_X=-1:Grid_Y=-1
   if mx>=15 and mx<=584 and my>=184 and my<=584
      Grid_X=(mx-15)/19
      Grid_Y=(my-184)/16
   endif
endfunction

function draw_brick_place()
   if gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25
      sprite 1,15+grid_X*19,184+Grid_y*16,CURRENT_BRICK
      set sprite alpha 1,80
      show sprite 1
   else
      if sprite exist(1)
         hide sprite 1
      endif
   endif
endfunction

function add_brick()
   if gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25
      if grid(grid_y,grid_x)=0 and grid(grid_y,grid_x+1)=0
         array insert at bottom brick()
         count=array count(brick())
         brick(count).xpos=grid_x
         brick(count).ypos=grid_y
         brick(count).image=CURRENT_BRICK
         inc Brick_Number
         brick(count).Brick_NUmber=Brick_Number
         grid(Grid_y,Grid_x)=Brick_Number:grid(Grid_y,Grid_X+1)=Brick_Number
      endif
   endif
endfunction

function remove_brick()
   if gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25
      if grid(grid_y,grid_x)>0
         if array count(brick())>=0
            for a = array count(brick()) to 0 step -1
               which=grid(grid_y,grid_x)
               if brick(a).Brick_Number=which
                  array delete element brick(),a
               endif
            next a
            for a = 0 to 25
               for b = 0 to 29
                  if grid(a,b)=which then grid(a,b)=0
               next b
            next a
         endif
      endif
   endif
endfunction

function draw_bricks()
   for a = 0 to array count(brick())
      paste image brick(a).image,15+brick(a).xpos*19,184+brick(a).ypos*16,1
   next a
endfunction

function edit_brick(number as integer)

   Red1=brick_data(number).red
   Green1=brick_data(number).green
   Blue1=brick_data(number).blue
   makebrick(red1,blue1,green1,38,16,5000)
   repeat
      cls
      draw_screen()
      if array count(brick())>=0 then draw_bricks()
      ink rgb(200,200,200),0
      box 180,95,500,480
      ink 0,0
      text 200,100,"EDITING BRICK "+str$(number)
      paste image 5000,200,130,1
      text 190,190,"R":line 200,200,455,200:line 200+red1,200,200+red1,190:text 465,190,str$(red1)
      text 190,210,"G":line 200,220,455,220:line 200+blue1,220,200+blue1,210:text 465,210,str$(blue1)
      text 190,230,"B":line 200,240,455,240:line 200+green1,240,200+green1,230:text 465,230,str$(green1)
      Text 200,280,"HITS: "+str$(brick_data(number).hits)
      text 265,280,"+":text 275,280,"-"
      text 200,320,"SPECIAL: "+special$(brick_data(number).special)
      oldred=red1:oldgreen=green1:oldblue=blue1
      text 200,360,"POINTS: "+str$(brick_data(number).points)
      text 300,360,"+":text 310,360,"-"
      if mouseclick()=1
         mx=mousex():my=mousey()
         if mx>=200 and mx<=455
            if my>=190 and my<=200 then red1=mx-200
            if my>=210 and my<=220 then blue1=mx-200
            if my>=230 and my<=240 then green1=mx-200
         endif
         if mx>=265 and mx<=265+text width("+") and my>=280 and my<=280+text height("+")
            inc brick_data(number).hits
            repeat:until mouseclick()=0
         endif
         if mx>=300 and mx<=300+text width("+") and my>=360 and my<=360+text height("+")
            inc brick_data(number).points,10
            repeat:until mouseclick()=0
         endif
         if mx>=310 and mx<=310+text width("-") and my>=360 and my<=360+text height("-")
            dec brick_data(number).points,10
            if brick_data(number).points<0 then brick_data(number).points=0
            repeat:until mouseclick()=0
         endif
         if mx>=275 and mx<=275+text width("-") and my>=280 and my<=280+text height("+")
            dec brick_data(number).hits
            if brick_data(number).hits<1 then brick_data(number).hits=1
            repeat:until mouseclick()=0
         endif
         if mx>200 and mx<=200+text width("SPECIAL:") and my>=320 and my<=320+text height("SPECIAL:")
            inc brick_data(number).special
            if brick_data(number).special>6 then brick_data(number).special=0
            repeat:until mouseclick()=0
         endif
      endif

      if oldred<>red1 or oldgreen<>green1 or oldblue<>blue1
         makebrick(red1,blue1,green1,38,16,5000)
      endif
      sync
   until mouseclick()=2
   brick_data(number).red=red1
   brick_data(number).green=green1
   brick_data(number).blue=blue1
   makebrick(red1,blue1,green1,38,16,number+2)
endfunction

function disect(filename as string,across,down,imagestart)

   load bitmap filename,1
   x=bitmap width(1)/across
   y=bitmap height(1)/down
   for a = 0 to down-1
   for b = 0 to across-1
   get image imagestart+a*across+b,x*b,y*a,x*b+x,y*a+y
   next b:next a
   delete bitmap 1
endfunction

function export_level(file$)
   file$=file$+".bil"
   if file exist(file$)=1 then delete file file$
   for a = 0 to 9
      write byte 1,brick_data(a).red
      write byte 1,brick_data(a).blue
      write byte 1,brick_data(a).green
      write byte 1,brick_data(a).hits
      write byte 1,brick_data(a).special
      write long 1,brick_data(a).points
   next a

   open to write 1,file$
      count=array count(brick())
      write long 1,count
      for a = 0 to count
         write byte 1,brick(a).xpos
         write byte 1,brick(a).ypos
         write byte 1,brick(a).image
      next a
   close file 1
endfunction

function makebrick(R as integer, G as integer, B as integer, xsize as integer, ysize as integer, image_number as integer)

   create bitmap 1,xsize+8,ysize+8
   ink rgb(255,255,255),0
   box 0,0,xsize+4,ysize+4
   get image 999,1,1,xsize,2,1
   sprite 999,0,0,999
   hide sprite 999
   box 1,1,xsize,ysize,rgb(R,G,B),rgb(R/3,G/3,B/3),rgb(R,G,B),rgb(R/3,G/3,B/3)
   set sprite alpha 999,222
   paste sprite 999,1,1
   set sprite alpha 999,182
   paste sprite 999,1,2
   set sprite alpha 999,142
   paste sprite 999,1,3
   set sprite alpha 999,102
   paste sprite 999,1,4
   set sprite alpha 999,62
   paste sprite 999,1,5
   ink rgb(22,22,22),0:line 1,1,xsize,1:line 1,1,1,ysize:line xsize,1,xsize,ysize:line 1,ysize,xsize,ysize:dot xsize,ysize
   dot 2,2:dot 2,ysize-1:dot xsize-1,2:dot xsize-1,ysize-1
   ink rgb(255,0,255),0:dot 1,1:dot 1,2:dot 2,1:dot xsize-1,1:dot xsize,1:dot xsize,2:dot 1,ysize-1:dot 1,ysize:dot 2,ysize:dot xsize-1,ysize:dot xsize,ysize:dot xsize,ysize-1
   get image Image_number,1,1,xsize+1,ysize+1,1
   delete bitmap 1
   if sprite exist(999) then delete sprite 999

   set current bitmap 0

endfunction

data 217,2,6,1,0,10
data 2,218,55,1,0,20
data 27,2,218,1,0,30
data 232,255,77,1,0,40
data 218,164,2,1,0,50
data 77,253,252,1,0,60
data 173,24,196,1,0,70
data 243,205,249,1,0,80
data 22,93,23,1,0,90
data 40,40,40,1,0,100

data "None","Indestructible","Random Powerup","Random Powerdown","Speed Up","Speed Down","Bomb"

REM Color picker
REM Edit as needed to fit game

box 1, 1, 50, 50, RGB(255,0,0), RGB(255,255,255), RGB(255,255,0), RGB(255,255,255)
box 1, 50, 50, 100, RGB(0,0,0), RGB(255,0,0), RGB(0,0,0), RGB(255,255,0)
box 50, 1, 100, 50, RGB(255,255,0), RGB(255,255,255), RGB(0,255,0), RGB(255,255,255)
box 50, 50, 100, 100, RGB(0,0,0), RGB(255,255,0), RGB(0,0,0), RGB(0,255,0)
box 100, 1, 150, 50, RGB(0,255,0), RGB(255,255,255), RGB(0,255,255), RGB(255,255,255)
box 100, 50, 150, 100, RGB(0,0,0), RGB(0,255,0), RGB(0,0,0), RGB(0,255,255)
box 150, 1, 200, 50, RGB(0,255,255), RGB(255,255,255), RGB(0,0,255), RGB(255,255,255)
box 150, 50, 200, 100, RGB(0,0,0), RGB(0,255,255), RGB(0,0,0), RGB(0,0,255)

set text opaque
do

 a=point(mousex(),mousey())

 ink rgb(255,255,255),0
 text 0,295,"Current Color: "
 text 0,320,"  Red = "+str$(rgbr(a))+"  "
 text 0,340,"Green = "+str$(rgbg(a))+"  "
 text 0,360," Blue = "+str$(rgbb(a))+"  "
 box 120,280,170,330
 ink a,0
 box 121,281,169,329

loop

sync on
set display mode 800,600,32
set image colorkey 255,0,255

type bit
   image as integer
   xpos as integer
   ypos as integer
   Brick_Number as integer
endtype

type format
   red as byte
   blue as byte
   green as byte
   hits as byte
   points as integer
   special as integer
endtype

dim brick_data(9) as format
dim brick(-1) as bit
dim grid(25,29)
dim special$(6)
Global Grid_x
Global Grid_y
Global Brick_Number
Global CURRENT_BRICK=2
Global GRID_ON
Global Level_Number=1

for a = 0 to 9
   read brick_data(a).red:read brick_data(a).blue:read brick_data(a).green
   read brick_data(a).hits:read brick_data(a).special:read brick_data(a).points
   makebrick(brick_data(a).red, brick_data(a).blue, brick_data(a).green,38,16,a+2)
next a

for a = 0 to 6
   read special$(a)
next a

load image "break-in_UI-1.png",1,1
load image "brick_dlg1.png",100,1




do
   Draw_screen()
   get_grid()
   controls()
   if array count(brick())>=0 then draw_bricks()
   draw_brick_place()

   sync
loop

function controls()
   if mouseclick()=1 and gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25 then add_brick()
   if mouseclick()=2 and gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25 then remove_brick()
   if mouseclick()=1 and mousex()>=600 and mousex()<=638
      my=mousey()
         ypoint=(my-234)/25
         if ypoint>=0 and ypoint<=9
               if my>=234+(ypoint*25) and my<=250+ypoint*25 then CURRENT_BRICK=ypoint+2
         endif
   endif
   if mouseclick()=1 and mousex()>=650 and mousex()<=650+text width("EDIT")
      my=mousey()
         ypoint=(my-234)/25
         if ypoint>=0 and ypoint<=9
               if my>=234+(ypoint*25) and my<=250+ypoint*25 then edit_brick(ypoint)
         endif
   endif
   `text 700,20,"+":text 710,20,"-"
   mx=mousex():my=mousey()
   if mouseclick()=1 and mx>=700 and mx<=700+text width("+") and my>=20 and my<=my+Text height("+")
      inc Level_Number
      repeat:until mouseclick()=0
   endif
if mouseclick()=1 and mx>=710 and mx<=710+text width("-") and my>=20 and my<=my+Text height("-")
      dec Level_Number
      if level_number<1 then level_number=1
      repeat:until mouseclick()=0
   endif

   if inkey$()="1" then grid_on=1
   if inkey$()="2" then grid_on=0
   if lower$(inkey$())="e" then export_level("level"+str$(level_number)):repeat:until scancode()=0
endfunction


function Draw_Screen()
   cls
   paste image 1,0,0
   text 600,20,"LEVEL: "+str$(level_number)
   text 700,20,"+":text 710,20,"-"
   if grid_on=0
      ink rgb(255,255,0),0
      for a = 0 to 25
          line 15,184+a*16,585,184+a*16
      next a
      for b=0 to 30
          line 15+b*19,184,15+b*19,584
      next b
   endif

   for a = 2 to 11
      paste image a,600,184+a*25,1
      ink rgb(255,255,255),0
      text 650,184+a*25,"EDIT"
   next a

   paste image current_brick,600,100,0
   text 600,120,"HITS: "+str$(brick_data(CURRENT_BRICK-2).hits)
   text 600,140,"SPECIAL: "+special$(brick_data(CURRENT_BRICK-2).special)
   text 600,160,"POINTS: "+str$(brick_data(CURRENT_BRICK-2).points)
endfunction

function get_grid()
   mx=mousex()
   my=mousey()
   Grid_X=-1:Grid_Y=-1
   if mx>=15 and mx<=584 and my>=184 and my<=584
      Grid_X=(mx-15)/19
      Grid_Y=(my-184)/16
   endif
endfunction

function draw_brick_place()
   if gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25
      sprite 1,15+grid_X*19,184+Grid_y*16,CURRENT_BRICK
      set sprite alpha 1,80
      show sprite 1
   else
      if sprite exist(1)
         hide sprite 1
      endif
   endif
endfunction

function add_brick()
   if gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25
      if grid(grid_y,grid_x)=0 and grid(grid_y,grid_x+1)=0
         array insert at bottom brick()
         count=array count(brick())
         brick(count).xpos=grid_x
         brick(count).ypos=grid_y
         brick(count).image=CURRENT_BRICK
         inc Brick_Number
         brick(count).Brick_NUmber=Brick_Number
         grid(Grid_y,Grid_x)=Brick_Number:grid(Grid_y,Grid_X+1)=Brick_Number
      endif
   endif
endfunction

function remove_brick()
   if gridx>=0 and grid_Y>=0 and grid_x<=28 and grid_y<25
      if grid(grid_y,grid_x)>0
         if array count(brick())>=0
            for a = array count(brick()) to 0 step -1
               which=grid(grid_y,grid_x)
               if brick(a).Brick_Number=which
                  array delete element brick(),a
               endif
            next a
            for a = 0 to 25
               for b = 0 to 29
                  if grid(a,b)=which then grid(a,b)=0
               next b
            next a
         endif
      endif
   endif
endfunction

function draw_bricks()
   for a = 0 to array count(brick())
      paste image brick(a).image,15+brick(a).xpos*19,184+brick(a).ypos*16,1
   next a
endfunction

function edit_brick(number as integer)

   Red1=brick_data(number).red
   Green1=brick_data(number).green
   Blue1=brick_data(number).blue
   makebrick(red1,blue1,green1,38,16,5000)
   repeat
      cls
      draw_screen()
      if array count(brick())>=0 then draw_bricks()
      `ink rgb(200,200,200),0
      `box 180,95,500,480
      paste image 100,180,95
      ink rgb(255,255,255),0
      text 202,102,"EDITING BRICK "+str$(number)
      paste image 5000,470,320,1
      line 261+red1,257,261+red1,274:text 220,260,str$(red1)
      line 261+blue1,277,261+blue1,294:text 220,280,str$(blue1)
      line 261+green1,297,261+green1,314:text 220,300,str$(green1)
      Text 200,320,"HITS: "+str$(brick_data(number).hits)
      text 265,320,"+":text 275,320,"-"
      text 200,360,"SPECIAL: "+special$(brick_data(number).special)
      oldred=red1:oldgreen=green1:oldblue=blue1
      text 200,400,"POINTS: "+str$(brick_data(number).points)
      text 300,400,"+":text 310,400,"-"
      if mouseclick()=1
         mx=mousex():my=mousey()
         if mx>=261 and mx<=261+255
            if my>=257 and my<=274 then red1=mx-261
            if my>=277 and my<=294 then blue1=mx-261
            if my>=297 and my<=314 then green1=mx-261
         endif
         if mx>=265 and mx<=265+text width("+") and my>=320 and my<=320+text height("+")
            inc brick_data(number).hits
            repeat:until mouseclick()=0
         endif
         if mx>=300 and mx<=300+text width("+") and my>=400 and my<=400+text height("+")
            inc brick_data(number).points,10
            repeat:until mouseclick()=0
         endif
         if mx>=310 and mx<=310+text width("-") and my>=400 and my<=400+text height("-")
            dec brick_data(number).points,10
            if brick_data(number).points<0 then brick_data(number).points=0
            repeat:until mouseclick()=0
         endif
         if mx>=275 and mx<=275+text width("-") and my>=320 and my<=320+text height("+")
            dec brick_data(number).hits
            if brick_data(number).hits<1 then brick_data(number).hits=1
            repeat:until mouseclick()=0
         endif
         if mx>200 and mx<=200+text width("SPECIAL:") and my>=360 and my<=360+text height("SPECIAL:")
            inc brick_data(number).special
            if brick_data(number).special>6 then brick_data(number).special=0
            repeat:until mouseclick()=0
         endif
         if mx>=203 and mx<=517 and my>=117 and my<=233
            a=point(mx,my)
            red1=rgbr(a)
            blue1=rgbg(a)
            green1=rgbb(a)
         endif
      endif

      if oldred<>red1 or oldgreen<>green1 or oldblue<>blue1
         makebrick(red1,blue1,green1,38,16,5000)
      endif
      sync
   until mouseclick()=2
   brick_data(number).red=red1
   brick_data(number).green=green1
   brick_data(number).blue=blue1
   makebrick(red1,blue1,green1,38,16,number+2)
endfunction

function disect(filename as string,across,down,imagestart)

   load bitmap filename,1
   x=bitmap width(1)/across
   y=bitmap height(1)/down
   for a = 0 to down-1
   for b = 0 to across-1
   get image imagestart+a*across+b,x*b,y*a,x*b+x,y*a+y
   next b:next a
   delete bitmap 1
endfunction

function export_level(file$)
   file$=file$+".bil"
   if file exist(file$)=1 then delete file file$
   for a = 0 to 9
      write byte 1,brick_data(a).red
      write byte 1,brick_data(a).blue
      write byte 1,brick_data(a).green
      write byte 1,brick_data(a).hits
      write byte 1,brick_data(a).special
      write long 1,brick_data(a).points
   next a

   open to write 1,file$
      count=array count(brick())
      write long 1,count
      for a = 0 to count
         write byte 1,brick(a).xpos
         write byte 1,brick(a).ypos
         write byte 1,brick(a).image
      next a
   close file 1
endfunction

function makebrick(R as integer, G as integer, B as integer, xsize as integer, ysize as integer, image_number as integer)

   create bitmap 1,xsize+8,ysize+8
   ink rgb(255,255,255),0
   box 0,0,xsize+4,ysize+4
   get image 999,1,1,xsize,2,1
   sprite 999,0,0,999
   hide sprite 999
   box 1,1,xsize,ysize,rgb(R,G,B),rgb(R/3,G/3,B/3),rgb(R,G,B),rgb(R/3,G/3,B/3)
   set sprite alpha 999,222
   paste sprite 999,1,1
   set sprite alpha 999,182
   paste sprite 999,1,2
   set sprite alpha 999,142
   paste sprite 999,1,3
   set sprite alpha 999,102
   paste sprite 999,1,4
   set sprite alpha 999,62
   paste sprite 999,1,5
   ink rgb(22,22,22),0:line 1,1,xsize,1:line 1,1,1,ysize:line xsize,1,xsize,ysize:line 1,ysize,xsize,ysize:dot xsize,ysize
   dot 2,2:dot 2,ysize-1:dot xsize-1,2:dot xsize-1,ysize-1
   ink rgb(255,0,255),0:dot 1,1:dot 1,2:dot 2,1:dot xsize-1,1:dot xsize,1:dot xsize,2:dot 1,ysize-1:dot 1,ysize:dot 2,ysize:dot xsize-1,ysize:dot xsize,ysize:dot xsize,ysize-1
   get image Image_number,1,1,xsize+1,ysize+1,1
   delete bitmap 1
   if sprite exist(999) then delete sprite 999

   set current bitmap 0

endfunction

data 217,2,6,1,0,10
data 2,218,55,1,0,20
data 27,2,218,1,0,30
data 232,255,77,1,0,40
data 218,164,2,1,0,50
data 77,253,252,1,0,60
data 173,24,196,1,0,70
data 243,205,249,1,0,80
data 22,93,23,1,0,90
data 40,40,40,1,0,100

data "None","Indestructible","Random Powerup","Random Powerdown","Speed Up","Speed Down","Bomb"

function edit_brick(number as integer)

   Red1=brick_data(number).red
   Green1=brick_data(number).green
   Blue1=brick_data(number).blue
   makebrick(red1,blue1,green1,38,16,5000)
   repeat
      cls
      draw_screen()
      if array count(brick())>=0 then draw_bricks()
      `ink rgb(200,200,200),0
      `box 180,95,500,480
      paste image 100,180,95
      ink rgb(255,255,255),0
      text 202,112,"EDITING BRICK "+str$(number)
      paste image 5000,470,340,1
      line 261+red1,270,261+red1,286:text 220,272,str$(red1)
      line 261+blue1,290,261+blue1,306:text 220,292,str$(blue1)
      line 261+green1,310,261+green1,326:text 220,312,str$(green1)
      Text 200,340,"HITS: "+str$(brick_data(number).hits)
      text 265,340,"+":text 275,340,"-"
      text 200,370,"SPECIAL: "+special$(brick_data(number).special)
      oldred=red1:oldgreen=green1:oldblue=blue1
      text 200,400,"POINTS: "+str$(brick_data(number).points)
      text 300,400,"+":text 310,400,"-"
      if mouseclick()=1
         mx=mousex():my=mousey()
         if mx>=261 and mx<=261+255
            if my>=270 and my<=286 then red1=mx-261
            if my>=290 and my<=306 then blue1=mx-261
            if my>=310 and my<=326 then green1=mx-261
         endif
         if mx>=265 and mx<=265+text width("+") and my>=340 and my<=340+text height("+")
            inc brick_data(number).hits
            repeat:until mouseclick()=0
         endif
         if mx>=300 and mx<=300+text width("+") and my>=400 and my<=400+text height("+")
            inc brick_data(number).points,10
            repeat:until mouseclick()=0
         endif
         if mx>=310 and mx<=310+text width("-") and my>=400 and my<=400+text height("-")
            dec brick_data(number).points,10
            if brick_data(number).points<0 then brick_data(number).points=0
            repeat:until mouseclick()=0
         endif
         if mx>=275 and mx<=275+text width("-") and my>=340 and my<=340+text height("+")
            dec brick_data(number).hits
            if brick_data(number).hits<1 then brick_data(number).hits=1
            repeat:until mouseclick()=0
         endif
         if mx>200 and mx<=200+text width("SPECIAL:") and my>=370 and my<=370+text height("SPECIAL:")
            inc brick_data(number).special
            if brick_data(number).special>6 then brick_data(number).special=0
            repeat:until mouseclick()=0
         endif
         if mx>=203 and mx<=517 and my>=132 and my<=265
            a=point(mx,my)
            red1=rgbr(a)
            blue1=rgbg(a)
            green1=rgbb(a)
         endif
      endif

      if oldred<>red1 or oldgreen<>green1 or oldblue<>blue1
         makebrick(red1,blue1,green1,38,16,5000)
      endif
      sync
   until mouseclick()=2
   brick_data(number).red=red1
   brick_data(number).green=green1
   brick_data(number).blue=blue1
   makebrick(red1,blue1,green1,38,16,number+2)
endfunction

function edit_brick(number as integer)

   Red1=brick_data(number).red
   Green1=brick_data(number).green
   Blue1=brick_data(number).blue
   makebrick(red1,blue1,green1,38,16,5000)
   repeat
      cls
      draw_screen()
      if array count(brick())>=0 then draw_bricks()
      `ink rgb(200,200,200),0
      `box 180,95,500,480
      paste image 100,180,95
      ink rgb(255,255,255),0
      text 202,102,"EDITING BRICK "+str$(number)
      paste image 5000,470,340,1
      line 516-red1,258,516-red1,274:text 220,260,str$(red1)
      line 516-blue1,278,516-blue1,294:text 220,280,str$(blue1)
      line 516-green1,298,516-green1,314:text 220,300,str$(green1)
      Text 200,340,"HITS: "+str$(brick_data(number).hits)
      text 265,340,"+":text 275,340,"-"
      text 200,370,"SPECIAL: "+special$(brick_data(number).special)
      oldred=red1:oldgreen=green1:oldblue=blue1
      text 200,400,"POINTS: "+str$(brick_data(number).points)
      text 300,400,"+":text 310,400,"-"
      if mouseclick()=1
         mx=mousex():my=mousey()
         if mx>=261 and mx<=261+255
            if my>=258 and my<=274 then red1=516-mx
            if my>=278 and my<=294 then blue1=516-mx
            if my>=298 and my<=314 then green1=516-mx
         endif
         if mx>=265 and mx<=265+text width("+") and my>=340 and my<=340+text height("+")
            inc brick_data(number).hits
            repeat:until mouseclick()=0
         endif
         if mx>=300 and mx<=300+text width("+") and my>=400 and my<=400+text height("+")
            inc brick_data(number).points,10
            repeat:until mouseclick()=0
         endif
         if mx>=310 and mx<=310+text width("-") and my>=400 and my<=400+text height("-")
            dec brick_data(number).points,10
            if brick_data(number).points<0 then brick_data(number).points=0
            repeat:until mouseclick()=0
         endif
         if mx>=275 and mx<=275+text width("-") and my>=340 and my<=340+text height("+")
            dec brick_data(number).hits
            if brick_data(number).hits<1 then brick_data(number).hits=1
            repeat:until mouseclick()=0
         endif
         if mx>200 and mx<=200+text width("SPECIAL:") and my>=370 and my<=370+text height("SPECIAL:")
            inc brick_data(number).special
            if brick_data(number).special>6 then brick_data(number).special=0
            repeat:until mouseclick()=0
         endif
         if mx>=203 and mx<=517 and my>=132 and my<=256
            a=point(mx,my)
            red1=rgbr(a)
            blue1=rgbg(a)
            green1=rgbb(a)
         endif
      endif

      if oldred<>red1 or oldgreen<>green1 or oldblue<>blue1
         makebrick(red1,blue1,green1,38,16,5000)
      endif
      sync
   until mouseclick()=2
   brick_data(number).red=red1
   brick_data(number).green=green1
   brick_data(number).blue=blue1
   makebrick(red1,blue1,green1,38,16,number+2)
endfunction