Sorry your browser is not supported!

`Mouse doubleclick function
`by Robert Bigger     9/3/06

`Delay is time between clicks,measured in thousanths of a second.
global Delay   as integer = 230
global Button  as integer
global Click   as integer
global Clicked as integer
global Time    as dword

randomize timer()
backdrop on

do
`check for left double click
DoubleClick(1)
if Clicked = 1 then color backdrop rgb(0,0,rnd(100)+55)

`check for right double click
Doubleclick(2)
if Clicked = 2 then color backdrop rgb(rnd(100)+55,0,0)
loop

function DoubleClick(Button)
Clicked = 0
if mouseclick() = Button and Click = 2 and timer() - Time < Delay then Clicked = Button
if mouseclick() = Button and Click = 0 then Click = 1: Time = timer()
if mouseclick() = 0 and Click = 1 then Click = 2
if Click > 0 and timer() - Time > Delay then Click = 0
endfunction Clicked