heres a pic and the code can some one help me so i can remove player vs player and make it player vs computer i cant figureout how to remove the player on player thing i just keep messing up i dont even know what to do to even make a working line of comand all this x and y and if end and gosub stuff is messing my god damn mind up bottom line I SUCK AT PROGRAMING caps off heres 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 Draw sci-fi line things!!!
ink rgb(200,0,0),0
line 0,object screen y(1),640,object screen y(1)
line object screen x(1),0,object screen x(1),480
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
