sleep until

[vickerps]

Hi

Is there a way to pause a script for say 60 seconds but if the user presses a key (for example 'Esc') within the 60 seconds the script would abort the pause and continue with what ever left to do in the script.

[layer]

Try this:

HotKeySet("e", "_MyCode")
Sleep(60000)
Func _MyCode()
;Whatever code you want here..
    MsgBox(0, "whatever", "whatever"); don't need the msgbox, just for debugging purposes
    Exit
EndFunc

[jefhal]

From the FM:

Function Reference

MsgBox

--------------------------------------------------------------------------------

Displays a simple message box with optional timeout.

MsgBox ( flag, "title", "text" [, timeout])

msgbox(4096,"Choose","Click when ready",60)

[Christopher Blue]

Try this, it goes in 1-second increments but it is trivial to change that:

HotKeySet("^c", "ContinueFunc")

...

$keepgoing = 0
$timer = 0
Do
   Sleep(1000)
   $timer = $timer + 1
Until($keepgoing Or ($timer = 60))

...

Func ContinueFunc()
   $keepgoing = 1
EndFunc

Edited October 12, 2005 by Christopher Blue

[MSLx Fanboy]

From the FM:

msgbox(4096,"Choose","Click when ready",60)

That's the method I would use, however, a little expansion

$i_Return = MsgBox(4096, "Choose", "Click when ready", 60)
 If $i_Return = -1 Then Exit

If MsgBox times out, returns -1, that's where the if-statement comes in, else it will continue the script