Funkcje - recursion - gdzie mam błąd?

Tieru · 23 Stycznia 2016

Witam,

Z góry piszę, że za udaną pomoc stawiam 100 lub więcej plusików, które będę dawał codziennie.

Mam source, który pisałem bardzo długo, odnosiłem się do Was w kilku poprzednich tematach, staraliście mi się pomóc, lecz nie było tego efektów.

Co do działania mojego kodu...

Uruchamiam bota, działa do samego końca, na końcu ma skok do funkcji początkowej, świetnie wraca i robi wszystko od nowa...

Tutaj jest przekroczenie wskaźnika rekurencji, przy dowódcy drugim, więc program wywala w konsoli error 1 "Recursion level has been exceeded - AutoIt will quit to prevent stack overflow.".

Hans Kloss napisał

Autoit z tego co wiem nie oferuje optymalizacji ogonowej dla rekurencji, więc musisz wszystkie funkcje przerobić tak aby wykorzystywały zwykłe pętle
Func someFunction()
    While 1 ; lub daj tu jakiś warunek
        ;jakiś kod
    Wend
EndFunc

Wolen za to napisał podobnie

Możesz w else spróbować dodać return, pewny nie jestem, a nie mam jak teraz tego sprawdzić. Z przykładu "dobrej" rekurencji wynika, że taki zabieg powinien pomóc.
 
@
Kwestią jest czy imagesearch nie trawi tylko złej rekurencji czy całkowicie jej nie akceptuje. Wtedy spróbuj wrzucić pętle w funkcji.
Czemu zamiast rekurencji nie użyjesz pętli while w środku funkcji? Nie będziesz musiał zmieniać w parunastu miejscach niczego.

Ktosiu

Z tego co widzę błędu nie powoduje sama funkcja tylko program który ją wywołuje, tworzy i nazywa ciągle jedną i tą samą funkcję. 
Jak użyje pętli w środku funkcji zwłaszcza z jedynką to może wywalić mu czasami albo praktycznie cały czas stack overflow. Nie wyjdzie z funkcji do czasu aż ją zakończy czy przełączy inna funkcja. 
 
Zamiast while można użyć until do zrobienia  pętli .
 
Tak przy okazji , bez sensowne jest ciągłe ładowanie i sprawdzanie obrazka skoro przypisujesz mu już zmienną, wywal to $search na sam początek skryptu. Wystarczy jak raz użyje skoro się nie zmienia. 
 
Nie przypisuj tej samej zmiennej dla rożnych obrazków zwłaszcza że używasz LOCAL ! Ponumeruj sobie dla różnych plików $search1 dla t, $search2 dla d... itd   , to samo zrób ze zmiennymi jaki zwraca program , inne dla pierwszego wyniku , inne dla drugiego np x,y ( pierwszy ) a,b (drugi) itd 
 
Co do tego RETURN to zwróci tylko wynik działania funkcji czyli kod błędu albo np koordynaty, tutaj return nie służy do cofania tylko zwracania wartości/wyniku w momencie użycia.

