% Allows use of Left, Middle, & Right Mouse Buttons
Mouse.ButtonChoose ("multibutton")
var mouseX, mouseY, mouseClick : int
loop
Mouse.Where (mouseX, mouseY, mouseClick)
if mouseClick = 1 then % Left Click
drawfilloval (mouseX, mouseY, 10, 10, 2)
elsif mouseClick = 10 then % Middle Click
drawbox (mouseX - 5, mouseY - 5, mouseX + 5, mouseY + 5, 12)
elsif mouseClick = 100 then % Right Click
drawfillstar (mouseX - 5, mouseY - 5, mouseX + 5, mouseY + 5, 14)
end if
end loop
|