Kilka warunków w jednej pętli

[Tieru]

Cześć,

Po długim czasie wracam z kolejną dla mnie przeszkodą.

 

Oto kod, który działa, lecz jest nierozbudowany tak jakbym chciał i tylko potrafi robić rzecz z obozem, ale już nie nagrodą, resztę opisałem w dwóch sposobach poniżej.

Func PaliSie()
		 While 1 ; tutaj ma być pętla 4 minutowa, po 4 minutach ma skoczyć do funkcji START()
   			   global $y100 = 0, $x100 = 0
			   Local $searchPALISIE1 = _ImageSearch('PALISIE.bmp', 80, $x100, $y100, 99)

			   global $y101 = 0, $x101 = 0
			   Local $searchNAGRODY1 = _ImageSearch('NAGRODY.bmp', 80, $x101, $y101, 99)
			   Sleep ( 15 )
			If $searchPALISIE1 = 1 Then
			   MouseClick( "PRIMARY", $x100, $y100, 1, 1 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422, 1, 1 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377, 1, 1 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 622, 414, 1, 1 )
			   Sleep ( 200 )
			   MouseClick( "PRIMARY", 446, 420, 2, 1 )
			   Sleep ( 380 )
			   MouseClick( "PRIMARY", 620, 416, 1, 1 )
			   Sleep ( 910 )
			   MouseClick( "PRIMARY", 905, 245, 1, 1 )
			   Sleep ( 100 )
			EndIf
		 WEnd
EndFunc

Największym moim problemem jest takie coś...

 

Gdzie jest If ma być:

WHILE (4 MINUTY DZIALANIA)

If $searchPALISIE1 = 0 or 1 Then
sleep ( 1000 )
If $searchNAGRODY1 = 1 Then
MouseClick(obrazek)
Else $searchNAGRODY1
MouseClick(oboz)

WEND

Jeżeli ktoś nie zrozumie to tak...

Funkcja 1()

Pętla (4 minuty)

obrazek_nagrod

obrazek_obozu

If OBRAZEK OBOZU = 0 LUB 1 Then

SLEEP ( 1000 )

If obrazek_nagrod = 1 Then

lewym_klik (obrazek_nagrod.bmp)

Else obrazek_nagrod LECZ obrazek_obozu = 1 Then

lewym_klik (oboz)

WEnd

START()

KoniecFunkcji

 

 

Za pomoc limit plusików (20), dzięki!

 

 

[Z FORUM MAM KOD NA MINUTY]

 

$min = @
While 1
    If $min = $min +4 then ExitLoop
WEnd

Po wielu kombinacjach zrobiłem coś takiego, teraz może tylko czas i sprawdzić kilka razy działanie

 

 

Func PaliSie()
		 While 1 ; tutaj ma być pętla 4 minutowa, po 4 minutach ma skoczyć do funkcji START()
   			   global $y100 = 0, $x100 = 0
			   Local $searchPALISIE1 = _ImageSearch('PALISIE.bmp', 80, $x100, $y100, 99)

			   global $y101 = 0, $x101 = 0
			   Local $searchNAGRODY1 = _ImageSearch('NAGRODY.bmp', 80, $x101, $y101, 99)
			   Sleep ( 15 )
			If $searchPALISIE1 = 1 Then
			   Sleep ( 350 )
			   sprawdzam1()

			EndIf
		 WEnd
	  EndFunc


Func sprawdzam1()
   			   global $y101 = 0, $x101 = 0
			   Local $searchNAGRODY1 = _ImageSearch('NAGRODY.bmp', 80, $x101, $y101, 99)
			   Sleep ( 15 )
   If $searchNAGRODY1 = 1 Then
			   MouseClick( "PRIMARY", $x101, $y101, 1, 3 )
			   Sleep ( 60 )
			   MouseClick( "PRIMARY", $x101, $y101, 1, 3 )
			   Sleep ( 70 )
			   MouseClick( "PRIMARY", $x101, $y101, 1, 3 )
			   Sleep ( 100 )
			   sprawdzam2()
			Else
			   sprawdzam2()
   EndIf
