Community Projects - GameCreators Forum

Author

Message

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 30th Jan 2007 23:59 Edited at: 31st Jan 2007 00:03

Link

LoL.. Hobgoblin I noticed that too, so I just inverted the colors in the new Bricks_Dlg1.png. I also noticed that more room was needed at the top for the text, so I moved everything down some.

Now I'll have to revert them back? nah.. we'll fix the code at another time. This is the danger when more than one person sees and fixes a minor bug. I took the artistic approach, you adjusted the code, now we are out of sync again.

Note, the edit_brick function will be revisited later anyways,.. I'll be making 'edit' buttons, '+' and '-' buttons, a 'spindle' to choose the 'special' etc.

As a general rule, if I can fix something by simply adjusting a bitmap, just make a request.

Anyways, this is a funny hapenstance,.. I wonder what the next one will be

Cheers!

In case you missed the 'change' here it is again..

Back to top

Profile PM Email

BatVink

Moderator

22

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 31st Jan 2007 16:59

Link

Hi guys,

I'm butting in here but I'd like to put a request in. What do you think to doing something really worthwhile in this thread at some point? I'm a school governor, and I can get a real client for your work. I'm thinking about an educational game that children can use in class. Schools in the UK at least have interactive whiteboards where you can touch the screen to play and interact with the game.

I'm thinking about a Numeracy or Literacy game with easy-to-press targets for answers, and some nice eye-candy to keep them hooked. I can get a specification from the head teacher / numeracy coordinator that will meet educational requirements, it would probably be for Year 5 children (8/9 years, Key Stage 2).

What do you think? Shall I pursue it? We have a test customer, and it could go further afield as freeware, maybe even lead to bigger things

Back to top

Profile PM Email

Hobgoblin Lord

19

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 31st Jan 2007 16:59 Edited at: 31st Jan 2007 17:02

Link

OK import function is in, just set it to whichever level number you saved as and press "i" for import. WARNING do not try to load levels made before this build, there was an error with the data being written to the file and it will not load properly and may hang.

The import function should be a good starting point if someone wants to get started on the actual game file.

I will continue work on the editor for now to make it as user friendly as possible.

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
   if lower$(inkey$())="i" then import_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,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

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","Indestructible","Random Powerup","Random Powerdown","Speed Up","Speed Down","Bomb"

+ Code Snippet

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
   if lower$(inkey$())="i" then import_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,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





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","Indestructible","Random Powerup","Random Powerdown","Speed Up","Speed Down","Bomb"

EDIT: Batvink, that sounds interesting enough. I like making educational software, I do stuff for my kids all the time to help them with their studies.

http://forum.thegamecreators.com/?m=forum_view&t=73324&b=8
My RPG WIP, check it out

Back to top

Profile PM Email Website

RiiDii

20

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 31st Jan 2007 17:57

Link

Hey BatVink: That sounds like an excelent idea. I'd say go forward with persuing the information. I will promise to do persue the idea here. We are going to be wrapping this project up around the 12th of February, so if you have something to go on by then, we can make that our next project.

Open MMORPG: It's your game!

Back to top

Profile PM Email

RiiDii

20

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 31st Jan 2007 18:47

Link

Great work HL! Here's the start for the actual game. I started with the editor and deleted the functions that were not needed for the game; then added in the player and player controls. Next step, add the ball.

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

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

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

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

import_level("level"+str$(level_number))

do
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   Control_Paddle()

sync
loop

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

function Draw_Screen()
   cls
   paste image 1,0,0
   text 600,20,"LEVEL: "+str$(level_number)

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 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
   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","Indestructible","Random Powerup","Random Powerdown","Speed Up","Speed Down","Bomb"

+ Code Snippet

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

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


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

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


import_level("level"+str$(level_number))

do
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   Control_Paddle()

   sync
loop


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

function Draw_Screen()
   cls
   paste image 1,0,0
   text 600,20,"LEVEL: "+str$(level_number)

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 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
   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","Indestructible","Random Powerup","Random Powerdown","Speed Up","Speed Down","Bomb"

