Свернуть ↑
#include <ImageSearch.au3>
HotKeySet("1", "enchat")
HotKeySet("{ESC}", "Terminate")
$x1 = 0
$y1 = 0
$x2 = 0
$y2 = 0
$x3 = 0
$y3 = 0
$PartEnch = 'Part\perchi.bmp' ;картинка вещи
$levelEnch = 'levelEnch\norm.bmp' ;картинка необходимой заточки(в чате где дамаг)
$GradeScroll = 'dataPick\scroll.bmp' ;Картинка грейда точки
While 1
Sleep(500)
WEnd
Func enchat()
$result = _ImageSearch($GradeScroll,1, $x1,$y1, 1)
sleep(50)
if $result=1 then
MouseClick("left", $x1, $y1, 1, 1)
sleep(50)
MouseClick("left", $x1, $y1, 1, 1)
sleep(300)
$result = _ImageSearch($PartEnch,1, $x1,$y1, 1)
if $result=1 then
sleep(100)
MouseClick("left", $x1, $y1, 1, 1)
MouseClick("left", $x1, $y1, 1, 1)
sleep(100)
$result = _ImageSearch("dataPick\da.bmp",1, $x1,$y1, 1)
if $result=1 then
sleep(100)
MouseClick("left", $x1, $y1, 1, 1)
sleep(1000)
$result = _ImageSearch($levelEnch,1, $x1,$y1, 2)
if $result=1 then
sleep(100)
Beep(500, 100)
MsgBox(4096, "Test", "УРА, ЗАТОЧИЛОСЬ БЛЯТ", 1)
Else
enchat2()
EndIf
Else
;MsgBox(4096, "Test", "косяк с кнопкой да", 1)
return
;Exit 0
EndIf
Else
;MsgBox(4096, "Test", "Не могу найти пушку", 1)
return
;Exit 0
EndIf
Else
;MsgBox(4096, "Test", "Не могу найти скрол", 1)
EndIf
EndFunc
Func Terminate()
Exit 0
EndFunc