CLS
HIDE MOUSE
SYNC ON
SYNC RATE 60
RANDOMIZE TIMER()

LOAD BITMAP "FireBallsBlack.bmp",1
fireball=2
FOR i=0 to 3
	GET IMAGE fireball,i*10,0,(i+1)*10,10
   SPRITE fireball,0,0,fireball
	CLS
	INC fireball
NEXT i

LOAD BITMAP "MarioHoldingPong.bmp",2
mario=6
FOR i=0 to 1
	GET IMAGE mario,i*15,21,(i+1)*15,48
   SPRITE mario,0,0,mario
	CLS
	INC mario
NEXT i

LOAD BITMAP "platform.bmp",3
	block=1
	GET IMAGE block,0,0,65,10
   SPRITE block,0,0,block
	CLS


REM Gets image of block.
 LOAD BITMAP "blocks.bmp",4
 	GET IMAGE 33,0,0,16,16
 CLS
 block=33

REM blocks across top
 	FOR x = 0 to 39
 		SPRITE block,x*16,0,33
 		INC block
 	NEXT x

REM blocks down left side
 	FOR y = 1 to 27
 		SPRITE block,0,y*16,33
 		INC block
 	NEXT y

REM next blocks down right side. the 15 should be 27, but trial version
rem has reached its limits of objects.
 	FOR y = 1 to 15
 		SPRITE block,640-16,y*16,33
 		INC block
 	NEXT y

rem LOAD BITMAP "linkwall.bmp"
rem set current bitmap 0

DO
LOAD BITMAP "linkwall.bmp"
rem   cls RGB(0,0,0)
	playerx = 300 : playery = 447
	ballx# = 300.0 : bally# = 397.0
	ballyspeed# = 2.0
	ballxspeed# = 2.0
	speedinc# = 0.2
	playerspeed = 0
	playermove = 2
	player = 1 : ball = 2
	score = 0

	REPEAT
		IF RIGHTKEY()
			playerspeed = playermove
		ELSE
			IF LEFTKEY()
				playerspeed = 0 - playermove
			ELSE
				playerspeed = 0
			ENDIF
		ENDIF

		IF SPRITE COLLISION(player,ball)
			ballyspeed# = 0 - (ABS(ballyspeed#) + speedinc#)
			random# = (RND(10)-5)/10.0 
			ballxspeed# = ballxspeed# + (playerspeed/2) + random#
			score = score + 1
		ENDIF

		IF ballx# > 614.0 OR ballx# < 16.0 THEN ballxspeed# = 0.0 - ballxspeed#
		IF bally# < 16.0 THEN ballyspeed# = 0.0 - ballyspeed#


		playerx = playerx + playerspeed
		ballx# = ballx# + ballxspeed#
		bally# = bally# + ballyspeed#

		SPRITE player,playerx,playery,player
	   SPRITE 6,playerx+24,playery+8,6
		SPRITE ball,ballx#,bally#,ball
		SYNC
	UNTIL bally# > 480

	CLS
	TEXT 100,50,"Score: "+STR$(score)
	TEXT 100,100,"Press ENTER to play again, or SPACE to end"
	REPEAT
		SYNC
	UNTIL RETURNKEY() OR SPACEKEY()
	IF SPACEKEY() THEN EXIT
LOOP

END