Return 
Sub 攻击
    VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)
    If x>=0 and y>=0
        MoveTo x+n,y+m
        RightClick 1
        Gosub 技能1
        Gosub 技能2
    Else 
        VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)
        If x>=0 and y>=0
            MoveTo x+n,y+m-n
            RightClick 1
        EndIf 
    EndIf 
Return 
Sub 快速找怪
    VBSCall FindColorEx(313,10,315,12,"0",1,0.8,x,y)
    If x<0 and y<0
        KeyDown 17,1
        LeftClick 1
        KeyUp 17,1
    EndIf 
Return 
Sub 技能1
    IfColor 139,45,ae21,2
        Delay 32
        jn1=jn1+1
        If jn1>=4
            KeyPress 113,1
            jn1=0
        EndIf 
    EndIf 
Return 
Sub 技能2
    IfColor 139,45,ae21,2
        Delay 32
        jn2=jn2+1
        If jn2>=8
            KeyPress 114,1
            jn2=0
        EndIf 
    EndIf 
Return 
Sub 补红
    IfColor hp*1.13+121,31,313033,2
        KeyPress 112,1
    EndIf 
Return 
Sub 捡钱
    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,"ad497f",1,0.8,x1,y1)
        If x1>=0 and y1>=0
            e=x1:f=y1
            VBSCall FindColorEx(e+5,f-50,e+45,f-30,"ffff",1,0.8,x2,y2)
            If x2>=0 and y2>=0
                MoveTo e,f
                Delay 32
                LeftClick 1
                e="":f=""
            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 捡粉红水晶
    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)