left click is x
right click is y
var x, y, button : int
var buttonnumber, buttonupdown : int
var font1 : int
var check : boolean := false
drawbox (300, 300, 100, 100, black)
drawline (235, 300, 235, 100, black)
drawline (160, 300, 160, 100, black)
drawline (300, 235, 100, 235, black)
drawline (300, 170, 100, 170, black)
font1 := Font.New ("serif:40:bold")
mousewhere (x, y, button)
buttonchoose ("multibutton")
loop
check := false
loop
buttonwait ("down", x, y, buttonnumber, buttonupdown)
if buttonnumber = 1 and buttonupdown = 1 then
drawfilloval (x, y, 20, 20, black)
check := true
end if
exit when check = true
end loop
check := false
loop
buttonwait ("down", x, y, buttonnumber, buttonupdown)
if buttonnumber = 3 and buttonupdown = 1 then
Font.Draw ("X", x, y, font1, red)
check := true
end if
exit when check = true
end loop
end loop |