SRC

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>
#Region ### START Koda GUI section ### Form=d:\program files (x86)\autoit3\forms\form1.kxf
$Form1 = GUICreate("BOT", 373, 133, 192, 124)
$Button1 = GUICtrlCreateButton("START BOT", 80, 72, 75, 25)
$Button2 = GUICtrlCreateButton("Zacznij od 1 ataku", 264, 8, 99, 25)
$Button3 = GUICtrlCreateButton("Zacznij od 2 ataku", 264, 32, 99, 25)
$Button4 = GUICtrlCreateButton("Zacznij od 3 ataku", 264, 56, 99, 25)
$Button5 = GUICtrlCreateButton("Zacznij od 4 ataku", 264, 80, 99, 25)
$Button6 = GUICtrlCreateButton("Sprawdzaj stan", 264, 104, 99, 25)
$Label1 = GUICtrlCreateLabel("Przycisk q wyłącza program.", 48, 104, 149, 17)
Opt("MouseClickDelay", 0) ;10 milliseconds
Opt("MouseClickDownDelay", 0) ;10 milliseconds
Opt("MouseMoveDelay", 0)
HotKeySet("q","nothing")
GUISetState(@SW_SHOW)
TrayTip("BOT:", "Uruchomiłeś program!", 5)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	  Case $GUI_EVENT_CLOSE
		 Exit
	  Case $Button6 ; Sprawdz stan
		 PaliSie4()
	  Case $Button2 ; 1 atak
		 wybierz_oboz1()
	  Case $Button3 ; 2 atak
		 wybierz_oboz2()
	  Case $Button4 ; 3 atak
		 wybierz_oboz3()
	  Case $Button5 ; 1 atak
		 wybierz_oboz4()

	  Case $Button1
		 While 1
			#comments-start
			PODCZEPIAM POD OKNO GRY
			#comments-end
			If $Button1 Then
			   WinActivate ("Google Chrome")
			   wybierz_oboz1()
			Else
			   MsgBox( 1, "Nie znaleziono", "Nie znalazłem okna!" )
			   Return
			EndIf
			#comments-start
			NACISKAM ATAK
			#comments-end
   Func wybierz_oboz1()
			   MouseClick( "PRIMARY", 664, 414 )
			   MouseClick( "PRIMARY", 760, 431 )
			   MouseClick( "PRIMARY", 787, 538 )
			   szukaj_dowodcy_3()
   EndFunc
			#comments-start
			SZUKAM DOWÓDCY NR 3
			#comments-end
   Func szukaj_dowodcy_3()
		 For $repeat =15 To 1 Step -1 ;
			   global $y = 0, $x = 0
			   Local $searchDOWODCA3 = _ImageSearch('DOWODCA3.bmp', 1, $x, $y, 0)
			   Sleep ( 600 )
			If $searchDOWODCA3 = 0 Then
			   MouseClick( "PRIMARY", 413, 684 )
			   Sleep ( 200 )
			Else
			   ustaw_wojsko_w_1_fali()
			   Return
			EndIf
		 Next
	  EndFunc



   Func ustaw_wojsko_w_1_fali()
			   global $y = 0, $x = 0
			   Local $searchCESARSKICZARNY = _ImageSearch('Cesarski_czarny.bmp', 50, $x, $y, 0)
			   Sleep ( 500 )
			If $searchCESARSKICZARNY = 1 Then
			   ;lewe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 486 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )
			   ;srodkowe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 664, 517 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )

			   MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
			   Sleep ( 1000 )
			   wstaw_narzedzia_tarany()
			Else
			   MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_tarany()
			   global $y = 0, $x = 0
			   Local $searchTARAN = _ImageSearch('TARAN.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchTARAN = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 644, 436 )
			   Sleep ( 500 )
			   Send("14")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 500 )
			   wstaw_narzedzia_drabiny_srodek()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem taranów!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_srodek()
			   global $y = 0, $x = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 690, 441 )
			   Sleep ( 500 )
			   Send("3")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_drabiny_lewo()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_drabiny_lewo()
			   global $y = 0, $x = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 390 )
			   Sleep ( 500 )
			   Send("3")
			   MouseClick( "PRIMARY", 809, 475 )
			   ;ide w narzedziach szukac oslon
			   MouseClick( "PRIMARY", 1038, 648 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_srodek()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_srodek()
			   global $y = 0, $x = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 732, 443 )
			   Sleep ( 500 )
			   Send("24")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_lewo()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_lewo()
			   global $y = 0, $x = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 437, 398 )
			   Sleep ( 500 )
			   Send("34")
			   MouseClick( "PRIMARY", 809, 475 )
			   wyslij_atak()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

	  Func wyslij_atak()
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 991, 703 )
			   Sleep ( 500 )
			   MouseClick( "PRIMARY", 785, 382 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 816, 618 )
			   wybierz_oboz2()
	  EndFunc

	  Func wyslij_atak2()
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 991, 703 )
			   Sleep ( 500 )
			   MouseClick( "PRIMARY", 785, 382 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 816, 618 )
			   wybierz_oboz3()
	  EndFunc

	  Func wyslij_atak3()
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 991, 703 )
			   Sleep ( 500 )
			   MouseClick( "PRIMARY", 785, 382 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 816, 618 )
			   wybierz_oboz4()
	  EndFunc








			#comments-start
			DRUGI DOWÓDCA ATAKUJE
			#comments-end






			#comments-start
			NACISKAM ATAK
			#comments-end
   Func wybierz_oboz2()
			   MouseClick( "PRIMARY", 664, 409 )
			   MouseClick( "PRIMARY", 760, 431 )
			   MouseClick( "PRIMARY", 787, 538 )
			   szukaj_dowodcy_15()
	  EndFunc
			#comments-start
			SZUKAM DOWÓDCY NR 15
			#comments-end
   Func szukaj_dowodcy_15()
		 For $repeat =15 To 1 Step -1 ;
			   global $y = 0, $x = 0
			   Local $searchDOWODCA15 = _ImageSearch('DOWODCA15.bmp', 1, $x, $y, 0)
			   Sleep ( 900 )
			If $searchDOWODCA15 = 0 Then
			   MouseClick( "PRIMARY", 295, 683 )
			   Sleep ( 200 )
			Else
			   ustaw_wojsko_w_1_fali_DRUGIATAK()
			   ExitLoop
			   Return
			EndIf
		 Next
		 EndFunc



   Func ustaw_wojsko_w_1_fali_DRUGIATAK()
			   global $y = 0, $x = 0
			   Local $searchCESARSKICZARNY = _ImageSearch('Cesarski_czarny.bmp', 50, $x, $y, 0)
			   Sleep ( 500 )
			If $searchCESARSKICZARNY = 1 Then
			   ;lewe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 486 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )
			   ;srodkowe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 664, 517 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )

			   MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
			   Sleep ( 1000 )
			   wstaw_narzedzia_tarany_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_tarany_DRUGIATAK()
			   global $y = 0, $x = 0
			   Local $searchTARAN = _ImageSearch('TARAN.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchTARAN = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 644, 436 )
			   Sleep ( 500 )
			   Send("2")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 500 )
			   wstaw_narzedzia_drabiny_srodek_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem taranów!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_srodek_DRUGIATAK()
			   global $y = 0, $x = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 690, 441 )
			   Sleep ( 500 )
			   Send("14")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_drabiny_lewo_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_lewo_DRUGIATAK()
			   global $y = 0, $x = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 390 )
			   Sleep ( 500 )
			   Send("14")
			   MouseClick( "PRIMARY", 809, 475 )
			   ;ide w narzedziach szukac oslon
			   MouseClick( "PRIMARY", 1038, 648 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_srodek_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_oslony_srodek_DRUGIATAK()
			   global $y = 0, $x = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 732, 443 )
			   Sleep ( 500 )
			   Send("24")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_lewo_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_oslony_lewo_DRUGIATAK()
			   global $y = 0, $x = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 437, 398 )
			   Sleep ( 500 )
			   Send("34")
			   MouseClick( "PRIMARY", 809, 475 )
			   wyslij_atak2()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc





			#comments-start
			TRZECI DOWÓDCA ATAKUJE
			#comments-end








			#comments-start
			NACISKAM ATAK
			#comments-end
	  Func wybierz_oboz3()
			   MouseClick( "PRIMARY", 664, 409 )
			   MouseClick( "PRIMARY", 760, 431 )
			   MouseClick( "PRIMARY", 787, 538 )
			   szukaj_dowodcy_13()
			EndFunc
			#comments-start
			SZUKAM DOWÓDCY NR 13
			#comments-end
   Func szukaj_dowodcy_13()
		  For $repeat =15 To 1 Step -1 ;
			   global $y = 0, $x = 0
			   Local $searchDOWODCA13 = _ImageSearch('DOWODCA13.bmp', 1, $x, $y, 0)
			   Sleep ( 600 )
			If $searchDOWODCA13 = 0 Then
			   MouseClick( "PRIMARY", 295, 683 )
			   Sleep ( 200 )
			Else
			   ustaw_wojsko_w_1_fali_TRZECIATAK()
			   ExitLoop
			   Return
			EndIf
		 Next
   EndFunc



   Func ustaw_wojsko_w_1_fali_TRZECIATAK()
			   global $y = 0, $x = 0
			   Local $searchGWARDIACZARNY = _ImageSearch('Gwardia_czarny.bmp' , 50, $x, $y, 0)
			   Sleep ( 500 )
			If $searchGWARDIACZARNY = 1 Then
			   ;lewe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 486 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )
			   ;srodkowe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 664, 517 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )

			   MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
			   Sleep ( 1000 )
			   wstaw_narzedzia_tarany_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_tarany_TRZECIATAK()
			   global $y = 0, $x = 0
			   Local $searchTARAN = _ImageSearch('TARAN.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchTARAN = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 644, 436 )
			   Sleep ( 500 )
			   Send("12")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 500 )
			   wstaw_narzedzia_drabiny_srodek_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem taranów!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_srodek_TRZECIATAK()
			   global $y = 0, $x = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 690, 441 )
			   Sleep ( 500 )
			   Send("9")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_drabiny_lewo_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_drabiny_lewo_TRZECIATAK()
			   global $y = 0, $x = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 390 )
			   Sleep ( 500 )
			   Send("9")
			   MouseClick( "PRIMARY", 809, 475 )
			   ;ide w narzedziach szukac oslon
			   MouseClick( "PRIMARY", 1038, 648 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_srodek_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_srodek_TRZECIATAK()
			   global $y = 0, $x = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 732, 443 )
			   Sleep ( 500 )
			   Send("24")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_lewo_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_lewo_TRZECIATAK()
			   global $y = 0, $x = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 437, 398 )
			   Sleep ( 500 )
			   Send("34")
			   MouseClick( "PRIMARY", 809, 475 )
			   wyslij_atak3()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc








			#comments-start
			CZWARTY DOWÓDCA ATAKUJE
			#comments-end








			#comments-start
			NACISKAM ATAK
			#comments-end
	  Func wybierz_oboz4()
			   MouseClick( "PRIMARY", 664, 409 )
			   MouseClick( "PRIMARY", 760, 431 )
			   MouseClick( "PRIMARY", 787, 538 )
			   szukaj_dowodcy_12()
	  EndFunc
			#comments-start
			SZUKAM DOWÓDCY NR 12
			#comments-end
	  Func szukaj_dowodcy_12()
			 For $repeat =15 To 1 Step -1 ;
			   global $y = 0, $x = 0
			   Local $searchDOWODCA12 = _ImageSearch('DOWODCA12.bmp', 1, $x, $y, 0)
			   Sleep ( 600 )
			If $searchDOWODCA12 = 0 Then
			   MouseClick( "PRIMARY", 295, 683 )
			   Sleep ( 200 )
			Else
			   ustaw_wojsko_w_1_fali_CZWARTYATAK()
			   ExitLoop
			   Return
			EndIf
		 Next
	  EndFunc



   Func ustaw_wojsko_w_1_fali_CZWARTYATAK()
			   global $y = 0, $x = 0
			   Local $searchGWARDIACZARNY = _ImageSearch('Gwardia_czarny.bmp', 50, $x, $y, 0)
			   Sleep ( 500 )
			If $searchGWARDIACZARNY = 1 Then
			   ;lewe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 486 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )
			   ;srodkowe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 664, 517 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )

			   MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
			   Sleep ( 1000 )
			   wstaw_narzedzia_tarany_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_tarany_CZWARTYATAK()
			   global $y = 0, $x = 0
			   Local $searchTARAN = _ImageSearch('TARAN.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchTARAN = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 644, 436 )
			   Sleep ( 500 )
			   Send("14")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 500 )
			   wstaw_narzedzia_drabiny_srodek_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem taranów!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_srodek_CZWARTYATAK()
			   global $y = 0, $x = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 690, 441 )
			   Sleep ( 500 )
			   Send("5")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_drabiny_lewo_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_drabiny_lewo_CZWARTYATAK()
			   global $y = 0, $x = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 390 )
			   Sleep ( 500 )
			   Send("5")
			   MouseClick( "PRIMARY", 809, 475 )
			   ;ide w narzedziach szukac oslon
			   MouseClick( "PRIMARY", 1038, 648 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_srodek_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_srodek_CZWARTYATAK()
			   global $y = 0, $x = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 732, 443 )
			   Sleep ( 500 )
			   Send("24")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_lewo_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_lewo_CZWARTYATAK()
			   global $y = 0, $x = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x, $y, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 437, 398 )
			   Sleep ( 500 )
			   Send("34")
			   MouseClick( "PRIMARY", 809, 475 )
			   wyslij_atak_ostatni()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc
	Func wyslij_atak_ostatni()
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 991, 703 )
			   Sleep ( 500 )
			   MouseClick( "PRIMARY", 785, 382 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 816, 618 )
			   Sleep ( 300000 )
			   PaliSie()
			EndFunc
	  Func PaliSie()
		 While 1
   			   global $y = 0, $x = 0
			   Local $searchPALISIE1 = _ImageSearch('PALISIE.bmp', 10, $x, $y, 0)
			   Sleep ( 15 )
			If $searchPALISIE1 = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 849, 421 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 905, 245 )
			   Sleep ( 100 )
			   PaliSie2()

	  EndIf
	  WEnd
	  EndFunc
	  Func PaliSie2()
		 While 1
   			   global $y = 0, $x = 0
			   Local $searchPALISIE2 = _ImageSearch('PALISIE.bmp', 10, $x, $y, 0)
			   Sleep ( 15 )
			If $searchPALISIE2 = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 849, 421 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 905, 245 )
			   Sleep ( 100 )
			   PaliSie3()
	 EndIf
	  WEnd
	  EndFunc
	  Func PaliSie3()
		 While 1
   			   global $y = 0, $x = 0
			   Local $searchPALISIE3 = _ImageSearch('PALISIE.bmp', 10, $x, $y, 0)
			   Sleep ( 15 )
			If $searchPALISIE3 = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 849, 421 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 905, 245 )
			   Sleep ( 100 )
			   PaliSie4()
			EndIf
			WEnd
	  EndFunc
	  Func PaliSie4()
		 While 1
   			   global $y = 0, $x = 0
			   Local $searchPALISIE4 = _ImageSearch('PALISIE.bmp', 10, $x, $y, 0)
			   Sleep ( 15 )
			If $searchPALISIE4 = 1 Then
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 849, 421 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 905, 245 )
			   ;Sleep ( 60000 )
                           wybierz_oboz1() ;czyli od nowa
			EndIf
		WEnd
	  EndFunc
   WEnd


