LeftClick 1
            Delay 3000
            //
            //最后一个点是传送点,如发现停止移动时,需离开该路点,重新点击该路点
            If TmpP>=UBound(lRoadPointArr)-2 And SelectPlace<=0
                //检查角色是否正在移动
                MvColorRec = GetPixelColor(496,698) & GetPixelColor(939,698)
                //如角色停在最后一个点,就需离开该点,并重新点击
                If LastColorRec=MvColorRec
                    LastColorRec = MvColorRec
                    EdgArr = Array(lRoadPointArr(TmpP+1)+Int(Cos(RndAng)*20),lRoadPointArr(TmpP+2)+Int(Sin(RndAng)*20))
                    If EdgArr(0)<244
                        EdgArr(0) = 244
                    EndIf 
                    If EdgArr(1)<188
                        EdgArr(1) = 188
                    EndIf 
                    MoveTo EdgArr(0),EdgArr(1)
                    LeftClick 1
                Else 
                    //移动中等待
                    LastColorRec = MvColorRec
                    Delay 3000
                EndIf 
            EndIf 
            //
            //--如果在最后一个路点弹出NPC传送对话框--
            If TmpP>=UBound(lRoadPointArr)-2 And SelectPlace>0
                If ColorCompare(GetPixelColor(502,231),"C6CBFF",15)
                    MoveTo 392,463+((SelectPlace-1)*22)
                    LeftClick 1
                    Delay 2000
                EndIf 
            EndIf 
            //
        Else 
            LastColorRec = MvColorRec
            //正在移动时等待
            Delay 3000
        EndIf 
        //
        Gosub 检查是否战斗
        Gosub 什么地方Sub
        Plugin GoPlaceTimeArr(1) = GetSysInfo.GetTime()
        //MsgBox GoPlaceTimeArr(1) & "|" & GoPlaceTimeArr(0),0,GoPlaceTimeArr(2)
        GoPlaceTimeArr(2) = GoPlaceTimeArr(2)+(GoPlaceTimeArr(1)-GoPlaceTimeArr(0))
        Tmpli = Tmpli+1
        //EndIf
    EndWhile 
Return 
//---------------------------------------------------------------
//
//---------------------------------------------------------------
Sub 找宝宝测试S
    //虽然方法不好.但坚决不用找图方法
    //为了提高脚本速度,只检查非组队下的3个怪物
    //
    Dim CaPetDebugTmp
    Dim PetFeaArr(11), XList, YList
    XList=Array(375,310,253,196,139,456,391,334,277,220)
    YList=Array(296,350,408,465,522,334,388,446,503,560)
    //
    PetFeaArr(0) = ScrPetFArr(0)-XList(ScrPetFArr(12))
    PetFeaArr(1) = ScrPetFArr(1)-YList(ScrPetFArr(12))
    PetFeaArr(2) = ScrPetFArr(2)
    PetFeaArr(3) = ScrPetFArr(3)
    PetFeaArr(4) = ScrPetFArr(4)-XList(ScrPetFArr(12))
    PetFeaArr(5) = ScrPetFArr(5)-YList(ScrPetFArr(12))
    PetFeaArr(6) = ScrPetFArr(6)
    PetFeaArr(7) = ScrPetFArr(7)
    PetFeaArr(8) = ScrPetFArr(8)-XList(ScrPetFArr(12))
    PetFeaArr(9) = ScrPetFArr(9)-YList(ScrPetFArr(12))
    PetFeaArr(10)= ScrPetFArr(10)
    PetFeaArr(11)= ScrPetFArr(11)
    //
    //MsgBox XList(1)+PetFeaArr(0) & "|" & YList(1)+PetFeaArr(1) & "|" & PetFeaArr(2) & "|" & PetFeaArr(3)
    CaPetDebugTmp = Array(0,0)
    Tmpi = 1
    While ExistPet(0)<0 And Tmpi<4 And place=ScrPetFArr(13)
        IfColor XList(Tmpi)+PetFeaArr(0),YList(Tmpi)+PetFeaArr(1),PetFeaArr(2),PetFeaArr(3)
            CaPetDebugTmp = Array(1,Tmpi)
            IfColor XList(Tmpi)+PetFeaArr(4),YList(Tmpi)+PetFeaArr(5),PetFeaArr(6),PetFeaArr(7)
                CaPetDebugTmp = Array(2,Tmpi)
                IfColor XList(Tmpi)+PetFeaArr(8),YList(Tmpi)+PetFeaArr(9),PetFeaArr(10),PetFeaArr(11)
                    CaPetDebugTmp = Array(3,Tmpi)
                    ExistPet = Array(Tmpi,XList(Tmpi)+25,YList(Tmpi)-53)
                EndIf 
            EndIf 
        EndIf 
        Tmpi = Tmpi+1
    EndWhile 
    If place=ScrPetFArr(13)
        ChangeContent "Tex2", "BB特征:" & (CaPetDebugTmp(0)) & "/3"
    EndIf 
    If place=ScrPetFArr(13) And CaPetDebugTmp(0)<3
        ChangeContent "Tex3", XList(CaPetDebugTmp(1)+1)+PetFeaArr(8) & "|" & YList(CaPetDebugTmp(1)+1)+PetFeaArr(CaPetDebugTmp(1)*4+1) & "|" & PetFeaArr(CaPetDebugTmp(1)*4+2) & "|" & PetFeaArr(CaPetDebugTmp(1)*4+3)
        //KeyPress 44,1
    EndIf 
Return