pause a loop?

[Vindicator209]

im trying to make a hot key command to pause a loop or the script itself is it possible?

i have a "while" loop running and i have this so far:

HotKeySet("^!p", "pause")
Func pause()
[what goes here?]
EndFunc

[azeazezar]

im trying to make a hot key command to pause a loop or the script itself is it possible?

i have a "while" loop running and i have this so far:

HotKeySet("^!p", "pause")
Func pause()
[what goes here?]
EndFunc

HotKeySet("^!p", "pause")
Func pause()
sleep (time you would like to wait in miliseconds);[what goes here?]
EndFunc

Edited August 12, 2006 by azeazezar

[Vindicator209]

wait what if they wanted it to UN pause? would they have to just wait for it?

[Zib]

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")

;;;; Body of program would go here ;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

[azeazezar]

HotKeySet("^!p", "pause")
Func pause()
msgbox(0,"Title","Text.")
EndFunc

this will pause the script till the user presses ok

[Vivvic]

How about

HotKeySet("^!p", "_Pause")
$Paused = 0

;Code here

Func _Pause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
    WEnd
EndFunc

To be able to toggle pause with the hotkey.

EDIT: Got beat to it >.<

Edited August 12, 2006 by Vivvic

[Golbez]

Dim $sleep = 0
HotKeySet("{DEL}", "_Sleep")
While $sleep = 1
    If $sleep = 0 Then ExitLoop
    Sleep (100)
WEnd
Func _Sleep()
    If $sleep = 0 Then
        $sleep = 1
    Else
        $sleep = 0
    EndIf
EndFunc

idk if what they said works but this will

[Valuater]

straight from help "HotKeySet" AT THE BOTTOM of the page are great examples

; Press Esc to terminate script, [color="#ffffff"]Pause[/color]/Break to "[color="#ffffff"]pause[/color]"

Global $Paused
HotKeySet("{[color="#ffffff"]PAUSE[/color]}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage")   ;Shift-Alt-d

;;;; Body of  program would go here ;;;;
While  1
    Sleep(100)
WEnd
;;;;;;;;

Func  TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is  "Paused"',0,0)
    WEnd
     ToolTip("")
EndFunc

Func  Terminate()
    Exit 0
EndFunc

Func  ShowMessage()
    MsgBox(4096,"","This is a message.")
EndFunc

8)