LeftClick 1
        Delay 1000
        Rem waitnoeb
        Gosub finditem
        If location=1
            Delay 10
            Goto oneb
        EndIf 
        Delay 1500
        VBSCall FindColorEx(261,279,551,440,"317163",1,0.8,thex,they)
        If thex>0 and they>0
            dealy 1000
            Goto waitnoeb
        EndIf 
    Else 
    EndIf 
Return 
//**********************************砍第二棵树****************************
Sub cutingtwo
    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 1000
        Rem waittwo
        Gosub finditem
        If location=1
            Delay 100
            Goto two
        EndIf 
        Delay 1500
        VBSCall FindColorEx(261,279,551,440,"317163",1,0.8,thex,they)
        If thex>0 and they>0
            dealy 1000
            Goto waittwo
        EndIf 
    Else 
    EndIf 
Return 
//******************砍第三棵树************************************
Sub cutingthree
    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 1000
        Rem waitthree
        Gosub finditem
        If location=1
            Delay 10
            Goto three
        EndIf 
        Delay 1500
        VBSCall FindColorEx(261,279,551,440,"317163",1,0.8,thex,they)
        If thex>0 and they>0
            dealy 1000
            Goto waitthree
        EndIf 
    Else 
    EndIf 
Return 
//*****************************查包子程*************************************
Sub finditem
    Delay 500
    MoveTo 788,350
    Delay 500
    LeftClick 1
    Delay 500
    VBSCall FindColorEx(820,591,862,628,"08455a",1,0.9,x,y)
    If x>0 and y>0
        //***************给标志位赋值******************
        location=1
    Else 
        location=0
    EndIf 
    // VBSCall call messagebox(cstr(location))
Return 
//******************************返程*********************************
Sub gohome
    Gosub gohome1
    Gosub gohome2
    Gosub gohome3
    Gosub gohome4
    Gosub gohome5
    Gosub gohome6
    Gosub findnpc
Return 
//**************************返程子程，共分为6个部分(共6个)*************************************
Sub gohome1
    VBSCall FindColorEx(770,193,807,218,pathtree,1,0.9,x,y)
    If x>0 and y>0
        Delay 500
        MoveTo x,y
        Delay 500
        KeyDown 17,1
        Delay 100