[原創] 1115自動練功修正版[台版港版都可用][視窗模式]

歐菲爾

歐菲爾 發表於 2009-11-15 12:50:35 | 只看該作者回帖獎勵

本帖最後由歐菲爾於 2009-11-16 10:04 編輯

小秘書提供的版本有bug
一小時候不會自動點啟動
我提供最新版…而且不用錢
http://fhd.iwgun.net/downfile.php?action=public&file_id=2843&file_key=XuG2J9rk
討論版連結:
http://bbs.seraph.com.tw/forum-194-1.html
要是之前已經有下的,我也提供代碼給你們直接更新

#[HOTKEY]HOME
function main
SetInputMode(3)
//取窗口原點坐標
while true
Wait(100)//大地圖上判斷,按下自動攻擊
a()
b()
wend
end function
function A
GetActiveWindowXY(WinX0, WinY0)
if FindImageEx("未啟動.sel", Color(10, 10, 10), WinX0+520, WinY0+328, WinX0+655, WinY0+406, true, FoundX, FoundY) then
Wait(300)
if FindImageEx("啟動.sel", Color(10, 10, 10), WinX0+527, WinY0+427, WinX0+674, WinY0+519, true, FoundX, FoundY) then
//在圖像上的(5, 5)位置點擊鼠標
MouseLeftClick(FoundX+5, FoundY+5)
Wait(300)
end if
end if
end function
function b
GetActiveWindowXY(WinX0, WinY0)
//如果找到圖像"回合.sel",進入戰鬥畫面後判斷
if not FindImageEx("回合.sel", Color(10, 10, 10), WinX0+243, WinY0+292, WinX0+442, WinY0+420, true, FoundX, FoundY) then
do until FindImageEx("自動.sel", Color(10, 10, 10), WinX0+685, WinY0+259, WinX0+770, WinY0+354, true, FoundX, FoundY)
Wait(300)
a()
MouseMove(WinX0+350, WinY0+400)
loop
//在圖像上的(1, 1)位置點擊鼠標
MouseLeftClick(FoundX+1, FoundY+1)
Wait(300)
MouseMove(WinX0+350, WinY0+400)
end if
end function