I made this based on the tutorial in the sticky at the top of this board. I just fiddled around, changed the camera angle, made the scor font different.
REM ////////////////////////////////////
REM // //
REM // PONG //
REM // //
REM ////////////////////////////////////
hide mouse
make object box 1,1,1,3:color object 1,rgb(255,0,0)
make object box 2,1,1,3:color object 2,rgb(0,255,0)
make object sphere 3,1:color object 3,rgb(0,0,50)
make object box 4,30,0.1,30:position object 4,0,-0.55,0:color object 4,rgb(255,255,255)
balla#=90
do
ballx#=newxvalue(ballx#,balla#,0.055):ballz#=newzvalue(ballz#,balla#,0.055)
IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.055
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.055
if upkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#+8
if downkey()=1 and ballx#>4 and ballx#<4.5 then balla#=balla#-8
IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.055
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.055
if keystate(17)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#+8
if keystate(31)=1 and ballx#<-4 and ballx#>-4.5 then balla#=balla#-8
if ballx#>4 and ballx#<4.5 and ABS(player1pos#-ballz#)<1.5 then balla#=360-balla#
if ballx#<-4 and ballx#>-4.5 and ABS(player2pos#-ballz#)<1.5 then balla#=360-balla#
if ballz#>4 or ballz#<-4 then balla#=180-balla#
balla#=wrapvalue(balla#)
position object 1,5,0,player1pos#:position object 2,-5,0,player2pos#
position object 3,ballx#,0,ballz#:yrotate object 3,balla#
position camera 0,10,0:point camera 0,-90,0
if ballx#>6 then player2score#=player2score#+1:ballx#=0:ballz#=0:balla#=270
if ballx#<-6 then player1score#=player1score#+1:ballx#=0:ballz#=0:balla#=270
SET TEXT FONT "arial"
Set Text Size 25
ink rgb(0,0,0),rgb(0,0,0)
set cursor 300,50:print player1score#
set cursor 320,50:print "-"
set cursor 340,50:print player2score#
loop
The exe is here:
http://www.shedgames.co.uk/pong.exe
