1.         延时 56 毫秒
  2.         调用 Bkgnd.LeftClick(Hwnd,910,246)
  3.     条件结束
  4.     如果 wz = 3 则
  5.         延时 56 毫秒
  6.         调用 Bkgnd.LeftClick(Hwnd,908,302)
  7.         延时 56 毫秒
  8.         调用 Bkgnd.LeftClick(Hwnd,908,302)
  9.         注释：满足条件，执行下面的脚本
  10.     否则如果 wz = 4 则
  11.         延时 56 毫秒
  12.         调用 Bkgnd.LeftClick(Hwnd,907,353)
  13.         延时 56 毫秒
  14.         调用 Bkgnd.LeftClick(Hwnd,907,353)
  15.     条件结束
  16.     如果 wz = 5 则
  17.         延时 56 毫秒
  18.         调用 Bkgnd.LeftClick(Hwnd,910,411)
  19.         延时 56 毫秒
  20.         调用 Bkgnd.LeftClick(Hwnd,910,411)
  21.     条件结束
  22.     令 timedg = now
  23.     注释：--------------------------------------------------------------------------以下测试部分
  24.     注释： Rem 判断弹出打怪确认窗体
  25.     注释：弹出窗体判断
  26.     注释： Delay 300
  27.     注释： Plugin op = Bkgnd.FindColorEx(Hwnd, 635,383,636,384,"060C0C", 0, 0.96)
  28.     注释： Delay 32
  29.     注释： MyArray1 = Split(op, "|")
  30.     注释： x2 = Clng(MyArray1(0)): y2 = Clng(MyArray1(1))
  31.     注释： If x2>0 and y2>0
  32.     注释： Delay 56
  33.     注释： Rem 重新点击打怪确认
  34.     注释： Plugin Window.SendKeyPress(Hwnd,32)
  35.     注释： Plugin Bkgnd.LeftClick(Hwnd,488,401)
  36.     注释：防止延时未点到
  37.     注释： Delay 256
  38.     注释： Plugin Window.SendKeyPress(Hwnd,32)
  39.     注释： Plugin Bkgnd.LeftClick(Hwnd,488,401)
  40.     注释：判断打怪确认窗口是不是没点到还在
  41.     注释： Else
  42.     注释： Plugin Window.SendKeyPress(Hwnd,32)
  43.     注释： Plugin Bkgnd.LeftClick(Hwnd,488,401)
  44.     注释：防止延时未点到
  45.     注释： Delay 256
  46.     注释： Plugin Window.SendKeyPress(Hwnd,32)
  47.     注释： Delay 256
  48.     注释： Goto 打怪开始2
  49.     注释： EndIf
  50.     注释：----------------------------------------------------------------------------以上测试部分
  51.     延时 500 毫秒
  52.     调用 Window.SendKeyPress(Hwnd,32)
  53.     延时 56 毫秒
  54.     调用 Window.SendKeyPress(Hwnd,32)
  55.     如果 yys = 1 则
  56.         延时 56 毫秒
  57.         调用 关闭打怪界面()
  58.     否则
  59.         跳转到标记 d(子程序 打怪)
  60.     条件结束
  61.     标记 d(子程序 打怪)
  62.     注释：下面这句按(从左到右从上到下的顺序找色)模糊查找窗口句柄(变量：Hwnd)窗口的指定矩形区域内指定颜色
  63.     调用 复活()
  64.     延时 256 毫秒
  65.     令 XY = Bkgnd.FindColorEx(Hwnd,509,436,512,438,"020149",0,0.96)
  66.     注释：下面这句用于分割字符串0
  67.     延时 32 毫秒
  68.     令 MyArray = Split(XY,"|")
  69.     注释：下面这句将字符串转换成数值
  70.     令 x = Clng(MyArray(0))
  71.     令 y = Clng(MyArray(1))
  72.     延时 23 毫秒
  73.     如果 x > 0 并且 y > 0 则
  74.         注释：颜色一样
  75.         调用 Bkgnd.LeftClick(Hwnd,541,437)
  76.         延时 256 毫秒
  77.         调用 Bkgnd.LeftClick(Hwnd,541,437)
  78.         延时 256 毫秒
  79.     否则
  80.         延时 500 毫秒
  81.         调用 时间判断()
  82.         跳转到标记 d(子程序 打怪)
  83.         注释：颜色不一样
  84.     条件结束
  85. 子程序结束
  86. 注释：通过判断表达式的取值，来执行后面的动作或控制
  87. 注释：循环小延时，防止出现CPU使用率过高，脚本卡x
  88. 注释：补血延时
  89. 注释：---------------------------------------加血
  90. 子程序 加血()
  91.     延时 300 毫秒
  92.     注释：---------------------------------判断是否为空血
  93.     令 mn = Bkgnd.FindColorEx(Hwnd,inx,iny,inx + 1,iny + 1,inz,0,0.95)
  94.     延时 32 毫秒
  95.     令 MyArray = Split(mn,"|")
  96.     令 x = Clng(MyArray(0))
  97.     令 y = Clng(MyArray(1))
  98.     延时 256 毫秒
  99.     如果 x > 0 并且 y > 0 则
  100.         注释：-------------------------------点击人物打开人物属性