HotKeySet("{q}", "aim")
Do
Until GUIGetMsg("Disturbed") = -3
Func aim()
$hWnd = WinGetHandle("[CLASS:APB Reloaded]", '')
$aRed_Coords = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0xCB181A,10,1,$HWnd)
If Not @error Then
Mousemove( $aRed_Coords[0], $aRed_Coords[1],1)
sleep(10)
MouseClick("left", $aRed_Coords[0], $aRed_Coords[1],1,10)
Opt("PixelCoordMode", 2) ;Отсчет координат пикселей от левого верхнего угла клиентской части окна
Opt("MouseCoordMode", 2) ;Отсчет координат мыши от левого верхнего угла клиентской части окна
endif
EndFunc