- 循环结束
- 标记 判断点二颜色正确
- 子程序结束,回到调用处
- 子程序 CX.目的地
- 如果表达式 (Var_QD = "3") 为真,则
- X00=783:Y00=532
- X01= X00 : Y01= Y00 : COL01 = "00CFFF" : time01=80 : xiaosh=1
- 调用子程序 CX.点击判断
- 如果表达式 (KKK = 0) 为真,则
- KKK = 1
- Var_user=Cint(Var_user01)-1
- 跳转到标记 END.目的地
- 否则
- 延时300毫秒
- 按键 <F6>
- 跳转到标记 END
- 条件结束
- 条件结束
- 如果表达式 (Var_mubiao="0") 为真,则
- 如果表达式 (txt_record = "精灵太空站左翼") 为真,则
- 跳转到标记 精灵太空站左翼
- 否则如果(txt_record = "精灵太空站")为真,则
- 跳转到标记 精灵太空站
- 条件结束
- X00=47:Y00=518:time01=2000
- X01= 632 : Y01= 357 : COL01 = "9C9A9C" : time01=200
- 调用子程序 CX.点击判断
- 标记 精灵太空站
- X00=632:Y00=357:time00=500
- X01= 109 : Y01= 395 : COL01 = "FFFF8C" : time01=200
- 调用子程序 CX.点击判断
- 标记 精灵太空站左翼
- X00=X3:Y00=Y3:time00=500
- X01= 100 : Y01= 120 : COL01 = "FFFF08" : time01=200
- 调用子程序 CX.点击判断
- 否则如果(Var_mubiao="1")为真,则
- //帕诺星
- X = 296 : Y = 225 : COL_PNX = "EFEFF7" : a = 5
- A_PNX = X - a : B_PNX = Y - a : C_PNX=X+a : D_PNX=Y+a
- //火星
- X_SB = 146 : Y_SB = 173
- Y_SQ1 = 229 : Y_SQ2 = Y_SQ1+1 : COL_SQ = "00CFFF"
- COL_MB = "100CFF"
- 调用子程序 通过地图进入星系
- 如果表达式 (Var_ceng > 1) 为真,则
- //火星二层
- X00=856:Y00=125:time01=1000
- X01= X00 : Y01= Y00 : COL01 = "080C21" : time01=800 : xiaosh=1
- 调用子程序 CX.点击判断
- 条件结束
- 否则如果(Var_mubiao="2")为真,则
- 否则如果(Var_mubiao="3")为真,则
- //云霄星
- X00=47:Y00=518:time01=2000
- X01= 632 : Y01= 357 : COL01 = "9C9A9C" : time01=1000
- 调用子程序 CX.点击判断
- //帕诺星系
- 延时1000毫秒
- 调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, 805, 156)
- 如果表达式 (GetColor = "999AFF") 为真,则
- 否则
- X01=266:Y01=230:time01=3000
- 调用子程序 CX.直接点击
- 条件结束
- //找云霄星
- 循环 5 遍
- //下面这句用于向后台窗口句柄(变量:Hwnd)发送一个鼠标移动到客户区域(坐标:150, 184)处
- 调用插件命令 Bkgnd.MoveTo(Hwnd, 150, 184)
- 延时1000毫秒
- 延时time101毫秒
- 调用插件命令 XY = Bkgnd.FindCenterColor(Hwnd, 134, 184, 832, 186, "3169CE")
- MyArray = Split(XY, "|")
- X = CInt(MyArray(0)): Y = CInt(MyArray(1))
- 如果表达式 (X > 0 and Y >0) 为真,则
- 循环 10 遍
- X = X + 5
- 调用插件命令 Bkgnd.LeftClick(Hwnd, X, Y)
- 调用插件命令 Bkgnd.LeftClick(Hwnd, X, Y)
- 延时500毫秒
- 调用插件命令 XY = Bkgnd.FindCenterColor(Hwnd, 134, 184, 832, 186, "3169CE")
- MyArray = Split(XY, "|")
- X = CInt(MyArray(0)): Y = CInt(MyArray(1))
- 如果表达式 (X > 0 and Y >0) 为真,则
- 调用插件命令 Bkgnd.LeftClick(Hwnd, X, Y)
- 否则
- 跳转到标记 END.目的地
- 条件结束
- 循环结束
- 条件结束
- 循环结束
- 否则如果(Var_mubiao="4")为真,则
- //海洋星一层
- X00=647:Y00=182
- X01= 0 : Y01= 0 : COL01 = "737573" : time01=1000 : xiaosh=1
- 调用子程序 CX.点击判断
- 否则如果(Var_mubiao="基地")为真,则
- X00=783:Y00=532
- X01= X00 : Y01= Y00 : COL01 = "00CFFF" : time01=80 : xiaosh=1
- 调用子程序 CX.点击判断
- 跳转到标记 END