Akira056 Posted November 4, 2010 Share Posted November 4, 2010 i'm not sure how this work but something wrong around imagesearch if anyone can help correct.#include <pic.au3>HotKeySet("{ESC}", "Terminate")MsgBox(0,"Spirit Weapon","what?")WinActivate("Mabinogi")WinActive("Mabinogi"); General purpose coordsGlobal $xGlobal $yGlobal $cxGlobal $cyWhile 1 TalkToEgo() Check()WEndFunc TalkToEgo() Send("{/}") Sleep(5000) MouseClick("Primary", 430, 783, 1) Sleep(4000) MouseClick("Primary", 253, 783, 1) Sleep(2000)EndFuncFunc Check() $c = _ImageSearch("unhappy.BMP",0,$cx,$cy,30) If $c=1 Then Feed() Return EndIf $c = _ImageSearch("fine.BMP",0,$cx,$cy,30) If $c=1 Then CloseEgo() Return EndIfEndFuncFunc Feed() MouseClick("Primary", 342, 783, 1) Sleep(4000) MouseClick("Primary", 251, 785, 1) Sleep(2000) MouseClick("Primary", 807, 506, 1) Sleep(2000) MouseClick("Primary", 907, 581, 1) Sleep(4000) MouseClick("Primary", 500, 700, 1) Sleep(1000) MouseClick("Primary", 500, 700, 1) Sleep(1000) MouseClick("Primary", 500, 700, 1) Sleep(1000) MouseClick("Primary", 500, 700, 1) Sleep(1000) MouseClick("Primary", 500, 700, 1) Sleep(1000) MouseClick("Primary", 500, 700, 1) Sleep(1000) MouseClick("Primary", 500, 700, 1) Sleep(1000) MouseClick("Primary", 500, 700, 1) Sleep(1000) MouseClick("Primary", 500, 700, 1) Sleep(1000) MouseClick("Primary", 500, 700, 1) Sleep(1000) MouseClick("Primary", 500, 700, 1) Sleep(1000) MouseClick("Primary", 500, 700, 1) Sleep(1000) MouseClick("Primary", 500, 700, 1) Sleep(1000) MouseClick("Primary", 1000, 583, 1) ; cancel Sleep(2000) MouseClick("Primary", 257, 785, 1) ; continue Sleep(4000) MouseClick("Primary", 545, 785, 1) ; finish Sleep(4000) MouseClick("Primary", 272, 782, 1) ; end Sleep(4000)EndFuncFunc CloseEgo() MouseClick("Primary", 545, 785, 1) ; finish Sleep(4000) MouseClick("Primary", 272, 782, 1) ; end Sleep(4000)EndFuncFunc cc() MouseClick("Primary", 143, 865, 1) ; cross Sleep(4000) MouseClick("Primary", 210, 533, 1) ;cc Sleep(4000) MouseClick("Primary", 823, 568, 1) ;close Sleep(4000) MouseClick("Primary", 604, 440, 1) ;ch1 Sleep(4000) MouseClick("Primary", 607, 594, 1) ;ok Sleep(420000)EndFuncFunc Terminate() Exit 0EndFunc Link to comment Share on other sites More sharing options...
whim Posted November 4, 2010 Share Posted November 4, 2010 Read this Link to comment Share on other sites More sharing options...
Recommended Posts