randomize 10
set display mode 800,600,32
sync on:sync rate 60

hide mouse

DIM BrickLeft(100)
DIM BrickTop(100)
DIM BrickRight(100)
DIM BrickBottom(100)
DIM BrickColor(100)

Bricktop = 150
Brickleft = 450
paddlex = 100
paddley = 275


load sound "musik.wav",1
load sound "godluckwarrior.wav",2
load image "brick.bmp",3
load image "paddle.bmp",4




REM Splash screen 1:
start$ = "Press S to start the game"
pong$ = "Breakout!"
creator$ = "Developed by Aaron Donaghey for CREAM course."
fade = 0
   Play sound 1
repeat
   set text size 80
   set text to bold
   ink rgb(255,255,255),0
   center text 400,200,pong$
   set text size 15
   set text size 15
   set text to normal
   if fade = 0 then fadedir = 1
   if fade = 255 then fadedir = 0
   if fadedir = 1 then fade = fade + 5
   if fadedir = 0 then fade = fade - 5
   ink rgb(fade,fade,fade),0
   center text 400,350,start$
   center text 400,500,creator$
   sync
   cls
until scancode() = 31

play sound 2
fade = 255
repeat
   ink rgb(fade,fade,fade),0
   set text size 80
   set text to bold
   center text 400,200,pong$
   set text size 15
   set text to normal
   center text 400,350,start$
   center text 400,500,creator$
   fade = fade - 5
   sync
   cls
until fade = 0

CLS
LOAD BITMAP "space.bmp", 5
Set current bitmap 0


   CLS
         SPAWNBRICKS()
         Sprite 101,100,275,4

   Sync

   DO

         `paddlex = paddlex - mousemovex()
         `paddley = paddley - mousemovey()

         Copy bitmap 5, 0
         INK RGB(0,0,0),0
         BOX 0,0,800,100
         BOX 0,500,800,600
         INK RGB(255,255,255),0
         LINE 0,100,800,100
         LINE 0,500,800,500
         LINE 799,100,799,500
         `Boundarycheckpaddle()
         `Offset Sprite 101, (paddlex - mousemovex()), (paddley - mousemovey())
paddlex = paddlex - mousemovex()
paddley = paddley - mousemovey()

Boundarycheckpaddle()
Offset Sprite 101,paddlex, paddley

         SYNC
   LOOP


FUNCTION spawnbricks()
Bricktop = 150
Brickleft = 450
 For x = 1 to 100
   Sprite (x),Brickleft,bricktop,3
   Bricktop = bricktop + 30
   If bricktop > 449
    bricktop = 150
    brickleft = brickleft + 30
   Endif
   SYNC
 Next X
ENDFUNCTION

Function Boundarycheckpaddle()
`if paddlex=<0 then paddlex=0
`if paddlex=>200 then paddlex=200
`if paddley=<100 then paddley=100
`if paddley=>500 then paddley=500
If paddley <= 100
paddley = 100
endif

endfunction