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