Open MMORPG: It's your game!

Back to top

Profile PM Email

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 31st Jan 2007 19:09

Link

I also have an interest in educational software, having made a fair bit of it for the kids in my own and other teachers' classes. The commercial educational software market is a big one, with even bigger holes in it in my opinion. What we could do in a two week community project could quite easily be better than some of the commercial rubbish I've seen at over-inflated prices.

If a freeware version achieves success, then I'm positive there is a business opportunity in there somewhere.

Not had a chance to get in with this breakout project yet - been very busy this last week.

Back to top

Profile PM Email Website

Hobgoblin Lord

19

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 31st Jan 2007 20:19 Edited at: 31st Jan 2007 21:40

Link

Working off Dave's initial image I added in a little effect for when the player paddle is moving kind of fast.

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

dim shadows(-1) as shadow
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

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

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=5.0

import_level("level"+str$(level_number))

do
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   if player(0).speed>=2.0 then shadow_player()
   Control_Paddle()

sync
loop

Function Control_Paddle()
   Player(0).x=Player(0).x+((-LeftKey()+RightKey())*Player(0).speed)
   If Player(0).x>522 Then Player(0).x=522
   If Player(0).x<15 Then Player(0).x=14
   Sprite 2,Player(0).x,Player(0).y,1002
   `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())>9 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 Draw_Screen()
   cls
   paste image 1,0,0
   text 600,20,"LEVEL: "+str$(level_number)

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 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
   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","Indestructible","Random Powerup","Random Powerdown","Speed Up","Speed Down","Bomb"

+ Code Snippet

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

dim shadows(-1) as shadow
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


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

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=5.0


import_level("level"+str$(level_number))

do
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   if player(0).speed>=2.0 then shadow_player()
   Control_Paddle()

   sync
loop


Function Control_Paddle()
   Player(0).x=Player(0).x+((-LeftKey()+RightKey())*Player(0).speed)
   If Player(0).x>522 Then Player(0).x=522
   If Player(0).x<15 Then Player(0).x=14
   Sprite 2,Player(0).x,Player(0).y,1002
   `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())>9 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 Draw_Screen()
   cls
   paste image 1,0,0
   text 600,20,"LEVEL: "+str$(level_number)

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 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
   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","Indestructible","Random Powerup","Random Powerdown","Speed Up","Speed Down","Bomb"

Here is a version adding in some of Phaleax's ball code.

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

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

dim balls(1) as Ball

dim shadows(-1) as shadow
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
#CONSTANT BOUND_TOP = 8
#CONSTANT BOUND_BOTTOM = 584
#CONSTANT BOUND_LEFT = 6
#CONSTANT BOUND_RIGHT = 577

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 = 2

load image "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1

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=3.0

import_level("level"+str$(level_number))

do
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   if player(0).speed>=2.0 then shadow_player()
   Control_Paddle()
   update_positions()
   sprite 1003,balls(1).x,balls(1).y,1003

sync
loop

Function Control_Paddle()
   Player(0).x=Player(0).x+((-LeftKey()+RightKey())*Player(0).speed)
   If Player(0).x>522 Then Player(0).x=522
   If Player(0).x<15 Then Player(0).x=14
   Sprite 2,Player(0).x,Player(0).y,1002
   paddle.x=player(0).x
   `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())>9 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 Draw_Screen()
   cls
   paste image 1,0,0
   text 600,20,"LEVEL: "+str$(level_number)

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

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

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"

+ Code Snippet

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

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

dim balls(1) as Ball

dim shadows(-1) as shadow
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
#CONSTANT BOUND_TOP = 8
#CONSTANT BOUND_BOTTOM = 584
#CONSTANT BOUND_LEFT = 6
#CONSTANT BOUND_RIGHT = 577


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 = 2



load image "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1

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=3.0


import_level("level"+str$(level_number))

do
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   if player(0).speed>=2.0 then shadow_player()
   Control_Paddle()
   update_positions()
   sprite 1003,balls(1).x,balls(1).y,1003


   sync
loop


Function Control_Paddle()
   Player(0).x=Player(0).x+((-LeftKey()+RightKey())*Player(0).speed)
   If Player(0).x>522 Then Player(0).x=522
   If Player(0).x<15 Then Player(0).x=14
   Sprite 2,Player(0).x,Player(0).y,1002
   paddle.x=player(0).x
   `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())>9 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 Draw_Screen()
   cls
   paste image 1,0,0
   text 600,20,"LEVEL: "+str$(level_number)

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

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







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"