EndFunc

Func sprawdzam2()
      			   global $y100 = 0, $x100 = 0
			   Local $searchPALISIE1 = _ImageSearch('PALISIE.bmp', 80, $x100, $y100, 99)

			   MouseClick( "PRIMARY", $x100, $y100, 1, 1 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422, 1, 1 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377, 1, 1 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 622, 414, 1, 1 )
			   Sleep ( 200 )
			   MouseClick( "PRIMARY", 446, 420, 2, 1 )
			   Sleep ( 380 )
			   MouseClick( "PRIMARY", 620, 416, 1, 1 )
			   Sleep ( 910 )
			   MouseClick( "PRIMARY", 905, 245, 1, 1 )
			   Sleep ( 100 )
			   PaliSie()
EndFunc

 

 

Chyba poradziłem sobie sam...

 

 

Func PaliSie()
   Global $TIMER = TimerInit()
   Global Const $TIMEOUT = 470000; czas

		 While 1
   			   global $y100 = 0, $x100 = 0
			   Local $searchPALISIE1 = _ImageSearch('PALISIE.bmp', 80, $x100, $y100, 99)

			   global $y101 = 0, $x101 = 0
			   Local $searchNAGRODY1 = _ImageSearch('NAGRODY.bmp', 80, $x101, $y101, 99)
			   Sleep ( 15 )
			If $searchPALISIE1 AND $searchNAGRODY1 = 1 Then
			Sleep ( 350 )
			   MouseClick( "PRIMARY", $x101, $y101, 1, 3 ) ; tutaj naciskam na ptaszka nagród zdobytych
			   Sleep ( 60 )
			   MouseClick( "PRIMARY", $x101, $y101, 1, 3 )
			   Sleep ( 70 )
			   MouseClick( "PRIMARY", $x101, $y101, 1, 3 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", $x100, $y100, 1, 1 ) ; tutaj już gaszę obóz
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422, 1, 1 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377, 1, 1 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 622, 414, 1, 1 )
			   Sleep ( 200 )
			   MouseClick( "PRIMARY", 446, 420, 2, 1 )
			   Sleep ( 380 )
			   MouseClick( "PRIMARY", 620, 416, 1, 1 )
			   Sleep ( 850 )
			   MouseClick( "PRIMARY", 905, 245, 1, 1 )
			   Sleep ( 100 )
			ElseIf $searchNAGRODY1 = 0 AND $searchPALISIE1 = 1 Then
			   MouseClick( "PRIMARY", $x100, $y100, 1, 1 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 770, 422, 1, 1 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 830, 377, 1, 1 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", 622, 414, 1, 1 )
			   Sleep ( 200 )
			   MouseClick( "PRIMARY", 446, 420, 2, 1 )
			   Sleep ( 380 )
			   MouseClick( "PRIMARY", 620, 416, 1, 1 )
			   Sleep ( 850 )
			   MouseClick( "PRIMARY", 905, 245, 1, 1 )
			   Sleep ( 100 )
			ElseIf $searchNAGRODY1 = 1 Then
			Sleep ( 50 )
			   MouseClick( "PRIMARY", $x101, $y101, 1, 3 ) ; tutaj naciskam na ptaszka nagród zdobytych
			   Sleep ( 60 )
			   MouseClick( "PRIMARY", $x101, $y101, 1, 3 )
			   Sleep ( 70 )
			   MouseClick( "PRIMARY", $x101, $y101, 1, 3 )
			   Sleep ( 100 )
			   MouseClick( "PRIMARY", $x100, $y100, 1, 1 ) ; tutaj już gaszę obóz
			ElseIf TimerDiff($TIMER) >= $TIMEOUT Then
			   Rozpocznij_00()
			   ExitLoop
			EndIf
		 WEnd
	  EndFunc