EndSwitch
WEnd

Func nothing()
   Exit
EndFunc

Skoro program w pełni do końca zadziała, to nie da się na koniec dać jakoś RESTART RECURSION i od nowa by działał? Tylko musi się tak nabijać ta rekur... aż program crash złapie? Czy muszę napisać drugiego bota, by po zadziałaniu się wyłączył i go włączył od nowa i tak w kółko komplikacje Bo While na tak duży kod jakoś nie umiem zrobić, niby działa kompilacja ale nie powtarza się cały kod. :<

jamajkasnk · 23 Stycznia 2016

Z ciekawości zapytam się do jakiej gry używasz tego programu ?

Tieru · 23 Stycznia 2016

Z ciekawości zapytam się do jakiej gry używasz tego programu ?

Travian, nie wiem czy to coś zmieni?

Ktosiu · 23 Stycznia 2016

Już ci pisałem wyraźnie że używasz tych samych zmiennych w różnych funkcjach no $x i $y zamiast dla każdej przypisać własny.

Na dodatek wpieprzyłeś definicje funkcji do pętli, po cholerę ? Skoro pisze się je poza główną pętlą

While 1

pętla z gui, switche itp

używanie funkcji : funkcja1, funkcja2, funkcjaX.

Wend

funkcja1

funkcja2

...

funkcjaX

Tieru · 23 Stycznia 2016

Już ci pisałem wyraźnie że używasz tych samych zmiennych w różnych funkcjach no $x i $y zamiast dla każdej przypisać własny.

Na dodatek wpieprzyłeś definicje funkcji do pętli, po cholerę ? Skoro pisze się je poza główną pętlą

While 1

pętla z gui, switche itp

używanie funkcji : funkcja1, funkcja2, funkcjaX.

Wend

funkcja1

funkcja2

...

funkcjaX

Np. tak z tymi zmiennymi?

  Func szukaj_dowodcy_3()
For $repeat =15 To 1 Step -1 ;
  global $y1 = 0, $x1 = 0
  Local $searchDOWODCA3 = _ImageSearch('DOWODCA3.bmp', 1, $x1, $y1, 0)
  Sleep ( 600 )
If $searchDOWODCA3 = 0 Then
  MouseClick( "PRIMARY", 413, 684 )
  Sleep ( 200 )
Else
  ustaw_wojsko_w_1_fali()
  Return
EndIf
Next
 EndFunc
 
 
 
   Func ustaw_wojsko_w_1_fali()
  global $y2 = 0, $x2 = 0
  Local $searchCESARSKICZARNY = _ImageSearch('Cesarski_czarny.bmp', 50, $x2, $y2, 0)
  Sleep ( 500 )
If $searchCESARSKICZARNY = 1 Then
  ;lewe okienko
  MouseClick( "PRIMARY", $x, $y )
  Sleep ( 100 )
  MouseClick( "PRIMARY", 374, 486 )
  Sleep ( 100 )
  MouseClick( "PRIMARY", 747, 418 )
  MouseClick( "PRIMARY", 809, 475 )
  ;srodkowe okienko
  MouseClick( "PRIMARY", $x, $y )
  Sleep ( 100 )
  MouseClick( "PRIMARY", 664, 517 )
  Sleep ( 100 )
  MouseClick( "PRIMARY", 747, 418 )
  MouseClick( "PRIMARY", 809, 475 )
 
  MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
  Sleep ( 1000 )
  wstaw_narzedzia_tarany()
Else
  MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
  Return
EndIf
EndFunc

