ok, here it is
var x, y, x2, y2 : int %The x and y cordinants for the bottom left and top right corners of the first/players paddle
x := 1
y := 150
%x2:=10
%y2:=225
var Ballx, Bally : int %The x and y cordinats of the ball
Ballx := 315
Bally := 200
var Changex, Changey : int := 5 %Allows ball to move and is also the speed of the ball, higher the number, the faster the ball and causes the ball to move in a different pattern
var Paddle1 : array char of boolean %The first paddle/players paddle
var AIx, AIy, AIx2, AIy2 : int %The cordinates for the bottom left and the top right corners of the secon [layer's/AI's paddle
AIx := 630
AIy := 150
%AIx2:=639
%AIy2:=225
var RandomSpawn : int %Causes the ball to switch it's pattern when respawning in the centre
proc BallChaser %AI paddle goes after the ball
AIy := Bally - 50
end BallChaser
loop
View.Set ("offscreenonly") %To help get rid of flickering
%1st Player's Paddle
Input.KeyDown (Paddle1) %Allows player 1 to use arrow keys for paddle movement/actions
if Paddle1 (KEY_UP_ARROW) and y < maxy then %If player 1 presses the up arrow key then the paddle will go up
y := y + 5
elsif Paddle1 (KEY_DOWN_ARROW) and y > 0 then %If player 1 presses the down arrow key then the paddle will go down
y := y - 5
end if
if y + 75 >= maxy then %This will prevent the paddle from going past the maximum upper veiw point
y := maxy - 75
%y2:=maxy-75
end if
if y <= 0 then %Will prevent paddle from going past maximum lower veiw point
y := 0
%y2:=0+75
end if
%Player 2's/AI's paddle
BallChaser
if AIy + 75 >= maxy then %This will prevent the AI from leaving the top screen
AIy := maxy - 75
%AIy2:=maxy-75
elsif AIy <= 0 then %This will prevent the AI from leaving the bottom screen
AIy := 0
%AIy2:=0+75
end if
%Ball
Ballx += Changex %Allows ball to move horizontally
Bally += Changey %Allows ball to move vertically
randint (RandomSpawn, 3, 7)
if Ballx > x - 5 and Ballx < x + 10 and Bally > y and Bally < y + 75 then %Allows the ball to bounce off the player 1's paddle
Changex := -Changex
elsif Ballx > AIx - 5 and Ballx < AIx + 10 and Bally > AIy and Bally < AIy + 75 then %Allows ball to bounce off player 2's/AI's paddle
Changex := -Changex
elsif Bally < 0 or Bally > maxy then %Allows ball to bounce off the top and bottom of the screen
Changey := -Changey
elsif Ballx < 0 then
Ballx := 315
Bally := 200
Changey := RandomSpawn
elsif Ballx > maxx then
Ballx := 315
Bally := 200
Changey := RandomSpawn
end if
%Other
Draw.FillOval (Ballx, Bally, 5, 5, black) %Ball
drawfillbox (x, y, x + 9, y + 75, black) %Player 1's paddle
drawfillbox (AIx, AIy, AIx + 9, AIy + 75, black) %Player 2's/AI's paddle
delay (12) %Increasing this number will slow down everything, decreasing this number will speed up everything
View.Update
cls
end loop |
. I was able to fix the paddles, so now the ball will not go through the paddles, though I don't know if I used what you would call height variables. I also am yet to figure out how to delay the AI without the entire game being slowed down. I also found another bug where if the ball hits a certain spot in the paddle, it will make the ball spaz out and either launch it towards the opposite side or launch it towards your own, causing the ball to spawn back in the middle. If you could point me in the right direction towards fixing these problems, I would greatly appreciate it.