Sorry your browser is not supported!

begin:
cls
sync on : hide mouse
sync rate 30
load bitmap "pongbar.bmp",1
get image 1,1,1,10,75
get image 2,1,1,10,10
delete bitmap 1
x#=10
y#=100
 ballspeedx=20
 ballspeedy=5
 do
   rem ****DRAW BALL AND PADDLE****
  sprite 2,ballx#,bally#,2
  sprite 1,x#,y#-35,1
 oldx=ballx#
  oldy=bally#

	rem ****BALL POSITION****
  ballx#=ballx#+Ballspeedx
  bally#=bally#+ballspeedy
    
 
    rem ****WALL AND PADDLE COLLISION CHECK****
    if sprite hit(1,2)  
     ballx#=oldx
     bally#=oldy
     ballspeedx=ballspeedx * -1
    endif
   if ballx#>=640 then ballspeedx=ballspeedx * -1
   if ballx#<=1 then gosub looser
   if bally#>=480 then ballspeedy=ballspeedy * -1
   if bally#<=1 then ballspeedy=ballspeedy * -1 
    
	 
  
  y#=mousey()
  sync

 loop

looser:
print "YOU LOOSE!"
print "Press y to play again"
input a$
if a$="y" then goto begin

hide mouse
set window on

ink rgb(200,200,200),0
circle 4,4,4
circle 4,4,3
circle 4,4,2
circle 4,4,1
dot 4,4
get image 1,0,0,9,9
cls

box 0,0,70,2
get image 2,0,0,71,3
cls

start:
px=321:p2x=319
bx#=320:by=240
dy=0:dx#=0
sprite 3,p2x,p2y,2
sprite 2,px,py,2
sprite 1,bx#,by,1
frst=rnd(1)
if frst=1 then dy=-4 else dy=4
offset sprite 3,35,0
offset sprite 2,35,0
offset sprite 1,4,4
cls
print "Score P1: ";sc1;"  P2: ";sc2
print "Rounds:";(sc1+sc2)/2

sync on
do
if keystate(30)=1 then px=px-10
if keystate(32)=1 then px=px+10

sprite 2,px,440,2

if keystate(75)=1 then p2x=p2x-10
if keystate(77)=1 then p2x=p2x+10

sprite 3,p2x,40,2

if bx#<0.0 or bx#>640.0 then dx#=dx#*-1.0

if by<0 or by>480

center text 320,240,"Player-"+str$(win)+" is the Winner!!"
if win=1 then sc1=sc1+1
if win=2 then sc2=sc2+1
wait 2000
goto start
endif

bx#=bx#+dx#:by=by+dy
sprite 1,bx#,by,1

if sprite collision(1,2)
dy=(dy*-1)
win=1
if bx#>px then dx#=(abs(bx#-px)*0.3)*1
if bx#<px then dx#=(abs(bx#-px)*0.3)*-1
endif

if sprite collision(1,3)
dy=(dy*-1)
win=2
if bx#>p2x then dx#=(abs(bx#-p2x)*0.3)*1
if bx#<p2x then dx#=(abs(bx#-p2x)*0.3)*-1
endif


sync
loop