IfColor 220,128,99ccdd,1
        Delay 500
        KeyPress 119,1
        Delay 200
    Else 
    EndIf 
Return 补活力
Sub 拒绝请求
    VBSCall FindPic(504,360,579,388,"Attachment:\拒绝.bmp",0.9,x,y)
    If x>=0 and y>=0
        MoveTo x+5,y+3
        Delay 200
        LeftClick 1
    EndIf 
Return 拒绝请求
Sub 防御
    IfColor 283,107,5566ff,1
        Delay 1000
        KeyPress 192,1
        Delay 1000
        MoveTo 294,439
        Delay 1000
        LeftClick 1
        Delay 1000
        KeyPress 192,1
        Delay 30000
        Goto 继续挖矿
    Else 
    EndIf 
Return 防御
Sub 叫卖
    KeyPress 13,1
    Delay 500
    SayExpression mai
    Delay 300
    KeyPress 13,1
Return 叫卖
Sub 丢垃圾
    Delay 500
    KeyPress 66,1
    Delay 500
    VBSCall FindPic(107,133,896,381,"背包.bmp",0.9,x,y)
    If x>=0 and y>=0
        MoveTo x+195,y+200
        SaveMousePos 
    EndIf 
    bao1=x-45
    bao2=y+168
    bao3=x+193
    bao4=y+340
    Delay 1000
    Gosub 丢
    MouseWheel -7
    Delay 1000
    Gosub 丢
    MouseWheel -7
    Delay 1000
    Gosub 丢
    MouseWheel 14
    Delay 1000
    KeyPress 66,1
    Delay 2000
    Sub 丢
        i=0
        For 3
            Rem 是否还有
            x=-1
            y=-1
            VBSCall FindPic(bao1,bao2,bao3,bao4,color(i),0.9,x,y)
            If x>=0 and y>=0
                MoveTo x+5,y+5
                Delay 200
                LeftClick 1
                Delay 200
                MoveTo 130,215
                Delay 200
                LeftClick 1
                Delay 500
                RestoreMousePos 
                Goto 是否还有
            EndIf 
            i=i+1
        EndFor 
        Delay 200
    Return 丢
Return 丢垃圾
For 1
EndFor