Sorry your browser is not supported!

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,36,14,a+2)
next a

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

load image "editor_ui_sample.bmp",1,1
load image "brick_dlg1.png",100,1
disect("breakin_specials.png",1,15,200)




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-296)/24
         if ypoint>=0 and ypoint<=9
               if my>=296+(ypoint*24) and my<=310+ypoint*24 then CURRENT_BRICK=ypoint+2
         endif
   endif
   if mouseclick()=1 and mousex()>=660 and mousex()<=660+text width("EDIT")
      my=mousey()
         ypoint=(my-298)/24
         if ypoint>=0 and ypoint<=9
               if my>=294+(ypoint*24) and my<=310+ypoint*24 then edit_brick(ypoint)
         endif
   endif
   `text 700,20,"+":text 710,20,"-"
   mx=mousex():my=mousey()
   if mouseclick()=1 and mx>=725 and mx<=725+text width("+") and my>=125 and my<=125+Text height("+")
      inc Level_Number
      repeat:until mouseclick()=0
   endif
   if mouseclick()=1 and mx>=735 and mx<=735+text width("-") and my>=125 and my<=125+Text height("-")
      dec Level_Number
      if level_number<1 then level_number=1
      repeat:until mouseclick()=0
   endif

   if mouseclick()=1 and mx>=720 and mx<=720+text width("CLEAR") and my >=150 and my<=150+text height("CLEAR")
      empty array brick()
      Brick_Number=0
   endif

   if mouseclick()=1 and mx>=625 and mx<=625+text width("LOAD") and my >=150 and my<=150+text height("LOAD")
      import_level("level"+str$(level_number))
      repeat:until mouseclick()=0
   endif

   if mouseclick()=1 and mx>=672 and mx<=672+text width("SAVE") and my >=150 and my<=150+text height("SAVE")
      export_level("level"+str$(level_number))
      repeat:until mouseclick()=0
   endif

   if mouseclick()=1 and mx>=672 and mx<=672+text width("GRID") and my >=170 and my<=170+text height("GRID")
      if grid_on=0
         grid_on=1
      else
         grid_on=0
      endif
      repeat:until mouseclick()=0
   endif
endfunction


function Draw_Screen()
   cls
   paste image 1,0,0
   text 625,125,"LEVEL: "+str$(level_number)
   text 725,125,"+":text 735,125,"-"
   text 625,150,"LOAD"
   text 672,150,"SAVE"
   text 672,170,"GRID"
   text 720,150,"CLEAR"
   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,248+a*24,1
      select brick_data(a-2).special
         case 1: paste image 200,600,248+a*24,1:endcase
         case 2: paste image 201,600,248+a*24,1:endcase
         case 3: paste image 202,600,248+a*24,1:endcase
         case 4: paste image 203,600,248+a*24,1:endcase
         case 5: paste image 204,600,248+a*24,1:endcase
         case 6: paste image 205,600,248+a*24,1:endcase
      endselect
      ink rgb(255,255,255),0
      text 660,248+a*24,"EDIT"
   next a

   paste image current_brick,625,195,1
   select brick_data(CURRENT_BRICK-2).special
         case 1: paste image 200,625,195,1:endcase
         case 2: paste image 201,625,195,1:endcase
         case 3: paste image 202,625,195,1:endcase
         case 4: paste image 203,625,195,1:endcase
         case 5: paste image 204,625,195,1:endcase
         case 6: paste image 205,625,195,1:endcase
      endselect
   text 625,215,"HITS: "+str$(brick_data(CURRENT_BRICK-2).hits)
   text 625,235,"SPECIAL: "+special$(brick_data(CURRENT_BRICK-2).special)
   text 625,255,"POINTS: "+str$(brick_data(CURRENT_BRICK-2).points)
   text 733,550,"EXIT"
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,16+grid_X*19,185+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,16+brick(a).xpos*19,185+brick(a).ypos*16,1
      select brick_data(brick(a).image-2).special
         case 1:paste image 200,16+brick(a).xpos*19,185+brick(a).ypos*16,1:endcase
         case 2:paste image 201,16+brick(a).xpos*19,185+brick(a).ypos*16,1:endcase
         case 3:paste image 202,16+brick(a).xpos*19,185+brick(a).ypos*16,1:endcase
         case 4:paste image 203,16+brick(a).xpos*19,185+brick(a).ypos*16,1:endcase
         case 5:paste image 204,16+brick(a).xpos*19,185+brick(a).ypos*16,1:endcase
         case 6:paste image 205,16+brick(a).xpos*19,185+brick(a).ypos*16,1:endcase
      endselect
   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,36,14,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
      select brick_data(number).special
         case 1:paste image 200,470,340,1:endcase
         case 2:paste image 201,470,340,1:endcase
         case 3:paste image 202,470,340,1:endcase
         case 4:paste image 203,470,340,1:endcase
         case 5:paste image 204,470,340,1:endcase
         case 6:paste image 205,470,340,1:endcase
      endselect

      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,36,14,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,36,14,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$

   open to write 1,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

      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 import_level(file$)
   file$=file$+".bil"
   if file exist(file$)=0 then exitfunction
   empty array brick()
   brick_number=1
   open to read 1,file$
   for a = 0 to 9
      read byte 1,x
      brick_data(a).red=x
      read byte 1,x
      brick_data(a).blue=x
      read byte 1,x
      brick_data(a).green=x
      read byte 1,x
      brick_data(a).hits=x
      read byte 1,x
      brick_data(a).special=x
      read long 1,x
      brick_data(a).points=x
      makebrick(brick_data(a).red, brick_data(a).blue, brick_data(a).green,38,16,a+2)
   next a

   read long 1,NOB
   for a = 0 to NOB
      array insert at bottom brick()
      count=array count(brick())
      read byte 1,x
      brick(count).xpos=x
      read byte 1,x
      brick(count).ypos=x
      read byte 1,x
      brick(count).image=x
      brick(count).brick_number=brick_number
      grid(brick(count).ypos,brick(count).xpos)=brick_number
      grid(brick(count).ypos,brick(count).xpos+1)=brick_number
      inc brick_number
   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","Indest.","Powerup","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 disect(filename as string,across,down,imagestart)

   set bitmap format 21
   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,2
   next b:next a
   delete bitmap 1
endfunction

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,36,14,a+2)
next a

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

load image "editor_ui.png",1,1
load image "brick_dlg1.png",100,1
`disect("breakin_specials.png",1,15,200)
loadspecials()

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-296)/24
         if ypoint>=0 and ypoint<=9
               if my>=296+(ypoint*24) and my<=310+ypoint*24 then CURRENT_BRICK=ypoint+2
         endif
   endif
   if mouseclick()=1 and mousex()>=660 and mousex()<=660+text width("EDIT")
      my=mousey()
         ypoint=(my-298)/24
         if ypoint>=0 and ypoint<=9
               if my>=294+(ypoint*24) and my<=310+ypoint*24 then edit_brick(ypoint)
         endif
   endif
   `text 700,20,"+":text 710,20,"-"
   mx=mousex():my=mousey()
   if mouseclick()=1 and mx>=725 and mx<=725+text width("+") and my>=125 and my<=125+Text height("+")
      inc Level_Number
      repeat:until mouseclick()=0
   endif
   if mouseclick()=1 and mx>=735 and mx<=735+text width("-") and my>=125 and my<=125+Text height("-")
      dec Level_Number
      if level_number<1 then level_number=1
      repeat:until mouseclick()=0
   endif

   if mouseclick()=1 and mx>=720 and mx<=720+text width("CLEAR") and my >=150 and my<=150+text height("CLEAR")
      empty array brick()
      Brick_Number=0
   endif

   if mouseclick()=1 and mx>=625 and mx<=625+text width("LOAD") and my >=150 and my<=150+text height("LOAD")
      import_level("level"+str$(level_number))
      repeat:until mouseclick()=0
   endif

   if mouseclick()=1 and mx>=672 and mx<=672+text width("SAVE") and my >=150 and my<=150+text height("SAVE")
      export_level("level"+str$(level_number))
      repeat:until mouseclick()=0
   endif

   if mouseclick()=1 and mx>=672 and mx<=672+text width("GRID") and my >=170 and my<=170+text height("GRID")
      if grid_on=0
         grid_on=1
      else
         grid_on=0
      endif
      repeat:until mouseclick()=0
   endif
endfunction


function Draw_Screen()
   cls
   paste image 1,0,0
   text 625,125,"LEVEL: "+str$(level_number)
   text 725,125,"+":text 735,125,"-"
   text 625,150,"LOAD"
   text 672,150,"SAVE"
   text 672,170,"GRID"
   text 720,150,"CLEAR"
   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,248+a*24,1
      select brick_data(a-2).special
         case 1: paste sprite 200,600,248+a*24:endcase
         case 2: paste sprite 201,600,248+a*24:endcase
         case 3: paste sprite 202,600,248+a*24:endcase
         case 4: paste sprite 203,600,248+a*24:endcase
         case 5: paste sprite 204,600,248+a*24:endcase
         case 6: paste sprite 205,600,248+a*24:endcase
      endselect
      ink rgb(255,255,255),0
      text 660,248+a*24,"EDIT"
   next a

   paste image current_brick,625,195,1
   select brick_data(CURRENT_BRICK-2).special
         case 1: paste sprite 200,625,195:endcase
         case 2: paste sprite 201,625,195:endcase
         case 3: paste sprite 202,625,195:endcase
         case 4: paste sprite 203,625,195:endcase
         case 5: paste sprite 204,625,195:endcase
         case 6: paste sprite 205,625,195:endcase
      endselect
   text 625,215,"HITS: "+str$(brick_data(CURRENT_BRICK-2).hits)
   text 625,235,"SPECIAL: "+special$(brick_data(CURRENT_BRICK-2).special)
   text 625,255,"POINTS: "+str$(brick_data(CURRENT_BRICK-2).points)
   text 733,550,"EXIT"
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,16+grid_X*19,185+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,16+brick(a).xpos*19,185+brick(a).ypos*16,1
      select brick_data(brick(a).image-2).special
         case 1:paste sprite 200,16+brick(a).xpos*19,185+brick(a).ypos*16:endcase
         case 2:paste sprite 201,16+brick(a).xpos*19,185+brick(a).ypos*16:endcase
         case 3:paste sprite 202,16+brick(a).xpos*19,185+brick(a).ypos*16:endcase
         case 4:paste sprite 203,16+brick(a).xpos*19,185+brick(a).ypos*16:endcase
         case 5:paste sprite 204,16+brick(a).xpos*19,185+brick(a).ypos*16:endcase
         case 6:paste sprite 205,16+brick(a).xpos*19,185+brick(a).ypos*16:endcase
      endselect
   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,36,14,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,36,14,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,36,14,number+2)
endfunction



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

   set bitmap format 21
   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,3
   next b:next a
   delete bitmap 1
endfunction


function loadspecials()

   for u=200 to 213
      load image "brick_special_"+str$(u)+".png",u,1
      sprite u,0,0,u
      hide sprite u
   next u

endfunction


function export_level(file$)
   file$=file$+".bil"
   if file exist(file$)=1 then delete file file$

   open to write 1,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

      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 import_level(file$)
   file$=file$+".bil"
   if file exist(file$)=0 then exitfunction
   empty array brick()
   brick_number=1
   open to read 1,file$
   for a = 0 to 9
      read byte 1,x
      brick_data(a).red=x
      read byte 1,x
      brick_data(a).blue=x
      read byte 1,x
      brick_data(a).green=x
      read byte 1,x
      brick_data(a).hits=x
      read byte 1,x
      brick_data(a).special=x
      read long 1,x
      brick_data(a).points=x
      makebrick(brick_data(a).red, brick_data(a).blue, brick_data(a).green,36,14,a+2)
   next a

   read long 1,NOB
   for a = 0 to NOB
      array insert at bottom brick()
      count=array count(brick())
      read byte 1,x
      brick(count).xpos=x
      read byte 1,x
      brick(count).ypos=x
      read byte 1,x
      brick(count).image=x
      brick(count).brick_number=brick_number
      grid(brick(count).ypos,brick(count).xpos)=brick_number
      grid(brick(count).ypos,brick(count).xpos+1)=brick_number
      inc brick_number
   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(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 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","Indest.","Powerup","Powerdown","Speed Up","Speed Down","Bomb"

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

Set Text Font "Ariel"
Set Text To Bold
Set Text Size 32

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

Type Players
   x as float
   y as float
   speed as float
   size as float
Endtype

type Shadow
   xpos as float
   ypos as float
endtype

type ballShadow
   xpos as float
   ypos as float
endtype

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

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

Global paddle as Bat
paddle.width = 32
paddle.y = 96

dim balls(1) as Ball

dim shadows(-1) as shadow
dim ballshadows(-1) as ballshadow
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
GLOBAL SHADOW_SPRITE=1000
GLOBAL SHADOW_ball=3000
Global newtime
Global oldtime
Global starttime
Global framecounter
Global sigmadt#
Global dt#
#CONSTANT BOUND_TOP = 13
#CONSTANT BOUND_BOTTOM = 585
#CONSTANT BOUND_LEFT = 14
#CONSTANT BOUND_RIGHT = 585
#CONSTANT ANGLE_MAX = 75



balls(1).x = 200
balls(1).y = 50
balls(1).dx = cos(255)
balls(1).dy = sin(255)
balls(1).radius = 8
balls(1).speed = .33



load image "breakin_UI_dbpro.png",1,1
load image "breakin-ball2a.png",1003,1
load image "BreakIn_Paddle-top_dbpro.png",1002,1
load image "brick_dlg1.png",100,1
load image "press_space.png",99,1
load sound "bounce1.wav",1
load sound "paddle1.wav",2
load sound "brick1.wav",3
load sound "bottom1.wav",4
load sound "misspaddle.wav",5
load music "ambiance2.mid",1

sprite 1003,0,0,1003
offset sprite 1003,balls(1).radius,balls(1).radius
sprite SHADOW_ball,-200,-200,1003
offset sprite SHADOW_ball,balls(1).radius,balls(1).radius

Sprite 2,0,0,1002
sprite SHADOW_SPRITE,-200,-200,1002
Dim Player(0) as Players
Player(0).x=Screen Width()/2-Sprite Width(2)/2
Player(0).y=32
Player(0).speed = 0.4

Sprite 99,-100,0,99


`timer
starttime=timer()
play music 1
set music volume 1,200

