Subroutine / OnEvent problem with auto triggering

[Willmaster]

I lost 3 hours...

I wanna personally RDown to trigger Subroutine with onevent, but when leave Subroutine i wanna have blocked auto triggering this onevent for 8 sec. without blocking other onevent key's. This is not my first attempt, but it only gets worse with time.
I even considered BlockInput> for a while when"OnEvent>KEY_DOWN,VK02,0," trigger... but I'd rather avoid it.

Code: Select all

// random code with some options
....
....
....

// other keys I can use and wanna use when R button is unactive.
OnEvent>...
OnEvent>...

// Is one of the possibilities I tried for active/unactive
let>r=false
label>loop_rdown
OnEvent>KEY_DOWN,VK02,0,rdown
if>r=false,loop_rdown

// No triggering event for Right mouse button with loop enabling use other onevent keys
OnEvent>KEY_DOWN,VK02,0,

// simple repeat instead of a some counter + change r=true  for  false
let>x=0
Repeat>x
let>x=x+1
until>x=8
r=false
goto>loop_rdown

srt>rdown
let>r=true
...
// fast code take 1sec and I wanna do not repeat it less than 
...
end>rdown

// Other OnEvent keys
srt>...
...
end>...

srt>...
...
end>...

[Dorian (MJT support)]

That was a nice morning wake up call for my brain. I wrestled with a few faulty solutions before hitting on the idea of making the OnEvent disable itself in it's own subroutine, having a custom OnEvent which monitors a timer, and if the elapsed seconds are greater than 8 it will re-enable the OnEvent. The other OnEvents will still be active.

Here's a working example. I don't know if it will fit your exact scenario but it will hopefully give you enough to adapt to suit your needs.

The main trigger is simply "H". "H" will be disabled for 8 seconds once pressed. "I" is the second trigger. "I" will still work. Once "H" is enabled after 8 seconds the timer and variables are reset so it will work again.

Code: Select all

Let>elapsed_seconds=0
OnEvent>KEY_DOWN,H,0,hdown
OnEvent>KEY_DOWN,I,0,idown
OnEvent>CUSTOM,MyTriggerSub,DoIT,DoSomething


label>start
wait>0.5
If>H_Activated=1
  Timer>endTime
  Let>elapsed_seconds={(%endTime%-%startTime%)/1000}
Endif
goto>start

SRT>MyTriggerSub
  If>elapsed_seconds>8
    Let>DoIT=TRUE
  Endif
END>MyTriggerSub

SRT>DoSomething
  //Re-enable "H" onevent
  OnEvent>KEY_DOWN,H,0,hdown
  mdl>H was enabled after %elapsed_seconds% seconds
  //Reset the variables
  Let>DoIT=FALSE
  let>H_Activated=0
  Let>elapsed_seconds=0
END>DoSomething

SRT>hdown
  mdl>H was pressed (disabling H for 8 seconds)
  //This disabled THIS OnEvent - keep this at the end of this SRT
  OnEvent>KEY_DOWN,H,0,
  Timer>startTime
  Timer>endTime
  let>H_Activated=1
END>hdown

SRT>idown
  mdl>I
END>idown