KeyUp pick,2
                        Delay 192
                    EndFor 
                ElseIf i=3
                    KeyDown 68,1
                    Delay int(1024*rnd)
                    KeyUp 68,2
                    KeyDown 65,1
                    Delay int(1024*rnd)
                    KeyUp 65,2
                    KeyDown 83,1
                    Delay int(1024*rnd)
                    KeyUp 83,2
                    KeyDown 87,1
                    Delay int(1024*rnd)
                    KeyUp 87,2
                EndIf 
                i=i+1
                If i>4
                    i=1
                EndIf 
            EndIf 
            Goto 继续定位
        EndIf 
    EndIf 
    //关大地图
    If dwguan=1
        Gosub 开关地图
        VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,xx1,yy1)
        If xx1>0
            Gosub 开关地图
        EndIf 
    EndIf 
    If xiuxi=1
        VBSCall FindColorEx(185+lifeb,36,190+lifeb,55,lifc,1,0.8,lifx,lify)
        If lifx<=0
            If HOME=36
                KeyDownH 36,1
                Delay 256
                KeyUpH 36,2
                Delay 256
            Else 
                KeyDown HOME,1
                Delay 256
                KeyUp HOME,2
                Delay 256
            EndIf 
            Gosub 休息中
        EndIf 
    EndIf 
    strtime=time
Return 
//*****************************************
Sub 休息中
    Rem 继续休息
    //休息只以红为准
    VBSCall FindColorEx(185,36,523,55,lifc,1,0.8,lifx1,lify1)
    Delay 5120
    VBSCall FindColorEx(258,36,268,55,lifc,1,0.8,lifx,lify)
    If lifx<=0
        VBSCall FindColorEx(185,36,523,55,lifc,1,0.8,lifx2,lify2)
        If lifx1=lifx2
            If xiuxi=2
                Goto 结束休息
            EndIf 
            If HOME=36
                KeyDownH 36,1
                Delay 256
                KeyUpH 36,2
                Delay 256
            Else 
                KeyDown HOME,1
                Delay 256
                KeyUp HOME,2
                Delay256
            EndIf 
            Goto 继续休息
        ElseIf lifx1>lifx2
            If HOME=36
                KeyDownH 36,1
                Delay 256
                KeyUpH 36,2
                Delay 256
            Else 
                KeyDown HOME,1
                Delay 256
                KeyUp HOME,2
                Delay 256
            EndIf 
            VBSCall FindColorEx(monsterx,monstery,monsterx+83,monstery+15,monster,1,0.8,xx,yy)
            If xx<=0
                //按TAB选怪
                KeyDown 9,1
                Delay 256
                KeyUp 9,2
                Delay 1024
                VBSCall FindColorEx(monsterx,monstery,monsterx+83,monstery+15,monster,1,0.8,xx,yy)
            EndIf 
            If xx<=0
                MoveTo 86,384