В функции CheckIt() есть 4 условия. В функции Start() есть цикл "While 1". Мне необходимо после выполнения одного из условий в функции CheckIt() - начинать цикл "While 1" в функции Start() - заново (с начала)! Как это можно реализовать? :-\
Вот код:
Вот код:
Код:
AdlibRegister("CheckIt", 1000)
HotKeySet("{F4}", "Start")
HotKeySet("{ESC}", "_Exit")
While 1
Sleep(350)
WEnd
Func Start()
While 1 ; <= начало цикла
$1 = PixelSearch(272,159,365,190,0xFF0000)
If IsArray($1) = True Then
$11 = PixelSearch(526,165,537,177,0xFF0000)
If IsArray($11) = True Then
MouseClick("left", 841, 635, 1, 0)
WaitColor(0x00FF00)
MouseClick("left", 925, 618, 1, 0)
EndIf
EndIf
$2 = PixelSearch(272,159,365,190,0x00FF00)
If IsArray($2) = True Then
$22 = PixelSearch(526,165,537,177,0x00FF00)
If IsArray($22) = True Then
MouseClick("left", 925, 618, 1, 0)
WaitColor(0xFF0000)
MouseClick("left", 841, 635, 1, 0)
EndIf
EndIf
WEnd ; <= конец цикла
EndFunc
Func WaitColor($Color)
Do
PixelSearch(526,165,537,177, $Color)
Until Not @error
EndFunc
Func CheckIt()
$close = PixelSearch(1220, 327, 1248, 351, 0xCCCCCC)
If IsArray($close) = True Then
Sleep(400)
MouseClick("left", 1195, 479, 1, 0)
Sleep(400)
EndIf
$eror = PixelSearch(797, 500, 851, 519, 0x404040)
If IsArray($eror) = True Then
MouseClick("left", 1150, 479, 1, 0)
EndIf
$ok = PixelSearch(690, 510, 1185, 591, 0x0084FF)
If IsArray($ok) = True Then
$posok = PixelSearch(690, 510, 1185, 591, 0x0084FF)
If IsArray($posok) = True Then
MouseMove($posok[0], $posok[1], 1)
MouseClick("left")
Sleep(30)
EndIf
EndIf
EndFunc
Func _Exit()
Exit
EndFunc