If c=0
            If TRt2-TRt>=30
                c=1
                TRn=1
                While TRn<=8
                    VBS Ttime1(TRn)=timer
                    TR(TRn)=0
                    TRn=TRn+1
                EndFor 
            Else 
                Goto 看是否为房主
            EndIf 
        EndIf 
        If c=1
            Gosub 踢人
        EndIf 
        Goto 看是否为房主
    EndIf 
    Delay 100
    Gosub 找自己
    VBSCall FindColor(intX+10,intY+212,intX+63,intY+213,"ffffff",intX2,intY2)
    If intX2>=0 and intY2>=0
    Else 
        KeyPress 116,1
        Delay 100
    EndIf 
    Delay 100
    VBSCall FindPic(738,0,875,68,"准备标记.bmp",1,intX,intY)
    If intX>=0 and intY>=0
    Else 
        Goto 结束准备游戏
    EndIf 
    Delay 100
    VBSCall FindPic(0,0,1023,768,"qp确认.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0
        KeyPress 13,1
    Else 
        Goto 准备游戏start
    EndIf 
    Rem 结束准备游戏
    //    Gosub 等待读取
Return 准备游戏
Sub 判断转向
    RightUp 1
    Delay 30
    MoveRH 0,500
    Delay 90
    MoveRH 0,-160
    RightDown 1
    c=0
    Rem 转向start
    If QJAX=1
        KeyUp 32,1
        KeyUp 87,1
        QJAX=0
    EndIf Rem 转向start
    RightDown 1
    Delay 500
    VBSCall FindColorEx(975,38,1013,144,"ffffff",2,1,intX,intY)
    If intX>=0 and intY>=0
        RightUp 1
        Delay 30
        MoveRH -180,0
        RightDown 1
        Delay 100
        VBSCall FindColorEx(0,0,940,710,"2020ff",1,1,intX3,intY3)
        If intX3>=0 and intY3>=0
            KeyPress 87,1
            QJAX=0
            Goto 结束转向
        EndIf 
        VBSCall FindColorEx(451,330,460,344,"6AE69B",1,0.7,intX3,intY3)
        If intX3>=0 and intY3>=0
            Goto 开始攻击
        EndIf 
        VBSCall FindColorEx(intX-5,intY-5,intX+5,intY+5,"ffffff",2,1,intX2,intY2)
        If intX2>=0 and intY2>=0
        Else 
            If c<=4
                c=c+1
                Goto 转向start
            Else 
            EndIf 
        EndIf 
    EndIf 
    Rem 结束转向
Return 判断转向
Sub 找红色目标
    VBSCall FindColorEx(0,0,940,710,"2020ff",1,0.9,intX,intY)
    If intX<=115 and intY<=139
        intX=-1
        intY=-1
    EndIf 
    If intX<=391 or intX>=641
        JL=2
    Else 
        If intX>=0 and intY>=0
            VBSCall FindColorEx(intX-10,intY-25,intX+10,intY+2,"2020ff",0,0.9,intX,intY)
            If intX>=0 and intY>=0
                VBSCall FindColorEx(intX-5,intY+9,intX+5,intY+35,"2020ff",2,0.9,intX2,intY2)