I'm trying to make a pong game and i'm having some trouble with the AI.
My AI code is
rem HIDE THE MOUSE AND set sync to as fast as the computer allows
hide mouse:sync rate 0
level#=1
player2movespeed#=.5
`um, randomize... the timer....
randomize 5
rem MAKE THE PADDLES, BALL AND FLOOR
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,10,0.1,10:position object 4,0,-0.55,0
rem SET THE BALL ANGLE TO 90 DEGREES
balla#=rnd(358)+1
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 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 ai to find ball
if playerpos2#>bally#
playerpos2#=playerpos2#-player2movespeed#
endif
if playerpos2#<bally#
player2pos#=player2pos#+player2movespeed#
endif
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#
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#,bally#,ballz#:yrotate object 3,balla#
position camera 0,10,-10:point camera 0,0,0
sync
loop
the ai code is
if playerpos2#>bally#
playerpos2#=playerpos2#-player2movespeed#
endif
if playerpos2#<bally#
player2pos#=player2pos#+player2movespeed#
endif
"I will work harder... if you ask me enough times."