http://forum.thegamecreators.com/?m=forum_view&t=73324&b=8
My RPG WIP, check it out

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 1st Feb 2007 09:59 Edited at: 1st Feb 2007 10:05

Link

Very nice work on this so far! It took me a while putting all the pieces together, so incase anybody else wants to get involved at this point, I've attached the whole zipped up project so far.

I've created a basic level 1 to get things going (very useful editor, btw), and modified the code very slightly - just a drop in the ocean compared to the work that's been done so far! All movement is now timer based. I've used the same function HL used for the player motion-blur effect, for the ball - to make it's motion appear smoother. I also offset the sprite for the ball so that it's x and y positions represent the centre of the ball, rather than the top left, and adjusted the wall collision function and constants accordingly. On rare occasions, if the speed of the ball was set too fast, the ball was getting trapped behind a wall - that should be resolved now too.

I guess brick collision would be the next obvious thing to get working ...

<edit> ah - I see that Phaelax is already working on that.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

RiiDii

20

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 1st Feb 2007 10:25

Link

Slight modification to the Shadow function so that the amount of blur is dependant on the player's speed.

+ Code Snippet

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

Open MMORPG: It's your game!

Back to top

Profile PM Email

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 1st Feb 2007 11:02 Edited at: 1st Feb 2007 11:05

Link

Here are some thoughts,..

For Scoring, I propose 2 items to keep track of, 1 being the score used on the number of bricks broken, 'AND' a 'Loot' count.. When the ball does break-in (through the bricks) and bounces off the bottom wall, that will increase the 'Loot' count. So each time the ball collides with the bottom wall the 'Loot' count goes up. I have made a moneybag image that we can have spill out of the 'hole' on the bottom right of the side panel.

Here is the Moneybag image..

Also, what text fields will be needed on the side panel? I can think of 'Player Name', 'Level', 'Score', 'Loot' and possibly 'Score 2 Beat'(which would simply be the current high score from the top 10 list.) Any thoughts?

Cheers!

P.S. Could we make the bricks 36x14 so that there is a bit of space between each (2 pixels) The reason for this, is if we implement the ability to change the play area underlay it would look better if some of the background showed through. I'll post an example later.

Back to top

Profile PM Email

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 1st Feb 2007 14:07

Link

I Found a bug in the Control_Paddle function..

+ Code Snippet

If Player(0).x<15 Then Player(0).x=14

should be

+ Code Snippet

If Player(0).x<15 Then Player(0).x=15

By having the =14 (less than the condition "<15") the paddle gets stuck on the left hand side of the screen.

Cheers!

**UI Update** attached is a new UI with place for the 'Level', 'Score', 'Loot' and 'Score to Beat'. I also included a second UI and a top paddle to go with it. And.. I cut out the broken bricks on the bottom right of the panel so that it can be overlayed. When the player breaks-in, Splash this new sprite over the UI to give a visual feedack to the player that he has broken in.. then each time the ball hits the bottom wall, spit out a moneybag from this hole and add to the loot count.

Attachments

Login to view attachments

Back to top

Profile PM Email

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 1st Feb 2007 17:35 Edited at: 1st Feb 2007 17:43

Link

Wow - Excellent graphics!

Back to top

Profile PM Email Website

Hobgoblin Lord

19

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 1st Feb 2007 19:45

Link

Nice Dave!

Thanks for the compliments on the editor guys.

Have to say I am impressed that I am getting 320FPS on this still. I think this looks pretty damn good so far, a little more work and it could easily be a game like those on MSN games etc. Watch out Bricks of Egypt..