Cały

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>
#Region ### START Koda GUI section ### Form=d:\program files (x86)\autoit3\forms\form1.kxf
$Form1 = GUICreate("BOT", 373, 133, 192, 124)
$Button1 = GUICtrlCreateButton("START BOT", 80, 72, 75, 25)
$Button2 = GUICtrlCreateButton("Zacznij od 1 ataku", 264, 8, 99, 25)
$Button3 = GUICtrlCreateButton("Zacznij od 2 ataku", 264, 32, 99, 25)
$Button4 = GUICtrlCreateButton("Zacznij od 3 ataku", 264, 56, 99, 25)
$Button5 = GUICtrlCreateButton("Zacznij od 4 ataku", 264, 80, 99, 25)
$Button6 = GUICtrlCreateButton("Sprawdzaj stan", 264, 104, 99, 25)
$Label1 = GUICtrlCreateLabel("Przycisk q wyłącza program.", 48, 104, 149, 17)
Opt("MouseClickDelay", 0) ;10 milliseconds
Opt("MouseClickDownDelay", 0) ;10 milliseconds
Opt("MouseMoveDelay", 0)
HotKeySet("q","nothing")
GUISetState(@SW_SHOW)
TrayTip("BOT:", "Uruchomiłeś program!", 5)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	  Case $GUI_EVENT_CLOSE
		 Exit
	  Case $Button6 ; Sprawdz stan obozow czy sie palą
		 PaliSie()
	  Case $Button2 ; 1 atak
		 wybierz_oboz1()
	  Case $Button3 ; 2 atak
		 wybierz_oboz2()
	  Case $Button4 ; 3 atak
		 wybierz_oboz3()
	  Case $Button5 ; 4 atak
		 wybierz_oboz4()

	  Case $Button1

			#comments-start
			PODCZEPIAM POD OKNO GRY
			#comments-end
			If $Button1 Then
			   WinActivate ("Google Chrome")
			   wybierz_oboz1()
			Else
			   MsgBox( 1, "Nie znaleziono", "Nie znalazłem okna!" )
			   Return
			EndIf
			#comments-start
			WPISZ KORDYNATY NOMADA 90TEGO POZIOMU
			#comments-end
			#comments-start
			NACISKAM ATAK
			#comments-end
   Func wybierz_oboz1()
			   MouseClick( "PRIMARY", 664, 414 )
			   MouseClick( "PRIMARY", 760, 431 )
			   MouseClick( "PRIMARY", 787, 538 )
			   szukaj_dowodcy_3()
   EndFunc
			#comments-start
			SZUKAM DOWÓDCY NR 3
			#comments-end
   Func szukaj_dowodcy_3()
		 For $repeat =15 To 1 Step -1 ;
			   global $y1 = 0, $x1 = 0
			   Local $searchDOWODCA3 = _ImageSearch('DOWODCA3.bmp', 1, $x1, $y1, 0)
			   Sleep ( 600 )
			If $searchDOWODCA3 = 0 Then
			   MouseClick( "PRIMARY", 413, 684 )
			   Sleep ( 200 )
			Else
			   ustaw_wojsko_w_1_fali()
			   Return
			EndIf
		 Next
   EndFunc



   Func ustaw_wojsko_w_1_fali()
			   global $y2 = 0, $x2 = 0
			   Local $searchCESARSKICZARNY = _ImageSearch('Cesarski_czarny.bmp', 50, $x2, $y2, 0)
			   Sleep ( 500 )
			If $searchCESARSKICZARNY = 1 Then
			   ;lewe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 486 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )
			   ;srodkowe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 664, 517 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )

			   MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
			   Sleep ( 1000 )
			   wstaw_narzedzia_tarany()
			Else
			   MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_tarany()
			   global $y3 = 0, $x3 = 0
			   Local $searchTARAN = _ImageSearch('TARAN.bmp', 1, $x3, $y3, 0)
			   Sleep ( 500 )
			If $searchTARAN = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 644, 436 )
			   Sleep ( 500 )
			   Send("14")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 500 )
			   wstaw_narzedzia_drabiny_srodek()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem taranów!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_srodek()
			   global $y4 = 0, $x4 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x4, $y4, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 690, 441 )
			   Sleep ( 500 )
			   Send("3")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_drabiny_lewo()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_drabiny_lewo()
			   global $y5 = 0, $x5 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x5, $y5, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 390 )
			   Sleep ( 500 )
			   Send("3")
			   MouseClick( "PRIMARY", 809, 475 )
			   ;ide w narzedziach szukac oslon
			   MouseClick( "PRIMARY", 1038, 648 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_srodek()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_srodek()
			   global $y6 = 0, $x6 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x6, $y6, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 732, 443 )
			   Sleep ( 500 )
			   Send("24")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_lewo()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_lewo()
			   global $y7 = 0, $x7 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x7, $y7, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 437, 398 )
			   Sleep ( 500 )
			   Send("34")
			   MouseClick( "PRIMARY", 809, 475 )
			   wyslij_atak()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

	  Func wyslij_atak()
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 991, 703 )
			   Sleep ( 500 )
			   MouseClick( "PRIMARY", 785, 382 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 816, 618 )
			   wybierz_oboz2()
	  EndFunc

	  Func wyslij_atak2()
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 991, 703 )
			   Sleep ( 500 )
			   MouseClick( "PRIMARY", 785, 382 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 816, 618 )
			   wybierz_oboz3()
	  EndFunc

	  Func wyslij_atak3()
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 991, 703 )
			   Sleep ( 500 )
			   MouseClick( "PRIMARY", 785, 382 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 816, 618 )
			   wybierz_oboz4()
	  EndFunc
			#comments-start
			DRUGI DOWÓDCA ATAKUJE







			#comments-end

			#comments-start
			NACISKAM ATAK
			#comments-end
   Func wybierz_oboz2()
			   MouseClick( "PRIMARY", 664, 409 )
			   MouseClick( "PRIMARY", 760, 431 )
			   MouseClick( "PRIMARY", 787, 538 )
			   szukaj_dowodcy_15()
	  EndFunc
			#comments-start
			SZUKAM DOWÓDCY NR 15
			#comments-end
   Func szukaj_dowodcy_15()
		 For $repeat =15 To 1 Step -1 ;
			   global $y8 = 0, $x8 = 0
			   Local $searchDOWODCA15 = _ImageSearch('DOWODCA15.bmp', 1, $x8, $y8, 0)
			   Sleep ( 900 )
			If $searchDOWODCA15 = 0 Then
			   MouseClick( "PRIMARY", 295, 683 )
			   Sleep ( 200 )
			Else
			   ustaw_wojsko_w_1_fali_DRUGIATAK()
			   ExitLoop
			   Return
			EndIf
		 Next
		 EndFunc



   Func ustaw_wojsko_w_1_fali_DRUGIATAK()
			   global $y9 = 0, $x9 = 0
			   Local $searchCESARSKICZARNY = _ImageSearch('Cesarski_czarny.bmp', 50, $x9, $y9, 0)
			   Sleep ( 500 )
			If $searchCESARSKICZARNY = 1 Then
			   ;lewe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 486 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )
			   ;srodkowe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 664, 517 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )

			   MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
			   Sleep ( 1000 )
			   wstaw_narzedzia_tarany_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_tarany_DRUGIATAK()
			   global $y11 = 0, $x11 = 0
			   Local $searchTARAN = _ImageSearch('TARAN.bmp', 1, $x11, $y11, 0)
			   Sleep ( 500 )
			If $searchTARAN = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 644, 436 )
			   Sleep ( 500 )
			   Send("2")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 500 )
			   wstaw_narzedzia_drabiny_srodek_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem taranów!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_srodek_DRUGIATAK()
			   global $y12 = 0, $x12 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x12, $y12, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 690, 441 )
			   Sleep ( 500 )
			   Send("14")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_drabiny_lewo_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_lewo_DRUGIATAK()
			   global $y13 = 0, $x13 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x13, $y13, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 390 )
			   Sleep ( 500 )
			   Send("14")
			   MouseClick( "PRIMARY", 809, 475 )
			   ;ide w narzedziach szukac oslon
			   MouseClick( "PRIMARY", 1038, 648 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_srodek_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_oslony_srodek_DRUGIATAK()
			   global $y14 = 0, $x14 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x14, $y14, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 732, 443 )
			   Sleep ( 500 )
			   Send("24")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_lewo_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_oslony_lewo_DRUGIATAK()
			   global $y15 = 0, $x15 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x15, $y15, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 437, 398 )
			   Sleep ( 500 )
			   Send("34")
			   MouseClick( "PRIMARY", 809, 475 )
			   wyslij_atak2()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc


			#comments-start
			TRZECI DOWÓDCA ATAKUJE







			#comments-end
					#comments-start
			NACISKAM ATAK
			#comments-end
	  Func wybierz_oboz3()
			   MouseClick( "PRIMARY", 664, 409 )
			   MouseClick( "PRIMARY", 760, 431 )
			   MouseClick( "PRIMARY", 787, 538 )
			   szukaj_dowodcy_13()
			EndFunc
			#comments-start
			SZUKAM DOWÓDCY NR 13
			#comments-end
   Func szukaj_dowodcy_13()
		  For $repeat =15 To 1 Step -1 ;
			   global $y16 = 0, $x16 = 0
			   Local $searchDOWODCA13 = _ImageSearch('DOWODCA13.bmp', 1, $x16, $y16, 0)
			   Sleep ( 600 )
			If $searchDOWODCA13 = 0 Then
			   MouseClick( "PRIMARY", 295, 683 )
			   Sleep ( 200 )
			Else
			   ustaw_wojsko_w_1_fali_TRZECIATAK()
			   ExitLoop
			   Return
			EndIf
		 Next
   EndFunc



   Func ustaw_wojsko_w_1_fali_TRZECIATAK()
			   global $y17 = 0, $x17 = 0
			   Local $searchGWARDIACZARNY = _ImageSearch('Gwardia_czarny.bmp' , 50, $x17, $y17, 0)
			   Sleep ( 500 )
			If $searchGWARDIACZARNY = 1 Then
			   ;lewe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 486 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )
			   ;srodkowe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 664, 517 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )

			   MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
			   Sleep ( 1000 )
			   wstaw_narzedzia_tarany_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_tarany_TRZECIATAK()
			   global $y18 = 0, $x18 = 0
			   Local $searchTARAN = _ImageSearch('TARAN.bmp', 1, $x18, $y18, 0)
			   Sleep ( 500 )
			If $searchTARAN = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 644, 436 )
			   Sleep ( 500 )
			   Send("12")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 500 )
			   wstaw_narzedzia_drabiny_srodek_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem taranów!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_srodek_TRZECIATAK()
			   global $y19 = 0, $x19 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x19, $y19, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 690, 441 )
			   Sleep ( 500 )
			   Send("9")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_drabiny_lewo_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_drabiny_lewo_TRZECIATAK()
			   global $y20 = 0, $x20 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x20, $y20, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 390 )
			   Sleep ( 500 )
			   Send("9")
			   MouseClick( "PRIMARY", 809, 475 )
			   ;ide w narzedziach szukac oslon
			   MouseClick( "PRIMARY", 1038, 648 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_srodek_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_srodek_TRZECIATAK()
			   global $y21 = 0, $x21 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x21, $y21, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 732, 443 )
			   Sleep ( 500 )
			   Send("24")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_lewo_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_lewo_TRZECIATAK()
			   global $y22 = 0, $x22 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x22, $y22, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 437, 398 )
			   Sleep ( 500 )
			   Send("34")
			   MouseClick( "PRIMARY", 809, 475 )
			   wyslij_atak3()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc




			#comments-start
			CZWARTY DOWÓDCA ATAKUJE







			#comments-end
					#comments-start
			NACISKAM ATAK
			#comments-end
	  Func wybierz_oboz4()
			   MouseClick( "PRIMARY", 664, 409 )
			   MouseClick( "PRIMARY", 760, 431 )
			   MouseClick( "PRIMARY", 787, 538 )
			   szukaj_dowodcy_12()
	  EndFunc
			#comments-start
			SZUKAM DOWÓDCY NR 12
			#comments-end
	  Func szukaj_dowodcy_12()
			 For $repeat =15 To 1 Step -1 ;
			   global $y23 = 0, $x23 = 0
			   Local $searchDOWODCA12 = _ImageSearch('DOWODCA12.bmp', 1, $x23, $y23, 0)
			   Sleep ( 600 )
			If $searchDOWODCA12 = 0 Then
			   MouseClick( "PRIMARY", 295, 683 )
			   Sleep ( 200 )
			Else
			   ustaw_wojsko_w_1_fali_CZWARTYATAK()
			   ExitLoop
			   Return
			EndIf
		 Next
	  EndFunc



   Func ustaw_wojsko_w_1_fali_CZWARTYATAK()
			   global $y24 = 0, $x24 = 0
			   Local $searchGWARDIACZARNY = _ImageSearch('Gwardia_czarny.bmp', 50, $x24, $y24, 0)
			   Sleep ( 500 )
			If $searchGWARDIACZARNY = 1 Then
			   ;lewe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 486 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )
			   ;srodkowe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 664, 517 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )

			   MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
			   Sleep ( 1000 )
			   wstaw_narzedzia_tarany_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_tarany_CZWARTYATAK()
			   global $y25 = 0, $x25 = 0
			   Local $searchTARAN = _ImageSearch('TARAN.bmp', 1, $x25, $y25, 0)
			   Sleep ( 500 )
			If $searchTARAN = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 644, 436 )
			   Sleep ( 500 )
			   Send("14")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 500 )
			   wstaw_narzedzia_drabiny_srodek_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem taranów!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_srodek_CZWARTYATAK()
			   global $y26 = 0, $x26 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x26, $y26, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 690, 441 )
			   Sleep ( 500 )
			   Send("5")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_drabiny_lewo_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_drabiny_lewo_CZWARTYATAK()
			   global $y27 = 0, $x27 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x27, $y27, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 390 )
			   Sleep ( 500 )
			   Send("5")
			   MouseClick( "PRIMARY", 809, 475 )
			   ;ide w narzedziach szukac oslon
			   MouseClick( "PRIMARY", 1038, 648 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_srodek_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_srodek_CZWARTYATAK()
			   global $y28 = 0, $x28 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x28, $y28, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 732, 443 )
			   Sleep ( 500 )
			   Send("24")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_lewo_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_lewo_CZWARTYATAK()
			   global $y29 = 0, $x29 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x29, $y29, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 437, 398 )
			   Sleep ( 500 )
			   Send("34")
			   MouseClick( "PRIMARY", 809, 475 )
			   wyslij_atak_ostatni()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc
	Func wyslij_atak_ostatni()
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 991, 703 )
			   Sleep ( 500 )
			   MouseClick( "PRIMARY", 785, 382 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 816, 618 )
			   Sleep ( 300000 )
			   PaliSie()
			EndFunc
	  Func PaliSie()
		 While 1
   			   global $y30 = 0, $x30 = 0
			   Local $searchPALISIE1 = _ImageSearch('PALISIE.bmp', 10, $x30, $y30, 0)
			   Sleep ( 15 )
			If $searchPALISIE1 = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 849, 421 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 905, 245 )
			   Sleep ( 100 )
			   PaliSie2()

	  EndIf
	  WEnd
	  EndFunc
	  Func PaliSie2()
		 While 1
   			   global $y31 = 0, $x31 = 0
			   Local $searchPALISIE2 = _ImageSearch('PALISIE.bmp', 10, $x31, $y31, 0)
			   Sleep ( 15 )
			If $searchPALISIE2 = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 849, 421 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 905, 245 )
			   Sleep ( 100 )
			   PaliSie3()
	 EndIf
	  WEnd
	  EndFunc
	  Func PaliSie3()
		 While 1
   			   global $y32 = 0, $x32 = 0
			   Local $searchPALISIE3 = _ImageSearch('PALISIE.bmp', 10, $x32, $y32, 0)
			   Sleep ( 15 )
			If $searchPALISIE3 = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 849, 421 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 905, 245 )
			   Sleep ( 100 )
			   PaliSie4()
			EndIf
			WEnd
	  EndFunc
	  Func PaliSie4()
		 While 1
   			   global $y33 = 0, $x33 = 0
			   Local $searchPALISIE4 = _ImageSearch('PALISIE.bmp', 10, $x33, $y33, 0)
			   Sleep ( 15 )
			If $searchPALISIE4 = 1 Then
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 849, 421 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 905, 245 )
			   ;Sleep ( 60000 )

			EndIf
		WEnd
	  EndFunc
   EndSwitch
