Свернуть ↑ http://boards.lineage2.com/showthread.php?t=229998

Свернуть ↑ #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

Свернуть ↑ XD XD XD XD XD XD XD XD XD