hey can you aslo do somthing for me i need to remove the second player and have ai insdend can you do that for me il give you the code
rem HIDE THE MOUSE AND LIMIT THE SYNC RATE TO 40
REM Project: pong
REM Created: 11/25/2006 1:04:08 PM
REM
REM ***** Main Source File *****
REM pong bats
rem HIDE THE MOUSE AND LIMIT THE SYNC RATE TO 40
hide mouse:sync rate 40
rem MAKE THE PADDLES, BALL AND FLOOR
make object box 1,1,1,3:color object 1,rgb(255,120,0)
make object box 2,1,1,3:color object 2,rgb(100,255,0)
make object sphere 3,1:color object 3,rgb(100,56,50)
make object box 4,10,0.1,10:position object 4,0,-0.55,0
for blocks=5 to 8
make object box blocks,1,1,2
color object blocks,rgb(100,56,0)
next blocks
position object 5,0,0,-4:position object 6,0,0,-2:position object 7,0,0,2:position object 8,0,0,4
rem SET THE BALL ANGLE TO 90 DEGREES
balla#=90
rem START THE MAIN LOOP
sync on:do
rem SCORING
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#=90
set cursor 300,50:print player2score#
set cursor 320,50:print "-"
set cursor 340,50:print player1score#
REM misalainus stuff
fog on
fog distance 700
fog color rgb(rnd(255),rnd(255),rnd(255))
backdrop on
color backdrop rgb(0,0,0)
randomize timer()
set ambient light 25
color ambient light rgb(rnd(145),rnd(235),rnd(224))
rem BALL MOVEMENT
ballx#=newxvalue(ballx#,balla#,0.3):ballz#=newzvalue(ballz#,balla#,0.3)
rem PLAYER 1 PADDLE MOVEMENT
IF upkey()=1 and player1pos#<3.5 then player1pos#=player1pos#+0.5
IF downkey()=1 and player1pos#>-3.5 then player1pos#=player1pos#-0.5
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
rem PLAYER 2 PADDLE MOVEMENT
IF keystate(17)=1 and player2pos#<3.5 then player2pos#=player2pos#+0.5
IF keystate(31)=1 and player2pos#>-3.5 then player2pos#=player2pos#-0.5
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
rem BOUNCING
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#
for bc=5 to 8
if object exist(bc)
if object collision(3,bc) then delete object bc : balla#=360-balla#
endif
next bc
rem MAKE SURE balla# IS LESS THAN 360 AND MORE THAN 0
balla#=wrapvalue(balla#)
rem POSITION OBJECTS
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,-10:point camera 0,0,0
sync:loop
Your signature was too big