elsif bally+50>=maxy then
rise:=-1

%Checks for a collision
if ballx >= x - 80 and ballx <= x + 80 and bally <= y + rad then
%Inverts the y velocity
rise *= 1
end if

if the ball's x coordinate is between the left-most x coord of the paddle and the right-most x coord then
if the ball's y coordinate is also between the lower and upper y coordinates of the paddle then
hey, they just collided!!
Do something about it!
end if
end if

elsif ballx <= x + 80 and ballx <= x - 80 and bally >= 66 and bally >=75 then
        rise *= 1

drawfill (1, 399, 150, 150)
% Ball is slding across title
var font1 : int %defiing font as an integer
font1 := Font.New ("Stencil:30") % defining font size
assert font1 > 0
Font.Draw ("Greg's Ping Pong Game", 160, 325, font1, red) % Main Title
Font.Free (font1)
colorback (6) % the background color
locate (7, 30)
var title1 : int %defines title1 as an integer
title1 := 10

loop %begins title loop
    %Title wiper
    drawfilloval (title1, 335, 20, 20, 12)
    exit when title1 = 600
    delay (50) %delay's playback 50 milliseconds
    drawfilloval (title1, 335, 20, 20, 158) % draws circle and fills it
    title1 := title1 + 10
end loop %ends title loop

cls % clears the screen
colorback (12) % defining background color
put " ---The intructions are ---- " % outputs "Intructions"
put " " % skips a line
put " Move the Paddle with mouse " % outputs actual instructions
put " Each time you keep the ball up in the air you reieve a point" % outputs actual instructions
put " If you miss the ball, you lose " % outputs actual instructions
put " " % skips a line
put " " % skips a line
put " " % skips a line
put " " % skips a line
put " " % skips a line

% press any key to continue
font1 := Font.New ("Stencil:20") %defines font1 as font.new and font size
Font.Draw ("~~Press any Key to Begin~~", 90, 125, font1, red)

Input.Pause % won't continue until user presses a key

colourback (blue) % defining bacground color
cls % Clears the screen
setscreen ("offscreenonly")

var rise, run, rad, u, yy, xx : int %defiing rise,run,rad,yy,xx as integers
var bally, ballx : int := 100 % defining bally,ballx as integers
rad := 10 %defines Radius of ball
rise := 2 % defines where the ball starts
run := 2 % defines where the ball starts

loop %begins main loop


    var x, y, button : int %defines x,y,button as integers
    Mouse.Where (x, y, button) %indicates where the mouse is
    Draw.FillOval (ballx, bally, rad, rad, yellow) % draws pong ball
    ballx := ballx + run
    bally := bally + rise


    if ballx + 50 >= maxx then
        run *= -1
    elsif ballx - 50 <= 0 then
        run *= +1
    elsif bally + 50 >= maxy then
        rise *= -1

    elsif bally - 50 <= 0 then
        exit
   

  elsif bally - 90 <= 0 then
        rise *=- 1
  end if

    View.Update
    delay (10) % delay's playback 10 milliseconds
    cls %Clears the screen
    % Paddle
    Draw.Box (50, 50, maxx - 50, maxy - 50, white) %draws main border
    drawfill (50, 40, white, white) % draws inside-outise white box
    drawfillbox (x + 80, 66, x - 80, 75, brightcyan) % Draws paddle
    % outside rectangle + fill
    drawline (40, 30, 40, 370, black) % draws line
    drawline (40, 30, 600, 30, black) % draws line
    drawline (600, 30, 600, 370, black) % draws line
    drawline (600, 370, 40, 370, black) % draws line
    drawfill (0, 10, brightred, black) %fills outside border brightred
end loop % ends the main loop

if bally >= 70 and bally <= 90 and ballx >= x - 30 and ballx <= x + 30 then % checks for ball collison on paddle
        rise *= -1 % reverses velocity