Sorry your browser is not supported!

menu_creation:
ink rgb(32,32,32),0
box 1,1,127,31
ink rgb(64,64,64),0
line 0,0,128,0
line 0,0,0,32
line 0,32,128,32
line 128,0,128,32
line 0,0,8,8
line 0,32,8,24
line 120,24,128,32
line 120,8,128,0
line 8,8,120,8
line 8,8,8,24
line 8,24,120,24
line 120,8,120,24
ink rgb(128,128,128),0
center text 64,8,"Play"
get image 1001,0,0,129,34
cls
ink rgb(64,64,64),0
box 1,1,127,31
ink rgb(128,128,128),0
line 0,0,128,0
line 0,0,0,32
line 0,32,128,32
line 128,0,128,32
line 0,0,8,8
line 0,32,8,24
line 120,24,128,32
line 120,8,128,0
line 8,8,120,8
line 8,8,8,24
line 8,24,120,24
line 120,8,120,24
ink rgb(255,255,255),0
center text 64,8,"Play"
get image 1002,0,0,129,34
cls
ink rgb(32,32,32),0
box 1,1,127,31
ink rgb(64,64,64),0
line 0,0,128,0
line 0,0,0,32
line 0,32,128,32
line 128,0,128,32
line 0,0,8,8
line 0,32,8,24
line 120,24,128,32
line 120,8,128,0
line 8,8,120,8
line 8,8,8,24
line 8,24,120,24
line 120,8,120,24
ink rgb(128,128,128),0
center text 64,8,"Exit"
get image 1003,0,0,129,34
cls
ink rgb(64,64,64),0
box 1,1,127,31
ink rgb(128,128,128),0
line 0,0,128,0
line 0,0,0,32
line 0,32,128,32
line 128,0,128,32
line 0,0,8,8
line 0,32,8,24
line 120,24,128,32
line 120,8,128,0
line 8,8,120,8
line 8,8,8,24
line 8,24,120,24
line 120,8,120,24
ink rgb(255,255,255),0
center text 64,8,"Exit"
get image 1004,0,0,129,34
cls
ink rgb(255,255,255),0
circle 5,5,5
get image 1005,0,0,11,11
cls
sprite 1005,0,0,1005
hide sprite 1005
return

main_menu:
size=text size()
set text size 50
mouseclick=0
color=0
repeat
mx=mousex() : my=mousey()
for ran=110 to 530 step 60
   color=rnd(255)
   ink rgb(color,color,color),0
   if ran=110 then center text ran,0,"B"
   if ran=170 then center text ran,0,"R"
   If ran=230 then center text ran,0,"E"
   if ran=290 then center text ran,0,"A"
   if ran=350 then center text ran,0,"K"
   if ran=410 then center text ran,0,"O"
   if ran=470 then center text ran,0,"U"
   if ran=530 then center text ran,0,"T"
next ran
if mouseclick=0
   paste image 1002,320-64,160
   paste image 1004,320-64,320
   if mx=>320-64 and mx<=320+64 and my=>160 and my<=160+32
      if mouseclick()=1 then mouseclick=1
   endif
   if mx=>320-64 and mx<=320+64 and my=>320 and my<=320+32
      if mouseclick()=1 then mouseclick=2
   endif
endif
if mouseclick=1
   if mx=>320-64 and mx<=320+64 and my=>160 and my<=160+32
      paste image 1001,320-64,160
      paste image 1004,320-64,320
      if mouseclick()=0 then play=1
   else
      mouseclick=3
   endif
endif
if mouseclick=2
   if mx=>320-64 and mx<=320+64 and my=>320 and my<=320+32
      paste image 1002,320-64,160
      paste image 1003,320-64,320
      if mouseclick()=0 then end
   else
      mouseclick=3
   endif
endif
if mouseclick=3
   paste image 1002,320-64,160
   paste image 1004,320-64,320
   if mouseclick()=0 then mouseclick=0
endif
paste sprite 1005,mx-5,my-5
sync
cls
until play=1
color=0
play=0
mouseclick=0
set text size size
delete sprite 1005
return

sync on

main_menu:

