Код:
Global $WinName = "World of Warcraft"
Opt("PixelCoordMode", 2) ;Отсчет координат пикселей от левого верхнего угла клиентской части окна
Opt("MouseCoordMode", 2) ;Отсчет координат мыши от левого верхнего угла клиентской части окна
HotKeySet("{Pause}", "TogglePause")
HotKeySet("^{Pause}", "_Exit")
Global $Paused
Sleep(500)
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(500)
ToolTip('Paused',180,0)
WEnd
ToolTip("")
Check()
EndFunc
Func _Exit()
MsgBox(0,"","Выход")
Exit
EndFunc
While 1
TogglePause()
Sleep(100)
WEnd
WinActivate($WinName)
WinWaitActive($WinName)
Func Check()
Send ("1")
ToolTip('Check',180,0)
SLeep(2000)
Dim $coord1 = PixelSearch(256, 17, 1345, 627, 0xAF7A53, 10 )
If Not @error Then
MouseMove ($coord1[0]+10, $coord1[1]+10)
EndIf
While 1
$coord2 = PixelSearch($coord1[0]-10, $coord1[1]-10, $coord1[0]+9, $coord1[1]+9, 0xAF7A53, 30 ) ;ошибка в этой строке
If @error Then EndCheck()
Sleep(100)
WEnd
EndFunc
Func EndCheck()
ToolTip('EndCheck',180,0)
MouseClick("Right")
Sleep(2000)
Check()
EndFunc
Возникает ошибка Subscript used with non-Array variable в строке $coord2 = PixelSearch($coord1[0]-10, $coord1[1]-10, $coord1[0]+9, $coord1[1]+9, 0xAF7A53, 30 )