- 标记 红达到要求2(子程序 红20)
- 子程序结束
- 子程序 蓝80
- 延时 1000 毫秒
- 标记 再来(子程序 蓝80)
- 令 ga = Bkgnd.GetPixelColor(Hwnd,583,544)
- 如果 ga = "0C0F11" 则
- 调用 Bkgnd.LeftClick(Hwnd,578,401)
- 否则
- 跳转到标记 蓝达到要求(子程序 蓝80)
- 条件结束
- 延时 500 毫秒
- 令 ga1 = Bkgnd.GetPixelColor(Hwnd,646,330)
- 如果 ga1 = "000068" 则
- 调用 Bkgnd.LeftClick(Hwnd,646,330)
- 否则
- 延时 300 毫秒
- 跳转到标记 再来(子程序 蓝80)
- 条件结束
- 标记 gh6(子程序 蓝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 毫秒
- 跳转到标记 lusehaole5(子程序 蓝80)
- 否则
- 条件结束
- 标记 NOOK(子程序 蓝80)
- 令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"653F21",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)
- 否则
- 条件结束
- 延时 300 毫秒
- 标记 lusehaole5(子程序 蓝80)
- 令 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)
- 否则
- 跳转到标记 gh6(子程序 蓝80)
- 条件结束
- 延时 800 毫秒
- 令 ca = Bkgnd.GetPixelColor(Hwnd,577,547)
- 如果 ca = "7E4011" 则
- 调用 Bkgnd.LeftClick(Hwnd,578,401)
- 否则
- 跳转到标记 NOOK(子程序 蓝80)
- 条件结束
- 令 l = l + 1
- 令 lo = l
- 标记 蓝达到要求(子程序 蓝80)
- 子程序结束
- 子程序 蓝50
- 延时 1000 毫秒
- 标记 再来1(子程序 蓝50)
- 令 ga = Bkgnd.GetPixelColor(Hwnd,562,563)
- 如果 ga = "35393A" 则
- 调用 Bkgnd.LeftClick(Hwnd,578,401)
- 否则
- 跳转到标记 蓝达到要求1(子程序 蓝50)
- 条件结束
- 延时 500 毫秒
- 令 ga1 = Bkgnd.GetPixelColor(Hwnd,646,330)
- 如果 ga1 = "000068" 则
- 调用 Bkgnd.LeftClick(Hwnd,646,330)
- 否则
- 延时 500 毫秒
- 跳转到标记 再来1(子程序 蓝50)
- 条件结束
- 标记 gh5(子程序 蓝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 毫秒
- 跳转到标记 lusehaole4(子程序 蓝50)
- 否则
- 条件结束
- 标记 NOOK1(子程序 蓝50)
- 令 XY = Bkgnd.FindColorEx(Hwnd,357,90,617,351,"653F21",0,0.96)
- 令 ZB = InStr(XY,"|")