Image search

[maciek_322]

#include <Imagesearch.au3>
#include <String.au3>
$x = @DesktopHeight
$y = @DesktopWidth
$x1 = Random(1312, 1525)
$y1 = Random(621, 749)

$search = _ImageSearch("Napraw.png", 1, $x, $y, 30)
$search1 = _ImageSearch("Skok.png", 1, $x, $y, 30)
$search2 = _ImageSearch("Wybierz.png", 1, $x, $y, 30)
$search3 =_ImageSearch("Skocz.png", 1, $x, $y, 30)
$search4 = _ImageSearch("Wlacz.png", 1, $x, $y, 30)
$search5 = _ImageSearch("wybierz2.png", 1, $x, $y, 30)
$search6 = _ImageSearch("Zbieracz.png", 1, $x, $y, 30)


While 1
  $search = _ImageSearch("Napraw.png", 1, $x, $y, 30) ; sprawdza czy jest taki obrazek
If $search = 1 Then
   MouseMove($x, $y)
   MouseClick("Left")
   Sleep(1000)

   EndIf
   $search1 = _ImageSearch("Skok.png", 1, $x, $y, 30)
   If $search1 = 1 Then
	  MouseMove($x, $y)
	  MouseClick("left")
	   Sleep(1000)

	EndIf
	$search2 = _ImageSearch("Wybierz.png", 1, $x, $y, 30)
	If $search2 = 1 Then
   MouseMove($x, $y)
   MouseClick("Left")
   Sleep(1000)
   EndIf
   $search3 =_ImageSearch("Skocz.png", 1, $x, $y, 30)
If $search3 = 1 Then
   MouseMove($x, $y)
   MouseClick("Left")
   Sleep(15000)

   EndIf
   $search4 = _ImageSearch("Wlacz.png", 1, $x, $y, 30)
If $search4 = 1 Then
   MouseMove($x, $y)
   MouseClick("Left")
   Sleep(150)

   EndIf
$search5 = _ImageSearch("wybierz2.png", 1, $x, $y, 30)
If $search5 = 1 Then
   MouseMove($x, $y)
   MouseClick("Left")
   Sleep(150)

   EndIf
   $search6 = _ImageSearch("Zbieracz.png", 1, $x, $y, 30)
   If $search6 = 1 Then
   MouseMove($x, $y)
   MouseClick("Left")
   Sleep(150)
   EndIf
Exitloop ; Zamyka petle
WEnd
Run("Napraw.exe")

Chciałbym aby wszystko w tym kodzie wykonywało się pokolei .... Że nie wykona 2 szukania póki nie znajdzie drugiego obrazka Dziękuję )

Ps. na końcu jest run Napraw exe aby działało ,,w kółko" bo bez tego skrypt się wyłącza po wykonaniu wszystkiego..

[Hans Kloss PL]

Poczytaj o pętlach - rozwiąże to zarówno Twój główny problem jak i to nieszczęsne wywoływanie skryptu przez samego siebie.

 

Btw, to nie ma sensu jak z tym nic nie robisz:

$search = _ImageSearch("Napraw.png", 1, $x, $y, 30)
$search1 = _ImageSearch("Skok.png", 1, $x, $y, 30)
$search2 = _ImageSearch("Wybierz.png", 1, $x, $y, 30)
$search3 =_ImageSearch("Skocz.png", 1, $x, $y, 30)
$search4 = _ImageSearch("Wlacz.png", 1, $x, $y, 30)
$search5 = _ImageSearch("wybierz2.png", 1, $x, $y, 30)
$search6 = _ImageSearch("Zbieracz.png", 1, $x, $y, 30)

Dalej nie sprawdzałem.

[maciek_322]

Dobra już wiem że pentla z warunkiem 1 powtarza się w nieskończoność więc mogę usunąć te nieszczęsne run

Ale dalej to możesz pomóc bo nie mam pomysłu ...

Się zastanawiam nad Do until .... 

Ale nie jestem pewien czy by wyszło  i jak to zapisać

 

Ps. Exit loop też jest najwidoczniej niepotrzebne.

[Hans Kloss PL]

Przeszukaj dział, było wielokrotnie, nie chce mi się pisać kolejny raz tego samego.

[maciek_322]

No naprawdę nie wiem ....... Chyba żeee : 

 

Do $search Until $search 1 

Next 

Do $search1 until $search2

działało by to ? 

[Hans Kloss PL]

Nie. Próbujesz po omacku, tak daleko nie zajedziesz. Przeczytaj uważnie dokumentację.

[maciek_322]

https://pl.wikibooks.org/wiki/AutoIt/Instrukcje_steruj%C4%85cePrzeczytałem to i dalej nie wiem