Pause function

[Tasmania 0]

I am looking to pause a script if ^!+p is pressed... this is the script:

HotKeySet("^!+b", "quit")
HotKeySet("^!+p", "pause")

AutoItSetOption("TrayAutoPause", 0)

Func quit()
 MsgBox(64, "Exit", "The question eliminator has exited.")
 Exit
EndFunc

Func pause()
 $Paused = NOT $Paused
 
    While $Paused
        sleep(100)
        TraySetState(4)
    WEnd
 
    TraySetState(8)
EndFunc

MsgBox(64, "Running", "The question eliminator is running. At any time press CTRL-ALT-SHIFT-B to exit." & @CRLF & "You may also press CTRL-ALT-SHIFT-P to pause/unpause the elimitator.")

While 1 
 If WinExists("Question", "OK") Then
  ControlClick("Question", "OK", 1)
 EndIf

 Sleep(500)
WEnd

This is an almost EXACT copy from the help file, as far as pause is concerned, so I'm confused as to why it's not working. Anyone know?

[Jos 2,274]

I am looking to pause a script if ^!+p is pressed...

Which keys are you pressing ? Ctrl and Alt and Shift and p ?

[Tasmania 0]

Which keys are you pressing ? Ctrl and Alt and Shift and p ?

Yeah

[aslani 2]

It works for me. The icon in the task bar start blinking when paused.

EDIT:

I noticed that it won't unpause, that's because you din't declare $Pause

Add this;

Global $Paused

Edited October 5, 2007 by aslani

[Jos 2,274]

you removed this line from the copied example:

Global $Paused

[Tasmania 0]

Ah ha! Thanks Sorry... I must have overlooked it...