If x2>=0 and y2>=0
                MoveTo i,j
                Delay 32
                LeftClick 1
                i="":j=""
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 捡蓝水晶
    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,"94f729",1,0.8,x1,y1)
        If x1>=0 and y1>=0
            q=x1:r=y1
            VBSCall FindColorEx(q-5,r-30,q+5,r-20,"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 
Return 
Sub xp3
    If xp=3
        MoveTo 812,551
        Delay 32
        LeftClick 1
    EndIf 
Return 
Sub 无弹回城
    If zhiye=1
        VBSCall FindColorEx(575,6,580,10,"101010",1,0.8,x,y)
        If x<0 and y<0
            Delay 32
            d=d+1
            If d=6
                KeyPress 119,1
            EndIf 
        EndIf 
    EndIf 
Return 
Sub 拒绝交易
    VBSCall FindColorEx(133,312,135,314,"ffffff",1,0.8,x1,y1)
    VBSCall FindColorEx(311,389,313,391,"916e23",1,0.8,x2,y2)
    VBSCall FindColorEx(326,233,328,235,"8b6ff",1,0.8,x3,y3)
    If x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0
        MoveTo 312,390
        Delay 32
        LeftClick 1
    EndIf 
Return 
Sub 同意组队
    VBSCall FindColorEx(270,232,275,238,"c7ff",1,0.8,x1,y1)
    VBSCall FindColorEx(220,393,225,396,"aeff",1,0.8,x2,y2)
    If x1>=0 and y1>=0 and x2>=0 and y2>=0
        MoveTo 223,394
        Delay 32
        LeftClick 1
    EndIf 
Return 
Sub 关闭推荐任务