do

   ink rgb(255,255,255),rgb(255,0,0)

   if button_clicked(320,120,"Play")=1
      buttonclicked=1
      exit
   else
      draw_button(320,120,"Play")
   endif

   if button_clicked(320,240,"Instructions")=1
      buttonclicked=2
      exit
   else
      draw_button(320,240,"Instructions")
   endif

   if button_clicked(320,360,"Exit")=1
      buttonclicked=3
      exit
   else
      draw_button(320,360,"Exit")
   endif

   sync

   cls 0

loop




return








function mouseover(x1,y1,x2,y2)

   mx=mousex() : my=mousey()

   if x1<mx and mx<x2
      if y1<my and my<y2
         exitfunction 1
      endif
   endif

endfunction 0



function draw_button(cx,cy,message$)

   width=text width(message$) : height=text height(message$)

   halfwidth=.5*width : halfheight=.5*height

   if mouseover(cx-halfwidth,cy-halfheight,cx+halfwidth,cy+halfheight )
      set text opaque
   else
      set text transparent
   endif

   text cx-(.5*width),cy-(.5*height),message$

endfunction



function button_clicked(cx,cy,message$)

   width=text width(message$) : height=text height(message$)

   halfwidth=.5*width : halfheight=.5*height

   clicked = mouseover(cx-halfwidth,cy-halfheight,cx+halfwidth,cy+halfheight )  +  mouseclick()

   if clicked=2 then exitfunction 1


endfunction 0

REM CHANGELOG======================
Rem DarkDragon - 7/6/09 - Created Select statement for levels
Rem DarkDragon - 7/6/09 - Created 3 "test" levels
REM CHANGELOG======================


REM NOTES======================
Rem DarkDragon - 7/6/09 - The Variable Currentlevelnumber 
` is used by the select statement found in the load_level 
` subroutine. you'll need it. {^-^} 

REM NOTES======================


sync on
gosub init_stuff
gosub load_media
gosub main_menu
gosub load_level



`--------------------------------------------------
`MAIN LOOP
`--------------------------------------------------

do

gosub check_input

gosub update_stuff

inc ballx,6*(ballmovex-.5)
dec bally,6*(ballmovey-.5)

ballcollision = sprite collision(2,1)+sprite collision(2,3)+sprite collision(2,4)

if ballcollision>0 then gosub check_collision

sync

loop






`-----------------------------------------------
`SUBROUTINES
`-----------------------------------------------


init_stuff:

   rem this array hold data concerning bricks
      rem (x,0) = brick type
      rem (x,1) = x coordinate
      rem (x,2) = y coordinate
      rem (0,0) = number of bricks in level
   dim brickdata(200,2)

   ballx=100 : bally=100
   ballmovex=1 : ballmovey=1

Rem DD - This(of course...) is the current level number (^_^)
Currentlevelnumber = 0

   rem this bmp will be updated with current brick data
   create bitmap 1,640,480



return



load_media:



   cls rgb(255,255,255)

   rem make a sprite image for collision detection
   get image 5,0,0,1,1

   rem border
   ink 0,0
   box 40,40,600,479
   get image 1,0,0,639,479

   rem bricks, for now just 1
   load image "Media/Images/bricks.png",1000
   paste image 1000,0,0
   get image 101,0,144,63,160

   rem paddle
   load image "Media/Images/Paddle.PNG",3

   cls 0

   rem ball
   load image "Media/Images/Ball.png",2

   rem setup collision sprites to be hidden
   for sp=101 to 104
      sprite sp,0,0,5
      hide sprite sp
   next sp




return




main_menu:

   set current bitmap 0

   ink rgb(0,255,255),rgb(255,0,0)

   repeat

      rem Play Button
      Play = DrawButton(320,120,"Play")

      rem Help Button
      Help = DrawButton(220,240,"Help")

      rem Credits Button
      Credits = DrawButton(440,240,"Credits")

      rem Exit
      Exitf = DrawButton(320,360,"Exit")

      Choice=Play + (2*Help) + (4*Credits) + (8*Exitf)

      sync
      cls 0

   until Choice>0

   select Choice

      case 2
         rem Help
         gosub Instructions
      endcase

      case 4
         rem Credits
         gosub Credits
      endcase

      case 8
         rem exit
         end
      endcase

   endselect

