ERROR: Recursion level has been exceeded -AutoIT will quit to prevent stock over flow. (? )

Ha ezt a hibaüzenetet kapom akkor mit kell csinálnom??

(A program működik, de egy idő után leáll...)

#include <MsgBoxConstants.au3>

Local $a=0

Local $b=0

Local $c=0

Local $d=0

Local $e=9

HotKeySet("{DELETE}", "Terminate")

Func Terminate()

MsgBox($MB_SYSTEMMODAL, "", "Kilépés")

Exit

EndFunc

Func While3()

While 3

$Coord9 = PixelSearch(740, 350, 780, 375, 0xFF9F29)

Local $Coord9

If Not @error Then

Sleep(2000)

MouseClick("left",$aCoord9[0],$aCoord9[1],1,1)

Else

While3()

EndIf

ExitLoop

WEnd

EndFunc

Func Ujradoboz()

While 1

Local $aCoord = PixelSearch(0, 0, 1340, 720, 0x3A4F39)

If Not @error Then

MouseClickDrag("left",683,394,460,394)

Sleep(5000)

Local $aCoord6 = PixelSearch(0, 0, 1340, 720, 0x3A4F39)

MouseClick("left",$aCoord6[0],$aCoord6[1],1,0)

Sleep(100)

MouseClick("left",$aCoord6[0],$aCoord6[1],1,0)

Sleep(12000)

Sleep(3000)

$a=$a+3520

$b=$b+16

$c=$c+6400

$d=$d+8

; Local $aCoord2 = PixelSearch(0, 0, 1340, 720, 0xFBD7D7)

; If Not @error Then

; Sleep(2000)

EndIf

Local $aCoord4 = PixelSearch(0, 0, 1340, 720, 0xFDDF21)

If Not @error Then

MouseClick("left",$aCoord4[0],$aCoord4[1],1,0)

Sleep(2000)

$e=$e+1

If $e>9 Then

MouseClick("left",1234,590,1,5)

While 3

Local $Coord9 = PixelSearch(740, 350, 780, 375, 0xFF9F29)

If Not @error Then

Sleep(2000)

MouseClick("left",$aCoord9[0],$aCoord9[1],1,1)

Else

While3()

EndIf

ExitLoop

WEnd

MouseClick("left",765,380,1,5)

Sleep(2000)

MouseClick("left",450,450,1,5)

Sleep(2000)

MouseClick("left",530,450,1,5)

Sleep(2000)

MouseClick("left",610,450,1,5)

Sleep(2000)

MouseClick("left",690,450,1,5)

Sleep(2000)

MouseClick("left",770,450,1,5)

Sleep(2000)

MouseClick("left",970,280,1,5)

Sleep(1000)

EndIf

EndIf

Local $aCoord7 = PixelSearch(0, 0, 1340, 720, 0x3A4F39)

If $aCoord7 = PixelSearch(0, 0, 1340, 720, 0x3A4F39) Then

Ujradoboz()

EndIf

Local $aCoord5

If $aCoord5 = PixelSearch(0,60,1340,720,0x505CAB) Then

If Not @error Then

Ujradoboz()

Else

MouseClick("left",Random(1146,1335),Random(585,700),1,5)

Sleep(500)

EndIf

EndIf

WEnd

EndFunc

While 1

Local $aCoord = PixelSearch(0, 0, 1340, 720, 0x3A4F39)

If Not @error Then

MouseClickDrag("left",683,394,460,394)

Sleep(5000)

Local $aCoord6 = PixelSearch(0, 0, 1340, 720, 0x3A4F39)

MouseClick("left",$aCoord6[0],$aCoord6[1],1,0)

Sleep(100)

MouseClick("left",$aCoord6[0],$aCoord6[1],1,0)

Sleep(12000)

Sleep(3000)

$a=$a+3520

$b=$b+16

$c=$c+6400

$d=$d+8

; Local $aCoord2 = PixelSearch(0, 0, 1340, 720, 0xFBD7D7)

; If Not @error Then

; Sleep(2000)

EndIf

Local $aCoord4 = PixelSearch(0, 0, 1340, 720, 0xFDDF21)

If Not @error Then

MouseClick("left",$aCoord4[0],$aCoord4[1],1,0)

Sleep(2000)

$e=$e+1

If $e>9 Then

MouseClick("left",1234,590,1,5)

While 3

Local $Coord9 = PixelSearch(740, 350, 780, 375, 0xFF9F29)

If Not @error Then

Sleep(2000)

MouseClick("left",$aCoord9[0],$aCoord9[1],1,1)

Else

While3()

EndIf

ExitLoop

WEnd

MouseClick("left",765,380,1,5)

Sleep(2000)

MouseClick("left",450,450,1,5)

Sleep(2000)

MouseClick("left",530,450,1,5)

Sleep(2000)

MouseClick("left",610,450,1,5)

Sleep(2000)

MouseClick("left",690,450,1,5)

Sleep(2000)

MouseClick("left",770,450,1,5)

Sleep(2000)

MouseClick("left",970,280,1,5)

Sleep(1000)

EndIf

EndIf

Local $aCoord7 = PixelSearch(0, 0, 1340, 720, 0x3A4F39)

If $aCoord7 = PixelSearch(0, 0, 1340, 720, 0x3A4F39) Then

Ujradoboz()

EndIf

Local $aCoord5

If $aCoord5 = PixelSearch(0,60,1340,720,0x505CAB) Then

If Not @error Then

Ujradoboz()

Else

MouseClick("left",Random(1146,1335),Random(585,700),1,5)

Sleep(500)

EndIf

EndIf

WEnd