lRoadPointArr = Array(10000,397,318,600000,266,214)
                            SelectPlace = 0
                        ElseIf place="沉睡森林" And DecPlaceArr(1)="精灵城"
                            lRoadPointArr = Array(10000,397,318,600000,600,440)
                            SelectPlace = 0
                        ElseIf place="云麓山脉" And DecPlaceArr(1)="沉睡森林"
                            lRoadPointArr = Array(3000,573,365,600000,617,364)
                            SelectPlace = 0
                        EndIf 
                        If Not(IsEmpty(lRoadPointArr))
                            Gosub 移动到下一个地图
                            GoingToPlace = True
                        EndIf 
                    EndIf 
                EndIf 
            EndIf 
            //---------------------------------------------
            If Not(GoingToPlace)
                ChangeContent "Tex1", place
                If place="云台原野"
                    Gosub 云台原野找怪
                ElseIf place="出云东郊"
                    Gosub 出云东郊找怪
                ElseIf place="梨阳湖北"
                    Gosub 梨阳湖北找怪
                ElseIf place="禅意静地"
                    Gosub 禅意静地找怪
                ElseIf place="云天绿洲"
                    Gosub 云天绿洲找怪
                ElseIf place="朵拉雪地"
                    Gosub 朵拉雪地找怪
                ElseIf place="曙光平原"
                    Gosub 曙光平原找怪
                ElseIf place="梨阳岛"
                    Gosub 梨阳岛找怪
                ElseIf place="樱舞仙境"
                    Gosub 樱舞仙境找怪
                    //ElseIf place="仙朵拉城"
                    //Gosub 仙朵拉城出城
                    //Delay 5000
                    //MsgBox "到达目的地:" & place,0,"自动寻路"
                ElseIf place="禁忌平原"
                    Gosub 禁忌平原找怪
                ElseIf place="沉睡森林"
                    Gosub 沉睡森林找怪
                ElseIf place="梨阳村"
                    Gosub 梨阳村找怪
                ElseIf place="冰石雪原"
                    Gosub 冰石雪原找怪
                ElseIf place="玉蜂林"
                    Gosub 玉蜂林找怪
                Else 
                    //未知地图
                    //检查小地图位置是否正确
                    MiniMapColorS=Array(0,0)
                    VBSCall FindColorEx(610,141,632,148,"A58AF7",0,0.8,MiniMapColorS(0),MiniMapColorS(1))
                    If MiniMapColorS(0)<>616 or MiniMapColorS(1)<>144
                        MiniMapColorN=Array(MiniMapColorS(0)-616,MiniMapColorS(1)-144)
                        MoveTo 250,152
                        LeftDown 1
                        MoveTo 300,300
                        Delay 50
                        MoveTo 250-MiniMapColorN(0),152-MiniMapColorN(1)
                        LeftUp 1
                        Delay 1000
                    EndIf 
                    Gosub 愤怒谷道找怪
                EndIf 
            EndIf 
        EndIf 
        //防卡3分钟后刷新
        TimeOutRefreshTimeArray(2) = 180000
        Gosub 防卡刷新第N分钟
        FindMonsterLoop=FindMonsterLoop+1
    EndWhile 
    Gosub 防卡刷新重置
    waitcolrrere=Array(0,0)
    While GetPixelColor(480,370)<>"00FFFF" and waitcolrrere(0)<30 and fighting<>1 and fighting<>0
        //等待战斗操作到来,最长15秒
        If waitcolrrere(1)>5
            Gosub 检查是否战斗
            waitcolrrere(1)=0
        EndIf 
        waitcolrrere(0)=waitcolrrere(0)+1
        waitcolrrere(1)=waitcolrrere(1)+1
        Delay 500
    EndWhile 
    Delay 100
    //进入战斗时向下执行
    //------战前设置------
    EnterBattleTimeArray=Array(0,0)
    Plugin EnterBattleTimeArray(0)=GetSysInfo.GetTime()
    Plugin EnterBattleTimeArray(1)=GetSysInfo.GetTime()
    //战斗时间计算
    EliteMonster=0
    //精英怪物
    petdeath=0
    PetIsDeathB=0
    //宠物没有死亡
    PetHpIsZero=0