//按鍵精靈9 開啟前先把滑鼠放遊戲視窗上 可跨電腦版本 Chrome專用
myHwnd = Plugin.Window.MousePoint()
Do While (1)
LockMouse
Delay 1000
MoveTo 0, 0
Delay 100
MoveTo 0,1
call stage_select(217,350,326,285) //Emerudi溪谷 I
//call stage_select(217,350,326,397) //Emerudi溪谷 IV
//Call stage_select(240,412,427,330) //斷崖的關所 III 5級人 盜賊素材-但是都打不到
//call stage_select(250,365,351,396) //國境附近之森 V 8級歌布林 可帶練低等新人+打法術系任務用素材
//Call stage_select(360,410,351,396) //Senta大橋 V 12級歌布林*11
//call stage_select(618,374,444,269) //Messenia北部 I 18級歌布林 鍊等+打歌布林爪
//call stage_select(618,374,444,330) //Messenia北部 III 18級人 練等
//call stage_select(458,432,397,301) //Orudorosu北西部 II 12級雪狼 目的是過關的寶箱
//call stage_select(458,432,397,396) //Orudorosu北西部 V 12級雪狼 *12 1200G
//call stage_select(512,481,423,301) //豐xxx廣原 II 14級狼 *8 800G , 狼爪
//call stage_select(539,288,397,269) //詩人之道 I 16級人 *10 1000G , 過關寶箱素材
//Call stage_select(287,233,397,301) //Shuperutasu南東部II 29級鳥 *14 1400G
//call stage_select(511,375,460,285) //狂謎回想2 有回想對話 注意
Call Plugin.Bkgnd.LeftClick(myHwnd, 520, 500)
While (Plugin.Bkgnd.FindColorEX(myHwnd, 90, 360, 91, 361, "7FADD0", 0, 0.9) = "-1|-1")
Delay 1000
Wend
Delay 2000
Call Plugin.Bkgnd.LeftClick(myHwnd, 59, 359) //出擊人物AUTO
Delay 6000
Call Plugin.Bkgnd.LeftClick(myHwnd, 688, 356) //戰鬥AUTO
Delay 6000
If (not(Plugin.Bkgnd.FindColorEX(myHwnd, 564, 348, 565, 349, "1A1513", 0, 0.9) = "-1|-1") ) Then
EndScript
End If
Call Plugin.Bkgnd.LeftClick(myHwnd, 545, 519) //出擊鈕
Delay 3000
Call Plugin.Bkgnd.LeftClick(myHwnd, 444, 366) //確定使用道具
UnlockMouse
Do While (Plugin.Bkgnd.FindColorEX(myHwnd, 0, 0,1,1,"1D2A50",0,0.96) = "-1|-1")
Delay 5000
//Call Plugin.Bkgnd.LeftClick(myHwnd, 873, 544) //回想快送
Loop
LockMouse
Delay 1000
MoveTo 0, 0
For (8) //戰鬥成果 Next
Delay 1000
Call Plugin.Bkgnd.LeftClick(myHwnd, 933, 546)
Next
i = 180 //判斷回到大地圖 否則就點寶箱位置
Do While (i = 0 or (Plugin.Bkgnd.FindColorEX(myHwnd, 0, 0,1,1,"41454B",0,0.96) = "-1|-1"))
Call Plugin.Bkgnd.LeftClick(myHwnd, 726, 300)
Delay 1000
i=i-1
Loop
UnlockMouse
If (i=0) Then
EndScript
End If
Delay 5000
Loop
Sub stage_select(x1, y1, x2, y2)
Call Plugin.Bkgnd.LeftClick(myHwnd, x1, y1)
Delay 3000
Call Plugin.Bkgnd.LeftClick(myHwnd, x2, y2)
Delay 3000
End Sub
|
