import GUI

procedure TheGame
    setscreen ("graphics:700;700")
    %---------------------------
    %Player Co-ords            %
    var x1, y1, x2, y2 : int   %
    x1 := 250                  %
    y1 := 25                   %
    x2 := 350                  %
    y2 := 50                   %
    %---------------------------

    %---------------------------
    %Ball Co-ords              %
    var ballx, bally : int     %
    ballx := 512               %
    bally := 200               %
    %---------------------------

    %----------------------------------------
    %Game Basics                            %
    var lives : int := 3                    %
    var score : int := 0                    %
    var timeElapsed : int := Time.Elapsed   %
    %----------------------------------------

    %----------------------------------------------------
    %Boundaries (paddle + ball)                         %
    var boundary_x1 : int := ((maxx div maxx) - 1) + 20 %
    var boundary_x2 : int := maxx - 20                  %
    var boundary_y1 : int := maxy - 20                  %
    var boundary_y2 : int := ((maxy div maxy) - 1) + 20 %
    %----------------------------------------------------

    var arrowKeys : array char of boolean
    loop
    drawfillbox (0, maxy - 25, maxx, maxy,48)
    locate (1,10)
        put "Lives ", lives
        locate (1, 30)
        put "Score: ", score
        locate (1, 50)
        put "Game Time : ", Time.Elapsed / 1000
        Input.KeyDown (arrowKeys)

        if arrowKeys (KEY_RIGHT_ARROW) then
            x1 += 5
            x2 += 5
        end if
        if arrowKeys (KEY_LEFT_ARROW) then
            x2 -= 5
            x1 -= 5
        end if

        drawfillbox (x1, y1, x2, y2, red)
        delay (15)
        cls
        drawbox (20, 20, maxx - 20, maxy - 20, 51)
        drawbox (5, 5, maxx - 5, maxy - 5, 51)
        drawfillbox (250, 900, 350, 925, 101)
        drawfillbox (20, 355, maxx - 20, 360, 51)
        drawfilloval (ballx, bally, 15, 15, 48)
        drawfill (maxx - 15, maxy - 15, 71, 51)
        if arrowKeys (KEY_ESC) then
            cls
            exit
        end if
    end loop
    View.UpdateArea (0, 0, maxx, maxy)
end TheGame

procedure Instructions
    colorback (16)
    color (48)
    cls
    locate (4, 1)
    put "The objective of the game is..."
    locate (7, 1)
    color (58)
    put "to destroy all of the blocks on your side of the screen (bottom)"
    locate (10, 1)
    color (73)
    put "Before the computer destroys all of his blocks on his side of the screen (top)"
    locate (13, 1)
    color (81)
    put "You will use the 'Left' and 'Right' Arrow keys to move left and right"
    locate (16, 1)
    color (96)
    put "Good Luck and go smash some blocks. HINT : You only have 3 Lives!"
end Instructions

procedure TheTitleScreen
    var game_Button : int := GUI.CreateButton (300, 275, 0, "Click To Play!", TheGame)
    var instruction : string
    locate (18, 10)
    put "Please hold 'Click to Play' while you type your answer below!"
    locate (20, 10)
    put "You will be redirected to the instructions so keep holding your mouse."
    locate (22, 10)
    put "Or drag away from 'Click to Play' then read and Click it afterwards."
    locate (24, 10)
    put "Do you want to see the game Instructions? " ..
    get instruction
    if instruction = "yes" then
        Instructions
    else
        Instructions
    end if
end TheTitleScreen

procedure returnBack
    var go_back : char := "n"
    loop
        get go_back
        if go_back = "y" then
            TheTitleScreen
        end if
    end loop
end returnBack

TheTitleScreen

loop
    exit when GUI.ProcessEvent
end loop