`Long click/short click detection routine ^_^
`(Relatively SHORT piece of code, had to use a {code} to
`keep the indentation)
mouseTime=0
do
`whatever
if mouseclick()=1
inc mouseTime
endif
`if the mouse has stopped being held down, or was never held down
if mouseclick()=0
if mouseTime>400
`LLLLLOOOOOOONNNNNGGGGGGG click
else
if mouseTime>10
`Relatively short click
else
`No click/Fly flew onto the mouse button or something.
endif
endif
`Reset the mouse 'timer', 'cuz mouse button isn't being
`held down
mouseTimer=0
endif
loop
How's my typing? Phone 0800-GO-TO-HELL