Script Immediatly Ending

[Simucal]

Originally I had a script like the following and it worked wonderfully:

Opt("PixelCoordMode", 1); did you set coords up with window coords?  If not, you'll need to change the "0" to 1 or 2 (check help under "Opt" to explain)
Opt("MouseCoordMode", 1); same as above
Opt("SendKeyDelay", 1)
DllOpen("unprotect.dll")

HotKeySet("{F1}", "Pangya")
If Not WinActive("<Albatross18>") Then WinActivate("<Albatross18>")
Dim $Reset = 0
While 1
    Sleep(100)
    While $Reset <> 0
    If PixelGetColor(134, 702) == 0x000000 Then; replace 0x000000 with the actual colour using AutoInfo Tool
        Send("{SPACE}")
      ;Sleep(10); if it takes a long time, you might consider a sleep
        $Reset = 0
    EndIf
    WEnd
WEnd

Func Pangya()
    If $Reset = 0 Then
        $Reset = 1
        Return $Reset
    Else
        $Reset = 0
        Return $Reset
    EndIf
EndFunc

I then wanted to add another Hotkey and another function. I changed the script to:

expandcollapse popup

Opt("PixelCoordMode", 1); did you set coords up with window coords?  If not, you'll need to change the "0" to 1 or 2 (check help under "Opt" to explain)
Opt("MouseCoordMode", 1); same as above
Opt("SendKeyDelay", 1)
DllOpen("unprotect.dll")

HotKeySet("{F1}", "Pangya")
HotKeySet("{F2}", "Pangya_Max")

;If Not WinActive("<Albatross18>") Then WinActivate("<Albatross18>")
Dim $Reset = 0

Func Pangya()
$Reset = 1
While 1
    MouseClick("left", 123, 729, 0)
    Sleep(1000)
    While $Reset <> 0
    If PixelGetColor(138, 702) == 0x000000 Then
        MouseClick("left", 123, 729, 0)
      ;MsgBox(4096, "Color Detection", "Black Detected at 138, 702")
        $Reset = 0
    EndIf
    WEnd
WEnd
EndFunc

Func Pangya_Max()
$Reset = 1
While 1
    MouseClick("left", 123, 729, 0)
    Sleep(500)
    While $Reset <> 0
    If PixelGetColor(501, 702) == 0x000000 Then
        MouseClick("left", 123, 729, 0)
        $Reset = 0
    EndIf
    WEnd
WEnd
$Reset = 1
While 1
    MouseClick("left", 123, 729, 0)
    Sleep(500)
    While $Reset <> 0
    If PixelGetColor(138, 702) == 0x000000 Then
        MouseClick("left", 123, 729, 0)
      ;MsgBox(4096, "Color Detection", "Black Detected at 138, 702")
        $Reset = 0
    EndIf
    WEnd
WEnd
EndFunc

Is the reason it is immediately ending because it isnt in Continuous while loop anymore until you hit a Hotkey? Should I put it in a loop to keep it continually running? Any advice, tips, etc are appreciated.

Edited November 20, 2005 by Simucal

[SpookMeister]

Yes, that is the reason. Consider how it works (from the script's point of view)

Here's the hotkeys...

Here are the functions (but I haven't been asked to do anything in them yet)

All Done

I would add a while loop right after the hotkeys and make sure there is a Hotkey/function that terminates the script.

expandcollapse popup

Opt("PixelCoordMode", 1); did you set coords up with window coords?  If not, you'll need to change the "0" to 1 or 2 (check help under "Opt" to explain)
Opt("MouseCoordMode", 1); same as above
Opt("SendKeyDelay", 1)
DllOpen("unprotect.dll")

HotKeySet("{F1}", "Pangya")
HotKeySet("{F2}", "Pangya_Max")
HotKeySet("{ESC}","Terminate")

;If Not WinActive("<Albatross18>") Then WinActivate("<Albatross18>")
Dim $Reset = 0

While 1
     Sleep(100)
Wend

Func Terminate()
     Exit
EndFunc

Func Pangya()
$Reset = 1
While 1
    MouseClick("left", 123, 729, 0)
    Sleep(1000)
    While $Reset <> 0
    If PixelGetColor(138, 702) == 0x000000 Then
        MouseClick("left", 123, 729, 0)
    ;MsgBox(4096, "Color Detection", "Black Detected at 138, 702")
        $Reset = 0
    EndIf
    WEnd
WEnd
EndFunc

Func Pangya_Max()
$Reset = 1
While 1
    MouseClick("left", 123, 729, 0)
    Sleep(500)
    While $Reset <> 0
    If PixelGetColor(501, 702) == 0x000000 Then
        MouseClick("left", 123, 729, 0)
        $Reset = 0
    EndIf
    WEnd
WEnd
$Reset = 1
While 1
    MouseClick("left", 123, 729, 0)
    Sleep(500)
    While $Reset <> 0
    If PixelGetColor(138, 702) == 0x000000 Then
        MouseClick("left", 123, 729, 0)
    ;MsgBox(4096, "Color Detection", "Black Detected at 138, 702")
        $Reset = 0
    EndIf
    WEnd
WEnd
EndFunc

Edited November 20, 2005 by SpookMeister

[Simucal]

Thanks spookmeister, that was exactly what i was looking for!

One more question I have is....

Has anyone ever had the problem of only being able to send one type of input per function in Autoit?

For example:

Func Pangya_Max()
$Reset = 1
Send("{Space}")
While 1
    Sleep(500)
    While $Reset <> 0
    If PixelGetColor(501, 702) == 0x000000 Then
        MouseClick("left")
        $Reset = 0
    EndIf
    WEnd
WEnd
$Reset = 1
While 1
    While $Reset <> 0
    If PixelGetColor(138, 702) == 0x000000 Then
        MouseClick("left")
       ;MsgBox(4096, "Color Detection", "Black Detected at 138, 702")
        $Reset = 0
    EndIf
    WEnd
WEnd
EndFunc

The second mouse click doesnt work. However, if I split this function up into two like so:

Func Pangya_Max()
$Reset = 1
Send("{Space}")
While 1
    Sleep(500)
    While $Reset <> 0
    If PixelGetColor(501, 702) == 0x000000 Then
        MouseClick("left")
        $Reset = 0
        Pangya_Max2()
    EndIf
    WEnd
WEnd
EndFunc

Func Pangya_Max2()
$Reset = 1
While 1
    While $Reset <> 0
    If PixelGetColor(138, 702) == 0x000000 Then
        MouseClick("left")
       ;MsgBox(4096, "Color Detection", "Black Detected at 138, 702")
        $Reset = 0
    EndIf
    WEnd
WEnd
EndFunc

Now, both mouse clicks get processed correctly. Same goes for sending the SPACE key, only the first one gets registered unless I split into 2 functions. I thought it might be the program I am automating doing this.. but why would splitting into 2 functions fix the problem if it was on my end?

[SmOke_N]

Because your not telling it to exit the loop, your saying while 1 which is saying while there is no error., you could nest the other while inside that one.

$Reset == 1
Send("{Space}")
While WinExists("Game Title From AutoInfo")
    Sleep(500)
    While $Reset == 1
    If PixelGetColor(501, 702) == 0x000000 Then
        MouseClick("left")
        $Reset == 2
    EndIf
    WEnd
    While $Reset == 2
    If PixelGetColor(138, 702) == 0x000000 Then
        MouseClick("left")
      ;MsgBox(4096, "Color Detection", "Black Detected at 138, 702")
        $Reset == 0
    EndIf
    WEnd
WEnd