Sorry your browser is not supported!

Hide Mouse
Sync On
Sync Rate 60

radius# = 2.3
ballxpos = 320
ballypos = 240
ballyspeed = Rnd(4)
ballxspeed = 8
score = 0
lives = 3

Do

Set Text Size 50
Center Text 320,20, "PONG!"
Set Text Size 10

Line 100,100,540,100
Line 540,100,540,380
Line 540,380,100,380
Line 100,380,100,100

Create bitmap 1,25,25

Line 1,1,1,21

Get Image 1,1,1,2,22

Set Current Bitmap 0

Sprite 1,xpos,ypos,1

ypos = MouseY()
xpos = 110

If ypos  380 then ypos = 380

Create Bitmap 2,25,25

Circle 5,5,radius#

Get Image 2,1,1,10,10
Set Current Bitmap 0

Sprite 2,ballxpos,ballypos,2

ballxpos = ballxpos - ballxspeed
ballypos = ballypos + ballyspeed

If ballxpos > 525 then ballxspeed = ballxspeed * -1
If ballxpos  365 then ballyspeed = ballyspeed * -1

if ballxpos  xpos - 20 and ballypos  ypos - 20
   ballxspeed = ballxspeed * -1
   score = score + 1
Endif

If score = 10
   Center Text 320,30, "You have over"
   Set Cursor 375,85
   Print score
Endif

If score = 20
   Center Text 320,30, "You have over"
   Set Cursor 375,85
   Print score
Endif

If score = 30
   Center Text 320,30, "You have over"
   Set Cursor 375,85
   Print score
Endif

If score = 40
   Center Text 320,30, "You have over"
   Set Cursor 375,85
   Print score
Endif

If score = 50
   Center Text 320,30, "Congratulation's! You win the game with a total of"
   Set Cursor 375,85
   Print score
   Cls
   Center Text 320,240, "Goodbye! Please play again!"
   Wait 2500
   End
Endif



If Spacekey()=1 then End
Center Text 320,450, "Press Space to Exit"

Sync
Loop

center text 320,30,"Score:"+str$(score)

if score>=50 then center text 320,30,"You win with "+str$(score)+" points!"