Delay 128
                //按TAB选怪
                KeyDown 9,1
                Delay 256
                KeyUp 9,2
                Delay 1024
                MoveTo 62,384
                Delay 128
                VBSCall FindColorEx(monsterx,monstery,monsterx+83,monstery+15,monster,1,0.8,xx,yy)
            EndIf 
            If xx<=0
                MoveTo 50,384
                Delay 128
                //按TAB选怪
                KeyDown 9,1
                Delay 256
                KeyUp 9,2
                Delay 1024
                MoveTo 62,384
                Delay 128
                VBSCall FindColorEx(monsterx,monstery,monsterx+83,monstery+15,monster,1,0.8,xx,yy)
            EndIf 
            If xx<=0
                MoveTo 74,384
                Delay 128
                //按TAB选怪
                KeyDown 9,1
                Delay 256
                KeyUp 9,2
                Delay 1024
                MoveTo 62,384
                Delay 128
                VBSCall FindColorEx(monsterx,monstery,monsterx+83,monstery+15,monster,1,0.8,xx,yy)
            EndIf 
            If xx>0
                Gosub 杀怪
            EndIf 
            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 
        EndIf 
        Goto 继续休息
    Else 
        If HOME=36
            KeyDownH 36,1
            Delay 512
            KeyUpH 36,2
            Delay 512
        Else 
            KeyDown HOME,1
            Delay 512
            KeyUp HOME,2
            Delay 512
        EndIf 
    EndIf 
    Rem 结束休息
Return 
//********************************************
Sub 挖矿
    If i>6
        KeyDown 68,1
        Delay int(512*rnd)
        KeyUp 68,2
        KeyDown 65,1
        Delay int(512*rnd)
        KeyUp 65,2
        KeyDown 83,1
        Delay int(512*rnd)
        KeyUp 83,2
        KeyDown 87,1
        Delay int(512*rnd)
        KeyUp 87,2
    EndIf 
    i=i+1
    VBSCall FindColorEx(340,0,785,140,kuangsy,1,0.8,xx,yy)
    If xx<=0
        VBSCall FindColorEx(340,0,785,140,kuangsj,1,0.8,xx,yy)
    EndIf 
    If xx>0
        MoveTo xx,yy
        Delay 32
        For 2
            LeftDown 1
            Delay 64
            LeftUp 2
            Delay 8
        EndFor 
        MoveTo 650,384
        For 2
            KeyDown pick,1
            Delay 64
            KeyUp pick,2