Sub 进入探险地图() Delay 500 Call Plugin.Bkgnd.LeftClick(Hwnd,903,90) Delay 1000 End Sub Sub 创建20FB() Delay 1000 Call Plugin.Bkgnd.LeftClick(Hwnd,960,88) Delay 1000 Call Plugin.Bkgnd.LeftClick(Hwnd,953,491) Delay 1000 Call Plugin.Bkgnd.LeftClick(Hwnd,883,480) Delay 1000 End Sub Sub 武将突飞() Delay 1000 //检测是否为可突飞状态 color_tf = Plugin.Bkgnd.GetPixelColor(Hwnd, 135, 176) If color_tf = "00FF00" Then //突飞空闲则进入训练界面,开始突飞 Call Plugin.Bkgnd.LeftClick(Hwnd, 15, 173) Delay 2000 //选择要突飞的武将 Select Case tfwj Case "1" Call Plugin.Bkgnd.LeftClick(Hwnd, 375, 165) Case "2" Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 165) Case "3" Call Plugin.Bkgnd.LeftClick(Hwnd, 515, 165) Case "4" Call Plugin.Bkgnd.LeftClick(Hwnd, 375, 255) Case "5" Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 255) Case "6" Call Plugin.Bkgnd.LeftClick(Hwnd, 515, 255) Case "7" Call Plugin.Bkgnd.LeftClick(Hwnd, 375, 345) Case "8" Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 345) Case "9" Call Plugin.Bkgnd.LeftClick(Hwnd, 515, 345) Case "10" Call Plugin.Bkgnd.LeftClick(Hwnd, 375, 435) Case "11" Call Plugin.Bkgnd.LeftClick(Hwnd, 445, 435) Case "12" Call Plugin.Bkgnd.LeftClick(Hwnd, 515, 435) Case Else //否则 End Select Delay 1000 //开始突飞,12次就1小时了,防止中间有没点到的情况,点15次,保证1小时的突飞 For 15 Call Plugin.Bkgnd.LeftClick(Hwnd, 809, 371) Delay 500 Next //关闭训练窗口 Call Plugin.Bkgnd.LeftClick(Hwnd, 952, 68) Delay 1000 End If End Sub Sub 领取奖励() Delay 1000 //进入竞技场,领取每日奖励 Call Plugin.Bkgnd.LeftClick(Hwnd,892,37) Delay 3000 Call Plugin.Bkgnd.LeftClick(Hwnd,851,172) Delay 1000 Call Plugin.Bkgnd.LeftClick(Hwnd,794,425) Delay 500 //退出竞技领取界面 Call Plugin.Bkgnd.LeftClick(Hwnd,859,101) Delay 1000 //进入武道会界面 Call Plugin.Bkgnd.LeftClick(Hwnd,779,174) wd=0 Delay 1000 For 7 Call Plugin.Bkgnd.LeftClick(Hwnd,684,241+wd) Delay 1000 wd=wd+20 Next //退出武道会奖励界面 Delay 200 Call Plugin.Bkgnd.LeftClick(Hwnd,786,413) Delay 1000 //进入城池 Call Plugin.Bkgnd.LeftClick(Hwnd,896,65) Delay 2000 //进入墨者界面,领取每日奉禄