1.     令 X = Clng(Left(XY,ZB - 1))
  2.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  3.     如果 X > 0 并且 Y > 0 则
  4.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  5.         延时 500 毫秒
  6.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  7.     否则
  8.     条件结束
  9.     延时 300 毫秒
  10.     标记 lusehaole4(子程序 蓝50)
  11.     令 XY = Bkgnd.FindColor(Hwnd,401,384,473,404,"A9C7D4")
  12.     令 ZB = InStr(XY,"|")
  13.     令 X = Clng(Left(XY,ZB - 1))
  14.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  15.     如果 X > 0 并且 Y > 0 则
  16.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  17.     否则
  18.         跳转到标记 gh5(子程序 蓝50)
  19.     条件结束
  20.     延时 800 毫秒
  21.     令 ca = Bkgnd.GetPixelColor(Hwnd,577,547)
  22.     如果 ca = "7E4011" 则
  23.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  24.     否则
  25.         跳转到标记 NOOK1(子程序 蓝50)
  26.     条件结束
  27.     令 l = l + 1
  28.     令 lo = l
  29.     标记 蓝达到要求1(子程序 蓝50)
  30. 子程序结束
  31. 子程序 蓝20
  32.     延时 1000 毫秒
  33.     标记 再来2(子程序 蓝20)
  34.     令 ga = Bkgnd.GetPixelColor(Hwnd,547,570)
  35.     如果 ga = "3A3E40" 则
  36.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  37.     否则
  38.         跳转到标记 蓝达到要求2(子程序 蓝20)
  39.     条件结束
  40.     延时 500 毫秒
  41.     令 ga1 = Bkgnd.GetPixelColor(Hwnd,646,330)
  42.     如果 ga1 = "000068" 则
  43.         调用 Bkgnd.LeftClick(Hwnd,646,330)
  44.     否则
  45.         延时 300 毫秒
  46.         跳转到标记 再来2(子程序 蓝20)
  47.     条件结束
  48.     标记 gh4(子程序 蓝20)
  49.     延时 500 毫秒
  50.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"1C9E7D",0,0.96)
  51.     令 ZB = InStr(XY,"|")
  52.     令 X = Clng(Left(XY,ZB - 1))
  53.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  54.     如果 X > 0 并且 Y > 0 则
  55.         调用 Bkgnd.LeftClick(Hwnd,x,y)
  56.         延时 400 毫秒
  57.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  58.         延时 400 毫秒
  59.         跳转到标记 lusehaole3(子程序 蓝20)
  60.     否则
  61.     条件结束
  62.     标记 NOOK2(子程序 蓝20)
  63.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"653F21",0,0.96)
  64.     令 ZB = InStr(XY,"|")
  65.     令 X = Clng(Left(XY,ZB - 1))
  66.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  67.     如果 X > 0 并且 Y > 0 则
  68.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  69.         延时 300 毫秒
  70.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  71.     否则
  72.     条件结束
  73.     延时 300 毫秒
  74.     标记 lusehaole3(子程序 蓝20)
  75.     令 XY = Bkgnd.FindColor(Hwnd,401,384,473,404,"A9C7D4")
  76.     令 ZB = InStr(XY,"|")
  77.     令 X = Clng(Left(XY,ZB - 1))
  78.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  79.     如果 X > 0 并且 Y > 0 则
  80.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  81.     否则
  82.         跳转到标记 gh4(子程序 蓝20)
  83.     条件结束
  84.     延时 800 毫秒
  85.     令 ca = Bkgnd.GetPixelColor(Hwnd,577,547)
  86.     如果 ca = "7E4011" 则
  87.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  88.     否则
  89.         跳转到标记 NOOK2(子程序 蓝20)
  90.     条件结束
  91.     令 l = l + 1
  92.     令 lo = l
  93.     标记 蓝达到要求2(子程序 蓝20)
  94. 子程序结束
  95. 子程序 关闭战斗显示1
  96.     标记 ga1(子程序 关闭战斗显示1)
  97.     延时 2000 毫秒
  98.     令 XY = Bkgnd.FindColor(Hwnd,974,34,987,49,"6A7CDB")
  99.     令 ZB = InStr(XY,"|")
  100.     令 X = Clng(Left(XY,ZB - 1))