Pong AI

[Mitthrawnuruodo]

hey! No you wern't clear...but hey! no worries:
Here's my modified entry:
[syntax="qbasic"]
RANDOMIZE TIMER
CLEAR
SCREEN 13
CLS
BX% = 20
BY% = 12
IF INT(RND * (1 - 0 + 1) + 0) THEN x% = -1: ELSE x% = 1
IF INT(RND * (1 - 0 + 1) + 0) THEN y% = -1: ELSE y% = 1
BXV% = INT(RND * (2 - 1 + 1) + 1) * x%
BYV% = INT(RND * (2 - 1 + 1) + 1) * y%
R% = 2
score1% = 0: Score2% = 0
Paddle1X% = 2: Paddle1Y% = 10
Paddle2X% = 38: Paddle2Y% = 10
index% = 0
COLOR 4
PRINT "RULES: GO TO 10 POINTS"
PRINT "IF AI SYSTEM GOES TO A NO-WIN LOOP IT RESETS"
PRINT "PRESS ANY KEY TO CONTINUE"
DO: LOOP WHILE INKEY$ = ""
CLS
DO
IF BXV% < 0 THEN
IF BY% > Paddle1Y% + 2 THEN Paddle1Y% = Paddle1Y% + 2
IF BY% < Paddle1Y% + 2 THEN Paddle1Y% = Paddle1Y% - 2
IF Paddle1Y% + 4 > 23 THEN Paddle1Y% = 23 - 4
IF Paddle1Y% < 1 THEN Paddle1Y% = 1
END IF
IF BXV% > 0 THEN
IF BY% > Paddle2Y% + 2 THEN Paddle2Y% = Paddle2Y% + 2
IF BY% < Paddle2Y% + 2 THEN Paddle2Y% = Paddle2Y% - 2
IF Paddle2Y% + 4 > 23 THEN Paddle2Y% = 23 - 4
IF Paddle2Y% < 1 THEN Paddle2Y% = 1
END IF
BX% = BX% + BXV%
BY% = BY% + BYV%
IF BX% > 40 THEN
CLS
COLOR 4
PRINT "POINTPLAYER 1!"
PRINT "PRESS ANY KEY TO CONTINUE"
DO: LOOP WHILE INKEY$ = ""
CLS
BX% = 20: BY% = 12
score1% = score1% + 1
IF INT(RND * (1 - 0 + 1) + 0) THEN x% = -1: ELSE x% = 1
IF INT(RND * (1 - 0 + 1) + 0) THEN y% = -1: ELSE y% = 1
BXV% = INT(RND * (2 - 1 + 1) + 1) * x%
BYV% = INT(RND * (2 - 1 + 1) + 1) * y%
END IF
IF BX% < 1 THEN
CLS
COLOR 4
PRINT "POINTPLAYER 2!"
PRINT "PRESS ANY KEY TO CONTINUE"
DO: LOOP WHILE INKEY$ = ""
BX% = 20: BY% = 12
CLS
Score2% = Score2% + 1
IF INT(RND * (1 - 0 + 1) + 0) THEN x% = -1: ELSE x% = 1
IF INT(RND * (1 - 0 + 1) + 0) THEN y% = -1: ELSE y% = 1
BXV% = INT(RND * (2 - 1 + 1) + 1) * x%
BYV% = INT(RND * (2 - 1 + 1) + 1) * y%
END IF

