If intX2>=0 and intY2>=0
                    If intY2-intY>=20
                        //近距离
                        JL=0
                    Else 
                        //中距离
                        JL=1
                    EndIf 
                Else 
                    //远距离
                    JL=2
                EndIf 
            EndIf 
        Else 
            JL=3
        EndIf 
    EndIf 
Return 找红色目标
Sub 找自己
    VBSCall FindPic(0,254,1023,354,"qp剪刀2.bmp",0.6,intX,intY)
    If intX>=0 and intY>=0
        Goto 结束找自己
    Else 
        VBSCall FindPic(0,254,1023,354,"qp拳头2.bmp",0.6,intX,intY)
        If intX>=0 and intY>=0
            Goto 结束找自己
        Else 
            VBSCall FindPic(0,254,1023,354,"qp包2.bmp",0.6,intX,intY)
            If intX>=0 and intY>=0
                Goto 结束找自己
            Else 
            EndIf 
        EndIf 
    EndIf 
    VBSCall FindPic(0,254,1023,354,"qp剪刀3.bmp",0.6,intX,intY)
    If intX>=0 and intY>=0
        Goto 结束找自己
    Else 
        VBSCall FindPic(0,254,1023,354,"qp拳头3.bmp",0.6,intX,intY)
        If intX>=0 and intY>=0
            Goto 结束找自己
        Else 
            VBSCall FindPic(0,254,1023,354,"qp包3.bmp",0.6,intX,intY)
            If intX>=0 and intY>=0
                Goto 结束找自己
            Else 
            EndIf 
        EndIf 
    EndIf 
    VBSCall FindPic(0,254,1023,354,"qp剪刀4.bmp",0.6,intX,intY)
    If intX>=0 and intY>=0
        Goto 结束找自己
    Else 
        VBSCall FindPic(0,254,1023,354,"qp拳头4.bmp",0.6,intX,intY)
        If intX>=0 and intY>=0
            Goto 结束找自己
        Else 
            VBSCall FindPic(0,254,1023,354,"qp包4.bmp",0.6,intX,intY)
            If intX>=0 and intY>=0
                Goto 结束找自己
            Else 
            EndIf 
        EndIf 
    EndIf 
    VBSCall FindPic(0,254,1023,354,"qp剪刀5.bmp",0.6,intX,intY)
    If intX>=0 and intY>=0
        Goto 结束找自己
    Else 
        VBSCall FindPic(0,254,1023,354,"qp拳头5.bmp",0.6,intX,intY)
        If intX>=0 and intY>=0
            Goto 结束找自己
        Else 
            VBSCall FindPic(0,254,1023,354,"qp包5.bmp",0.6,intX,intY)
            If intX>=0 and intY>=0
                Goto 结束找自己
            Else 
            EndIf 
        EndIf 
    EndIf 
    Rem 结束找自己
Return 找自己
Sub 备用充电
    Gosub 找自己
    If intX>=0 and intY>=0
    Else 
        Goto 结束备用充电
    EndIf 
    MoveTo intX+50,intY+130
    MoveRH -10,3
    Delay 100
    RightClick 1
    Delay 1200
    MoveTo intX+80,intY+180
    MoveRH -10,-4
    Delay 100
    LeftClick 1
    Delay 1000
    MoveTo 520,354
    Delay 100
    LeftClick 1