- 调用 Bkgnd.LeftClick(Hwnd,646,386)
- 延时 500 毫秒
- 注释:属性确定
- 调用 Bkgnd.LeftClick(Hwnd,641,398)
- 延时 500 毫秒
- 注释:确认
- 调用 Bkgnd.LeftClick(Hwnd,639,384)
- 延时 1000 毫秒
- 注释:加按一下回车键,防止没有按到确认按键
- 调用 Bkgnd.KeyPress(Hwnd,13)
- 延时 500 毫秒
- 令 i = i + 1
- 循环结束
- 令 pycount = 0
- 子程序结束
- 子程序 商队刷新()
- 注释:进入跑商界面
- 调用 Bkgnd.LeftClick(Hwnd,942,110)
- 调用 商队A()
- 调用 商队B()
- 延时 1000 毫秒
- 注释:判断在哪交易,然后继续跑商
- 令 color_a = Bkgnd.GetPixelColor(Hwnd,shanga_x + 1,shanga_y + 13)
- 如果 color_a = "13ADFD" 则
- 调用 商队交易(shanga_x + 1,shanga_y + 13,Buy_a)
- 延时 200 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,shangb_x,shangb_y)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,503,410)
- 延时 500 毫秒
- 否则
- 令 color_b = Bkgnd.GetPixelColor(Hwnd,shangb_x + 1,shangb_y + 13)
- 如果 color_b = "13ADFD" 则
- 调用 商队交易(shangb_x + 1,shangb_y + 13,Buy_b)
- 延时 200 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,shanga_x,shanga_y)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,503,410)
- 延时 500 毫秒
- 条件结束
- 条件结束
- 延时 1000 毫秒
- 子程序结束
- 子程序 刷赏金()
- 延时 1000 毫秒
- 令 h = Hour(Time)
- 令 m = Minute(time)
- 如果 h = 15 并且 m > 30 则
- 调用 进入城池()
- 调用 进入探险地图()
- 调用 Bkgnd.LeftClick(Hwnd,414,335)
- 延时 1000 毫秒
- 注释:打旦旦
- 调用 Bkgnd.LeftClick(Hwnd,844,335)
- 延时 2000 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,817,354)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,696,301)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,636,398)
- 延时 1000 毫秒
- 条件结束
- 令 shangjin = 0
- 子程序结束
- 子程序 进入探险地图()
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,903,90)
- 延时 1000 毫秒
- 子程序结束
- 子程序 创建20FB()
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,960,88)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,953,491)
- 延时 1000 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,883,480)
- 延时 1000 毫秒
- 子程序结束
- 子程序 武将突飞()
- 延时 1000 毫秒
- 注释:检测是否为可突飞状态
- 令 color_tf = Bkgnd.GetPixelColor(Hwnd,135,176)
- 如果 color_tf = "00FF00" 则
- 注释:突飞空闲则进入训练界面,开始突飞
- 调用 Bkgnd.LeftClick(Hwnd,15,173)
- 延时 2000 毫秒
- 注释:选择要突飞的武将
- 根据 tfwj 选择
- 情况 "1":
- 调用 Bkgnd.LeftClick(Hwnd,375,165)
- 情况 "2":
- 调用 Bkgnd.LeftClick(Hwnd,445,165)
- 情况 "3":
- 调用 Bkgnd.LeftClick(Hwnd,515,165)
- 情况 "4":
- 调用 Bkgnd.LeftClick(Hwnd,375,255)
- 情况 "5":
- 调用 Bkgnd.LeftClick(Hwnd,445,255)
- 情况 "6":
- 调用 Bkgnd.LeftClick(Hwnd,515,255)