IF BY% > 23 THEN BY% = 23: BYV% = BYV% * -1
IF BY% < 1 THEN BY% = 1: BYV% = BYV% * -1
LOCATE Paddle1Y%, Paddle1X%: COLOR 1: PRINT CHR$(219)
LOCATE Paddle1Y% + 1, Paddle1X%: COLOR 1: PRINT CHR$(219)
LOCATE Paddle1Y% + 2, Paddle1X%: COLOR 1: PRINT CHR$(219)
LOCATE Paddle1Y% + 3, Paddle1X%: COLOR 1: PRINT CHR$(219)
LOCATE Paddle1Y% + 4, Paddle1X%: COLOR 1: PRINT CHR$(219)
LOCATE Paddle2Y%, Paddle2X%: COLOR 1: PRINT CHR$(219)
LOCATE Paddle2Y% + 1, Paddle2X%: COLOR 1: PRINT CHR$(219)
LOCATE Paddle2Y% + 2, Paddle2X%: COLOR 1: PRINT CHR$(219)
LOCATE Paddle2Y% + 3, Paddle2X%: COLOR 1: PRINT CHR$(219)
LOCATE Paddle2Y% + 4, Paddle2X%: COLOR 1: PRINT CHR$(219)
LOCATE BY%, BX%: COLOR 4: PRINT CHR$(219)
oBX% = BX%: oBY% = BY%
oPaddle1X% = Paddle1X%: oPaddle1Y% = Paddle1Y%
oPaddle2X% = Paddle2X%: oPaddle2Y% = Paddle2Y%
LOCATE 1, 10: COLOR 4: PRINT score1%
LOCATE 1, 30: COLOR 4: PRINT Score2%
doR% = 0
doY% = 0
x2% = Paddle1X%
y2% = Paddle1Y%
IF x2% = BX% - 1 OR x2% = BX% THEN doY% = 1
IF doY% = 1 THEN
IF y2% = BY% THEN doR% = 1
IF y2% = BY% - 1 THEN doR% = 1
IF y2% = BY% - 2 THEN doR% = 1
IF y2% = BY% - 3 THEN doR% = 1
IF y2% = BY% - 4 THEN doR% = 1
END IF
IF doR% = 1 THEN
BXV% = BXV% * -1
END IF
doR% = 0
doY% = 0
x2% = Paddle2X%
y2% = Paddle2Y%
IF x2% = BX% + 1 OR x2% = BX% THEN doY% = 1
IF doY% = 1 THEN
IF y2% = BY% THEN doR% = 1
IF y2% = BY% - 1 THEN doR% = 1
IF y2% = BY% - 2 THEN doR% = 1
IF y2% = BY% - 3 THEN doR% = 1
IF y2% = BY% - 4 THEN doR% = 1
END IF
IF doR% = 1 THEN
BXV% = BXV% * -1
END IF
WAIT &H3DA, 8
WAIT &H3DA, 8, 8
LOCATE oPaddle1Y%, oPaddle1X%: COLOR 0: PRINT " "
LOCATE oPaddle1Y% + 1, oPaddle1X%: COLOR 0: PRINT " "
LOCATE oPaddle1Y% + 2, oPaddle1X%: COLOR 0: PRINT " "
LOCATE oPaddle1Y% + 3, oPaddle1X%: COLOR 0: PRINT " "
LOCATE oPaddle1Y% + 4, oPaddle1X%: COLOR 0: PRINT " "
LOCATE oPaddle2Y%, oPaddle2X%: COLOR 0: PRINT " "
LOCATE oPaddle2Y% + 1, oPaddle2X%: COLOR 0: PRINT " "
LOCATE oPaddle2Y% + 2, oPaddle2X%: COLOR 0: PRINT " "
LOCATE oPaddle2Y% + 3, oPaddle2X%: COLOR 0: PRINT " "
LOCATE oPaddle2Y% + 4, oPaddle2X%: COLOR 0: PRINT " "
LOCATE oBY%, oBX%: COLOR 0: PRINT CHR$(217)
index% = index% + 1
IF index% >= 1500 THEN
CLS
COLOR 4
PRINT "TIMEOUTRESET"
PRINT "PRESS ANY KEY TO CONTINUE"
DO: LOOP WHILE INKEY$ = ""
CLS
index% = 0
BX% = 20: BY% = 12
IF INT(RND * (1 - 0 + 1) + 0) THEN x% = -1: ELSE x% = 1
IF INT(RND * (1 - 0 + 1) + 0) THEN y% = -1: ELSE y% = 1
BXV% = INT(RND * (3 - 1 + 1) + 1) * x%
BYV% = INT(RND * (3 - 1 + 1) + 1) * y%
END IF
LOOP UNTIL score1% >= 10 OR Score2% >= 10
CLS
COLOR 4
IF score1% > Score2% THEN
PRINT "PLAYER 1 WINS!"
ELSE
IF score1% < Score2% THEN
PRINT "PLAYER 2 WINS!"
ELSE
PRINT "TIE!"
END IF
END IF
END
[/syntax]