LeftClick 1
        Delay 1000
    Else 
    EndIf 
Return 
//******************第二棵树a**********************************
Sub twotree
    Gosub opensecond
    VBSCall FindColorEx(732,213,775,246,yewtree,1,0.8,twox,twoy)
    If twox>0 and twoy>0
        Delay 500
        MoveTo twox,twoy
        Delay 500
        LeftClick 1
    EndIf 
    Gosub openfirst
Return 
Sub chacktwo
    VBSCall FindColorEx(804,229,837,256,pathtree,1,0.9,x,y)
    If x>0 and y>0
        Delay 500
        MoveTo x,y
        Delay 500
        LeftClick 1
        Delay 10000
    Else 
    EndIf 
EndIf 
Return 
//******************第三棵树a*********************************
Sub threetree
    VBSCall FindColorEx(699,247,746,289,yewtree,1,0.8,threex,threey)
    If threex>0 and threey>0
        Delay 500
        Delay 100
        MoveTo threex,threey
        Delay 500
        LeftClick 1
        Delay 15000
        Gosub cutingthree
        Rem three
        If location=1
            VBSCall FindColorEx(819,250,862,278,yewtree,1,0.8,x,y)
            If x>0 and y>0
                Delay 500
                MoveTo x,y
                Delay 500
                LeftClick 1
                Delay 20000
                VBSCall FindColorEx(796,221,829,251,pathtree,1,0.8,x,y)
                If x>0 and y>0
                    Delay 500
                    MoveTo x,y
                    Delay 500
                    LeftClick 1
                    Delay 10000
                Else 
                EndIf 
                Gosub gohome
            Else 
            EndIf 
        Else 
        EndIf 
    Else 
    EndIf 
Return 
//***********砍树过程***********************************************
//*********************第一棵树*************************************
Sub cutingone
    VBSCall FindColorEx(309,247,493,434,"317163",1,0.8,treex,treey)
    If treex>0 and treey>0
        Delay 200
        MoveTo treex,treey
        Delay 400
        LeftClick 1
        Delay 100
        Gosub cutingsecondonetree
        Rem wait
        Gosub finditem
        If location=1
            Delay 10
            Goto one
        EndIf 
        Delay 1500
        //******************查看树有没有死****************************
        VBSCall FindColorEx(261,279,551,440,"317163",1,0.8,thex,they)
        If thex>0 and they>0
            dealy 1000
            Goto wait
        EndIf 
    Else 
    EndIf 
Return 
//*************************************第1b棵树*************************
Sub cutingoneb
    VBSCall FindColorEx(309,247,493,434,"317163",1,0.8,treex,treey)
    If treex>0 and treey>0
        Delay 200
        MoveTo treex,treey
        Delay 400