1.                 调用 Bkgnd.LeftClick(Hwnd,293,210)
  2.                 延时 1500 毫秒
  3.             否则如果 gj = 2 则
  4.                 调用 Bkgnd.LeftClick(Hwnd,110,119)
  5.                 延时 1500 毫秒
  6.             条件结束
  7.             如果 gj = 3 则
  8.                 调用 Bkgnd.LeftClick(Hwnd,663,376)
  9.                 延时 1500 毫秒
  10.             条件结束
  11.             延时 500 毫秒
  12.             调用 Bkgnd.LeftClick(Hwnd,898,332)
  13.             延时 500 毫秒
  14.             调用 Bkgnd.LeftClick(Hwnd,453,394)
  15.             延时 23 毫秒
  16.             调用 Bkgnd.LeftClick(Hwnd,453,394)
  17.             标记 d1(子程序 竞技场)
  18.             延时 500 毫秒
  19.             令 XY = Bkgnd.FindColorEx(Hwnd,511,436,513,437,"000062",0,0.9)
  20.             注释：下面这句用于分割字符串0
  21.             延时 32 毫秒
  22.             令 MyArray = Split(XY,"|")
  23.             注释：下面这句将字符串转换成数值
  24.             令 x = Clng(MyArray(0))
  25.             令 y = Clng(MyArray(1))
  26.             延时 23 毫秒
  27.             如果 x > 0 并且 y > 0 则
  28.                 注释：颜色一样
  29.                 调用 Bkgnd.LeftClick(Hwnd,511,436)
  30.             否则
  31.                 延时 1000 毫秒
  32.                 跳转到标记 d1(子程序 竞技场)
  33.                 注释：颜色不一样
  34.             条件结束
  35.             调用 退出加血加蓝循环()
  36.             令 jjn = jjn + 1
  37.             令 TXX = 0
  38.         条件结束
  39.     条件结束
  40. 子程序结束
  41. 子程序 宠物模块1()
  42.     如果 dgjs = 0 则
  43.         如果 ch = 0 则
  44.             如果 ms = 3 则
  45.                 跳转到标记 关闭宠物升级2(子程序 宠物模块1)
  46.             否则
  47.                 跳转到标记 关闭宠物升级(子程序 宠物模块1)
  48.             条件结束
  49.         否则
  50.             调用 Bkgnd.LeftClick(Hwnd,500,373)
  51.             延时 256 毫秒
  52.             注释：宠物栏1
  53.             调用 Bkgnd.LeftClick(Hwnd,367,67)
  54.             延时 256 毫秒
  55.             令 i = 0
  56.             令 i = ch + 1
  57.             令 ic = 0
  58.             循环当 i <> 0 时
  59.                 注释：点击宠物栏
  60.                 调用 Bkgnd.LeftClick(Hwnd,chongwux(ic),chongwuy(ic))
  61.                 延时 256 毫秒
  62.                 令 ic = ic + 1
  63.                 令 i = i - 1
  64.                 令 Color = Bkgnd.GetPixelColor(Hwnd,836,182)
  65.                 延时 500 毫秒
  66.                 令 er = Bkgnd.FindColorEx(Hwnd,878,213,879,214,"0C4107",0,0.95)
  67.                 令 MyArray = Split(er,"|")
  68.                 令 xx = Clng(MyArray(0))
  69.                 令 yy = Clng(MyArray(1))
  70.                 如果 xx < 0 并且 yy < 0 则
  71.                     调用 Bkgnd.LeftClick(Hwnd,912,207)
  72.                     延时 256 毫秒
  73.                     调用 Bkgnd.LeftClick(Hwnd,585,320)
  74.                     延时 256 毫秒
  75.                     调用 Bkgnd.LeftClick(Hwnd,585,320)
  76.                     延时 256 毫秒
  77.                     调用 Bkgnd.LeftClick(Hwnd,505,390)
  78.                 条件结束
  79.                 延时 256 毫秒
  80.                 如果 Color = "AEEAF6" 则
  81.                     跳转到标记 nndd(子程序 宠物模块1)
  82.                 否则
  83.                     延时 256 毫秒
  84.                     调用 Bkgnd.LeftClick(Hwnd,911,183)
  85.                     延时 300 毫秒
  86.                     令 er = Bkgnd.FindColorEx(Hwnd,526,329,532,339,"FFFFFF",0,0.9)
  87.                     延时 300 毫秒
  88.                     令 MyArray = Split(er,"|")
  89.                     令 xx = Clng(MyArray(0))
  90.                     令 yy = Clng(MyArray(1))
  91.                     如果 xx > 0 并且 yy > 0 则
  92.                         调用 Bkgnd.LeftClick(Hwnd,531,391)
  93.                         延时 56 毫秒
  94.                         调用 Bkgnd.LeftClick(Hwnd,531,391)
  95.                         延时 56 毫秒
  96.                         跳转到标记 nndd(子程序 宠物模块1)
  97.                     条件结束
  98.                     注释：Delay 56
  99.                     注释：Plugin Bkgnd.LeftClick(Hwnd,413,282)
  100.                     延时 256 毫秒