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
//进入墨者界面,领取每日奉禄