EndIf 
        EndIf 
    EndIf 
    Rem 结束找自己
Return 找自己
Sub sd询问确认
    c=0
    Rem sd询问确认start
    Delay 400
    VBSCall FindPic(0,0,1023,768,"Attachment:\qp询问确认.bmp",0.8,intX,intY)
    If intX>0 and intY>0
        Delay 100
        MoveToS intX,intY+10
        Delay 100
        LeftClickS 1
        Delay 100
    Else 
        If c<=YS
            c=c+1
            Goto sd询问确认start
        Else 
            c=0
        EndIf 
    EndIf 
Return sd询问确认
Sub sd确认
    c=0
    Rem sd确认start
    Delay 400
    VBSCall FindPic(0,0,1023,768,"Attachment:\qp确认.bmp",0.8,intX,intY)
    If intX>0 and intY>0
        Delay 100
        MoveToS intX,intY+10
        Delay 100
        LeftClickS 1
        Delay 100
    Else 
        If c<=YS
            c=c+1
            Goto sd确认start
        Else 
            c=0
        EndIf 
    EndIf 
Return sd确认
Sub 充电
    c=0
    Rem 充电start
    Gosub 找自己
    If intX>0 and intY>0
    Else 
        Goto 结束充电
    EndIf 
    MoveToS intX+30,intY+130
    Delay 100
    RightClickS 1
    Delay 100
    VBSCall FindPic(0,0,1023,768,"Attachment:\qp编写邮件.bmp",0.5,intX,intY)
    If intX>0 and intY>0
        MoveToS intX,intY+39
        Delay 500
        VBSCall FindPic(0,0,1023,768,"Attachment:\qp充电选中.bmp",0.6,intX,intY)
        If intX>0 and intY>0
            LeftClickS 1
            Gosub sd询问确认
            Gosub sd确认
        Else 
            MoveToS 520,115
            Delay 100
            LeftClickS 1
        EndIf 
    Else 
        MoveToS 520,115
        Delay 100
        LeftClickS 1
    EndIf 
    Rem 结束充电
Return 充电
Sub 肉肉攻击
    Rem 1
    RightUpS 1
    Delay 100
    KeyUpS 83,1
    Gosub 环境判断
    KeyPressS 50,1
    RightDownS 1
    KeyDownS 83,1
    Delay 100
    LeftClickS 1
    Delay 100
    LeftClickS 1
    Delay 100
    KeyPressS 51,1
    Delay 100
    LeftClickS 1
    Delay 100
    LeftClickS 1
    Delay 100
    Goto 1
Return 肉肉攻击