VBS Ttime1(TRn)=timer
            If TRn=3
            EndIf 
            TR(TRn)=0
        Else 
            If TRn<=4
                VBSCall FindColor(TRx(TRn)-87,TRy(TRn)+264,TRx(TRn)-1,TRy(TRn)+270,"ffffff",intX,intY)
            Else 
                VBSCall FindColor(TRx(TRn)+22,TRy(TRn)+264,TRx(TRn)+110,TRy(TRn)+270,"ffffff",intX,intY)
            EndIf 
            If intX>=0 and intY>=0
                TR(TRn)=1
                VBS Ttime1(TRn)=timer
            Else 
                VBS Ttime2(TRn)=timer
                If Ttime2(TRn)-Ttime1(TRn)>=40
                    TR(TRn)=2
                    wzb=wzb+1
                Else 
                    TR(TRn)=1
                EndIf 
            EndIf 
            zrs=zrs+1
        EndIf 
        TRn=TRn+1
    EndWhile 
    If zrs>7 and wzb=1
        TRn=1
        While TRn<=8
            If TR(TRn)=2
                KeyPress 13,1
                Delay 100
                MoveTo TRx(TRn)+3,TRy(TRn)+3
                Delay 100
                LeftClick 1
                Delay 100
                VBS Ttime1(TRn)=timer
                TR(TRn)=0
                zrs=zrs-1
                wzb=wzb-1
            EndIf 
            TRn=TRn+1
        EndWhile 
    Else 
    EndIf 
Return 踢人
Sub 前进
    If QJAX=0
        VBS QJAXt=timer
        RightDown 1
        KeyPress 87,2
        Delay 90
        KeyDown 87,1
        KeyDown 32,1
        For 7
            Delay 100
            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)
            EndIf 
            If intX>=0 and intY>=0
                LeftClick 1
                KeyPress 87,1
                QJAX=0
                Goto 开始攻击
            EndIf 
        EndFor 
        KeyUp 32,1
        KeyDown 87,1
        RightUp 1
        QJAX=1
    EndIf 
Return 前进
Sub 智能攻击
    RightDown 1
    Delay 200
    Rem 找红色
    Gosub 找红色目标
    If JL<=2
        //        Rem 开始攻击
        Gosub 攻击
        If gj=0
            If QJAX3=0
                VBS QJAXt3=timer
                KeyDown 32,1
                Delay 600
                KeyDown 87,1
                QJAX3=1
            EndIf 
        EndIf 
        Goto 找红色
    Else 
        VBS QJAXt2=timer