Pausing Current action

[dorkbrains]

im going to show the script that i have written but it will probably not make much sense as it is too hard to explain exactly what is happening and im sure no one would be familiar with the situation but the problem is....

expandcollapse popup

HotKeySet("{HOME}","startwatch")
HotKeySet("{END}","stop")

MsgBox(0,"Instructions","Commands" & @CRLF & "Home Key = Start Script" & @CRLF & "End Key = Stop Script")

While 1
    Sleep(100)
WEnd

Func startwatch()
    
    $bloop = 1
    While $bloop = 1
        $sleep = InputBox("Refresh Rate","In seconds, about how fast does your computer update the galaxy view screen. (Estimate and round UP!!)")
            If @error = 1 Then
                Exit 0
            ElseIf $sleep = 0 Then
                    MsgBox(0,"Invalid","Please enter an number above 0")
            Else
                If $sleep > 3 Then
                    MsgBox(0,"WOW!","Your internet/computer fucking sucks. I do not think that debris watching is made out for you. Dumbass.")
                Else
                    $bloop = 0
                EndIf
            EndIf
    WEnd
            
    $setup = MsgBox(0,"Setup","Complete the following checklist in order to start watching the debris." & @CRLF & "1. Make sure you are using firefox." & @CRLF & "2. Enable the Highlight Big Debris function in foxgame, set the color to #FF0000 and the minimal debris size to 0." & @CRLF & "3. Make sure you are in the desired debris fields' system." & @CRLF & "4. Make sure that the find text when typing feature in firefox options is ENABLED.")
        If $setup = 2 Then
            Exit 0
        EndIf
    
    $dontfup = MsgBox(0,"DONT FUCK UP","After hitting ok, place the point of the mouse in the RED section of the debris field, you will have 10 seconds to do so. For more caution, click the spot that you want to be watched.")
        If $dontfup = 2 Then
            Exit 0
        EndIf
        
    Sleep(10000)
    
    $pos = MouseGetPos()
    
    $starting = MsgBox(0,"Starting","Debris Field Watch has started, Good Luck.")
        If $starting = 2 Then
            Exit 0
        EndIf
        
    $point = PixelGetColor($pos[0],$pos[1])
    
    MouseClick("left",$pos[0],$pos[1])
    
        $aloop = 1
            While $aloop = 1
                If $point = 16711680 Then
                    Send("System")
                    Send("{TAB DOWN}")
                    Send("{TAB UP}")
                    Sleep(100)
                    Send("{TAB DOWN}")
                    Send("{TAB UP}")
                    Sleep(100)
                    Send("{TAB DOWN}")
                    Send("{TAB UP}")
                    Sleep(100)
                    Send("{ENTER DOWN}")
                    Send("{ENTER UP}")
                    Sleep($sleep * 1000)
                    $point = PixelGetColor($pos[0],$pos[1])
                Else
                    $aloop = 0
                    Send("{PRINTSCREEN DOWN}")
                    Send("{PRINTSCREEN UP}")
                    MsgBox(0,"Done!","Screenshot taken! Open paint and paste into a new document to see the screenshot and then ... go own some bitches!!!")
                EndIf
EndFunc

Func stop()
    Exit 0
EndFunc

what i want is when the "startwatch" function has been started and it has reached the $aloop that i can pause the function at any given time. and then when i want it to start again...i want it to stop at the same time.

so for instance, im in the middle of a 4 second sleep and i want to pause the script. i hit a button, the script pauses. i then hit that same button (preferably) and then i either start again at that moment when i paused or just back up at the top of the #aloop

simply, i want to avoid going back to the questions and information gathering

does anyone know how this can be done?!?!

thanks

[Melba23]

dorkbrains, (not a flattering nick, I must say! ;-))

First, welcome to the AutoIt forums.

A good start - some code to work on and a clear question. I wish some other newcomers would do the same. Using the Search facility is a good tip as there is a pretty good chance your question, or something like it, has been asked before. Look for the "Search" button to the right in the title bar. I found this pretty quickly:

Global $Paused = False
HotKeySet("{pause}", "TogglePause") 
HotKeySet("{ESC}", "Terminate") 

While 1 
    For $x = 1 to 999
        Sleep(1)
        ToolTip($x & " - Running",200,200)
    Next
WEnd 

Func TogglePause() 
    $Paused = NOT $Paused 
    While $Paused
        ToolTip($x & " - Paused",200,200)
    Wend
EndFunc 

Func Terminate() 
Exit 0 
EndFunc

From the Help file: "A hotkey-press *typically* interrupts the active AutoIt function/statement and runs its user function until it completes or is interrupted". So this code can interrupt almost anything (see the Help page for HotKeySet for full details). You should be able to adjust it to your script without too many problems - but if you do run into trouble, you know where we are. :-)

M23

[dorkbrains]

dorkbrains, (not a flattering nick, I must say! ;-))

First, welcome to the AutoIt forums.

A good start - some code to work on and a clear question. I wish some other newcomers would do the same. Using the Search facility is a good tip as there is a pretty good chance your question, or something like it, has been asked before. Look for the "Search" button to the right in the title bar. I found this pretty quickly:

Global $Paused = False
HotKeySet("{pause}", "TogglePause") 
HotKeySet("{ESC}", "Terminate") 

While 1 
    For $x = 1 to 999
        Sleep(1)
        ToolTip($x & " - Running",200,200)
    Next
WEnd 

Func TogglePause() 
    $Paused = NOT $Paused 
    While $Paused
        ToolTip($x & " - Paused",200,200)
    Wend
EndFunc 

Func Terminate() 
Exit 0 
EndFunc

From the Help file: "A hotkey-press *typically* interrupts the active AutoIt function/statement and runs its user function until it completes or is interrupted". So this code can interrupt almost anything (see the Help page for HotKeySet for full details). You should be able to adjust it to your script without too many problems - but if you do run into trouble, you know where we are. :-)

M23

awesome man!! this worked perfectly. thanks a bunch.

and ill be sure to search next time

thanks again!!