WEnd

Func nothing()
   Exit
EndFunc

Ktosiu · 23 Stycznia 2016

Tak , każdy obrazek ma swoją własną współrzędną.

Jeszcze tylko wywal wszystkie funkcje z pętli głównej.

Tieru · 23 Stycznia 2016

Tak , każdy obrazek ma swoją własną współrzędną.

Jeszcze tylko wywal wszystkie funkcje z pętli głównej.

Yyyy czyli nie będę mógł już skoczyć do danego punktu jak miałem to w funkcja() ?

;Func wybierz_oboz1()
MouseClick( "PRIMARY", 664, 414 )
MouseClick( "PRIMARY", 760, 431 )
MouseClick( "PRIMARY", 787, 538 )
szukaj_dowodcy_3()
; EndFunc
#comments-start
SZUKAM DOWÓDCY NR 3
#comments-end
;Func szukaj_dowodcy_3()
For $repeat =15 To 1 Step -1 ;
global $y1 = 0, $x1 = 0
Local $searchDOWODCA3 = _ImageSearch('DOWODCA3.bmp', 1, $x1, $y1, 0)
Sleep ( 600 )
If $searchDOWODCA3 = 0 Then
MouseClick( "PRIMARY", 413, 684 )
Sleep ( 200 )
Else
ustaw_wojsko_w_1_fali()
Return
EndIf
Next
; EndFunc