return




load_level:

Rem Choose correct Level Data to load...... 
Select Currentlevelnumber

Rem Level data
Case 0
   rem example level
      count=1
      for x=140 to 480 step 66
         for y=160 to 220 step 18

            brickdata(count,0)=1
            brickdata(count,1)=x
            brickdata(count,2)=y
            inc count

         next y
      next x
      brickdata(0,0)=count-1
endcase


Case 1
   rem example level
      count=1
      for x=120 to 500 step 66
         for y=160 to 260 step 18

            brickdata(count,0)=1
            brickdata(count,1)=x
            brickdata(count,2)=y
            inc count

         next y
      next x
      brickdata(0,0)=count-1
endcase


Case 2
   rem example level
      count=1
      for x=100 to 520 step 66
         for y=140 to 280 step 18

            brickdata(count,0)=1
            brickdata(count,1)=x
            brickdata(count,2)=y
            inc count

         next y
      next x
      brickdata(0,0)=count-1
endcase

endselect

return




check_input:

   inc paddlex, 6*(rightkey() - leftkey() )
   if paddlex<80 then paddlex=80
   if paddlex>560 then paddlex=560


return




update_stuff:


   set current bitmap 1
   count=0
   cls

   repeat
      inc count
      if brickdata(count,0)>0
         paste image brickdata(count,0)+100,brickdata(count,1)-32,brickdata(count,2)-8
      endif
   until brickdata(0,0)=count


   get image 4,0,0,639,479

   set current bitmap 0

   sprite 1,0,0,1 : rem broder

   sprite 2,ballx-5,bally-5,2 : rem ball

   sprite 3,paddlex-40,471,3 : rem paddle

   sprite 4,0,0,4 : rem bricks

   rem collision dots around circle
      sprite 101,ballx-6,bally,5
      sprite 102,ballx,bally-6,5
      sprite 103,ballx+6,bally,5
      sprite 104,ballx,bally+6,5




return




check_collision:

   if sprite collision(2,1)

      if sprite collision(101,1)
         rem left collision
         ballmovex=1
      endif
      if sprite collision(102,1)
         rem top collision
         ballmovey=0
      endif
      if sprite collision(103,1)
         rem right collision
         ballmovex=0
      endif
      rem since theres no bottom on the border then
      rem bottom collision is impossible

   else

      if sprite hit(2,3)
         ballmovey=1
      else

         if sprite collision(101,4)
            rem left collision
            ballmovex=1
            hitbrick=get_brick(ballx-7,bally)
         endif
         if sprite collision(102,4)
            rem top collision
            ballmovey=0
            hitbrick=get_brick(ballx,bally-7)
         endif
         if sprite collision(103,4)
            rem right collision
            ballmovex=0
            hitbrick=get_brick(ballx+7,bally)
         endif
         if sprite collision(104,4)
            rem bottom collision
            ballmovey=1
            hitbrick=get_brick(ballx,bally+7)
         endif

         brickdata(hitbrick,0)=brickdata(hitbrick,0)-1

      endif

   endif

   cls

return


Instructions:

return

Credits:

return









`----------------------------------------------------
`FUNCTIONS
`----------------------------------------------------

function get_brick(x,y)

   for b=1 to brickdata(0,0)

      if brickdata(b,1)-32<=x and x<=brickdata(b,1)+32
         if brickdata(b,2)-8<=y and y<=brickdata(b,2)+8
            exitfunction b
         endif
      endif

   next b

endfunction 200



function ButtonMouseOver(x,y,width,height)

   mx=mousex() : my=mousey()

   if x<mx and mx<x+width
      if y<my and my<y+height

         exitfunction 1

      endif
   endif


endfunction 0



function DrawButton(x,y,message$)

   width=text width(message$) : height=text height(message$)

   ink rgb(255,255,255),rgb(255,0,0)

   if ButtonMouseOver(x,y,width,height)=1
      set text opaque
      if mouseclick()=1 then exitfunction 1
   else
      set text transparent
   endif

   text x,y,message$

endfunction 0