1.         调用 Bkgnd.LeftClick(Hwnd,586,410)
  2.     否则
  3.         跳转到标记 zb(子程序 修理装备)
  4.     条件结束
  5.     令 zhuangbie = zhuangbie + 1
  6.     令 zhuangbieo = zhuangbie
  7. 子程序结束
  8. 子程序 红80
  9.     延时 1000 毫秒
  10.     标记 再来4(子程序 红80)
  11.     令 ga = Bkgnd.GetPixelColor(Hwnd,427,546)
  12.     如果 ga = "1A1E1F" 则
  13.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  14.     否则
  15.         跳转到标记 红达到要求(子程序 红80)
  16.     条件结束
  17.     延时 500 毫秒
  18.     令 ga1 = Bkgnd.GetPixelColor(Hwnd,646,330)
  19.     如果 ga1 = "000068" 则
  20.         调用 Bkgnd.LeftClick(Hwnd,646,330)
  21.     否则
  22.         延时 300 毫秒
  23.         跳转到标记 再来4(子程序 红80)
  24.     条件结束
  25.     标记 gh(子程序 红80)
  26.     延时 500 毫秒
  27.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"1C9E7D",0,0.96)
  28.     令 ZB = InStr(XY,"|")
  29.     令 X = Clng(Left(XY,ZB - 1))
  30.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  31.     如果 X > 0 并且 Y > 0 则
  32.         调用 Bkgnd.LeftClick(Hwnd,x,y)
  33.         延时 400 毫秒
  34.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  35.         延时 400 毫秒
  36.         跳转到标记 lusehaole2(子程序 红80)
  37.     否则
  38.     条件结束
  39.     标记 NOOK4(子程序 红80)
  40.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"111778",0,0.96)
  41.     令 ZB = InStr(XY,"|")
  42.     令 X = Clng(Left(XY,ZB - 1))
  43.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  44.     如果 X > 0 并且 Y > 0 则
  45.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  46.         延时 500 毫秒
  47.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  48.     否则
  49.     条件结束
  50.     标记 lusehaole2(子程序 红80)
  51.     延时 300 毫秒
  52.     令 XY = Bkgnd.FindColor(Hwnd,401,384,473,404,"A9C7D4")
  53.     令 ZB = InStr(XY,"|")
  54.     令 X = Clng(Left(XY,ZB - 1))
  55.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  56.     如果 X > 0 并且 Y > 0 则
  57.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  58.     否则
  59.         跳转到标记 gh(子程序 红80)
  60.     条件结束
  61.     延时 800 毫秒
  62.     令 ca = Bkgnd.GetPixelColor(Hwnd,437,541)
  63.     如果 ca = "000460" 则
  64.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  65.     否则
  66.         跳转到标记 NOOK4(子程序 红80)
  67.     条件结束
  68.     令 h = h + 1
  69.     令 ho = h
  70.     标记 红达到要求(子程序 红80)
  71. 子程序结束
  72. 子程序 红50
  73.     延时 500 毫秒
  74.     标记 再来5(子程序 红50)
  75.     令 ga = Bkgnd.GetPixelColor(Hwnd,438,558)
  76.     如果 ga = "313536" 则
  77.         调用 Bkgnd.LeftClick(Hwnd,578,401)
  78.     否则
  79.         跳转到标记 红达到要求1(子程序 红50)
  80.     条件结束
  81.     延时 500 毫秒
  82.     令 ga1 = Bkgnd.GetPixelColor(Hwnd,646,330)
  83.     如果 ga1 = "000068" 则
  84.         调用 Bkgnd.LeftClick(Hwnd,646,330)
  85.     否则
  86.         延时 300 毫秒
  87.         跳转到标记 再来5(子程序 红50)
  88.     条件结束
  89.     标记 gh1(子程序 红50)
  90.     延时 500 毫秒
  91.     令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"1C9E7D",0,0.96)
  92.     令 ZB = InStr(XY,"|")
  93.     令 X = Clng(Left(XY,ZB - 1))
  94.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  95.     如果 X > 0 并且 Y > 0 则
  96.         调用 Bkgnd.LeftClick(Hwnd,x,y)
  97.         延时 400 毫秒
  98.         调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
  99.         延时 400 毫秒
  100.         跳转到标记 lusehaole1(子程序 红50)