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)