ElseIf Var_mubiao="99"
ElseIf Var_mubiao="99"
ElseIf Var_mubiao="99"
ElseIf Var_mubiao="99"
ElseIf Var_mubiao="99"
ElseIf Var_mubiao="99"
ElseIf Var_mubiao="99"
Goto END
EndIf
Rem END.目的地
Return CX.目的地
Sub CX.位置判断
//txt_record = "CX.位置判断"
//Gosub CX.日志.记录
txt_record = 0 : D_qr=0
Gosub CX.多确认
If D_qr=1
Goto 位置判断结束
EndIf
//下面这句取窗口句柄(变量:Hwnd)窗口的客户区(坐标:46, 532)处的颜色
Delay time101
Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 296, 450)
If GetColor = "FFFFFF"
Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 298, 460)
If GetColor = "FFFFFF"
txt_record = "挑战平台"
Goto 位置判断结束
EndIf
EndIf
Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 46, 532)
If GetColor = "0065FF"
txt_record = "地球仪"
Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 0, 0)
If GetColor = "737573"
txt_record = "传送仓"
Goto 位置判断结束
ElseIf GetColor = "ADBEDE"
txt_record = "机械室"
Goto 位置判断结束
ElseIf GetColor = "181000" or GetColor = "FFFFFF"
//下面太空站==============================================================================
txt_record = "精灵太空站"
Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 143, 110)
If GetColor = "FFFF00"
txt_record = "精灵太空站左翼"
Goto 位置判断结束
ElseIf GetColor = "10A2BD" or GetColor = "21A2C6"
txt_record = "精灵太空站"
Goto 位置判断结束
EndIf
//上面太空站==============================================================================
ElseIf GetColor = "8C6984"
txt_record = "云霄星一层"
Goto 位置判断结束
ElseIf GetColor = "DECFBD"
txt_record = "云霄星二层"
Goto 位置判断结束
ElseIf GetColor = "9C929C"
txt_record = "海洋星一层"
Goto 位置判断结束
ElseIf GetColor = "003073"
txt_record = "火星二层"
Goto 位置判断结束
ElseIf GetColor = "9C929C"
ElseIf GetColor = "9C929C"
ElseIf GetColor = "9C929C"
ElseIf GetColor = "9C929C"
EndIf
ElseIf GetColor = "526163"
txt_record = "勇者塔内"
Goto 位置判断结束
EndIf
Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 0, 0)
If GetColor = "100CFF"
txt_record = "火星一层"
Goto 位置判断结束
EndIf
//下面这句取窗口句柄(变量:Hwnd)窗口的客户区(坐标:498, 502)处的颜色
Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 476, 486)
If GetColor = "633000"
txt_record = "开始"
Goto 位置判断结束
ElseIf GetColor = "E7A629"
txt_record = "选择其他用户"
Goto 位置判断结束
ElseIf GetColor = "CE7110"
txt_record = "用户密码"
Goto 位置判断结束
EndIf
Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 167, 189)
If GetColor = "8C4900"
txt_record = "选择服务器"
Goto 位置判断结束
EndIf
Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 391, 476)
If GetColor = "FFFFFF"
txt_record = "选择其他用户"
Goto 位置判断结束
EndIf
Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 448, 318)