; Func ustaw_wojsko_w_1_fali()
global $y2 = 0, $x2 = 0
Local $searchCESARSKICZARNY = _ImageSearch('Cesarski_czarny.bmp', 50, $x2, $y2, 0)
Sleep ( 500 )
If $searchCESARSKICZARNY = 1 Then
;lewe okienko
MouseClick( "PRIMARY", $x, $y )
Sleep ( 100 )
MouseClick( "PRIMARY", 374, 486 )
Sleep ( 100 )
MouseClick( "PRIMARY", 747, 418 )
MouseClick( "PRIMARY", 809, 475 )
;srodkowe okienko
MouseClick( "PRIMARY", $x, $y )
Sleep ( 100 )
MouseClick( "PRIMARY", 664, 517 )
Sleep ( 100 )
MouseClick( "PRIMARY", 747, 418 )
MouseClick( "PRIMARY", 809, 475 )

MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
Sleep ( 1000 )
wstaw_narzedzia_tarany()
Else
MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
Return
EndIf
; EndFunc

; Func wstaw_narzedzia_tarany()
global $y3 = 0, $x3 = 0
Local $searchTARAN = _ImageSearch('TARAN.bmp', 1, $x3, $y3, 0)
Sleep ( 500 )
If $searchTARAN = 1 Then
MouseClick( "PRIMARY", $x, $y )
Sleep ( 100 )
MouseClick( "PRIMARY", 644, 436 )
Sleep ( 500 )
Send("14")
MouseClick( "PRIMARY", 809, 475 )
Sleep ( 500 )
wstaw_narzedzia_drabiny_srodek()
Else
MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem taranów!" )
Return
EndIf
; EndFunc

Przejrzyściej

MouseClick( "PRIMARY", 664, 414 )
MouseClick( "PRIMARY", 760, 431 )
MouseClick( "PRIMARY", 787, 538 )
szukaj_dowodcy_3()

#comments-start
SZUKAM DOWÓDCY NR 3
#comments-end

For $repeat =15 To 1 Step -1 ;
global $y1 = 0, $x1 = 0
Local $searchDOWODCA3 = _ImageSearch('DOWODCA3.bmp', 1, $x1, $y1, 0)
Sleep ( 600 )
If $searchDOWODCA3 = 0 Then
MouseClick( "PRIMARY", 413, 684 )
Sleep ( 200 )
Else
ustaw_wojsko_w_1_fali()
Return
EndIf
Next





global $y2 = 0, $x2 = 0
Local $searchCESARSKICZARNY = _ImageSearch('Cesarski_czarny.bmp', 50, $x2, $y2, 0)
Sleep ( 500 )
If $searchCESARSKICZARNY = 1 Then
;lewe okienko
MouseClick( "PRIMARY", $x, $y )
Sleep ( 100 )
MouseClick( "PRIMARY", 374, 486 )
Sleep ( 100 )
MouseClick( "PRIMARY", 747, 418 )
MouseClick( "PRIMARY", 809, 475 )
;srodkowe okienko
MouseClick( "PRIMARY", $x, $y )
Sleep ( 100 )
MouseClick( "PRIMARY", 664, 517 )
Sleep ( 100 )
MouseClick( "PRIMARY", 747, 418 )
MouseClick( "PRIMARY", 809, 475 )

MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
Sleep ( 1000 )
wstaw_narzedzia_tarany()
Else
MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
Return
EndIf

Bo jak wywalę wszystkie funkcje to już nie skoczę do tych momentów i program nie będzie kontynuował od momentu kodu przycisków.

Case $Button6 ; Sprawdz stan obozow czy sie palą
PaliSie()
Case $Button2 ; 1 atak
wybierz_oboz1()
Case $Button3 ; 2 atak
wybierz_oboz2()
Case $Button4 ; 3 atak
wybierz_oboz3()
Case $Button5 ; 4 atak
wybierz_oboz4()

Ktosiu · 23 Stycznia 2016

Jak nie będziesz, nie rozumie o czym piszesz .

Skoro masz zdefiniowane funkcje poza pętlą to chyba po to by je użyć potem w pętli ile razy się chce czy gdzie się chce , nawet funkcję w funkcji

While 1 

funkcja1()
Funkcja2()
Funkcja1()

Wend 


Func funkcja2()

Funkcja3()
Funkcja4()

endfunc

Tieru · 23 Stycznia 2016

Jak nie będziesz, nie rozumie o czym piszesz .

Skoro masz zdefiniowane funkcje poza pętlą to chyba po to by je użyć potem w pętli ile razy się chce czy gdzie się chce , nawet funkcję w funkcji
While 1 

funkcja1()
Funkcja2()
Funkcja1()

Wend 


Func funkcja2()

Funkcja3()
Funkcja4()

endfunc

No tutaj mam jedną główną pętlę, w niej wszystkie funkcje i na końcu jest WEnd, który zakończy pętlę i odtworzy ją całą od nowa tak?

Tylko bym musiał mieć pewnie zamiast $Button1 to $Checkbox1 i if checked 1 then, wtedy program by w kółko działał.

