Sorry your browser is not supported!

Hide Mouse
Sync On
Sync Rate 60

radius = 3
ballxpos = 320
ballypos = 240
ballyspeed = 2
ballxspeed = 8
oldballxpos = ballxpos
oldballypos = ballypos

Do
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  360 then ypos = 360

Create Bitmap 2,25,25

Circle 5,5,3

Get Image 2,1,1,10,10

Set Current Bitmap 0

Sprite 2,ballxpos,ballypos,2

ballxpos = ballxpos + ballxspeed
ballypos = ballypos + ballyspeed

If ballxpos > 534 then ballxspeed = ballxspeed * -1
If ballxpos  374 then ballyspeed = ballyspeed * -1

If Spacekey()=1 then End
Sync
Loop

hide mouse
b=0
sync on
repeat
   cls
   set text size 65
   set text font "Comic Sans Ms"
   center text 320,b,"Pong"
   set text size 15
   center text 320,b+66,"By Tim Goodrich"
   b=b+1
   sync
until b=180
center text 320,b+82,"Press any key when ready"
suspend for key
load sound "BOUNCE.WAV",1
load sound "bleep.wav",2
ink rgb(255,255,255),rgb(0,0,0)
box 0,0,5,40
get image 1,0,0,5,40
cls
circle 4,4,3
circle 4,4,2
circle 4,4,1
dot 4,4
get image 2,0,0,12,12
cls
x=20
y=20
circlex=320
circlexspeed=5
circley=240
circleyspeed=5
top=0
bottom=425
score=0
updown=1
speedincrease=50
speed=3
ai=2
load image "background.bmp",9
sync on
do
   paste image 9,0,0
   text 0,0,"Score:"+STR$(score)
   sprite 2,circlex,circley,2
   sprite 1,x,y,1
   offset sprite 1,0,0
   sprite 3,620,circley+20,1
   ai=rnd(6)
   offset sprite 3,0,40
   if upkey()=1 then y=y-5
   if downkey()=1 then y=y+5
   if y<bottom then y=y+5
   if y>top then y=y-5
   rem vertical speed & direction
   if circley>460
   play sound 2
   updown=1
   circleyspeed=5
   endif
   if circley<0
   play sound 2
   updown=0
   circleyspeed=5
   endif
   if updown=1
   circley=circley-circleyspeed
   else
   circley=circley+circleyspeed
   endif


   rem horizontal speed& direction
   if sprite collision(1,2)>0
   play sound 1
   leftright=1
   circlexspeed=rnd(3)+speed
   score=score+5
   endif
   if sprite collision(2,3)>0
   play sound 1
   leftright=0
   circlexspeed=rnd(3)+speed
   endif
   if leftright=1 then circlex=circlex+circlexspeed
   if leftright=0 then circlex=circlex-circlexspeed
   if score=speedincrease
   speed=speed+2
   speedincrease=speedincrease+50
   endif
   if circlex<0 or circlex>625
   gosub death
   endif
   sync
loop
death:
a=0
sync off
repeat
   set text size a
   ink rgb(a,0,0),1
   text rnd(680)-40, rnd(520)-40, "DEATH"
   a=a+1
until a=150
delete sprite 1
delete sprite 2
delete sprite 3
delete sound 1
delete sound 2