1.         否则
  2.             跳转到标记 gh8(子程序 内存血)
  3.         条件结束
  4.         延时 300 毫秒
  5.         令 ca = Bkgnd.GetPixelColor(Hwnd,437,541)
  6.         如果 ca = "000460" 则
  7.             延时 800 毫秒
  8.             调用 Bkgnd.LeftClick(Hwnd,578,401)
  9.         否则
  10.             跳转到标记 NOOK8(子程序 内存血)
  11.         条件结束
  12.         令 h = h + 1
  13.         令 ho = h
  14.     否则
  15.     条件结束
  16. 子程序结束
  17. 子程序 内存蓝
  18.     延时 1000 毫秒
  19.     令 ha2 = Memory.Read16Bit(Hwnd,D)
  20.     令 lande = ha2
  21.     弹出窗口 lande
  22.     如果 lande <= lanliang 则
  23.         延时 500 毫秒
  24.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  25.         延时 1000 毫秒
  26.         令 ga1 = Bkgnd.GetPixelColor(Hwnd,646,330)
  27.         如果 ga1 = "000068" 则
  28.             调用 Bkgnd.LeftClick(Hwnd,646,330)
  29.         条件结束
  30.         延时 300 毫秒
  31.         令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"1C9E7D",0,0.96)
  32.         令 ZB = InStr(XY,"|")
  33.         令 X = Clng(Left(XY,ZB - 1))
  34.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  35.         如果 X > 0 并且 Y > 0 则
  36.             调用 Bkgnd.LeftClick(Hwnd,x,y)
  37.             延时 300 毫秒
  38.             调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  39.             延时 200 毫秒
  40.             跳转到标记 lusehaole3(子程序 内存蓝)
  41.         否则
  42.         条件结束
  43.         标记 NOOK2(子程序 内存蓝)
  44.         令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"653F21",0,0.96)
  45.         令 ZB = InStr(XY,"|")
  46.         令 X = Clng(Left(XY,ZB - 1))
  47.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  48.         如果 X > 0 并且 Y > 0 则
  49.             调用 Bkgnd.LeftClick(Hwnd,X,Y)
  50.             延时 300 毫秒
  51.             调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  52.         否则
  53.         条件结束
  54.         延时 300 毫秒
  55.         标记 lusehaole3(子程序 内存蓝)
  56.         标记 gh4(子程序 内存蓝)
  57.         令 XY = Bkgnd.FindColor(Hwnd,401,384,473,404,"A9C7D4")
  58.         令 ZB = InStr(XY,"|")
  59.         令 X = Clng(Left(XY,ZB - 1))
  60.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  61.         如果 X > 0 并且 Y > 0 则
  62.             调用 Bkgnd.LeftClick(Hwnd,X,Y)
  63.         否则
  64.             跳转到标记 gh4(子程序 内存蓝)
  65.         条件结束
  66.         延时 800 毫秒
  67.         令 ca = Bkgnd.GetPixelColor(Hwnd,577,547)
  68.         如果 ca = "7E4011" 则
  69.             调用 Bkgnd.LeftClick(Hwnd,578,401)
  70.         否则
  71.             跳转到标记 NOOK2(子程序 内存蓝)
  72.         条件结束
  73.         令 l = l + 1
  74.         令 lo = l
  75.         标记 蓝达到要求2(子程序 内存蓝)
  76.     否则
  77.     条件结束
  78. 子程序结束