drawfilloval (260, 140, 40,20,113)

var x, y, button : int
%%X is the x co-ordinate of the mouse, y being the y co-ordinate, and button is a variable telling you if the button is clicked or not
drawfilloval (260, 140, 40, 20, 113)
%%draw the circle...blah blah
loop
    Mouse.Where (x, y, button)
    %%calls the mouse where which finds out WHERE THE MOUSE IS.....(its done in a loop because the mouse is constantly moving
    if whatdotcolor (x, y) = 114 and button = 1 then
        %%if the color under the pointer is equal to that of the circle and the button is clicked then
        cls %%clear the screen
        exit%%exit the loop
    end if%%end the if statement
end loop%%end the loop
%%sorry for the over comenting....

function rectanglemouseover (x1, y1, x2, y2 : int) : boolean
    var mousex, mousey, mouseb : int
    mousewhere (mousex, mousey, mouseb)
    if mousex >= x1 and mousex <= x2 then
        if mousey >= y1 and mousey <= y2 then
            result true
        end if
    end if
    result false
end rectanglemouseover

function circlemouseover (x1, y1, radius : int) : boolean
    var x2, y2, mouseb : int
    mousewhere (x2, y2, mouseb)
    if round (((x1 - x2) ** 2 + (y1 - y2) ** 2) ** .5) < radius then
        result true
    end if
    result false
end circlemouseover


loop
    if circlemouseover (400, 100, 100) then
        drawfilloval (400, 100, 100, 100, 12)
    else
        drawfilloval (400, 100, 100, 100, 9)
    end if

    if rectanglemouseover (50, 50, 200, 200) then
        drawfillbox (0, 0, 200, 200, 12)
    else
        drawfillbox (0, 0, 200, 200, 9)

    end if
    delay (10)
end loop