Bo wydaje mi się, że to While gdzie mam to jeszcze nie będzie to.

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	  Case $GUI_EVENT_CLOSE
		 Exit
	  Case $Button6 ; Sprawdz stan obozow czy sie palą
		 PaliSie()
	  Case $Button2 ; 1 atak
		 wybierz_oboz1()
	  Case $Button3 ; 2 atak
		 wybierz_oboz2()
	  Case $Button4 ; 3 atak
		 wybierz_oboz3()
	  Case $Button5 ; 4 atak
		 wybierz_oboz4()



          ; w tym miejscu powinno być chyba checkbox1 z if checked 1 then co nie? Bo po nacisnieciu raz buttona while by m          usialo byc pod Case $Button1 ale wtedy pewnie program nie będzie działał?
	  
          Case $Button1
			#comments-start
			PODCZEPIAM POD OKNO GRY
			#comments-end
			If $Button1 Then
			   WinActivate ("Google Chrome")
			   wybierz_oboz1()
			Else
			   MsgBox( 1, "Nie znaleziono", "Nie znalazłem okna!" )
			   Return
			EndIf
			#comments-start
			WPISZ KORDYNATY NOMADA 90TEGO POZIOMU
			#comments-end
			#comments-start
			NACISKAM ATAK
			#comments-end
   Func wybierz_oboz1()
			   MouseClick( "PRIMARY", 664, 414 )
			   MouseClick( "PRIMARY", 760, 431 )
			   MouseClick( "PRIMARY", 787, 538 )
			   szukaj_dowodcy_3()
   EndFunc
			#comments-start
			SZUKAM DOWÓDCY NR 3
			#comments-end
   Func szukaj_dowodcy_3()
		 For $repeat =15 To 1 Step -1 ;
			   global $y1 = 0, $x1 = 0
			   Local $searchDOWODCA3 = _ImageSearch('DOWODCA3.bmp', 1, $x1, $y1, 0)
			   Sleep ( 600 )
			If $searchDOWODCA3 = 0 Then
			   MouseClick( "PRIMARY", 413, 684 )
			   Sleep ( 200 )
			Else
			   ustaw_wojsko_w_1_fali()
			   Return
			EndIf
		 Next
   EndFunc



   Func ustaw_wojsko_w_1_fali()
			   global $y2 = 0, $x2 = 0
			   Local $searchCESARSKICZARNY = _ImageSearch('Cesarski_czarny.bmp', 50, $x2, $y2, 0)
			   Sleep ( 500 )
			If $searchCESARSKICZARNY = 1 Then
			   ;lewe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 486 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )
			   ;srodkowe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 664, 517 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )

			   MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
			   Sleep ( 1000 )
			   wstaw_narzedzia_tarany()
			Else
			   MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_tarany()
			   global $y3 = 0, $x3 = 0
			   Local $searchTARAN = _ImageSearch('TARAN.bmp', 1, $x3, $y3, 0)
			   Sleep ( 500 )
			If $searchTARAN = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 644, 436 )
			   Sleep ( 500 )
			   Send("14")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 500 )
			   wstaw_narzedzia_drabiny_srodek()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem taranów!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_srodek()
			   global $y4 = 0, $x4 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x4, $y4, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 690, 441 )
			   Sleep ( 500 )
			   Send("3")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_drabiny_lewo()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_drabiny_lewo()
			   global $y5 = 0, $x5 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x5, $y5, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 390 )
			   Sleep ( 500 )
			   Send("3")
			   MouseClick( "PRIMARY", 809, 475 )
			   ;ide w narzedziach szukac oslon
			   MouseClick( "PRIMARY", 1038, 648 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_srodek()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_srodek()
			   global $y6 = 0, $x6 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x6, $y6, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 732, 443 )
			   Sleep ( 500 )
			   Send("24")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_lewo()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_lewo()
			   global $y7 = 0, $x7 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x7, $y7, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 437, 398 )
			   Sleep ( 500 )
			   Send("34")
			   MouseClick( "PRIMARY", 809, 475 )
			   wyslij_atak()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

	  Func wyslij_atak()
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 991, 703 )
			   Sleep ( 500 )
			   MouseClick( "PRIMARY", 785, 382 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 816, 618 )
			   wybierz_oboz2()
	  EndFunc

	  Func wyslij_atak2()
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 991, 703 )
			   Sleep ( 500 )
			   MouseClick( "PRIMARY", 785, 382 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 816, 618 )
			   wybierz_oboz3()
	  EndFunc

	  Func wyslij_atak3()
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 991, 703 )
			   Sleep ( 500 )
			   MouseClick( "PRIMARY", 785, 382 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 816, 618 )
			   wybierz_oboz4()
	  EndFunc
			#comments-start
			DRUGI DOWÓDCA ATAKUJE







			#comments-end

			#comments-start
			NACISKAM ATAK
			#comments-end
   Func wybierz_oboz2()
			   MouseClick( "PRIMARY", 664, 409 )
			   MouseClick( "PRIMARY", 760, 431 )
			   MouseClick( "PRIMARY", 787, 538 )
			   szukaj_dowodcy_15()
	  EndFunc
			#comments-start
			SZUKAM DOWÓDCY NR 15
			#comments-end
   Func szukaj_dowodcy_15()
		 For $repeat =15 To 1 Step -1 ;
			   global $y8 = 0, $x8 = 0
			   Local $searchDOWODCA15 = _ImageSearch('DOWODCA15.bmp', 1, $x8, $y8, 0)
			   Sleep ( 900 )
			If $searchDOWODCA15 = 0 Then
			   MouseClick( "PRIMARY", 295, 683 )
			   Sleep ( 200 )
			Else
			   ustaw_wojsko_w_1_fali_DRUGIATAK()
			   ExitLoop
			   Return
			EndIf
		 Next
		 EndFunc



   Func ustaw_wojsko_w_1_fali_DRUGIATAK()
			   global $y9 = 0, $x9 = 0
			   Local $searchCESARSKICZARNY = _ImageSearch('Cesarski_czarny.bmp', 50, $x9, $y9, 0)
			   Sleep ( 500 )
			If $searchCESARSKICZARNY = 1 Then
			   ;lewe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 486 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )
			   ;srodkowe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 664, 517 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )

			   MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
			   Sleep ( 1000 )
			   wstaw_narzedzia_tarany_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_tarany_DRUGIATAK()
			   global $y11 = 0, $x11 = 0
			   Local $searchTARAN = _ImageSearch('TARAN.bmp', 1, $x11, $y11, 0)
			   Sleep ( 500 )
			If $searchTARAN = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 644, 436 )
			   Sleep ( 500 )
			   Send("2")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 500 )
			   wstaw_narzedzia_drabiny_srodek_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem taranów!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_srodek_DRUGIATAK()
			   global $y12 = 0, $x12 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x12, $y12, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 690, 441 )
			   Sleep ( 500 )
			   Send("14")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_drabiny_lewo_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_lewo_DRUGIATAK()
			   global $y13 = 0, $x13 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x13, $y13, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 390 )
			   Sleep ( 500 )
			   Send("14")
			   MouseClick( "PRIMARY", 809, 475 )
			   ;ide w narzedziach szukac oslon
			   MouseClick( "PRIMARY", 1038, 648 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_srodek_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_oslony_srodek_DRUGIATAK()
			   global $y14 = 0, $x14 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x14, $y14, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 732, 443 )
			   Sleep ( 500 )
			   Send("24")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_lewo_DRUGIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_oslony_lewo_DRUGIATAK()
			   global $y15 = 0, $x15 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x15, $y15, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 437, 398 )
			   Sleep ( 500 )
			   Send("34")
			   MouseClick( "PRIMARY", 809, 475 )
			   wyslij_atak2()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc


			#comments-start
			TRZECI DOWÓDCA ATAKUJE







			#comments-end
					#comments-start
			NACISKAM ATAK
			#comments-end
	  Func wybierz_oboz3()
			   MouseClick( "PRIMARY", 664, 409 )
			   MouseClick( "PRIMARY", 760, 431 )
			   MouseClick( "PRIMARY", 787, 538 )
			   szukaj_dowodcy_13()
			EndFunc
			#comments-start
			SZUKAM DOWÓDCY NR 13
			#comments-end
   Func szukaj_dowodcy_13()
		  For $repeat =15 To 1 Step -1 ;
			   global $y16 = 0, $x16 = 0
			   Local $searchDOWODCA13 = _ImageSearch('DOWODCA13.bmp', 1, $x16, $y16, 0)
			   Sleep ( 600 )
			If $searchDOWODCA13 = 0 Then
			   MouseClick( "PRIMARY", 295, 683 )
			   Sleep ( 200 )
			Else
			   ustaw_wojsko_w_1_fali_TRZECIATAK()
			   ExitLoop
			   Return
			EndIf
		 Next
   EndFunc



   Func ustaw_wojsko_w_1_fali_TRZECIATAK()
			   global $y17 = 0, $x17 = 0
			   Local $searchGWARDIACZARNY = _ImageSearch('Gwardia_czarny.bmp' , 50, $x17, $y17, 0)
			   Sleep ( 500 )
			If $searchGWARDIACZARNY = 1 Then
			   ;lewe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 486 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )
			   ;srodkowe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 664, 517 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )

			   MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
			   Sleep ( 1000 )
			   wstaw_narzedzia_tarany_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_tarany_TRZECIATAK()
			   global $y18 = 0, $x18 = 0
			   Local $searchTARAN = _ImageSearch('TARAN.bmp', 1, $x18, $y18, 0)
			   Sleep ( 500 )
			If $searchTARAN = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 644, 436 )
			   Sleep ( 500 )
			   Send("12")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 500 )
			   wstaw_narzedzia_drabiny_srodek_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem taranów!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_srodek_TRZECIATAK()
			   global $y19 = 0, $x19 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x19, $y19, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 690, 441 )
			   Sleep ( 500 )
			   Send("9")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_drabiny_lewo_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_drabiny_lewo_TRZECIATAK()
			   global $y20 = 0, $x20 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x20, $y20, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 390 )
			   Sleep ( 500 )
			   Send("9")
			   MouseClick( "PRIMARY", 809, 475 )
			   ;ide w narzedziach szukac oslon
			   MouseClick( "PRIMARY", 1038, 648 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_srodek_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_srodek_TRZECIATAK()
			   global $y21 = 0, $x21 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x21, $y21, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 732, 443 )
			   Sleep ( 500 )
			   Send("24")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_lewo_TRZECIATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_lewo_TRZECIATAK()
			   global $y22 = 0, $x22 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x22, $y22, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 437, 398 )
			   Sleep ( 500 )
			   Send("34")
			   MouseClick( "PRIMARY", 809, 475 )
			   wyslij_atak3()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc




			#comments-start
			CZWARTY DOWÓDCA ATAKUJE







			#comments-end
					#comments-start
			NACISKAM ATAK
			#comments-end
	  Func wybierz_oboz4()
			   MouseClick( "PRIMARY", 664, 409 )
			   MouseClick( "PRIMARY", 760, 431 )
			   MouseClick( "PRIMARY", 787, 538 )
			   szukaj_dowodcy_12()
	  EndFunc
			#comments-start
			SZUKAM DOWÓDCY NR 12
			#comments-end
	  Func szukaj_dowodcy_12()
			 For $repeat =15 To 1 Step -1 ;
			   global $y23 = 0, $x23 = 0
			   Local $searchDOWODCA12 = _ImageSearch('DOWODCA12.bmp', 1, $x23, $y23, 0)
			   Sleep ( 600 )
			If $searchDOWODCA12 = 0 Then
			   MouseClick( "PRIMARY", 295, 683 )
			   Sleep ( 200 )
			Else
			   ustaw_wojsko_w_1_fali_CZWARTYATAK()
			   ExitLoop
			   Return
			EndIf
		 Next
	  EndFunc



   Func ustaw_wojsko_w_1_fali_CZWARTYATAK()
			   global $y24 = 0, $x24 = 0
			   Local $searchGWARDIACZARNY = _ImageSearch('Gwardia_czarny.bmp', 50, $x24, $y24, 0)
			   Sleep ( 500 )
			If $searchGWARDIACZARNY = 1 Then
			   ;lewe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 486 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )
			   ;srodkowe okienko
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 664, 517 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 747, 418 )
			   MouseClick( "PRIMARY", 809, 475 )

			   MouseClick( "PRIMARY", 1033, 576 ) ; przechodze do zakladki narzedzi
			   Sleep ( 1000 )
			   wstaw_narzedzia_tarany_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK WOJSKA", "Nie znalazłem łuczników!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_tarany_CZWARTYATAK()
			   global $y25 = 0, $x25 = 0
			   Local $searchTARAN = _ImageSearch('TARAN.bmp', 1, $x25, $y25, 0)
			   Sleep ( 500 )
			If $searchTARAN = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 644, 436 )
			   Sleep ( 500 )
			   Send("14")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 500 )
			   wstaw_narzedzia_drabiny_srodek_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem taranów!" )
			   Return
			EndIf
		 EndFunc

   Func wstaw_narzedzia_drabiny_srodek_CZWARTYATAK()
			   global $y26 = 0, $x26 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x26, $y26, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 690, 441 )
			   Sleep ( 500 )
			   Send("5")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_drabiny_lewo_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_drabiny_lewo_CZWARTYATAK()
			   global $y27 = 0, $x27 = 0
			   Local $searchDRABINA = _ImageSearch('DRABINA.bmp', 1, $x27, $y27, 0)
			   Sleep ( 500 )
			If $searchDRABINA = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 374, 390 )
			   Sleep ( 500 )
			   Send("5")
			   MouseClick( "PRIMARY", 809, 475 )
			   ;ide w narzedziach szukac oslon
			   MouseClick( "PRIMARY", 1038, 648 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_srodek_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem drabin!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_srodek_CZWARTYATAK()
			   global $y28 = 0, $x28 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x28, $y28, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 732, 443 )
			   Sleep ( 500 )
			   Send("24")
			   MouseClick( "PRIMARY", 809, 475 )
			   Sleep ( 1000 )
			   wstaw_narzedzia_oslony_lewo_CZWARTYATAK()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc

	Func wstaw_narzedzia_oslony_lewo_CZWARTYATAK()
			   global $y29 = 0, $x29 = 0
			   Local $searchOSLONY = _ImageSearch('OSLONY.bmp', 1, $x29, $y29, 0)
			   Sleep ( 500 )
			If $searchOSLONY = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 437, 398 )
			   Sleep ( 500 )
			   Send("34")
			   MouseClick( "PRIMARY", 809, 475 )
			   wyslij_atak_ostatni()
			Else
			   MsgBox( 1, "BRAK NARZEDZI", "Nie znalazłem osłon!" )
			   Return
			EndIf
		 EndFunc
	Func wyslij_atak_ostatni()
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 991, 703 )
			   Sleep ( 500 )
			   MouseClick( "PRIMARY", 785, 382 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 816, 618 )
			   Sleep ( 300000 )
			   PaliSie()
			EndFunc
	  Func PaliSie()
		 While 1
   			   global $y30 = 0, $x30 = 0
			   Local $searchPALISIE1 = _ImageSearch('PALISIE.bmp', 10, $x30, $y30, 0)
			   Sleep ( 15 )
			If $searchPALISIE1 = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 849, 421 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 905, 245 )
			   Sleep ( 100 )
			   PaliSie2()

	  EndIf
	  WEnd
	  EndFunc
	  Func PaliSie2()
		 While 1
   			   global $y31 = 0, $x31 = 0
			   Local $searchPALISIE2 = _ImageSearch('PALISIE.bmp', 10, $x31, $y31, 0)
			   Sleep ( 15 )
			If $searchPALISIE2 = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 849, 421 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 905, 245 )
			   Sleep ( 100 )
			   PaliSie3()
	 EndIf
	  WEnd
	  EndFunc
	  Func PaliSie3()
		 While 1
   			   global $y32 = 0, $x32 = 0
			   Local $searchPALISIE3 = _ImageSearch('PALISIE.bmp', 10, $x32, $y32, 0)
			   Sleep ( 15 )
			If $searchPALISIE3 = 1 Then
			   MouseClick( "PRIMARY", $x, $y )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 849, 421 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 905, 245 )
			   Sleep ( 100 )
			   PaliSie4()
			EndIf
			WEnd
	  EndFunc
	  Func PaliSie4()
		 While 1
   			   global $y33 = 0, $x33 = 0
			   Local $searchPALISIE4 = _ImageSearch('PALISIE.bmp', 10, $x33, $y33, 0)
			   Sleep ( 15 )
			If $searchPALISIE4 = 1 Then
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 849, 421 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 905, 245 )
			   ;Sleep ( 60000 )

			EndIf
		WEnd
	  EndFunc
   EndSwitch
