Sorry your browser is not supported!

global _timer

do
Access=doubleP(200,Access,100)
if Access=2 then ink rgb(rnd(255),rnd(255),rnd(255)),0 : print "You just tapped the upkey twice!"
loop

function doubleP(ScanC,Access,WaitVal)
if keystate(ScanC)>0 : activTrigger=1 : endif
if activTrigger=1 : _timer=timer() : endif
if (timer()-_timer)<WaitVal and Access=1 then TimerOffset=1 : _timer=0
if (activTrigger+Access+TimerOffset)=3 : Access=2 : else : Access=activTrigger : endif
endfunction Access

` Tap keys by LBFN
sync on : sync rate 60
global TapKey as integer
global TapKey1 as integer : TapKey1=0 
global TapTime# as float : TapTime#=0.0
global Tap1LetGo as integer : Tap1LetGo=0
global LetGoTime# as float : LetGoTime#=0.0

do
  TapKey=scancode()
  CheckTap()
  if spacekey()=1 then TapKey=0 : TapKey1=0 : LetGoTime#=0.0 : cls
  if returnkey()=1 then exit
  sync
loop
end

function CheckTap()
  if TapKey>0
    if TapKey1=0
      Tapkey1=TapKey
      TapTime#=timer()
    else
      if Tapkey1=TapKey and Tap1LetGo=1
       if (timer()-LetGoTime#)<100
          cls
          text 0,0,"You tapped the button twice!"
        else
          ` took too long
          TapKey=0 : TapKey1=0 : Tap1LetGo=0
        endif
      else
         if TapKey1<>Tapkey then TapKey=0 : TapKey1=0 : LetGoTime#=0.0
      endif
    endif
  else
    if TapKey1>0 and Tap1LetGo=0
      Tap1LetGo=1 : LetGoTime#=timer()
      if (timer()-TapTime#)>100
        ` held on too long
        TapKey=0 : TapKey1=0 : Tap1LetGo=0 : LetGoTime#=0.0
      endif
    endif
  endif
endfunction