EndIf 
    Gosub 找红色目标
    If JL<=2
        ZDMB=1
        Gosub 选择武器
        Delay 50
        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
            LeftClick 1
            Rem 开始攻击
            VBS gjts=timer
            KeyUp 87,1
            Gosub 选择武器
            For 8
                LeftClick 1
                Delay 50
            EndFor 
            Goto 1
        Else 
            VBS gjte=timer
            If gjte-gjts<2
                Goto 1
            EndIf 
            If QJAX=1
                VBS QJAXt2=timer
                If QJAXt2-QJAXt>5
                    KeyUp 87,1
                    QJAX=0
                    If JL<=1
                        KeyPress 50,1
                        KeyDown 32,1
                        Delay 100
                        RightDown 1
                        Delay 100
                        LeftClick 1
                        Delay 1000
                        KeyUp 32,1
                        LeftClick 1
                        KeyDown 32,1
                        Delay 200
                        KeyPress 51,1
                        Delay 200
                        LeftClick 1
                        Delay 1000
                        LeftClick 1
                        RightUp 1
                    Else 
                        Gosub 判断转向
                    EndIf 
                    If wq=2
                        KeyPress 50,1
                    Else 
                        If wq=3
                            KeyPress 51,1
                        Else 
                            KeyPress 49,1
                        EndIf 
                    EndIf 
                    KeyUp 32,1
                EndIf 
            EndIf 
            If QJAX=0
                VBS QJAXt=timer
                RightDown 1
                KeyDown 32,1
                Delay 100
                For 14
                    Delay 40
                    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
                        LeftClick 1
                        QJAX=0
                        KeyUp 32,1
                        KeyUp 87,1
                        Goto 开始攻击
                    EndIf 
                EndFor 
                KeyPress 87,2
                Delay 100
                KeyDown 87,1
                For 20
                    Delay 40
                    //                    VBSCall FindColorEx(0,0,940,710,"2020ff",1,1,intX,intY)
                    //         If intX>=0 and intY>=0
                    //                   KeyPress 87,1
                    //                     QJAX=0
                    // //                     Goto 1
                    //                EndIf
                    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)