WEnd

Hans Kloss PL · 23 Stycznia 2016

Całkiem nie jarzysz. Ciężko Ci pomóc, bo cały czas mimo tłumaczeń pakujesz definicje funkcji do pętli.

Ktosiu · 24 Stycznia 2016

Ile razy powtarzać że definicje funkcji nie mogą być w pętli bo nie zostaną wykonane !

Możesz je sobie napisać byle gdzie w pliku programu byle nie były w niczym, mają być LUZEM nie ujęte w nic.

ZidaneNS · 24 Stycznia 2016

@Tieru

@Ktosiu

Dzięki za ten temat i odpowiedzi miałem podobny problem

Tieru · 24 Stycznia 2016

Całkiem nie jarzysz. Ciężko Ci pomóc, bo cały czas mimo tłumaczeń pakujesz definicje funkcji do pętli.

Ile razy powtarzać że definicje funkcji nie mogą być w pętli bo nie zostaną wykonane !

Możesz je sobie napisać byle gdzie w pliku programu byle nie były w niczym, mają być LUZEM nie ujęte w nic.

Okej, od wczoraj przestudiowałem kilka kursów jakie udało mi się znaleźć.

Kod przerobiłem w sposób, który działa. Lecz jeszcze nie testowałem go, by działał w "pętli funkcyjnej".

Pętla główna jest poza funkcjami, a jeżeli mam już pętle to tylko w środku funkcji, a nie funkcja w pętli.

Dziękuję Wam za pomoc, niedługo będę testował to Wam się odwdzięczę plusikami, tylko tyle mogę.

Pozdrawiam

Zaloguj się

👋 Witaj na MPCForum!

Funkcje - recursion - gdzie mam błąd?

Rekomendowane odpowiedzi

Tieru

Tieru

jamajkasnk

jamajkasnk

Tieru

Tieru

Ktosiu

Ktosiu

Tieru

Tieru

Ktosiu

Ktosiu

Tieru

Tieru

Ktosiu

Ktosiu

Tieru

Tieru

Hans Kloss PL

Hans Kloss PL

Ktosiu

Ktosiu

ZidaneNS

ZidaneNS

Tieru

Tieru

Zarchiwizowany