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