End all Funcs

[phuzE koj]

This is a dummy code that I created...Now there are currently several flaws in this which I am aware of. The main goal of this is for onstop() to end all Functions(or just OnAfk()). Of course what I have here kind of does this...however it is extremely inefficient what with the infinite loop and the restarting of the program and all.

Anyways, I'm sure there is a MUCH better way to do this. Could anyone help me out here?

$count = 1
Func OnAfk()
Do
    WinActivate("Untitled - Notepad")
    WinWaitActive("Untitled - Notepad")
    Send("{w Down}")
    Sleep(200)
    Send("{w Up}")
    Send("{F5}")
    Send("{F6}")
    Send("{F7}")
    Sleep(50000)

    $count = $count + 1
Until $count < 0
EndFunc
    
Func onstop()
    Send("#r")
    WinActivate("Run")
    WinWaitActive("Run")
    Send("C:\Documents and Settings\phuze\Desktop\WoWlauncher.au3")
    Send("{ENTER}")
    Exit
EndFunc

[PsaltyDS]

Soooo... what triggers these functions? Declaring a function does not execute it. What triggers OnAfk(), and then what calls onstop()?

[AutoChris]

Do you think you could explain what exactly you are trying to do? Reading your "dummy code" does not tell me anything. First of all, neither of your functions are called, so ending them would be no problem at all since they are never started. OnAfk() never calls onstop() so there is no way onstop() could do anything to affect OnAfk(). And if you want to end a function, a short and sweet "Exit" tends to do the trick quite nicely.

Edit: I was beat to it.

Edited January 24, 2006 by SerialKiller

[phuzE koj]

Well that's not the whole code, just a segment. So I guess what I should have said was that each function belongs to it's own button; ie:onstop() is triggered by a button and OnAFK() is triggered by another. And I want the Stop button to -cut- the actions of the AFK button. About the 'exit' command, I don't want to do that because I only want the function to end - not the program.

[The Kandie Man]

You mean something like this?

$count = 1
Global $cancel
Func OnAfk()
$cancel = "False"
$begin = TimerInit()
Do
    If Timerdiff($begin)/1000 > 50 Then
        WinActivate("Untitled - Notepad")
        WinWaitActive("Untitled - Notepad")
        Send("{w Down}")
        Sleep(200)
        Send("{w Up}")
        Send("{F5}")
        Send("{F6}")
        Send("{F7}")
        $count = $count + 1
        $begin = TimerInit()
    Endif
    If $cancel = "True" Then Return 0
    sleep(50)
Until $count < 0
EndFunc
    
Func onstop()
    Send("#r")
    WinActivate("Run")
    WinWaitActive("Run")
    Send("C:\Documents and Settings\phuze\Desktop\WoWlauncher.au3")
    Send("{ENTER}")
    $cancel = "True"
EndFunc

Edited January 24, 2006 by The Kandie Man

[phuzE koj]

Yes that is what I'm looking for, however for some reason, when I press the Stop Button, the 'do' loop continues to act, and 'w' continues to be pressed.

this is the code im using now.

$count = 1
Global $cancel
Func OnAfk()
$cancel = "False"
Do
    WinActivate("Untitled - Notepad")
    WinWaitActive("Untitled - Notepad")
    Send("{w Down}")
    Sleep(200)
    Send("{w Up}")
    Send("{F5}")
      Send("{F6}")
    Send("{F7}")
    Sleep(50000)
        $count = $count + 1
    Endif
    If $cancel = "True" Then Return 0
    sleep(50)
Until $cancel = "True"
EndFunc
    
Func onstop()
    $cancel = "True"
EndFunc

yes that is what im looking for, however for some reason

[The Kandie Man]

I know what the problem is. First, here is the code you gave. It had an error in it. An Endif without an if statement. Also, i notice you took out the timerinit functions i placed in the code and replaced it back with the sleep function. The sleep function is very primative as far as functions go. The timerinit allows the code to only run at certain delays but allows your script to respond to changes during the delay period. For example, if someone presses cancel the script could be processing the first second of the 50 second delay. It would then not even get the message to cancel for another 49 seconds. Meanwhile the user is frustrated because the script isn't responding.

Func OnAfk()
$cancel = "False"
Do
    WinActivate("Untitled - Notepad")
    WinWaitActive("Untitled - Notepad")
    Send("{w Down}")
    Sleep(200)
    Send("{w Up}")
    Send("{F5}")
      Send("{F6}")
    Send("{F7}")
    Sleep(50000)
        $count = $count + 1
    If $cancel = "True" Then Return 0
    sleep(50)
Until $cancel = "True"
EndFunc
    
Func onstop()
    $cancel = "True"
EndFunc

Now for your problem with the Do until loop. The problem is that you are probably not declaring the global variable at the beginning of the script. To fix this place:

Global $cancel

at the very top of the script so that it is one of the very first things done when the script loads. If you don't do that then the script won't declare $cancel as a global variable and therefore the second function will not change the value of the $cancel variable.

Edited January 25, 2006 by The Kandie Man