setscreen ("graphics:vga")

% VARIABLE TABLE
% x - int - the x coordinate that the user clicked on
% y - int - the y coordinate that the user clicked on
% bnum - int - the button that you select on the mouse
% bud - int - whether the button is pressed (1) or released (0)

var x, y, bnum, bud : int

% draw three boxes
drawfillbox (100, 200, 200, 220, 1)
drawfillbox (100, 240, 200, 260, 2)
drawfillbox (100, 280, 200, 300, 14)

% prompt the user to click on a box
put "Please click the mouse inside a box"

% waits for the user to use the mouse and obtains the x,y location where the
% mouse is clicked down
buttonwait ("down", x, y, bnum, bud)

% checks to see which box the user selected and performs the specific request
if x >= 100 and x <= 200 and y >= 200 and y <= 220 then % box 1 selected
    colour (1)
    put "Thank you for clicking inside the blue box"
elsif x >= 100 and x <= 200 and y >= 240 and y <= 260 then      % box 2 selected
    colour (2)
    put "Thank you for clicking inside the green box"
elsif x >= 100 and x <= 200 and y >= 280 and y <= 300 then      % box 3 selected
    colour (14)
    put "Thank you for clicking inside the yellow box"
else                                        % no box selected
    colour (4) 
    put "YOU DID NOT CLICK INSIDE A BOX"
end if

import GUI % imports the Graphics User Interface

/* The procedures that are run when the buttons are pressed */
proc blueButtonCommand
    put "You pushed the blue button"
    delay (500)
    cls
    GUI.Refresh
end blueButtonCommand

proc greenButtonCommand
    put "You pushed the green button"
    delay (500)
    cls
    GUI.Refresh
end greenButtonCommand


/* Creates the Buttons and Sets the colors for the buttons */

var blueButton : int := GUI.CreateButtonFull (maxx div 2 - 50, maxy div 2, 0, "Button",
    blueButtonCommand, blue, '^B', true)

GUI.SetColor (blueButton, brightblue)

var greenButton : int := GUI.CreateButtonFull (maxx div 2 + 50, maxy div 2, 0, "Button",
    greenButtonCommand, green, '^G', true)

GUI.SetColor (greenButton, brightgreen)

var quitButton : int := GUI.CreateButton (maxx div 2, maxy div 2 - 50, 0, "Quit", GUI.Quit)

GUI.SetColor (quitButton, brightred)

/* The loop that processes the pressing of the buttons. It exits when the "Quit" button is pressed */
loop
    exit when GUI.ProcessEvent
end loop

View.Set("graphics, offscreenonly")
var x, y, b : int %vars for the mouse where code
var buttonfnt : int
buttonfnt := Font.New ("Arial:18:underline")

loop
    drawfillbox (220, 240, 420, 340, 40)
    Font.Draw ("Maple leaf", 264, 282, buttonfnt, 255)
View.Update
    Mouse.Where (x, y, b)

    if b = 1 then %mouse click
        if x > 220 and x < 420 and y > 240 and y < 340 then         % click inside rectangle
            exit
        end if
    end if
end loop

cls
drawfillmapleleaf(100,100,500,400,40)