http://forum.thegamecreators.com/?m=forum_view&t=73324&b=8
My RPG WIP, check it out

Back to top

Profile PM Email Website

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 1st Feb 2007 19:56

Link

Darkanoid?

Back to top

Profile PM Email Website

Hobgoblin Lord

19

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 1st Feb 2007 20:43

Link

Here is an attempt to try and work in phaelax's bat collision code, I had to make some changes since the bat is at the top and play around with it a little, but all in all not bad. If someone can tweak it it should be fine. also added a little hit sound in attached to the post.

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#
#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 "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1
load sound "button.wav",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.2

import_level("level"+str$(level_number))
text_sprite(2001,600,20,"LEVEL: "+str$(level_number))

`timer
starttime=timer()

do
   timer_calculations()
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   if player(0).speed>=0.2 then shadow_player()
   shadow_ball()
   Control_Paddle()
   update_positions()
   paddle_hit()
   sprite 1003,balls(1).x,balls(1).y,1003
   fps$=str$(screen fps())
   if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)

sync
loop

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,15+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
   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

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 1
   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 1
            endif
         endif
      endif
   next b
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"

+ Code Snippet

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#
#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 "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1
load sound "button.wav",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.2


import_level("level"+str$(level_number))
text_sprite(2001,600,20,"LEVEL: "+str$(level_number))

`timer
starttime=timer()

do
   timer_calculations()
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   if player(0).speed>=0.2 then shadow_player()
   shadow_ball()
   Control_Paddle()
   update_positions()
   paddle_hit()
   sprite 1003,balls(1).x,balls(1).y,1003
   fps$=str$(screen fps())
   if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)


   sync
loop

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,15+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
   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

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 1
   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 1
            endif
         endif
      endif
   next b
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"

http://forum.thegamecreators.com/?m=forum_view&t=73324&b=8
My RPG WIP, check it out

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Hobgoblin Lord

19

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 1st Feb 2007 21:47

Link

Brick collision added, detection seems right on but the angle of retreat seems to need some refining. That said you can now kill the bricks.

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#
#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 "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1
load sound "button.wav",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

import_level("level"+str$(level_number))
text_sprite(2001,600,20,"LEVEL: "+str$(level_number))

`timer
starttime=timer()

do
   timer_calculations()
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   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
   fps$=str$(screen fps())
   if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)

sync
loop

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,15+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
   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

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 1
   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 1
            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>=15+(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+15
                  d#=balls(b).x-15+(brick(a).xpos*19)
                  a#=90+(d#/18)*ANGLE_MAX
                  balls(b).dx = cos(a#)
                  balls(b).dy = sin(a#)
                  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"

+ Code Snippet

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#
#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 "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1
load sound "button.wav",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


import_level("level"+str$(level_number))
text_sprite(2001,600,20,"LEVEL: "+str$(level_number))

`timer
starttime=timer()

do
   timer_calculations()
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   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
   fps$=str$(screen fps())
   if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)


   sync
