KeyDown HOME,1
                Delay 256
                KeyUp HOME,2
                Delay 256
            EndIf 
            Gosub 休息中
        EndIf 
    EndIf 
EndIf 
If done=1
    If datediff("s",strtime,time)>litime
        //开地图
        VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,xx1,yy1)
        If xx1<=0
            Gosub 开关地图
            VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,xx1,yy1)
        EndIf 
        If xx1>0
            xx=xx1-cox:yy=yy1-1-coy:r=sqr(xx^2+yy^2)
            If r>limits
                tmpr=r
                //防卡住一个地方
                i=1
                Gosub 定位
            Else 
                If dwguan=1
                    Gosub 开关地图
                    VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,xx1,yy1)
                    If xx1>0
                        Gosub 开关地图
                    EndIf 
                EndIf 
                strtime=time
            EndIf 
        EndIf 
    EndIf 
EndIf 
VBSCall FindColorEx(monsterx,monstery,monsterx+83,monstery+15,monster,1,0.8,xx,yy)
If xx>0
    //防卡住杀不了怪
    i=1
    Gosub 杀怪
ElseIf done=1 or done=2
    fangx=fangx+1
    If fangx=1
        MoveTo 86,384
        Delay 128
        Goto 开始
    EndIf 
    If fangx=2
        MoveTo 50,384
        Delay 128
        Goto 开始
    EndIf 
    If fangx=3
        MoveTo 74,384
        Delay 128
        Goto 开始
    EndIf 
    MoveTo 62,384
    Delay 128
    fangx=0
EndIf 
Goto 开始
//************************************
Sub 杀怪
    Rem 杀怪中
    //搜索怪物血条
    VBSCall FindColorEx(monsterx,monstery,monsterx+83,monstery+15,monster,1,0.8,xx,yy)
    If xx>0
        //防卡取色
        If i=1
            VBSCall FindColorEx(400,27,498,42,monster,0,0.8,xx1,yy1)
        EndIf 
        //攻击
        If yongj=1
            KeyDown fight1,1
            Delay 64
            KeyUp fight1,2
            For 2
                KeyDown pick,1
                Delay 64
                KeyUp pick,2
                Delay 128
            EndFor 
            KeyDown fight1,1
            Delay 64
            KeyUp fight1,2
            Delay 64
        ElseIf yongj=2
            KeyDown fight1,1
            Delay 64
            KeyUp fight1,2
            For 2
                KeyDown pick,1
                Delay 64
                KeyUp pick,2
                Delay 128
            EndFor 
            KeyDown fight1,1