1.     令 ZB = InStr(XY,"|")
  2.     令 X = Clng(Left(XY,ZB - 1))
  3.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  4.     如果 X > 0 并且 Y > 0 则
  5.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  6.     否则
  7.         跳转到标记 chongwu8hao(子程序 chongwu8hao)
  8.     条件结束
  9.     延时 500 毫秒
  10.     令 CW1 = Bkgnd.GetPixelColor(Hwnd,902,184)
  11.     如果 CW1 = "A9C7D4" 则
  12.         调用 Bkgnd.LeftClick(Hwnd,902,184)
  13.     否则
  14.         跳转到标记 shengjile(子程序 chongwu8hao)
  15.     条件结束
  16.     标记 chongwutui(子程序 chongwu8hao)
  17.     延时 500 毫秒
  18.     令 XY = Bkgnd.FindColor(Hwnd,421,381,494,405,"A9C7D4")
  19.     令 ZB = InStr(XY,"|")
  20.     令 X = Clng(Left(XY,ZB - 1))
  21.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  22.     如果 X > 0 并且 Y > 0 则
  23.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  24.     否则
  25.         跳转到标记 chongwutui(子程序 chongwu8hao)
  26.     条件结束
  27.     标记 shengjile(子程序 chongwu8hao)
  28. 子程序结束
  29. 子程序 chongwuga
  30.     标记 chongwuse(子程序 chongwuga)
  31.     延时 1000 毫秒
  32.     令 chongwuse = Bkgnd.GetPixelColor(Hwnd,499,382)
  33.     如果 chongwuse = "9CAEB9" 则
  34.         调用 Bkgnd.LeftClick(Hwnd,499,382)
  35.         如果 chongwu = 1 则
  36.             调用 chongwu1hao()
  37.         条件结束
  38.         如果 chongwu1 = 1 则
  39.             调用 chongwu2hao()
  40.         条件结束
  41.         如果 chongwu2 = 1 则
  42.             调用 chongwu3hao()
  43.         条件结束
  44.         如果 chongwu3 = 1 则
  45.             调用 chongwu4hao()
  46.         条件结束
  47.         如果 chongwu4 = 1 则
  48.             调用 chongwu5hao()
  49.         条件结束
  50.         如果 chongwu5 = 1 则
  51.             调用 chongwu6hao()
  52.         条件结束
  53.         如果 chongwu6 = 1 则
  54.             调用 chongwu7hao()
  55.         条件结束
  56.         如果 chongwu7 = 1 则
  57.             调用 chongwu8hao()
  58.         条件结束
  59.         延时 1000 毫秒
  60.     否则如果 chongwuse = "6CD5EA" 则
  61.         调用 Bkgnd.LeftClick(Hwnd,499,382)
  62.         如果 chongwu = 1 则
  63.             调用 chongwu1hao()
  64.         条件结束
  65.         如果 chongwu1 = 1 则
  66.             调用 chongwu2hao()
  67.         条件结束
  68.         如果 chongwu2 = 1 则
  69.             调用 chongwu3hao()
  70.         条件结束
  71.         如果 chongwu3 = 1 则
  72.             调用 chongwu4hao()
  73.         条件结束
  74.         如果 chongwu4 = 1 则
  75.             调用 chongwu5hao()
  76.         条件结束
  77.         如果 chongwu5 = 1 则
  78.             调用 chongwu6hao()
  79.         条件结束
  80.         如果 chongwu6 = 1 则
  81.             调用 chongwu7hao()
  82.         条件结束
  83.         如果 chongwu7 = 1 则
  84.             调用 chongwu8hao()
  85.         条件结束
  86.     否则
  87.         跳转到标记 chongwuse(子程序 chongwuga)
  88.     条件结束
  89. 子程序结束
  90. 子程序 竞技场加怪
  91.     令 zhuren = Bkgnd.GetPixelColor(Hwnd,438,482)
  92.     延时 500 毫秒
  93.     令 daichong = Bkgnd.GetPixelColor(Hwnd,441,489)
  94.     标记 zhuren(子程序 竞技场加怪)
  95.     延时 500 毫秒
  96.     如果 zhuren = "FFDCA2" 则
  97.         调用 Bkgnd.LeftClick(Hwnd,438,482)
  98.     否则如果 daichong = "DEE8F2" 则
  99.         调用 Bkgnd.LeftClick(Hwnd,438,482)
  100.     否则