help avoid recursion

~~piku~~ · 12/12/2013, 11:32

i have a script that works very nicely but recursion ocures very often because of the internal loop
can anyone rewrite this code so recursion wont apear and basicly will do the same thing??

Code:

HotKeySet("{F10}", "first")

While 1
	Sleep(100)
WEnd

	
Func first()
	Send("{SPACE}")

	While 1

		$pix = PixelSearch(429, 552, 431, 554, 0x548E04, 10)

		If Not @error Then
			Send("{SPACE DOWN}")
			Call("second")
		EndIf

	WEnd

EndFunc   ;==>first

Func second()

	While 1

		$pix2 = PixelSearch(506, 552, 508, 554, 0x709F05, 10)

		If Not @error Then
			Send("{SPACE UP}")
			Call("third")
		EndIf
	WEnd

EndFunc   ;==>second


Func third()

	While 1

		$pix3 = PixelSearch(424, 552, 426, 554, 0x5B4321, 10)

		If Not @error Then
			Send("{SPACE DOWN}")
			Call("second")
		EndIf
	WEnd

EndFunc   ;==>third

Requi · 12/12/2013, 11:36

Why don't you write all in one function?

~~piku~~ · 12/12/2013, 11:39

because i dont know amost anithing about autoit,a guy made me this script what works like a charm,only overbuffers the dataflow because of the internal loop after 30 minutes ore so of using it

alpines · 12/12/2013, 12:55

The recursion level is quiet low so I would write this script without recursion, you can try this:

Spoiler

I didn't test it because I can't recreate the environment you have so you have to test it and maybe make some adjustments.

~~piku~~ · 12/12/2013, 14:37

it works,i will come with feedback in 2 3 days

KDeluxe · 12/12/2013, 18:23

Spoiler

BladeTiger12 · 12/12/2013, 18:48

KDeluxe dein Script würde nicht funktioniert.
Da du $arr als 2 Dimensionale Array deklariert hast.
Aber sie als 1 Dimensionale nutzt.

alpines · 12/12/2013, 19:07

Quote:

Originally Posted by BladeTiger12

KDeluxe dein Script würde nicht funktioniert.
Da du $arr als 2 Dimensionale Array deklariert hast.
Aber sie als 1 Dimensionale nutzt.

1. das, 2. selbst wenn es gehen sollte, spricht er das 4. Element eines 2D-Arrays an was nicht existiert.
Außerdem heißt es doch nicht "dein Script würde nicht funktioniert."
Was war denn da los?

lolkop · 12/12/2013, 21:48

er benutzt sehr wohl ein 2d array <.<

das einzige was er vergessen hat, ist den index mit zu nutzen...

korrekt würde es so aussehen:

Code:

Dim $arr[3][6] = [  [429, 552, 431, 554, 0x548E04, "{SPACE DOWN}"], _
                    [506, 552, 508, 554, 0x709F05, "{SPACE UP}"], _
                    [424, 552, 426, 554, 0x5B4321, "{SPACE DOWN}"]]
Dim $i = 0, $run = False

HotKeySet("{F10}", "_TogglePause")

Func _TogglePause()
    $run = Not $run
    If $run Then
        $i = 0
        Send("{SPACE}")
    EndIf
EndFunc

While Sleep(100)
    While $run
        If $i > 2 Then $i = 1
        PixelSearch($arr[$i][0], $arr[$i][1], $arr[$i][2], $arr[$i][3], $arr[$i][4], 10)
        If Not @error Then
            Send($arr[$i][5])
            $i += 1
        EndIf
    WEnd
WEnd

der größte nachteil an diesem script ist allerdings die verschachtelung der while schleifen. ab der inneren schleife gibt es hier keine cpu entlastung mehr. eine einfache abfrage der $run variable in der hauptschleife wäre hier sinnvoller.

Edit:
fraglich ist auch, ob es hier tatsächlich sinn macht ein array zu nutzen. eventuell sollte man lieber auf eine einfache funktion zur abarbeitung umsteigen...

etwa so:

Code:

HotKeySet("{F10}", "Pause")
Global $globalState=0, $globalRun=False

While Sleep(1)
	Action(0, 429, 552, 431, 554, 0x548E04, "{SPACE DOWN}")
	Action(1, 506, 552, 508, 554, 0x709F05, "{SPACE UP}")
	Action(2, 424, 552, 426, 554, 0x5B4321, "{SPACE DOWN}")
	If $globalState >= 2 Then $globalState = 1
WEnd

Func Pause()
	$globalRun = Not $globalRun
EndFunc

Func Action($state, $left, $top, $right, $bottom, $color, $send)
	If $state=$globalState and $globalRun Then
		PixelSearch($left, $top, $right, $bottom, $color, 10)
		If not @error Then
			Send($send)
			$globalState+=1
		EndIf
	EndIf
EndFunc

so wäre es unter anderem möglich in jedem zustand beliebig viele aktionen durchzuführen.

alpines · 12/12/2013, 21:54

Das wurde doch schon erwähnt das die Indexe fehlen.

KDeluxe · 12/12/2013, 23:50

Mein einziger Fehler besteht allerdings nur darin, dass ich vergessen habe, die 1. Dimension anzugeben. Das kann schon mal passieren, zumal ich die Scripte selbst nicht teste. Als sinnvoll habe ich meine Lösung nie betrachtet, es war spontan das erste was mir eingefallen ist um nur "eine" Anweisung zu verwenden. Rückblickend verstehe ich aber selbst nicht, weshalb ich eine zweite While-Schleife verwendet habe, eigentlich sollte das eine einfache If-Abfrage sein.
Möchte man alles aus dem Script von piku verwenden sollte die Pause() Funktion allerdings so aussehen:

Code:

Func Pause()
	$globalRun = Not $globalRun
	If $globalRun Then Send("{SPACE}")
EndFunc

Aktuell wird das initiale Send() der first() Funktion nicht beachtet. Bei mir habe ich den Index/Status zusätzlich noch zurückgesetzt. Inwiefern das bei einer "Pause" Funktion tatsächlich sinnvoll ist lässt sich genau sagen.

lolkop · 12/13/2013, 00:52

Quote:

Originally Posted by KDeluxe

Bei mir habe ich den Index/Status zusätzlich noch zurückgesetzt. Inwiefern das bei einer "Pause" Funktion tatsächlich sinnvoll ist lässt sich genau sagen.

richtig, das wäre dann wohl eher ein reset, als eine pause :P

wie dem auch sei, ohne eine genaue projektbeschreibung kann hier ohnehin nur gemutmaßt werden, was der TE tatsächlich will.