/*   Author:Ryan McDermaid
 Version: 1
 Date: April 6th 09
 Description:Puts a different shape on screen dependent upon choice*/

%Shows The Mouse On Screen
mouseshow

%Declares Font Variable To Make Arial Font
var font := Font.New ("arial:18")

%Draws A Fillbox
drawfillbox (20, 140, 200, 240, black)

%Puts Word In Arial Font In Specific Spot On Screen
Font.Draw ("Maple Leaf", 45, 188, font, white)

%Draws A Fillbox
drawfillbox (210, 200, 390, 300, magenta)

%Puts Word In Arial Font In Specific Spot On Screen
Font.Draw ("Box", 275, 245, font, black)

%Draws A Fillbox
drawfillbox (400, 145, 580, 245, red)

%Puts Word In Arial Font In Specific Spot On Screen
Font.Draw ("Oval", 459, 188, font, black)

%Draws A Fillbox
drawfillbox (210, 90, 390, 190, green)

%Puts Word In Arial Font In Specific Spot On Screen
Font.Draw ("Arc", 275, 140, font, black)

%Declares Varaibles
var x, y, btn : int

%Starts Loop
loop
   
    %Finds Mouse On Screen
    mousewhere (x, y, btn)

    %Starts Conditional Statement to on what to do dependent upon the mouses location
    if x >= 100 and x <= 200 and y >= 100 and y <= 200 and btn = 1 then
   
        %Clears Screen
        cls
       
        %Draws A Maple Leaf
        drawfillmapleleaf (210, 100, 410, 290, red)
       
        %Puts What Ever Is In Quotes On Screen
        put "Here Is The Maple Leaf"
       
        %Exits loop
        exit
       
    %Starts Conditional Statement to on what to do dependent upon the mouses location
    elsif x >= 210 and x <= 390 and y >= 200 and y <= 300 and btn = 1 then
   
        %Clears Screen
        cls
       
        %Draws A Fill Box
        drawfillbox (210, 200, 310, 300, red)
       
        %Puts What Ever Is In Quotes On Screen
        put "Here Is The Box"
       
        %Exits loop
        exit
       
    %Starts Conditional Statement to on what to do dependent upon the mouses location
    elsif x >= 400 and x <= 580 and y >= 145 and y <= 245 and btn = 1 then
   
        %Clears Screen
        cls
       
        %Draws A Filled Oval
        drawfilloval (210, 200, 100, 100, red)
       
        %Puts What Ever Is In Quotes On Screen
        put "Here Is The Oval"
       
        %Exits loop
        exit
    elsif x >= 210 and x <= 390 and y >= 90 and y <= 190 and btn = 1 then
   
        %Clears Screen
        cls
       
        %Draws An Arc
        drawarc (300, 100, 250, 250, 0, 180, red)
       
        %Puts What Ever Is In Quotes On Screen
        put "Here Is The Arc"
       
        %Exits loop
        exit
       
    %Ends If Statement
    end if
%Ends Loop
end loop