- 调用插件命令 Bkgnd.LeftClick(Hwnd, X, Y)
- 延时time101 + 5000毫秒
- 调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, 465, 338)
- 循环结束
- 条件结束
- 子程序结束,回到调用处
- 子程序 通过地图进入星系
- //打开地图
- X00=47:Y00=518:time01=2000
- X01= 632 : Y01= 357 : COL01 = "9C9A9C" : time01=1000
- 调用子程序 CX.点击判断
- //帕诺星系
- 延时1000毫秒
- 循环 20 遍
- 调用插件命令 XY = Bkgnd.FindColor(Hwnd, A_PNX, B_PNX, C_PNX, D_PNX, COL_PNX)
- MyArray = Split(XY, "|")
- X = CInt(MyArray(0)): Y = CInt(MyArray(1))
- 如果表达式 (X > 0 and Y > 0) 为真,则
- X01=X:Y01=Y:time01=2000
- 调用子程序 CX.直接点击
- 条件结束
- //找云霄星
- //下面这句用于向后台窗口句柄(变量:Hwnd)发送一个鼠标移动到客户区域(坐标:150, 184)处
- 调用插件命令 Bkgnd.MoveTo(Hwnd, X_SB, Y_SB)
- 延时500毫秒
- 调用插件命令 XY = Bkgnd.FindCenterColor(Hwnd, 119, Y_SQ1 , 838, Y_SQ2 , COL_SQ)
- MyArray = Split(XY, "|")
- X = CInt(MyArray(0)): Y = CInt(MyArray(1))
- 如果表达式 (X > 0 and Y >0) 为真,则
- 循环 10 遍
- X = X + 10
- 调用插件命令 Bkgnd.LeftClick(Hwnd, X, Y)
- 调用插件命令 Bkgnd.LeftClick(Hwnd, X, Y)
- 延时500毫秒
- 调用插件命令 XY = Bkgnd.FindCenterColor(Hwnd, 119, Y_SQ1 , 838, Y_SQ2 , COL_SQ)
- MyArray = Split(XY, "|")
- X = CInt(MyArray(0)): Y = CInt(MyArray(1))
- 如果表达式 (X > 0 and Y >0) 为真,则
- 调用插件命令 Bkgnd.LeftClick(Hwnd, X, Y)
- 否则
- 跳转到标记 进入星系001
- 条件结束
- 循环结束
- 条件结束
- 循环结束
- 标记 进入星系001
- 循环 10 遍
- 延时1000毫秒
- 调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, 0, 0)
- 如果表达式 (GetColor = COL_MB) 为真,则
- 跳转到标记 END进入星系
- 条件结束
- 循环结束
- 标记 END进入星系
- 子程序结束,回到调用处
- 标记 END
- 脚本停止运行