1.     令 ga = Bkgnd.GetPixelColor(Hwnd,472,578)
  2.     如果 ga = "181C1D" 则
  3.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  4.     否则
  5.         跳转到标记 红达到要求2(子程序 红10)
  6.     条件结束
  7.     延时 500 毫秒
  8.     令 ga1 = Bkgnd.GetPixelColor(Hwnd,646,330)
  9.     如果 ga1 = "000068" 则
  10.         调用 Bkgnd.LeftClick(Hwnd,646,330)
  11.     否则
  12.         延时 300 毫秒
  13.         跳转到标记 再来6(子程序 红10)
  14.     条件结束
  15.     标记 gh(子程序 红10)
  16.     延时 500 毫秒
  17.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"1C9E7D",0,0.96)
  18.     令 ZB = InStr(XY,"|")
  19.     令 X = Clng(Left(XY,ZB - 1))
  20.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  21.     如果 X > 0 并且 Y > 0 则
  22.         调用 Bkgnd.LeftClick(Hwnd,x,y)
  23.         延时 400 毫秒
  24.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  25.         延时 400 毫秒
  26.         跳转到标记 lusehaole(子程序 红10)
  27.     否则
  28.     条件结束
  29.     标记 NOOK6(子程序 红10)
  30.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"111778",0,0.96)
  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.         延时 500 毫秒
  37.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  38.     否则
  39.     条件结束
  40.     标记 lusehaole(子程序 红10)
  41.     延时 300 毫秒
  42.     令 XY = Bkgnd.FindColor(Hwnd,401,384,473,404,"A9C7D4")
  43.     令 ZB = InStr(XY,"|")
  44.     令 X = Clng(Left(XY,ZB - 1))
  45.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  46.     如果 X > 0 并且 Y > 0 则
  47.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  48.     否则
  49.         跳转到标记 gh(子程序 红10)
  50.     条件结束
  51.     延时 500 毫秒
  52.     令 ca = Bkgnd.GetPixelColor(Hwnd,437,541)
  53.     如果 ca = "000460" 则
  54.         延时 300 毫秒
  55.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  56.     否则
  57.         跳转到标记 NOOK6(子程序 红10)
  58.     条件结束
  59.     令 h = h + 1
  60.     令 ho = h
  61.     标记 红达到要求2(子程序 红10)
  62. 子程序结束
  63. 子程序 蓝90
  64.     延时 1000 毫秒
  65.     标记 再来2(子程序 蓝90)
  66.     令 ga = Bkgnd.GetPixelColor(Hwnd,586,536)
  67.     如果 ga = "192022" 则
  68.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  69.     否则
  70.         跳转到标记 蓝达到要求2(子程序 蓝90)
  71.     条件结束
  72.     延时 500 毫秒
  73.     令 ga1 = Bkgnd.GetPixelColor(Hwnd,646,330)
  74.     如果 ga1 = "000068" 则
  75.         调用 Bkgnd.LeftClick(Hwnd,646,330)
  76.     否则
  77.         延时 300 毫秒
  78.         跳转到标记 再来2(子程序 蓝90)
  79.     条件结束
  80.     标记 gh4(子程序 蓝90)
  81.     延时 500 毫秒
  82.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"1C9E7D",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.         延时 400 毫秒
  89.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  90.         延时 400 毫秒
  91.         跳转到标记 lusehaole3(子程序 蓝90)
  92.     否则
  93.     条件结束
  94.     标记 NOOK2(子程序 蓝90)
  95.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"653F21",0,0.96)
  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)