Sorry your browser is not supported!

hide mouse : backdrop on

p1=200
p2=200
sw=320
sh=240

_pause:
do
if scancode()>0 then go=1
ink rgb(0,200,0),rgb(0,200,0)
box 2,p1,7,p1+40
box 632,p2,637,p2+40
circle sw,sh,4
ink rgb(0,0,200),rgb(0,0,200)
line screen width()/2,0,screen width()/2,700
box 0,25,700,35
box 0,screen height()-10,700,screen height()
set cursor 0,0 : print "player 1 score=";s1
set cursor screen width()/2+5,0 : print "player 2 score=";s2
ink rgb(200,0,0),rgb(200,0,0) : set cursor 50,50 : print "PRESS ANY KEY TO CONTINUE"
if go=1
   go=0 : goto _begin
endif
loop

_begin:
do
cls rgb(0,0,0)
gosub _main
gosub _pongs
gosub _ball
gosub _stats
loop

_main:

ink rgb(0,200,0),rgb(0,200,0)
box 2,p1,7,p1+40
box 632,p2,637,p2+40
circle sw,sh,4
ink rgb(0,0,200),rgb(0,0,200)
line screen width()/2,0,screen width()/2,700
box 0,25,700,35
box 0,screen height()-10,700,screen height()
return

_pongs:
if upkey()=1 then dec p1
if downkey()=1 then inc p1
if escapekey()=1 then end
if p2+20>sh then dec p2
if p2+20<sh then inc p2
return

_ball:

if ball=0
rem   sh=sh+2
   sw=sw+2
   if sw=632 and p2<sh and (p2+40>sh) then ball=1
endif

if ball=1
rem   sh=sh+2
   sw=sw-2
   if sw=8 and p1<sh and (p1+40>sh) then ball=0
endif

if sw>640
   inc s2 : sw=screen width()/2 : sh=screen height()/2 : goto _pause
endif

if sw<-6
   inc s1 : sw=screen width()/2 : sh=screen height()/2 : goto _pause
endif
return

_stats:
set cursor 0,0 : print "player 1 score=";s1
set cursor screen width()/2+5,0 : print "player 2 score=";s2
return

hide mouse : print "if the speed is not an even # the game will not work." : input "enter a speed for the ball  ";sp : cls : input "do you want to 1. play the comp or 2. multiplayer? ";g : backdrop on

p1=200
p2=200
sw=320
sh=240

_pause:
angl=rnd(2)
p1=200
p2=200
do
if scancode()>0 then go=1
ink rgb(0,200,0),rgb(0,200,0)
box 2,p1,7,p1+40
box 632,p2,637,p2+40
circle sw,sh,4
ink rgb(0,0,200),rgb(0,0,200)
line screen width()/2,0,screen width()/2,700
box 0,25,700,35
box 0,screen height()-10,700,screen height()
set cursor 0,0 : print "player 1 score=";s2
set cursor screen width()/2+5,0 : print "player 2 score=";s1
ink rgb(200,0,0),rgb(200,0,0) : set cursor 50,50 : print "PRESS ANY KEY TO CONTINUE"
if go=1
   go=0 : goto _begin
endif
loop

_begin:
do
cls rgb(0,0,0)
gosub _main
gosub _pongs
gosub _ball
gosub _stats
gosub _bound
loop

_main:

ink rgb(0,200,0),rgb(0,200,0)
box 2,p1,7,p1+40
box 632,p2,637,p2+40
circle sw,sh,4
ink rgb(0,0,200),rgb(0,0,200)
line screen width()/2,0,screen width()/2,700
box 0,25,700,35
box 0,screen height()-10,700,screen height()
return

_pongs:
if g=1
if upkey()=1 then p1=p1-2
if downkey()=1 then p1=p1+2
if escapekey()=1 then end
if sh>p2+20 then p2=p2+2
if sh<p2+20 then p2=p2-2
endif

if g=2
h=scancode()
if upkey()=1 then dec p2
if downkey()=1 then inc p2
if escapekey()=1 then end
if h=16 then dec p1
if h=30 then inc p1
endif
return

_ball:

if ball=0
   sw=sw+sp
   if sw=632 and p2<sh and (p2+40>sh)
      ball=1
      angl=rnd(2)
   endif
endif

if ball=1
   sw=sw-sp
   if sw=8 and p1<sh and (p1+40>sh)
      ball=0
      angl=rnd(2)
   endif
endif

if sw>640
   inc s2 : sw=screen width()/2 : sh=screen height()/2 : goto _pause
endif

if sw<-6
   inc s1 : sw=screen width()/2 : sh=screen height()/2 : goto _pause
endif

if angl=0 then sh=sh-sp
if angl=1 then sh=sh+sp
if angl=2 then sh=sh
if sh>screen height()-16
   sh=screen height()-16
   angl=rnd(2)
endif

if sh<40
   sh=40
   angl=rnd(2)
endif
return

_stats:
set cursor 0,0 : print "player 1 score=";s2
set cursor screen width()/2+5,0 : print "player 2 score=";s1
return

_bound:

if p2>(screen height()-50) then p2=(screen height()-50)
if p2<35 then p2=35

if p1>(screen height()-50) then p1=(screen height()-50)
if p1<35 then p1=35
return