Do
   If import_level("level"+str$(level_number))=0 Then Exit
   text_sprite(2001,620,150,"L: "+str$(level_number))
   Start_Ball()
   if music playing(1)=0:stop music 1:play music 1:endif
   do
      timer_calculations()
      Draw_screen()
      if array count(brick())>=0
         draw_bricks()
      Else
         Exit
      Endif
      if player(0).speed>=0.2 then shadow_player()
      shadow_ball()
      Control_Paddle()
      update_positions()
      paddle_hit()
      check_brick_hit()
      sprite 1003,balls(1).x,balls(1).y,1003
      if balls(1).y < player(0).y Then play sound 5:Start_Ball()
      fps$=str$(screen fps())
      if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)


      sync
      if music playing(1)=0:stop music 1:play music 1:endif
   loop
   Inc level_number
Loop

`Insert End Game stuff here.


End


Function Start_Ball()
   Do
      timer_calculations()
      Draw_screen()
      Sprite 99,285-Sprite Width(99)/2,15,99
      if array count(brick())>=0 then draw_bricks()
      if player(0).speed>=0.2 then shadow_player()
      shadow_ball()
      Control_Paddle()
      balls(1).x=player(0).x+Sprite Width(2)/2
      balls(1).y=player(0).y+Sprite Height(2)+1
      Sprite 1003,balls(1).x,balls(1).y,1003
      fps$=str$(screen fps())
      if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)
      If SpaceKey()
         Sprite 99,-100,0,99
         Exit
      Endif
      Sync
   Loop
Endfunction


function timer_calculations()

newtime=timer()-starttime
inc sigmadt#,(newtime-oldtime)
inc framecounter
if framecounter=9 then framecounter=0
if framecounter=0 then dt#=sigmadt#/10.0:sigmadt#=0
oldtime=newtime

endfunction




Function Control_Paddle()
   Player(0).x=Player(0).x+((-LeftKey()+RightKey())*Player(0).speed*dt#)
   If Player(0).x>522 Then Player(0).x=522
   If Player(0).x<15 Then Player(0).x=15
   Sprite 2,Player(0).x,Player(0).y,1002
   paddle.x=player(0).x+32
   `Set Cursor 0,0
   `Print Player(0).x
Endfunction

function shadow_player()
   array insert at bottom shadows()
   count=array count(shadows())
   shadows(count).xpos=player(0).x
   shadows(count).ypos=player(0).y
   if array count(shadows())>Player(0).Speed*1.5 then array delete element shadows(),0
   for a = array count(shadows()) to 0 step -1
    inc shade,10
    set sprite alpha SHADOW_SPRITE,100-shade
    paste sprite SHADOW_SPRITE,shadows(a).xpos,shadows(a).ypos
   next a
endfunction

function shadow_ball()
   array insert at bottom ballshadows()
   count=array count(ballshadows())
   ballshadows(count).xpos=balls(1).x
   ballshadows(count).ypos=balls(1).y
   if array count(ballshadows())>5 then array delete element ballshadows(),0
   for a = array count(ballshadows()) to 0 step -1
    inc shade,10
    set sprite alpha SHADOW_ball,60-shade
    paste sprite SHADOW_ball,ballshadows(a).xpos,ballshadows(a).ypos
   next a
endfunction


function Draw_Screen()
   cls
   paste image 1,0,0

endfunction

function draw_bricks()
   for a = 0 to array count(brick())
      paste image brick(a).image,16+brick(a).xpos*19,184+brick(a).ypos*16,1
   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 import_level(file$)
   file$=file$+".bil"
   if file exist(file$)=0 then exitfunction 0
   empty array brick()
   brick_number=1
   open to read 1,file$
   for a = 0 to 9
      read byte 1,x
      brick_data(a).red=x
      read byte 1,x
      brick_data(a).blue=x
      read byte 1,x
      brick_data(a).green=x
      read byte 1,x
      brick_data(a).hits=x
      read byte 1,x
      brick_data(a).special=x
      read long 1,x
      brick_data(a).points=x
      makebrick(brick_data(a).red, brick_data(a).blue, brick_data(a).green,36,14,a+2)
   next a

   read long 1,NOB
   for a = 0 to NOB
      array insert at bottom brick()
      count=array count(brick())
      read byte 1,x
      brick(count).xpos=x
      read byte 1,x
      brick(count).ypos=x
      read byte 1,x
      brick(count).image=x
      brick(count).brick_number=brick_number
      grid(brick(count).ypos,brick(count).xpos)=brick_number
      grid(brick(count).ypos,brick(count).xpos+1)=brick_number
      inc brick_number
   next a
   close file 1
endfunction 1



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(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 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

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*dt#
      balls(b).y = balls(b).y + balls(b).dy*balls(b).speed*dt#
      rem check bounds
      if balls(b).x-balls(b).radius < BOUND_LEFT then balls(b).dx = balls(b).dx*-1:balls(b).x = BOUND_LEFT+balls(b).radius:play sound 1
      if balls(b).x+balls(b).radius > BOUND_RIGHT then balls(b).dx = balls(b).dx*-1:balls(b).x = BOUND_RIGHT-balls(b).radius:play sound 1
      if balls(b).y-balls(b).radius < BOUND_TOP then balls(b).dy = balls(b).dy*-1:balls(b).y = BOUND_TOP+balls(b).radius:play sound 1
      if balls(b).y+balls(b).radius > BOUND_BOTTOM then balls(b).dy = balls(b).dy*-1:balls(b).y = BOUND_BOTTOM-balls(b).radius:play sound 4
   next b
endfunction

function paddle_hit()
   `box paddle.x-paddle.width-8,paddle.y-8,paddle.x+paddle.width+8,paddle.y+8
   for b = 1 to array count(balls())
      if balls(b).x-balls(b).radius>=paddle.x-paddle.width-balls(b).radius and balls(b).x+balls(b).radius<=paddle.x+paddle.width+balls(b).radius
         if balls(b).y>=paddle.y-balls(b).radius and balls(b).y<=paddle.y+balls(b).radius
            if balls(b).dy<0.0
               d# = balls(b).x - paddle.x
               a# = 90 + (d#/paddle.width)*ANGLE_MAX
               balls(b).dx = cos(a#-180)
               balls(b).dy = sin(a#)
               play sound 2
            endif
         endif
      endif
   next b
endfunction

function check_brick_hit()
   for a = array count(brick()) to 0 step -1
      for b = 1 to array count(balls())
         if array count(brick())>=0
            if balls(b).x+balls(b).radius>=16+(brick(a).xpos*19) and balls(b).x-balls(b).radius<=15+brick(a).xpos*19+38
               if balls(b).y+balls(b).radius>=184+brick(a).ypos*16 and balls(b).y-balls(b).radius<=184+brick(a).ypos*16+16
                  `get the distance between ball centre, and brick centre
                  dx#=(balls(b).x+balls(b).radius)-(15+19+brick(a).xpos*19)
                  dy#=(balls(b).y+balls(b).radius)-(184+8+brick(a).ypos*16)
                  `get gradient of line centre of brick to top right corner of brick
                  brickgradient#=14.0/36.0
                  `get the gradient of the line joining the centre of brick to centre of ball
                  ballgradient#=dy#/dx#
                  `compare gradients - if ball gradient is between -brickgradient and + brickgradient, collision is with sides of brick, so reverse x-direction
                  if (ballgradient#)>=-brickgradient# and (ballgradient#)<=brickgradient#
                    balls(b).dx=-balls(b).dx
                  `otherwise, collision must be with top/bottom of brick, so reverse y-direction
                  else
                    balls(b).dy=-balls(b).dy
                  endif
                  array delete element brick(),a
                  play sound 3
                  exitfunction
             endif
          endif
         endif
      next b
   next a
endfunction


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(100,200,230),0
set text size 24
set text font "Ariel"
set text to bold
set text transparent
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,1
set sprite priority entity,50
Set Current Bitmap 0
`endif
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"

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

Set Text Font "Impact"
Set Text Size 32

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

Type Players
   x as float
   y as float
   speed as float
   size as float
Endtype

type Shadow
   xpos as float
   ypos as float
endtype

type ballShadow
   xpos as float
   ypos as float
endtype

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

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

Global paddle as Bat
paddle.width = 32
paddle.y = 96

dim balls(1) as Ball

dim shadows(-1) as shadow
dim ballshadows(-1) as ballshadow
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
GLOBAL SHADOW_SPRITE=1000
GLOBAL SHADOW_ball=3000
Global newtime
Global oldtime
Global starttime
Global framecounter
Global sigmadt#
Global dt#
Global Levels$
#CONSTANT BOUND_TOP = 13
#CONSTANT BOUND_BOTTOM = 585
#CONSTANT BOUND_LEFT = 14
#CONSTANT BOUND_RIGHT = 585
#CONSTANT ANGLE_MAX = 75


Load_Game()


balls(1).x = 200
balls(1).y = 50
balls(1).dx = cos(255)
balls(1).dy = sin(255)
balls(1).radius = 8
balls(1).speed = .33

sprite 1003,0,0,1003
offset sprite 1003,balls(1).radius,balls(1).radius
sprite SHADOW_ball,-200,-200,1003
offset sprite SHADOW_ball,balls(1).radius,balls(1).radius

Sprite 2,0,0,1002
sprite SHADOW_SPRITE,-200,-200,1002
Dim Player(0) as Players
Player(0).x=Screen Width()/2-Sprite Width(2)/2
Player(0).y=32
Player(0).speed = 0.4

Sprite 99,-100,0,99


`timer
starttime=timer()

Do
   If import_level(Levels$+str$(level_number))=0 Then Exit
   text_sprite(2001,600,20,"LEVEL: "+str$(level_number))
   Start_Ball()

   do
      timer_calculations()
      Draw_screen()
      if array count(brick())>=0
         draw_bricks()
      Else
         Exit
      Endif
      if player(0).speed>=0.2 then shadow_player()
      shadow_ball()
      Control_Paddle()
      update_positions()
      paddle_hit()
      check_brick_hit()
      sprite 1003,balls(1).x,balls(1).y,1003
      if balls(1).y < player(0).y
         if sound exist(5)
            Play sound 5
         Endif
         Start_Ball()
      Endif
      fps$=str$(screen fps())
      if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)
      sync
   loop
   Inc level_number
Loop

`Insert End Game stuff here.


End

Function Load_Game()
   Parse_File("Game.ini",1)

   load image PFile(0,0),1,1:`Background
   load image PFile(1,0),1003,1:`Ball
   load image PFile(2,0),1002,1:`Paddle
   load image PFile(3,0),100,1:`Brick
   Load Image PFile(4,0),101,1:`Specials
   load sound PFile(5,0),1:`Brick-hit Sound
   Levels$=PFile(6,0):`Level Files
   Load Image PFile(7,0),998:`Win Image
   Load Image PFile(8,0),999:`Lose Image
   `Optional Files
   If parser_max_lines(0)<9 Then ExitFunction
   load sound PFile(9,0),2: `Paddle-hit sound
   If parser_max_lines(0)<10 Then ExitFunction
   load sound PFile(9,0),3: `Hit sides sound
   If parser_max_lines(0)<11 Then ExitFunction
   load sound PFile(9,0),4: `Hit bottom sound
   If parser_max_lines(0)<12 Then ExitFunction
   load sound PFile(9,0),5: `Miss ball
   If parser_max_lines(0)<13 Then ExitFunction
   load music PFile(9,0),1: `Music


   load image "press_space.png",99,1
Endfunction



Function Start_Ball()
   Do
      timer_calculations()
      Draw_screen()
      Sprite 99,285-Sprite Width(99)/2,15,99
      if array count(brick())>=0 then draw_bricks()
      if player(0).speed>=0.2 then shadow_player()
      shadow_ball()
      Control_Paddle()
      balls(1).x=player(0).x+Sprite Width(2)/2
      balls(1).y=player(0).y+Sprite Height(2)+1
      Sprite 1003,balls(1).x,balls(1).y,1003
      fps$=str$(screen fps())
      if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)
      If SpaceKey()
         Sprite 99,-100,0,99
         Exit
      Endif
      Sync
   Loop
Endfunction


function timer_calculations()

newtime=timer()-starttime
inc sigmadt#,(newtime-oldtime)
inc framecounter
if framecounter=9 then framecounter=0
if framecounter=0 then dt#=sigmadt#/10.0:sigmadt#=0
oldtime=newtime

endfunction




Function Control_Paddle()
   Player(0).x=Player(0).x+((-LeftKey()+RightKey())*Player(0).speed*dt#)
   If Player(0).x>522 Then Player(0).x=522
   If Player(0).x<15 Then Player(0).x=15
   Sprite 2,Player(0).x,Player(0).y,1002
   paddle.x=player(0).x+32
   `Set Cursor 0,0
   `Print Player(0).x
Endfunction

function shadow_player()
   array insert at bottom shadows()
   count=array count(shadows())
   shadows(count).xpos=player(0).x
   shadows(count).ypos=player(0).y
   if array count(shadows())>Player(0).Speed*1.5 then array delete element shadows(),0
   for a = array count(shadows()) to 0 step -1
    inc shade,10
    set sprite alpha SHADOW_SPRITE,100-shade
    paste sprite SHADOW_SPRITE,shadows(a).xpos,shadows(a).ypos
   next a
endfunction

function shadow_ball()
   array insert at bottom ballshadows()
   count=array count(ballshadows())
   ballshadows(count).xpos=balls(1).x
   ballshadows(count).ypos=balls(1).y
   if array count(ballshadows())>5 then array delete element ballshadows(),0
   for a = array count(ballshadows()) to 0 step -1
    inc shade,10
    set sprite alpha SHADOW_ball,60-shade
    paste sprite SHADOW_ball,ballshadows(a).xpos,ballshadows(a).ypos
   next a
endfunction


function Draw_Screen()
   cls
   paste image 1,0,0

endfunction

function draw_bricks()
   for a = 0 to array count(brick())
      paste image brick(a).image,16+brick(a).xpos*19,185+brick(a).ypos*16,1
   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 import_level(file$)
   file$=file$+".bil"
   if file exist(file$)=0 then exitfunction 0
   empty array brick()
   brick_number=1
   open to read 1,file$
   for a = 0 to 9
      read byte 1,x
      brick_data(a).red=x
      read byte 1,x
      brick_data(a).blue=x
      read byte 1,x
      brick_data(a).green=x
      read byte 1,x
      brick_data(a).hits=x
      read byte 1,x
      brick_data(a).special=x
      read long 1,x
      brick_data(a).points=x
      makebrick(brick_data(a).red, brick_data(a).blue, brick_data(a).green,36,14,a+2)
   next a

   read long 1,NOB
   for a = 0 to NOB
      array insert at bottom brick()
      count=array count(brick())
      read byte 1,x
      brick(count).xpos=x
      read byte 1,x
      brick(count).ypos=x
      read byte 1,x
      brick(count).image=x
      brick(count).brick_number=brick_number
      grid(brick(count).ypos,brick(count).xpos)=brick_number
      grid(brick(count).ypos,brick(count).xpos+1)=brick_number
      inc brick_number
   next a
   close file 1
endfunction 1



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

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*dt#
      balls(b).y = balls(b).y + balls(b).dy*balls(b).speed*dt#
      rem check bounds
      hit=0
      if balls(b).x-balls(b).radius < BOUND_LEFT then balls(b).dx = balls(b).dx*-1:balls(b).x = BOUND_LEFT+balls(b).radius:hit=1
      if balls(b).x+balls(b).radius > BOUND_RIGHT then balls(b).dx = balls(b).dx*-1:balls(b).x = BOUND_RIGHT-balls(b).radius:hit=1
      if balls(b).y-balls(b).radius < BOUND_TOP then balls(b).dy = balls(b).dy*-1:balls(b).y = BOUND_TOP+balls(b).radius:hit=1
      if balls(b).y+balls(b).radius > BOUND_BOTTOM then balls(b).dy = balls(b).dy*-1:balls(b).y = BOUND_BOTTOM-balls(b).radius:hit=2
      if hit=2 and Sound Exist(4)=0 Then hit=1
      if hit=1
         if sound exist(3)
            Play Sound 3
         Else
            Play Sound 1
         Endif
      Endif
      If hit=2
         Play Sound 4
      Endif
   next b
endfunction

function paddle_hit()
   `box paddle.x-paddle.width-8,paddle.y-8,paddle.x+paddle.width+8,paddle.y+8
   for b = 1 to array count(balls())
      if balls(b).x-balls(b).radius>=paddle.x-paddle.width-balls(b).radius and balls(b).x+balls(b).radius<=paddle.x+paddle.width+balls(b).radius
         if balls(b).y>=paddle.y-balls(b).radius and balls(b).y<=paddle.y+balls(b).radius
            if balls(b).dy<0.0
               d# = balls(b).x - paddle.x
               a# = 90 + (d#/paddle.width)*ANGLE_MAX
               balls(b).dx = cos(a#-180)
               balls(b).dy = sin(a#)
               If sound exist(2)
                  play sound 2
               Else
                  Play Sound 1
               Endif
            endif
         endif
      endif
   next b
endfunction

function check_brick_hit()
   for a = array count(brick()) to 0 step -1
      for b = 1 to array count(balls())
         if array count(brick())>=0
            if balls(b).x+balls(b).radius>=16+(brick(a).xpos*19) and balls(b).x-balls(b).radius<=15+brick(a).xpos*19+37
               if balls(b).y+balls(b).radius>=185+brick(a).ypos*16 and balls(b).y-balls(b).radius<=184+brick(a).ypos*16+15
                  `get the distance between ball centre, and brick centre
                  dx#=(balls(b).x+balls(b).radius)-(16+19+brick(a).xpos*19)
                  dy#=(balls(b).y+balls(b).radius)-(185+8+brick(a).ypos*16)
                  `get gradient of line centre of brick to top right corner of brick
                  brickgradient#=14.0/36.0
                  `get the gradient of the line joining the centre of brick to centre of ball
                  ballgradient#=dy#/dx#
                  `compare gradients - if ball gradient is between -brickgradient and + brickgradient, collision is with sides of brick, so reverse x-direction
                  if (ballgradient#)>=-brickgradient# and (ballgradient#)<=brickgradient#
                    balls(b).dx=-balls(b).dx
                  `otherwise, collision must be with top/bottom of brick, so reverse y-direction
                  else
                    balls(b).dy=-balls(b).dy
                  endif
                  array delete element brick(),a
                  play sound 1
                  exitfunction
             endif
          endif
         endif
      next b
   next a
endfunction


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,50
Set Current Bitmap 0
`endif
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"

**Background Image
DBPro Theme/BreakIn_UI_dbpro.png

**Ball Image
DBPro Theme/breakin-ball2a.png

**Paddle Image
DBPro Theme/BreakIn_Paddle-top_dBPro.png

**Brick Image
DBPro Theme/brick_dlg1.png

**Brick Specials Image
BreakIn_Specials_sample.png

**Brick Hit Sound
DBPro Theme/brick1.wav

**Level Files
DBPro Theme/level

**Win Image
DBPro Theme/BreakIn_Win.png

**Lose Image
DBPro Theme/BreakIn_Lose.png

******** Optional Files ***********

**Paddle Hit Sound
DBPro Theme/paddle1.wav

**Side Hit Sound
DBPro Theme/bounce1.wav

**Bottom Hit Sound
DBPro Theme/bottom1.wav

**Miss Ball Sound
DBPro Theme/misspaddle.wav

**Music Sound
DBPro Theme/ambience2.mid

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

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

Type Players
   x as float
   y as float
   speed as float
   size as float
Endtype

type Shadow
   xpos as float
   ypos as float
endtype

type ballShadow
   xpos as float
   ypos as float
endtype

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

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

Global paddle as Bat
paddle.width = 32
paddle.y = 96

dim balls(1) as Ball

dim shadows(-1) as shadow
dim ballshadows(-1) as ballshadow
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
GLOBAL SHADOW_SPRITE=1000
GLOBAL SHADOW_ball=3000
Global newtime
Global oldtime
Global starttime
Global framecounter
Global sigmadt#
Global dt#
Global Levels$
Global Score
Global Loot
Global Lives
#CONSTANT BOUND_TOP = 13
#CONSTANT BOUND_BOTTOM = 585
#CONSTANT BOUND_LEFT = 14
#CONSTANT BOUND_RIGHT = 585
#CONSTANT ANGLE_MAX = 75


Load_Game()


balls(1).x = 200
balls(1).y = 50
balls(1).dx = cos(255)
balls(1).dy = sin(255)
balls(1).radius = 8
balls(1).speed = .33

sprite 1003,0,0,1003
offset sprite 1003,balls(1).radius,balls(1).radius
sprite SHADOW_ball,-200,-200,1003
offset sprite SHADOW_ball,balls(1).radius,balls(1).radius

Sprite 2,0,0,1002
sprite SHADOW_SPRITE,-200,-200,1002
Dim Player(0) as Players
Player(0).x=Screen Width()/2-Sprite Width(2)/2
Player(0).y=32
Player(0).speed = 0.4

Loot=1000

Sprite 99,-500,0,99

If Music Exist(1)
   Play Music 1
Endif

text_sprite(2002,645,215,"> "+str$(score))
text_sprite(2003,630,280,"$ "+str$(loot))
`timer
starttime=timer()

Do
   If import_level(Levels$+str$(level_number))=0 Then Exit
   text_sprite(2001,620,150,"L: "+str$(level_number))
   Start_Ball()

   do
      If music exist(1)
         If music Playing(1)=0
            if rnd(5000)<42 then play music 1
         Endif
      Endif

      timer_calculations()
      Draw_screen()
      if array count(brick())>=0
         draw_bricks()
      Else
         Exit
      Endif
      if player(0).speed>=0.2 then shadow_player()
      shadow_ball()
      Control_Paddle()
      update_positions()
      paddle_hit()
      check_brick_hit()
      sprite 1003,balls(1).x,balls(1).y,1003
      if balls(1).y < player(0).y
         if sound exist(5)
            Play sound 5
         Endif
         Start_Ball()
         if Loot<1 then exit
      Endif
      fps$=str$(screen fps())
      if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)
      if framecounter=3 then text_sprite(2002,645,215,"> "+str$(score))
      if framecounter=1 then text_sprite(2003,630,280,"$ "+str$(loot))
      sync
   loop
   if loot<1 then exit
   Inc level_number
Loop

`Win/Lose - Endgame
for i = 1 to 5000
   if sprite exist(i)
      delete sprite i
   endif
next i

Do
   cls
   If loot<1
      Paste Image 1999,200,45
   Else
      Paste Image 1998,200,45
   Endif
   Sync
Loop




End

Function Load_Game()
   Parse_File("Game.ini",1)

   For i = 0 to parser_max_lines(0)
      Select Lower$(PFile(i,0))
         Case "background image":   load image PFile(i,1),1,1:Endcase
         Case "ball image":         load image PFile(i,1),1003,1:Endcase
         Case "paddle image":       load image PFile(i,1),1002,1:Endcase
         Case "brick image":        load image PFile(i,1),100,1:Endcase
         Case "specials image":     load image PFile(i,1),101,1:Endcase
         Case "default sound":      load sound PFile(i,1),1:Endcase
         Case "level files":        Levels$=PFile(i,1):Endcase
         Case "win image":          load image PFile(i,1),1998,1:Endcase
         Case "lose image":         load image PFile(i,1),1999,1:Endcase
   `Optional Files
         Case "paddle sound":       load sound PFile(i,1),2:Endcase
         Case "wall sound":         load sound PFile(i,1),3:Endcase
         Case "floor sound":        load sound PFile(i,1),4:Endcase
         Case "miss sound":         load sound PFile(i,1),5:Endcase
         Case "music":              load music PFile(i,1),1:Endcase
      EndSelect
   Next i
   load image "press_space.png",99,1
Endfunction



Function Start_Ball()
   Loot=Loot-Lives*100
   inc Lives
   text_sprite(2003,630,280,"$ "+str$(loot))
   if loot<1 then exitfunction
   Do
      timer_calculations()
      Draw_screen()
      Sprite 99,285-Sprite Width(99)/2,15,99
      if array count(brick())>=0 then draw_bricks()
      if player(0).speed>=0.2 then shadow_player()
      shadow_ball()
      Control_Paddle()
      balls(1).x=player(0).x+Sprite Width(2)/2
      balls(1).y=player(0).y+Sprite Height(2)+1
      Sprite 1003,balls(1).x,balls(1).y,1003
      fps$=str$(screen fps())
      if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)
      If SpaceKey()
         Sprite 99,-500,-100,99
         Exit
      Endif
      Sync
   Loop
Endfunction


function timer_calculations()

newtime=timer()-starttime
inc sigmadt#,(newtime-oldtime)
inc framecounter
if framecounter=9 then framecounter=0
if framecounter=0 then dt#=sigmadt#/10.0:sigmadt#=0
oldtime=newtime

endfunction




Function Control_Paddle()
   Player(0).x=Player(0).x+((-LeftKey()+RightKey())*Player(0).speed*dt#)
   If Player(0).x>522 Then Player(0).x=522
   If Player(0).x<15 Then Player(0).x=15
   Sprite 2,Player(0).x,Player(0).y,1002
   paddle.x=player(0).x+32
   `Set Cursor 0,0
   `Print Player(0).x
Endfunction

function shadow_player()
   array insert at bottom shadows()
   count=array count(shadows())
   shadows(count).xpos=player(0).x
   shadows(count).ypos=player(0).y
   if array count(shadows())>Player(0).Speed*1.5 then array delete element shadows(),0
   for a = array count(shadows()) to 0 step -1
    inc shade,10
    set sprite alpha SHADOW_SPRITE,100-shade
    paste sprite SHADOW_SPRITE,shadows(a).xpos,shadows(a).ypos
   next a
endfunction

function shadow_ball()
   array insert at bottom ballshadows()
   count=array count(ballshadows())
   ballshadows(count).xpos=balls(1).x
   ballshadows(count).ypos=balls(1).y
   if array count(ballshadows())>5 then array delete element ballshadows(),0
   for a = array count(ballshadows()) to 0 step -1
    inc shade,10
    set sprite alpha SHADOW_ball,60-shade
    paste sprite SHADOW_ball,ballshadows(a).xpos,ballshadows(a).ypos
   next a
endfunction


function Draw_Screen()
   cls
   paste image 1,0,0

endfunction

function draw_bricks()
   for a = 0 to array count(brick())
      paste image brick(a).image,16+brick(a).xpos*19,185+brick(a).ypos*16,1
   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 import_level(file$)
   file$=file$+".bil"
   if file exist(file$)=0 then exitfunction 0
   empty array brick()
   brick_number=1
   open to read 1,file$
   for a = 0 to 9
      read byte 1,x
      brick_data(a).red=x
      read byte 1,x
      brick_data(a).blue=x
      read byte 1,x
      brick_data(a).green=x
      read byte 1,x
      brick_data(a).hits=x
      read byte 1,x
      brick_data(a).special=x
      read long 1,x
      brick_data(a).points=x
      makebrick(brick_data(a).red, brick_data(a).blue, brick_data(a).green,36,14,a+2)
   next a

   read long 1,NOB
   for a = 0 to NOB
      array insert at bottom brick()
      count=array count(brick())
      read byte 1,x
      brick(count).xpos=x
      read byte 1,x
      brick(count).ypos=x
      read byte 1,x
      brick(count).image=x
      brick(count).brick_number=brick_number
      grid(brick(count).ypos,brick(count).xpos)=brick_number
      grid(brick(count).ypos,brick(count).xpos+1)=brick_number
      inc brick_number
   next a
   close file 1
endfunction 1



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

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*dt#
      balls(b).y = balls(b).y + balls(b).dy*balls(b).speed*dt#
      rem check bounds
      hit=0
      if balls(b).x-balls(b).radius < BOUND_LEFT then balls(b).dx = balls(b).dx*-1:balls(b).x = BOUND_LEFT+balls(b).radius:hit=1
      if balls(b).x+balls(b).radius > BOUND_RIGHT then balls(b).dx = balls(b).dx*-1:balls(b).x = BOUND_RIGHT-balls(b).radius:hit=1
      if balls(b).y-balls(b).radius < BOUND_TOP then balls(b).dy = balls(b).dy*-1:balls(b).y = BOUND_TOP+balls(b).radius:hit=1
      if balls(b).y+balls(b).radius > BOUND_BOTTOM then balls(b).dy = balls(b).dy*-1:balls(b).y = BOUND_BOTTOM-balls(b).radius:hit=2
      if hit=2 and Sound Exist(4)=0 Then hit=1
      if hit=1
         if sound exist(3)
            Play Sound 3
         Else
            Play Sound 1
         Endif
      Endif
      If hit=2
         Play Sound 4
      Endif
   next b
endfunction

function paddle_hit()
   `box paddle.x-paddle.width-8,paddle.y-8,paddle.x+paddle.width+8,paddle.y+8
   for b = 1 to array count(balls())
      if balls(b).x-balls(b).radius>=paddle.x-paddle.width-balls(b).radius and balls(b).x+balls(b).radius<=paddle.x+paddle.width+balls(b).radius
         if balls(b).y>=paddle.y-balls(b).radius and balls(b).y<=paddle.y+balls(b).radius
            if balls(b).dy<0.0
               d# = balls(b).x - paddle.x
               a# = 90 + (d#/paddle.width)*ANGLE_MAX
               balls(b).dx = cos(a#-180)
               balls(b).dy = sin(a#)
               If sound exist(2)
                  play sound 2
               Else
                  Play Sound 1
               Endif
            endif
         endif
      endif
   next b
endfunction

function check_brick_hit()
   for a = array count(brick()) to 0 step -1
      for b = 1 to array count(balls())
         if array count(brick())>=0
            if balls(b).x+balls(b).radius>=16+(brick(a).xpos*19) and balls(b).x-balls(b).radius<=15+brick(a).xpos*19+37
               if balls(b).y+balls(b).radius>=185+brick(a).ypos*16 and balls(b).y-balls(b).radius<=184+brick(a).ypos*16+15
                  `get the distance between ball centre, and brick centre
                  dx#=(balls(b).x+balls(b).radius)-(16+19+brick(a).xpos*19)
                  dy#=(balls(b).y+balls(b).radius)-(185+8+brick(a).ypos*16)
                  `get gradient of line centre of brick to top right corner of brick
                  brickgradient#=14.0/36.0
                  `get the gradient of the line joining the centre of brick to centre of ball
                  ballgradient#=dy#/dx#
                  `compare gradients - if ball gradient is between -brickgradient and + brickgradient, collision is with sides of brick, so reverse x-direction
                  if (ballgradient#)>=-brickgradient# and (ballgradient#)<=brickgradient#
                    balls(b).dx=-balls(b).dx
                  `otherwise, collision must be with top/bottom of brick, so reverse y-direction
                  else
                    balls(b).dy=-balls(b).dy
                  endif
                  bid=brick(a).image-2
                  score=score+brick_data(bid).points
                  array delete element brick(),a
                  play sound 1
                  exitfunction
             endif
          endif
         endif
      next b
   next a
endfunction


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(255,0,255),0
   box 0,0,bitmap width(2),bitmap height(2)
   ink rgb(1,250,1),0
   set text size 20
   set text font "Impact"
   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,1
   set sprite priority entity,50
   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"

**Background Image
background image;DBPro Theme/BreakIn_UI_dbpro.png

**Ball Image
ball image;DBPro Theme/breakin-ball2a.png

**Paddle Image
paddle image;DBPro Theme/BreakIn_Paddle-top_dBPro.png

**Brick Image
brick image;DBPro Theme/brick_dlg1.png

**Brick Specials Image
specials image;BreakIn_Specials_sample.png

**Brick Hit Sound
default sound;DBPro Theme/brick1.wav

**Level Files
level files;DBPro Theme/level

**Win Image
win image;DBPro Theme/BreakIn_Win.png

**Lose Image
lose image;DBPro Theme/BreakIn_Lose.png

******** Optional Files ***********

**Paddle Hit Sound
paddle sound;DBPro Theme/paddle1.wav

**Side Hit Sound
wall sound;DBPro Theme/bounce1.wav

**Bottom Hit Sound
floor sound;DBPro Theme/bottom1.wav

**Miss Ball Sound
miss sound;DBPro Theme/misspaddle.wav

**Music Sound
music;DBPro Theme/ambiance2.mid

Function Main_Menu()
   Load Image "ThemeSelect.png",41,1
   sw=Screen Width()/2
   Sprite 41,sw-Image Width(41)/2,10,41
   Set Sprite 41,0,1
   Parse_File("Breakin Menu.ini",1)
   For i=0 To parser_max_lines(0)
      Flag=0
      If File Exist(PFile(i,0))
         BID=Make_Button(PFile(i,0),220,i*50+100,i+1,1)
         Position_Button(BID,sw-Button_Width(BID)/2,i*50+100)
         Flag=1
      Endif
      If File Exist(PFile(i,0)+".bmp")
         BID=Make_Button(PFile(i,0)+".bmp",220,i*50+100,i+1,0)
         Position_Button(BID,sw-Button_Width(BID)/2,i*50+100)
         Flag=1
      Endif
      If Flag=0
         text_sprite(42,0,0,PFile(i,0))
         Save Image PFile(i,0)+".bmp",42
         Delete Image 42
         Delete Sprite 42
         BID=Make_Button(PFile(i,0)+".bmp",220,i*50+100,i+1,0)
         Position_Button(BID,sw-Button_Width(BID)/2,i*50+100)
      Endif
   Next i
   Do
      Btn= Get_Button
      If Btn>-1 and MouseClick()=1
         Exit
      Endif
      Sync
   Loop

   Load_Game(PFile(Btn-1,1))
   Delete Image 41
   Delete Sprite 41

   Clear_Buttons
Endfunction

If music Playing(1)=0
   if rnd(5000)<42 then play music 1
Endif

If music Playing(1)=0
   stop music 1:play music 1
Endif

Times Tables Trainer

The purpose of this game is to aid primary school children in learning Times Tables.  It will cover 1 to 10 Times Tables, up to multiples of 12.  The game will be attractive to the 6 – 12 age range, providing plenty of encouragement and exciting visuals.  Teachers can adapt the game to suit a more specific target group, making it useful across a wider age range.

The game needs to be simple to use, with simple display of information.  I envisage a 3D game with surrounding 2D interface.  It should be playable with a mouse, or on an interactive whiteboard (touch-screen)

The Game – Invaders (working title)
Spaceships are trying to land on earth.  You must blast them out of the sky by hitting the weak spaceship in the group.  
The main ship will descend down the screen, illustrating the time limit by it’s height.  It will be surrounded by 4 or 5 child ships.  A question will be displayed; the possible answers will be shown on the child ships.  Hit the correct child ship and it will explode, taking the mother ship with it.  Hit the wrong one, or run out of time and it’s game over.

After each 3 correct answers, the game speeds up by 5%, the mother ship descending faster.

High score table would be preferable to encourage children.  This should be able to be reset, or saved and loaded for different groups / individual children.  Save name, correct answers, score and date to show progress over time.  As a bonus, save the settings with the high scores so it becomes a full “Saved Game”.  Will allow teachers to load specifics games over again for different groups.

Score should be based on time taken to answer each question.  Interface should also show number of questions answered.

Options Screen

Select the times tables to be tested.  Allow user to “tick” any combination of tables, from 1 to 10.  For example, less-able students may require just 2, 5 and 10 times tables.  More able students may be tested on the full range, or the more complicated ones.

Set the maximum multiplier, from 1 to 12.

Set the time to answer each question.  The examples suggested were 5 and 10 seconds, but if we could allow any time to be entered it would be more flexible.


Game Functions


Graphics / Effects
The game is aimed at children aged about 6 to 12, so needs to be bright, bubbly and rewarding but also simple and understandable.  Getting rewarded for correct answers should be exciting.  Getting them wrong should have consequences, but not as graphically impressive – we don’t want to put them off trying again!

 
TASKS

2D Graphics / Theming.  Menu, Options Page, High Scores, Instructions and 2D Playing Interface.  Bitmap font?

3D models / Texturing.  Mother ship, child ship, Earth (base), sky box/environment

Effects.  Invader flying effects, explosions, game over effects

Sounds.  Background music, shooting, explosion, success, fail, time up

Coding

Menu & Options screen.  Play/Rules/Hi Scores/Rules/Credits/Exit.  Options are tables 1 to 10, multiply up to (1 to 12), time to answer.

Save Settings/Get Settings
A function that allows a parameter name and value to be passed, and it will be saved to the options file.
Pass a parameter name and the parameter is retrieved
Save/Load high scores

Generate Questions
At the beginning of a game, an array of questions are generated.  For each question, query the times tables (as set in options) to be tested and pick one at random (t).  Then generate a question:

n * t = a, where n is a number between 1 and the maximum multiplier (in options)

` Settings Type
` Game Name
` Tables is a string of 1's and 0's for tables 2 to 12
` Max multiplier is maximum level to be tested (e.g up to 10*... or up to 12*...)
` Time_limit is the limit per question
type tSetting
    name as string
    tables as string
    max_multiplier as integer
    time_limit as float
endtype

` Question Type
` The 2 numbers to be multiplied, correct answer
` and 3 incorrect answers
type tQuestion
    num1 as integer
    num2 as integer
    answer as integer
    alt1 as integer
    alt2 as integer
    alt3 as integer
endtype    

` High Score Type
type tHiScore
    name as string
    score as integer
    date as string
endtype


` ********** Global Variables **********
` High Scores
dim arrHiScore() as tHiScore
` Questions
dim arrQuestion() as tQuestion
` Settings
global gSetting as tSetting 

function LoadSettings(game$)

    gamepath$ = get dir$() + "\"
    file$ = gamepath$ + "saves\" + gSetting.name + ".sav"
    
    ` Does file exist?
    if file exist(file$) = 0
        exitfunction
    endif

    open to read 1, file$
    
    ` Save Settings
    read string 1, gSetting.name
    read string 1, gSetting.tables
    read long 1, gSetting.max_multiplier
    read float 1, gSetting.time_limit
    
    ` Save High Scores
    empty array arrHiScore() 
    while not file end(1)
        add to queue arrHiScore()
        read string 1, arrHiScore().name
        read long 1, arrHiScore().score
        read string 1, arrHiScore().date
    endwhile    
    
    close file 1 


endfunction

function saveSettings()

    gamepath$ = get dir$() + "\"
    file$ = gamepath$ + "saves\" + gSetting.name + ".sav"
    backupfile$ = gamepath$ + "saves\" + gSetting.name + ".bak"
    
    ` Does folder exist?
    if path exist(gamepath$ + "saves") = 0
        make directory (gamepath$ + "saves")
    endif
    
    ` Does file exist?
    if file exist(file$)
        if file exist(backupfile$)
            delete file backupfile$
        endif
        copy file file$, backupfile$
        delete file file$
    endif 

    open to write 1, file$
    
    ` Save Settings
    write string 1, gSetting.name
    write string 1, gSetting.tables
    write long 1, gSetting.max_multiplier
    write float 1, gSetting.time_limit
    
    ` Save High Scores
    maxCount = array count(arrHiScore())
    for n = 0 to maxCount
        write string 1, arrHiScore(n).name
        write long 1, arrHiScore(n).score
        write string 1, arrHiScore(n).date
    next n    
    
    close file 1 

endfunction

function generateQuestions()
` Generates the questions and answers based on current settings.

    Randomize timer()
    ` array of valid times tables from settings string
    empty array arrTables()
    for n = 1 to len(gSetting.tables)
        if mid$(gSetting.tables,n) = "1"
            add to queue arrTables() 
            arrTables() = n + 1
        endif
    next n

    ` Clear the questions array and fill it up!
    empty array arrQuestion()
    maxTable = array count(arrTables())

    for n = 0 to 99
        add to queue arrQuestion()
        arrQuestion().num1 = rnd(gSetting.max_multiplier - 1) + 1
        arrQuestion().num2 = arrTables(rnd(maxTable))
        arrQuestion().answer = arrQuestion().num1 * arrQuestion().num2

        repeat
            arrQuestion().alt1 = generateAnswer(arrQuestion().num1, arrQuestion().num2)
        until arrQuestion().alt1 <> arrQuestion().answer 

        repeat
            arrQuestion().alt2 = generateAnswer(arrQuestion().num1, arrQuestion().num2)
        until arrQuestion().alt2 <> arrQuestion().answer and arrQuestion().alt2 <> arrQuestion().alt1

        repeat
            arrQuestion().alt3 = generateAnswer(arrQuestion().num1, arrQuestion().num2)
        until arrQuestion().alt3 <> arrQuestion().answer and arrQuestion().alt3 <> arrQuestion().alt2 and arrQuestion().alt3 <> arrQuestion().alt1

    next n    

endfunction

function generateAnswer(val1, val2)
` Generates a random, incorrect answer

    ` Weight the type of answers that get generated
    ` Another valid multiple (e.g 3*4 instead of 4*4) = 30%
    ` A Close value = 50%
    ` A not-so-close value = 20%

    AnswerType = rnd(9) + 1
    
    ` Another valid multiple
    if AnswerType < 4
        repeat
            newVal = rnd(1): if newval = 0 then newVal = -1
            newVal = val1 + newVal
        until newVal <> 0
        answer = newVal * val2
        exitfunction answer 
    endif
    
    ` Another Close Answer
    if AnswerType < 9
        newVal = rnd(1): if newval = 0 then newVal = -1 
        curAnswer = (val1 * val2)
        answer =  ((rnd(2) + 1) * newVal) + curAnswer
        if answer <= 0 then answer = 1
        exitfunction answer
    endif    

    ` A less-close Answer
        text 600,10, "Less Close": sync
        newVal = rnd(1): if newval = 0 then newVal = -1 
        curAnswer = (val1 * val2)
        answer =  ((rnd(2) + 3) * newVal) + curAnswer
        if answer <= 0 then answer = 1
        exitfunction answer

endfunction answer

` Settings Type
` Game Name
` Tables is a string of 1's and 0's for tables 2 to 12
` Max multiplier is maximum level to be tested (e.g up to 10*... or up to 12*...)
` Time_limit is the limit per question
type tSetting
    name as string
    tables as string
    max_multiplier as integer
    time_limit as float
endtype

` Question Type
` The 2 numbers to be multiplied, correct answer
` and 3 incorrect answers
type tQuestion
    num1 as integer
    num2 as integer
    answer as integer
    alt1 as integer
    alt2 as integer
    alt3 as integer
endtype    

` High Score Type
type tHiScore
    name as string
    score as integer
    date as string
endtype


` ********** Global Variables **********
` High Scores
dim arrHiScore() as tHiScore
` Questions
dim arrQuestion() as tQuestion
` A temporary data table for generating questions.
dim arrTables()
` Settings
global gSetting as tSetting