loop

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,15+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
   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

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 1
   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 1
            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>=15+(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+15
                  d#=balls(b).x-15+(brick(a).xpos*19)
                  a#=90+(d#/18)*ANGLE_MAX
                  balls(b).dx = cos(a#)
                  balls(b).dy = sin(a#)
                  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"

http://forum.thegamecreators.com/?m=forum_view&t=73324&b=8
My RPG WIP, check it out

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 2nd Feb 2007 12:36

Link

Here's the refinement for the brick collision - it seems to work right most of the time, but I'm not sure that it's 100% right yet ... it seems to go in anunexpected direction sometimes when it hits more than one brick at a time, or gets them right on the corners. Anyway, it'll probably do for now:

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#
#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 "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1
load sound "button.wav",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

import_level("level"+str$(level_number))
text_sprite(2001,600,20,"LEVEL: "+str$(level_number))

`timer
starttime=timer()

do
   timer_calculations()
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   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
   fps$=str$(screen fps())
   if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)

sync
loop

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,15+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
   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

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 1
   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 1
            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>=15+(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#=16.0/38.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"

+ Code Snippet

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#
#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 "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1
load sound "button.wav",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


import_level("level"+str$(level_number))
text_sprite(2001,600,20,"LEVEL: "+str$(level_number))

`timer
starttime=timer()

do
   timer_calculations()
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   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
   fps$=str$(screen fps())
   if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)


   sync
loop

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,15+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
   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

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 1
   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 1
            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>=15+(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#=16.0/38.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"

Back to top

Profile PM Email Website

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 2nd Feb 2007 13:45

Link

I decided the Editor needed a custom UI, so I whipped this one up...

Attached is the fullscreen panel.

Notes: The 'Load' button beside the 'Edit' for the bricks is to allow the loading of a custom bitmap for a brick. (like the specials I made earlier) It is not intended as a load function for the brick info, just the bitmap. (we could change this to 'Select' and have a set of pre made bricks in a file that we disect when loaded. this would allow for the addition of more bricks later and avoid the need of a special file selector) Let me know if you need a special widgets or doohicky's

Cheers!

Attachments

Login to view attachments

Back to top

Profile PM Email

BatVink

Moderator

22

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 2nd Feb 2007 15:36

Link

Hi guys, my apologies for butting in again mid-challenge. I have a full spec for an education game from a headmaster, ways to make it appealing to different age ranges and probably acceptable outside the UK SATS system.

So if you are happy to make this the next challenge, I'll provide a full requirements spec and my ideas after this current challenge. I'll get stuck in myself on the coding side, and I know this could lead to some nice exposure for everyone.

Back to top

Profile PM Email

Hobgoblin Lord

19

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 2nd Feb 2007 16:54

Link

Dave if you want to toss the special bricks into a combined image, I will get them added in.

Batvink, I am all for it.

http://forum.thegamecreators.com/?m=forum_view&t=73324&b=8
My RPG WIP, check it out

Back to top

Profile PM Email Website

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 2nd Feb 2007 17:06 Edited at: 2nd Feb 2007 17:34

Link

Special bricks? hmmm.. lol I was working on those..

Made them as overlays, I hope this is ok, and also I put them all in one file. the above .png's are in this order.. overlay specials,.. sample of the specials pasted over the game bricks and a set of alternate bricks.

Cheers!

EDIT: Things are coming along nicely, keep up the great work. (I'm having fun, are you?)

Back to top

Profile PM Email

Blobby 101

19

Years of Service

User Offline

Joined: 17th Jun 2006

Location: England, UK

Posted: 2nd Feb 2007 17:42 Edited at: 2nd Feb 2007 17:43

Link

ok i said i would make a couple of tiles but it looks like david has beaten me to it

so i made this concrete tile if we're going to use the idea of briks that are unhittable for a while.

Projects: jungle extreme 10%
mental snowboarding 3%

Attachments

Login to view attachments

Back to top

Profile PM Email Website

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 2nd Feb 2007 19:05

Link

Blobby 101, nice brick. I think we will be making a bitmap with a whole bunch of various brick tiles that the user can add to or edit. So we will add your brick to the bunch, thanks. Feel free to make more, even making different color versions is good too.

Cheers!

Back to top

Profile PM Email

RiiDii

20

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 2nd Feb 2007 19:10

Link

Added in a Ball_Start() function so that the player can start the ball. Also re-starts when the ball goes above the player. Press Space to start. Hey David, can we get a nice "Press Space" graphic?

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#
#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 "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1
load sound "button.wav",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

import_level("level"+str$(level_number))
text_sprite(2001,600,20,"LEVEL: "+str$(level_number))

`timer
starttime=timer()

Start_Ball()

do
   timer_calculations()
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   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 Start_Ball()
   fps$=str$(screen fps())
   if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)

sync
loop

Function Start_Ball()
   Do
      timer_calculations()
      Draw_screen()
      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() Then Exit
      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,15+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
   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

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 1
   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 1
            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>=15+(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#=16.0/38.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"

+ Code Snippet

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#
#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 "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1
load sound "button.wav",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


import_level("level"+str$(level_number))
text_sprite(2001,600,20,"LEVEL: "+str$(level_number))

`timer
starttime=timer()

Start_Ball()

do
   timer_calculations()
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   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 Start_Ball()
   fps$=str$(screen fps())
   if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)


   sync
loop


Function Start_Ball()
   Do
      timer_calculations()
      Draw_screen()
      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() Then Exit
      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,15+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
   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

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 1
   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 1
            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>=15+(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#=16.0/38.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"

Open MMORPG: It's your game!

Back to top

Profile PM Email

Hobgoblin Lord

19

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 2nd Feb 2007 19:47

Link

since the overlays are to the new brick size, I updated the code to the 36x14 bricks. working back in the editor now to get the overlays happening.

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#
#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 "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1
load sound "button.wav",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

import_level("level"+str$(level_number))
text_sprite(2001,600,20,"LEVEL: "+str$(level_number))

`timer
starttime=timer()

Start_Ball()

do
   timer_calculations()
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   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 Start_Ball()
   fps$=str$(screen fps())
   if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)

sync
loop

Function Start_Ball()
   Do
      timer_calculations()
      Draw_screen()
      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() Then Exit
      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
   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(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
      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 1
   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 1
            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<=16+brick(a).xpos*19+38
               if balls(b).y+balls(b).radius>=185+brick(a).ypos*16 and balls(b).y-balls(b).radius<=185+brick(a).ypos*16+16
                  `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"

+ Code Snippet

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#
#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 "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1
load sound "button.wav",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


import_level("level"+str$(level_number))
text_sprite(2001,600,20,"LEVEL: "+str$(level_number))

`timer
starttime=timer()

Start_Ball()

do
   timer_calculations()
   Draw_screen()
   if array count(brick())>=0 then draw_bricks()
   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 Start_Ball()
   fps$=str$(screen fps())
   if framecounter=5 then text_sprite(2000,0,0,"Fps: "+fps$)


   sync
loop


Function Start_Ball()
   Do
      timer_calculations()
      Draw_screen()
      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() Then Exit
      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
   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(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
      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 1
   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 1
            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<=16+brick(a).xpos*19+38
               if balls(b).y+balls(b).radius>=185+brick(a).ypos*16 and balls(b).y-balls(b).radius<=185+brick(a).ypos*16+16
                  `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"

http://forum.thegamecreators.com/?m=forum_view&t=73324&b=8
My RPG WIP, check it out

Back to top

Profile PM Email Website

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 2nd Feb 2007 20:24

Link

Here you go RiiDii..

Cheers!

Back to top

Profile PM Email

RiiDii

20

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 2nd Feb 2007 20:40 Edited at: 2nd Feb 2007 20:48

Link

Added in advancement to the next level. We can make it more exciting, but for now, at least we can advance levels.

If you run out of levels, the game just ends for now. We can add in some nice "You won!" graphics (and maybe some "You have been caught" graphics for "losing").

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#
#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 "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1
load image "press_space.png",99,1
load sound "button.wav",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()

Do
   If import_level("level"+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 Then Start_Ball()
      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 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,15+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,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 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
      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 1
   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 1
            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>=15+(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#=16.0/38.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"

+ Code Snippet

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#
#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 "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1
load image "press_space.png",99,1
load sound "button.wav",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()

Do
   If import_level("level"+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 Then Start_Ball()
      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 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,15+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,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 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
      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 1
   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 1
            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>=15+(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#=16.0/38.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"

Edit: Added in the "Press Space" graphic. Thanks David.

Open MMORPG: It's your game!

Back to top

Profile PM Email

Hobgoblin Lord

19

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 2nd Feb 2007 21:10

Link

Nice Riidii, only thing is you forgot to update your code to the new brick size of 36x14. Editor updates almost done.

http://forum.thegamecreators.com/?m=forum_view&t=73324&b=8
My RPG WIP, check it out

Back to top

Profile PM Email Website

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 3rd Feb 2007 05:41

Link

Quote: "
balls(1).dx = cos(255)
balls(1).dy = sin(255)
"

255? Odd number to use since the range is 360.

Back to top

Profile PM Email Website

RiiDii

20

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 3rd Feb 2007 08:26

Link

Oops. Here it is (I hope).

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#
#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 "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1
load image "press_space.png",99,1
load sound "button.wav",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()

Do
   If import_level("level"+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 Then Start_Ball()
      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 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,15+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(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
      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 1
   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 1
            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>=15+(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#=16.0/38.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"

+ Code Snippet

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#
#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 "break-in_UI-1.png",1,1
load image "breakin-ball2.png",1003,1
load image "BreakIn_Paddle-top.png",1002,1
load image "brick_dlg1.png",100,1
load image "press_space.png",99,1
load sound "button.wav",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()

Do
   If import_level("level"+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 Then Start_Ball()
      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 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,15+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(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
      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 1
   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 1
            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>=15+(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#=16.0/38.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"

Open MMORPG: It's your game!

Back to top

Profile PM Email

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 3rd Feb 2007 12:06 Edited at: 3rd Feb 2007 14:20

Link

Just caught another little code quirk.. Once we changed the brick size to 36x14 we also needed to adjust the grid offset from this..

+ Code Snippet

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

to..

+ Code Snippet

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

changing the 15+brick.. to 16+brick.. centers the bricks in the view.

Cheers!

Back to top

Profile PM Email

Hobgoblin Lord

19

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 3rd Feb 2007 15:12 Edited at: 3rd Feb 2007 15:16

Link

Actually it's to this since we reduced both dimensions, and I did if you look at the code I posted.

+ Code Snippet

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

EDIT This also needs to be changed.

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

+ Code Snippet

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

http://forum.thegamecreators.com/?m=forum_view&t=73324&b=8
My RPG WIP, check it out

Back to top

Profile PM Email Website

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 3rd Feb 2007 16:28 Edited at: 4th Feb 2007 10:39

Link

Thanks Hobgoblin, I missed that piece.

&

Just did these in case anyone wants to take a crack at making this a 2 player game.

Cheers!

Back to top

Profile PM Email

Hobgoblin Lord

19

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 3rd Feb 2007 17:04

Link

wow adding in the cop and all of a sudden we have the village people

Theres an unlockable add in a sailor, construction worker and native

http://forum.thegamecreators.com/?m=forum_view&t=73324&b=8
My RPG WIP, check it out

Back to top

Profile PM Email Website

RiiDii

20

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 3rd Feb 2007 17:21 Edited at: 3rd Feb 2007 17:21

Link

Something along the lines of?...

It's fun to work at the

Open MMORPG: It's your game!

Attachments

Login to view attachments

Back to top

Profile PM Email

Hobgoblin Lord

19

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 3rd Feb 2007 17:49 Edited at: 3rd Feb 2007 17:49

Link

Ouch

http://forum.thegamecreators.com/?m=forum_view&t=73324&b=8
My RPG WIP, check it out

Back to top

Profile PM Email Website

HyperByte

18

Years of Service

User Offline

Joined: 3rd Jan 2007

Location: in a small kola bear costume

Posted: 3rd Feb 2007 17:54

Link

nice work guys when is the next project!

On a scale from one to ten one being very smart and ten being an absolute genius your none of the above

Back to top

Profile PM Email

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 3rd Feb 2007 19:06 Edited at: 4th Feb 2007 10:41

Link

lol, very funny, but there was no thief/prisoner in the village people.

Cheers!

Edit,.. I just had to make an RCMP cop,.. lol

Edit v2.0: FYI I updated the cop paddles in the earlier post (added a hat) Refresh your browser to see the new images.

Back to top

Profile PM Email

Sunflash

19

Years of Service

User Offline

Joined: 28th Jun 2005

Location: Seattle, Wa

Posted: 4th Feb 2007 06:13 Edited at: 4th Feb 2007 06:19

Link

Hey, could someone recompile all the media for us lurkers? I've tried to search everywhere for it all, but it's getting a little confusing

Nice work your all doing, I think I shall help with the next project. By that time I should be cought up with my school again

EDIT: Oh, I see, I was just missing the "Press Space" image and the button.wav file. Lol, now I have to tamper with gettin gth code in order

Mountain Dew, happyness in a bottle.

Back to top

Profile PM Email

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 4th Feb 2007 13:34

Link

Added some new bricks to the 'alternates' bitmap..

Cheers!

Note: To add bricks of your own, just widen (resize canvas) the bitmap by 36 pixels and paste in your new bricks.

Back to top

Profile PM Email

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 4th Feb 2007 16:16

Link

Here is a You Win and You Lose window...

Cheers!

Back to top

Profile PM Email

Hobgoblin Lord

19

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 4th Feb 2007 18:01

Link

Nice screens Dave, although on the you lose one I can picture the outline and evil grin of a really big cellmate

http://forum.thegamecreators.com/?m=forum_view&t=73324&b=8
My RPG WIP, check it out

Back to top

Profile PM Email Website

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 4th Feb 2007 22:35

Link

Yea, draw some "bubba" fellow just vaguely in the background behind the guy. Perhaps holding a bar of soap on a rope.

Back to top

Profile PM Email Website

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 5th Feb 2007 12:49

Link

Ok, I'm having fun,.. By changing 3 files I made a theme/skin for your viewing/playing pleasure.

Note: you need to adjust your code to load these new bitmaps then run. Note2: I included a new 'Level 1' so if you want to keep the old one be sure to rename it before you unzip these files.

Note3: I'll be making a template that anyone can use to turn any 800x600 bitmap into a game UI. I'll post that in a bit.

Cheers!

Attachments

Login to view attachments

Back to top

Profile PM Email

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 5th Feb 2007 13:07 Edited at: 5th Feb 2007 14:10

Link

And here is the template I mentionned. (I needed to 'attach it' because photobucket would have cropped it.

Note the 2 tone teal area is 570x570 and is the 'play area' the top 81 pixel height is where the paddle/player sprite goes.

This type of 'template' could open up the possibility of letting the player load any 800x600 bitmap to become the UI and a separate 570x570 background for the play area.

Comments are always welcome, Cheers!

Edit: Here is a quick sample of what can be done using the attached template.. (note it is a .jpg and scaled down to 640x480) I do not intend to use this in our game, the images are taken from various wallpaper sources on the web.

Cheers! v2.0

Attachments

Login to view attachments

Back to top

Profile PM Email

Hobgoblin Lord

19

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 5th Feb 2007 14:16

Link

I think we would all want to break into that Dave

http://forum.thegamecreators.com/?m=forum_view&t=73324&b=8
My RPG WIP, check it out

Back to top

Profile PM Email Website

BatVink

Moderator

22

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 5th Feb 2007 14:16

Link

This is looking amazing. When I first saw this thread, I thought it would be interesting. But I never expected to see games with such polished graphics, level editors and skinning!!!

Back to top

Profile PM Email

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 5th Feb 2007 16:15

Link

Another sample of using the template to make a skin,..

This one is a simple stamp over a fantasy art image. I then cropped a part of the sky and resized it to make the bottom play area, cropped a space nebula pic I made, found a knight graphic on the net, cropped it to make the paddle.. Such a simple Idea can open a world of possibilities.

Cheers!

Back to top

Profile PM Email

BatVink

Moderator

22

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 5th Feb 2007 17:28

Link

Is the ball and character at the top part of the skin, or just you overlaying it to demonstrate how it might look?

Back to top

Profile PM Email

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 5th Feb 2007 17:51

Link

These are just mockups. The current game uses a single .png background, a paddle sprite and ball sprite. We are trying to make things easy to get more people involved. I'm posting these in hopes it inspires people to join in on this current community project.

Cheers!

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Community Projects

Attachments

Attachments

Attachments

Attachments

Attachments

Attachments

Attachments

Attachments