- 调用 Bkgnd.LeftClick(Hwnd,586,410)
- 否则
- 跳转到标记 zb(子程序 修理装备)
- 条件结束
- 令 zhuangbie = zhuangbie + 1
- 令 zhuangbieo = zhuangbie
- 子程序结束
- 子程序 红80
- 延时 1000 毫秒
- 标记 再来4(子程序 红80)
- 令 ga = Bkgnd.GetPixelColor(Hwnd,427,546)
- 如果 ga = "1A1E1F" 则
- 调用 Bkgnd.LeftClick(Hwnd,578,401)
- 否则
- 跳转到标记 红达到要求(子程序 红80)
- 条件结束
- 延时 500 毫秒
- 令 ga1 = Bkgnd.GetPixelColor(Hwnd,646,330)
- 如果 ga1 = "000068" 则
- 调用 Bkgnd.LeftClick(Hwnd,646,330)
- 否则
- 延时 300 毫秒
- 跳转到标记 再来4(子程序 红80)
- 条件结束
- 标记 gh(子程序 红80)
- 延时 500 毫秒
- 令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"1C9E7D",0,0.96)
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 如果 X > 0 并且 Y > 0 则
- 调用 Bkgnd.LeftClick(Hwnd,x,y)
- 延时 400 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
- 延时 400 毫秒
- 跳转到标记 lusehaole2(子程序 红80)
- 否则
- 条件结束
- 标记 NOOK4(子程序 红80)
- 令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"111778",0,0.96)
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 如果 X > 0 并且 Y > 0 则
- 调用 Bkgnd.LeftClick(Hwnd,X,Y)
- 延时 500 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
- 否则
- 条件结束
- 标记 lusehaole2(子程序 红80)
- 延时 300 毫秒
- 令 XY = Bkgnd.FindColor(Hwnd,401,384,473,404,"A9C7D4")
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 如果 X > 0 并且 Y > 0 则
- 调用 Bkgnd.LeftClick(Hwnd,X,Y)
- 否则
- 跳转到标记 gh(子程序 红80)
- 条件结束
- 延时 800 毫秒
- 令 ca = Bkgnd.GetPixelColor(Hwnd,437,541)
- 如果 ca = "000460" 则
- 调用 Bkgnd.LeftClick(Hwnd,578,401)
- 否则
- 跳转到标记 NOOK4(子程序 红80)
- 条件结束
- 令 h = h + 1
- 令 ho = h
- 标记 红达到要求(子程序 红80)
- 子程序结束
- 子程序 红50
- 延时 500 毫秒
- 标记 再来5(子程序 红50)
- 令 ga = Bkgnd.GetPixelColor(Hwnd,438,558)
- 如果 ga = "313536" 则
- 调用 Bkgnd.LeftClick(Hwnd,578,401)
- 否则
- 跳转到标记 红达到要求1(子程序 红50)
- 条件结束
- 延时 500 毫秒
- 令 ga1 = Bkgnd.GetPixelColor(Hwnd,646,330)
- 如果 ga1 = "000068" 则
- 调用 Bkgnd.LeftClick(Hwnd,646,330)
- 否则
- 延时 300 毫秒
- 跳转到标记 再来5(子程序 红50)
- 条件结束
- 标记 gh1(子程序 红50)
- 延时 500 毫秒
- 令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"1C9E7D",0,0.96)
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 如果 X > 0 并且 Y > 0 则
- 调用 Bkgnd.LeftClick(Hwnd,x,y)
- 延时 400 毫秒
- 调用 Bkgnd.LeftClick(Hwnd,X + 25,Y + 30)
- 延时 400 毫秒
- 跳转到标记 lusehaole1(子程序 红50)