1.     令 x2 = Clng(MyArray5(0))
  2.     令 y2 = Clng(MyArray5(1))
  3.     如果 x2 > 0 并且 y2 > 0 则
  4.         延时 256 毫秒
  5.         调用 Bkgnd.LeftClick(Hwnd,471,396)
  6.         延时 256 毫秒
  7.         调用 Bkgnd.LeftClick(Hwnd,471,396)
  8.     条件结束
  9. 子程序结束
  10. 子程序 添加物品过量2()
  11.     令 io = Bkgnd.FindColorEx(Hwnd,471,396,472,397,"010067",0,0.9)
  12.     延时 32 毫秒
  13.     令 MyArray5 = Split(io,"|")
  14.     令 x2 = Clng(MyArray5(0))
  15.     令 y2 = Clng(MyArray5(1))
  16.     如果 x2 > 0 并且 y2 > 0 则
  17.         延时 256 毫秒
  18.         调用 Bkgnd.LeftClick(Hwnd,471,396)
  19.         延时 256 毫秒
  20.         调用 Bkgnd.LeftClick(Hwnd,471,396)
  21.         调用 加蓝()
  22.         调用 退出加血加蓝循环()
  23.     条件结束
  24. 子程序结束
  25. 子程序 添加物品过量3()
  26.     令 io = Bkgnd.FindColorEx(Hwnd,471,396,472,397,"010067",0,0.9)
  27.     延时 32 毫秒
  28.     令 MyArray5 = Split(io,"|")
  29.     令 x2 = Clng(MyArray5(0))
  30.     令 y2 = Clng(MyArray5(1))
  31.     如果 x2 > 0 并且 y2 > 0 则
  32.         延时 256 毫秒
  33.         调用 Bkgnd.LeftClick(Hwnd,471,396)
  34.         延时 256 毫秒
  35.         调用 Bkgnd.LeftClick(Hwnd,471,396)
  36.         调用 退出加血加蓝循环()
  37.     条件结束
  38. 子程序结束
  39. 子程序 修理装备()
  40.     如果 n >= no 则
  41.         延时 25 毫秒
  42.         调用 Bkgnd.LeftClick(Hwnd,902,367)
  43.         延时 1000 毫秒
  44.         调用 Bkgnd.LeftClick(Hwnd,458,393)
  45.         延时 256 毫秒
  46.         标记 延时时间过长(子程序 修理装备)
  47.         令 io = Bkgnd.FindColorEx(Hwnd,654,245,655,246,"ABD4EA",0,0.9)
  48.         延时 32 毫秒
  49.         令 MyArray5 = Split(io,"|")
  50.         令 x2 = Clng(MyArray5(0))
  51.         令 y2 = Clng(MyArray5(1))
  52.         如果 x2 > 0 并且 y2 > 0 则
  53.             延时 1000 毫秒
  54.             调用 Bkgnd.LeftClick(Hwnd,497,390)
  55.             令 n = 0
  56.         否则
  57.             跳转到标记 延时时间过长(子程序 修理装备)
  58.         条件结束
  59.         延时 1000 毫秒
  60.     条件结束
  61. 子程序结束
  62. 子程序 复活()
  63.     令 io = Bkgnd.FindColorEx(Hwnd,354,239,356,241,"000080",0,0.9)
  64.     延时 32 毫秒
  65.     令 MyArrayy = Split(io,"|")
  66.     令 xa = Clng(MyArrayy(0))
  67.     令 ya = Clng(MyArrayy(1))
  68.     如果 xa > 0 并且 ya > 0 则
  69.         如果 sw = 1 则
  70.             延时 25 毫秒
  71.             调用 Bkgnd.LeftClick(Hwnd,354,239)
  72.             跳转到标记 打怪开始(子程序 复活)
  73.         否则如果 sw = 2 则
  74.             调用 报警1()
  75.         条件结束
  76.         如果 sw = 3 则
  77.             调用 Sys.ExitOS(1)
  78.             延时 256 毫秒
  79.             脚本停止运行
  80.         条件结束
  81.     条件结束
  82. 子程序结束
  83. 子程序 报警()
  84.     循环 5 次
  85.         调用 Media.Beep(523,200)
  86.         调用 Media.Beep(659,200)
  87.         延时 32 毫秒
  88.     循环结束
  89.     弹出窗口 "没有药水了！～请买好药水后重新启动脚本!"
  90.     脚本停止运行
  91. 子程序结束
  92. 子程序 无蓝报警()
  93.     如果 wulan = 2 则
  94.         循环 5 次
  95.             调用 Media.Beep(523,200)
  96.             调用 Media.Beep(659,200)
  97.             延时 32 毫秒
  98.         循环结束
  99.         弹出窗口 "没有药水了！～请买好药水后重新启动脚本!"
  100.         脚本停止运行