Delay 32
        t3=now
    EndIf 
Return 
Sub 捡钱x
    If zidongjianwu=1
        VBSCall FindColorEx(35,100,920,520,"45b0c9",1,0.8,x1,y1)
        If x1>=0 and y1>=0
            a=x1:b=y1
            VBSCall FindColorEx(a+5,b-50,a+45,b-30,"ffff",1,0.8,x2,y2)
            If x2>=0 and y2>=0
                MoveTo a,b
                Delay 32
                LeftClick 1
                a="":b=""
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 捡流星
    If zidongjianwu=1
        VBSCall FindColorEx(35,100,920,520,"106d21",1,0.8,x1,y1)
        If x1>=0 and y1>=0
            g=x1:h=y1
            VBSCall FindColorEx(g-5,h-25,g+45,h-5,"ffff",1,0.8,x2,y2)
            If x2>=0 and y2>=0
                MoveTo g,h
                Delay 32
                LeftClick 1
                g="":h=""
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 捡粉红水晶x
    If zidongjianwu=1
        VBSCall FindColorEx(35,100,920,520,"8b16ab",1,0.8,x1,y1)
        If x1>=0 and y1>=0
            i=x1:j=y1
            VBSCall FindColorEx(i-5,j-30,i+45,j-10,"ffff",1,0.8,x2,y2)
            If x2>=0 and y2>=0
                MoveTo i,j
                Delay 32
                LeftClick 1
                i="":j=""
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 捡蓝水晶x
    If zidongjianwu=1
        VBSCall FindColorEx(35,100,920,520,"ffb783",1,0.8,x1,y1)
        If x1>=0 and y1>=0
            k=x1:l=y1
            VBSCall FindColorEx(k-5,l-45,k+45,l-8,"ffff",1,0.8,x2,y2)
            If x2>=0 and y2>=0
                MoveTo k,l
                Delay 32
                LeftClick 1
                k="":l=""
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 捡聚态水晶
    If zidongjianwu=1
        VBSCall FindColorEx(35,100,920,520,"d6c7b5",1,0.8,x1,y1)
        If x1>=0 and y1>=0
            q=x1:r=y1
            VBSCall FindColorEx(q-5,r-5,q+5,r-15,"ffff",1,0.8,x2,y2)
            If x2>=0 and y2>=0
                MoveTo g,h
                Delay 32
                LeftClick 1
                q="":r=""
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 检测xp
    VBSCall FindColorEx(800,500,900,550,"cdb886",1,0.8,x,y)
    If x>=0 and y>=0
        Gosub xp1
        Gosub xp2
        Gosub xp3
    EndIf 
Return 
Sub xp1
    If xp=1
        MoveTo 935,540
        Delay 32
        LeftClick 1
    EndIf 
Return 
Sub xp2
    If xp=2
        MoveTo 881,547
        Delay 32
        LeftClick 1
    EndIf