1.     调用 释放技能(intXJn3,intYJn3,time3,300,500)
  2.     注释:BUFF_斥法金刚
  3.     调用 释放技能(intXJn4,intYJn4,time4,300,500)
  4.     注释:攻击_嗜血飞斧
  5.     调用 释放技能(intXJn5,intYJn5,time5,5,500)
  6.     注释:攻击_霸王翔吼
  7.     如果 siwangdian <> 3 则
  8.         调用 释放技能(intXJn6,intYJn6,time6,5,500)
  9.     条件结束
  10.     注释:攻击_威临天下
  11.     调用 释放技能(intXJn7,intYJn7,time7,5,500)
  12.     注释:攻击_血战八方
  13.     如果 siwangdian <> 3 则
  14.         调用 释放技能(intXJn8,intYJn8,time8,5,500)
  15.     条件结束
  16. 子程序结束
  17. 注释:谋士篇
  18. 子程序 谋士初始化技能坐标
  19.     调用 查找技能所在坐标("Jn1",wjjnKey1)
  20.     向调试窗口输出:"气血俱动_技能所在坐标:" & intXJn1 & "," & intYJn1
  21.     调用 查找技能所在坐标("Jn2",wjjnKey2)
  22.     向调试窗口输出:"烈焰护体_技能所在坐标:" & intXJn2 & "," & intYJn2
  23. 子程序结束
  24. 子程序 谋士出招
  25.     注释:BUFF_气血俱动
  26.     调用 释放技能(intXJn1,intYJn1,time1,10,500)
  27.     注释:BUFF_烈焰护体
  28.     调用 释放技能(intXJn2,intYJn2,time2,300,500)
  29. 子程序结束
  30. 注释:方士篇
  31. 子程序 方士初始化技能坐标
  32.     调用 查找技能所在坐标("Jn1",wjjnKey1)
  33.     向调试窗口输出:"寒冰护体_技能所在坐标:" & intXJn1 & "," & intYJn1
  34.     调用 查找技能所在坐标("Jn2",wjjnKey2)
  35.     向调试窗口输出:"邪心共鸣_技能所在坐标:" & intXJn2 & "," & intYJn2
  36.     调用 查找技能所在坐标("Jn3",wjjnKey3)
  37.     向调试窗口输出:"嗜血无痕_技能所在坐标:" & intXJn3 & "," & intYJn3
  38.     调用 查找技能所在坐标("Jn4",wjjnKey4)
  39.     向调试窗口输出:"镇心理气_技能所在坐标:" & intXJn4 & "," & intYJn4
  40. 子程序结束
  41. 子程序 方士出招
  42.     注释:BUFF_寒冰护体
  43.     调用 释放技能(intXJn1,intYJn1,time1,60,500)
  44.     注释:攻击_邪心共鸣
  45.     如果 siwangdian <> 5 则
  46.         调用 释放技能(intXJn2,intYJn2,time2,20,500)
  47.     条件结束
  48.     注释:攻击_嗜血无痕
  49.     调用 释放技能(intXJn3,intYJn3,time3,20,500)
  50. 子程序结束
  51. 子程序 方士自动治疗
  52.     标记 X1(子程序 方士自动治疗)
  53.     令 GetColor = Bkgnd.GetPixelColor(hwnd,195,44)
  54.     延时 300 毫秒
  55.     如果 GetColor <> "190073" 则
  56.         如果 intYJn2 > 0 并且 intXJn2 > 0 则
  57.             调用 Bkgnd.LeftDoubleClick(hwnd,intXJn4,intYJn4)
  58.         否则
  59.             调用 Bkgnd.LeftDoubleClick(hwnd,256,570)
  60.         条件结束
  61.         延时 3000 毫秒
  62.         调用 异常判断()
  63.         跳转到标记 X1(子程序 方士自动治疗)
  64.     条件结束
  65. 子程序结束
  66. 注释:整理
  67. 子程序 打开宝箱
  68.     注释:打开宝箱
  69.     令 XY = Bkgnd.FindColor(Hwnd,255,175,472,425,"0000FF")
  70.     令 ZB = InStr(XY,"|")
  71.     令 X = Clng(Left(XY,ZB - 1))
  72.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  73.     调用 Bkgnd.LeftClick(Hwnd,x,y)
  74.     延时 1000 毫秒
  75.     调用 Bkgnd.LeftClick(Hwnd,x,y)
  76.     延时 1000 毫秒
  77.     调用 Bkgnd.LeftClick(Hwnd,x + 45,y + 20)
  78.     延时 1000 毫秒
  79. 子程序结束
  80. 子程序 整理
  81.     注释:开包整理
  82.     调用 Bkgnd.KeyPress(hwnd,123)
  83.     延时 500 毫秒
  84.     注释:打开包裹
  85.     调用 Bkgnd.KeyPress(hwnd,66)
  86.     延时 1000 毫秒
  87.     调用 Bkgnd.LeftClick(hwnd,417,480)
  88.     延时 1000 毫秒
  89.     注释:打开宝箱
  90.     调用 打开宝箱()
  91.     注释:点击分解
  92.     调用 Bkgnd.LeftClick(hwnd,461,479)
  93.     延时 500 毫秒
  94.     注释:第四行第一格
  95.     调用 分解(271,297)
  96.     注释:第四行第二个
  97.     调用 分解(306,295)
  98.     注释:第四行第三个
  99.     调用 分解(344,303)
  100.     注释:第四行第四个