Delay 2000
    KeyPress 13,1
    MoveTo 520,100
    Delay 100
    LeftClick 1
    Rem 结束备用充电
Return 备用充电
Sub sd询问确认
    c=0
    Rem sd询问确认start
    Delay 400
    VBSCall FindPic(0,0,1023,768,"qp询问确认.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0
        Delay 100
        MoveTo intX,intY+10
        Delay 100
        LeftClick 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,"qp确认.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0
        Delay 100
        MoveTo intX,intY+10
        Delay 100
        LeftClick 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 
    MoveTo intX+30,intY+130
    Delay 100
    MoveRH -10,-10
    Delay 100
    RightClick 1
    Delay 100
    VBSCall FindPic(0,0,1023,768,"qp编写邮件.bmp",0.5,intX,intY)
    If intX>=0 and intY>=0
        MoveTo intX,intY+39
        Delay 100
        MoveRH 6,-3
        Delay 100
        VBSCall FindPic(0,0,1023,768,"qp充电选中.bmp",0.6,intX,intY)
        If intX>=0 and intY>=0
            LeftClick 1
            Gosub sd询问确认
            Gosub sd确认
        Else 
            MoveTo 520,215
            Delay 100
            LeftClick 1
            Gosub 备用充电
        EndIf 
    Else 
    EndIf 
    Rem 结束充电
Return 充电
Sub 擂台攻击
    c=0
    c2=0
    Rem 1
    If chaoshi=0
        Gosub 259才杀
    EndIf 
    KeyPress 50,1
    wq=2
    RightDown 1
    Gosub 环境判断
    VBSCall FindColorEx(461,314,473,330,"78DABE",1,0.9,intX,intY)
    If intX>=0 and intY>=0
    Else 
        VBSCall FindColorEx(461,314,473,330,"98F1CD",1,0.9,intX,intY)
    EndIf 
    If intX>=0 and intY>=0
        Goto 开始攻击