Sorry your browser is not supported!

sync on
MAKE OBJECT BOX 1, 2, 10, 5
color object 1,rgb(200,20,20)
SET OBJECT COLLISION ON 1
MAKE OBJECT BOX 2,80,40,2
color object 2,rgb(0,100,0)
MAKE OBJECT BOX 3, 2,10, 5
color object 3,rgb(0,0,100)
SET OBJECT COLLISION ON 3
make object box 4,80,5,20
set object collision on 4
make object box 5,80,5,20
set object collision on 5
MAKE OBJECT SPHERE 6, 2
set object collision on 6
position object 2,0,0,100
position object 3,35,0,90
position object 1,-35,0,90
position object 4,0,20,100
position object 5,0,-20,100
position object 6,0,0,90
position camera 0,20,0
paddle2y=0
playery=0
ballx=0
bally=0
updown=0
suspend for key
color backdrop rgb(0,0,0)
do
position object 3,35,paddle2y,90
position object 1,-35,playery,90
position object 6,ballx,bally,95
if upkey()=1 then playery=playery+1
if downkey()=1 then playery=playery-1
if object hit(1,4) then playery=playery-1
if object hit(1,5) then playery=playery+1
if object hit(6,4) then updown=1
if object hit(6,5) then updown=0
if updown=1 then bally=bally-1
if updown=0 then bally=bally+1
paddle2y=bally
Sync
loop

sync on
HIDE MOUSE 
MAKE OBJECT BOX 1, 2, 10, 5
color object 1,rgb(200,20,20)
SET OBJECT COLLISION ON 1
MAKE OBJECT BOX 2,80,40,2
color object 2,rgb(0,100,0)
MAKE OBJECT BOX 3, 2,10, 5
color object 3,rgb(0,0,100)
SET OBJECT COLLISION ON 3
make object box 4,80,5,20
set object collision on 4
make object box 5,80,5,20
set object collision on 5
MAKE OBJECT SPHERE 6, 2
set object collision on 6
position object 2,0,0,100
position object 3,35,0,90
position object 1,-35,0,90
position object 4,0,20,100
position object 5,0,-20,100
position object 6,0,0,90
position camera 0,20,0
paddle2y=0
playery=0
ballx=0
bally=0
updown=0
suspend for key
color backdrop rgb(0,0,0)
do
position object 3,35,paddle2y,95
position object 1,-35,playery,95
position object 6,ballx,bally,95

if upkey()=1 then playery=playery+1
if downkey()=1 then playery=playery-1


col=object hit(6,0)

if object hit(1,4) then playery=playery-1
if object hit(1,5) then playery=playery+1

if col=1 then pos=2

if col=3 then pos=1

text 250,220,"RED : "+str$(RSCORE)+" BLUE : "+str$(BSCORE)

if col=4 then updown=1:pos=rnd(2)
if col=5 then updown=0:pos=rnd(2)

if updown=1 then bally=bally-1
if updown=0 then bally=bally+1

if pos=1 then ballx=ballx-1

if pos=2 then ballx=ballx+1

if pos=0 then ballx=ballx-1

if ballx<-50 
paddle2y=0
playery=0
ballx=0
bally=0
`updown=0
BSCORE=BSCORE+1
endif

if ballx>50 
paddle2y=0
playery=0
ballx=0
bally=0
RSCORE=RSCORE+1
`updown=0
endif


paddle2y=bally
Sync
loop