Wielokrotne skakanie do funkcji

[Tieru]

Cześć,

Spotykam się z kolejnym problemem, tym razem chcę otrzymać tzw. jump to line, lecz wielokrotnie.

Mam kod który 

 

Funkcja()
Func Funkcja()
kod...
Funkcja2()
Else
Funkcja
EndFunc

Okej, działa w porządku, i tak przez cały program funkcje przechodzą z pierwszych do ostatnich.

Tylko teraz mam problem, bo chciałbym np. zrobić by mój button po wcisnieciu skoczyl na środek programu 

 

Func Atakuj()
 Funkcja()
 Func Funkcja()
 kod...
 Funkcja2()
 Else
 Funkcja
 EndFunc
EndFunc

 

 

 

Case $Button6
Sprawdzaj_stan() ; to działa dobrze, idzie na koniec do danego punktu
 Case $Button2
;zacznij od 1 ataku
 
Case $Button1
#comments-start
PODCZEPIAM POD OKNO GRY
#comments-end
If $Button1 Then
  WinActivate ("Google Chrome")
Else
  MsgBox( 1, "Nie znaleziono", "Nie znalazłem okna!" )
EndIf
;tutaj chce byc jak wcisne $Button2
Local $ilerazy = 0
Do
 
  MouseClick( "PRIMARY", 664, 414 )
  MouseClick( "PRIMARY", 760, 431 )
  MouseClick( "PRIMARY", 787, 538 )
 
While 1
  global $y = 0, $x = 0
  Local $search = _ImageSearch('DOWODCA3.bmp', 1, $x, $y, 0)
  Sleep ( 500 )
If $search = 0 Then
  MouseClick( "PRIMARY", 295, 683 )
  Sleep ( 200 )
Else
  ustaw_wojsko()
  ExitLoop
EndIf
WEnd
 
 
 
Func ustaw_wojsko()
  global $y = 0, $x = 0
  Local $search = _ImageSearch('Ce_czarny.bmp', 1, $x, $y, 0)
  Sleep ( 500 )
If $search = 1 Then
  MouseClick( "PRIMARY", $x, $y )
  MouseClick( "PRIMARY", 1033, 576 ) ;
  Sleep ( 1000 )
  wstaw_narzedzia()
Else
  MsgBox( 1, "BRAK WOJSKA", "!" )
EndIf
EndFunc
 
Until $ilerazy = 1000
EndSwitch

Otrzymałem jeszcze błąd

ImageSearch.au3" (31) : ==> Recursion level has been exceeded - AutoIt will quit to prevent stack overflow

Na forum ktoś napisał

what is this error? and how do i fix it?

That usually means you have a logical loop where a function is calling itself.

 

To jak mam zrobić tak wielką pętlę?

[Ktosiu]

Podziel program na funkcje, każdy segment ujęty w jednej. Łatwiej potem użyć tych samych funkcji w innym miejscu i wrócić do innej funkcji jak i użyć jeden funkcji w innej. 

[Tieru]

Podziel program na funkcje, każdy segment ujęty w jednej. Łatwiej potem użyć tych samych funkcji w innym miejscu i wrócić do innej funkcji jak i użyć jeden funkcji w innej.

Dzięki! Wszystko "pogrupowałem" funkcjami i cały program tak działa.

 

@Edit - a jak zrobić by w całym kodzie po wciśnięciu checkboxa jak i buttona wszystko normalnie funkcjonowało?

Bo gdy zaznacze checkbox to dziala, ale jak chce potem wylaczyc program badz nacisnac button start bot to nie reaguje.

 

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		 Case $Checkbox1
			While 1
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
global $y = 0, $x = 0
Local $search = _ImageSearch('x5.bmp', 1, $x, $y, 0)
   If $search = 1 Then

   MouseClick( "PRIMARY", $x, $y, 1, 0)
EndIf
EndIf
WEnd
	  Case $Button6 ; Sprawdz stan
		 PaliSie()
	  Case $Button2 ; 1 atak
		 wybierz_oboz1()
	  Case $Button3 ; 2 atak
		 wybierz_oboz2()
	  Case $Button4 ; 3 atak
		 wybierz_oboz3()
	  Case $Button5 ; 1 atak
		 wybierz_oboz4()