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