1.         令 MyArray = Split(aa,"|")
  2.         令 x = Clng(MyArray(0))
  3.         令 y = Clng(MyArray(1))
  4.         延时 256 毫秒
  5.         如果 x > 0 并且 y > 0 则
  6.             注释：-------------------------------点击人物打开人物属性
  7.             调用 Bkgnd.LeftClick(Hwnd,581,406)
  8.             延时 256 毫秒
  9.             调用 竞技场打断()
  10.             注释：防止未点到人物或点了没反应
  11.             标记 未点到人物1(子程序 加蓝)
  12.             令 ui = Bkgnd.FindColorEx(Hwnd,164,75,174,86,"FFFFFF",0,0.8)
  13.             延时 32 毫秒
  14.             令 MyArray5 = Split(ui,"|")
  15.             令 x2 = Clng(MyArray5(0))
  16.             令 y2 = Clng(MyArray5(1))
  17.             如果 x2 < 0 并且 y2 < 0 则
  18.                 注释：重新点击人物打开人物属性
  19.                 调用 Bkgnd.LeftClick(Hwnd,581,406)
  20.                 延时 256 毫秒
  21.                 调用 竞技场打断()
  22.                 跳转到标记 未点到人物1(子程序 加蓝)
  23.             否则
  24.                 注释：自动整理背包
  25.                 调用 Bkgnd.LeftClick(Hwnd,646,325)
  26.                 延时 500 毫秒
  27.                 调用 Bkgnd.LeftClick(Hwnd,374,75)
  28.                 延时 500 毫秒
  29.                 调用 竞技场打断()
  30.                 调用 修理装备()
  31.                 令 bc = Bkgnd.FindColorEx(Hwnd,361,91,616,345,"652D14",0,lanxs)
  32.                 延时 256 毫秒
  33.                 令 MyArray = Split(bc,"|")
  34.                 令 xxx = Clng(MyArray(0))
  35.                 令 yyy = Clng(MyArray(1))
  36.                 如果 xxx > 0 并且 yyy > 0 则
  37.                     注释：如果找到蓝瓶双击加蓝
  38.                     标记 第二次判断才找到药水(子程序 加蓝)
  39.                     调用 Bkgnd.LeftDoubleClick(Hwnd,xxx,yyy)
  40.                     调用 Bkgnd.LeftDoubleClick(Hwnd,xxx,yyy)
  41.                     令 lpjs = lpjs + 1
  42.                     调用 WindowEx3.SendTextRgnString(tisi,"总计打怪数为：" & dgjs & "喝红瓶数为：" & hpjs & "喝蓝瓶数为:" & lpjs)
  43.                     延时 lanT 毫秒
  44.                     调用 竞技场打断()
  45.                     调用 添加物品过量1()
  46.                     标记 加蓝(子程序 加蓝)
  47.                     注释：判断加蓝后是否没加满
  48.                     令 XY = Bkgnd.FindColorEx(Hwnd,ina,inb,ina + 1,inb + 1,inc,0,0.8)
  49.                     延时 256 毫秒
  50.                     令 MyArray7 = Split(XY,"|")
  51.                     令 x = Clng(MyArray7(0))
  52.                     令 y = Clng(MyArray7(1))
  53.                     如果 x > 0 并且 y > 0 则
  54.                         注释：整理背包防止第一次加蓝用玩蓝瓶
  55.                         调用 Bkgnd.LeftClick(Hwnd,646,325)
  56.                         延时 500 毫秒
  57.                         注释：如果没加满继续加蓝
  58.                         调用 Bkgnd.LeftDoubleClick(Hwnd,xxx,yyy)
  59.                         调用 Bkgnd.LeftDoubleClick(Hwnd,xxx,yyy)
  60.                         令 lpjs = lpjs + 1
  61.                         调用 WindowEx3.SendTextRgnString(tisi,"总计打怪数为：" & dgjs & "喝红瓶数为：" & hpjs & "喝蓝瓶数为:" & lpjs)
  62.                         延时 lanT 毫秒
  63.                         调用 竞技场打断()
  64.                         调用 添加物品过量3()
  65.                         跳转到标记 加蓝(子程序 加蓝)
  66.                     否则
  67.                         调用 退出加血加蓝循环()
  68.                     条件结束
  69.                 否则
  70.                     注释：第二次判断，以免第一次没找到药水
  71.                     延时 1000 毫秒
  72.                     令 bc = Bkgnd.FindColorEx(Hwnd,361,91,616,345,"652D14",0,lanxs)
  73.                     延时 256 毫秒
  74.                     令 MyArray = Split(bc,"|")
  75.                     令 xxx = Clng(MyArray(0))
  76.                     令 yyy = Clng(MyArray(1))
  77.                     如果 xxx > 0 并且 yyy > 0 则
  78.                         跳转到标记 第二次判断才找到药水(子程序 加蓝)
  79.                     否则
  80.                         调用 无蓝报警()
  81.                     条件结束
  82.                 条件结束
  83.             条件结束
  84.         否则
  85.             调用 修理装备1()
  86.         条件结束
  87.     条件结束
  88. 子程序结束
  89. 子程序 退出加血加蓝循环()
  90.     标记 退出循环(子程序 退出加血加蓝循环)
  91.     调用 Bkgnd.LeftClick(Hwnd,940,45)
  92.     延时 256 毫秒
  93. 子程序结束
  94. 子程序 OnScriptExit()
  95.     弹出窗口 "脚本已经停止！"
  96. 子程序结束
  97. 子程序 添加物品过量1()
  98.     令 io = Bkgnd.FindColorEx(Hwnd,471,396,472,397,"010067",0,0.9)
  99.     延时 32 毫秒
  100.     令 MyArray5 = Split(io,"|")