If QJAXt2-QJAXt1>=2
            If QJAX=1
                KeyUp 32,1
                KeyUp 87,1
                QJAX=0
            EndIf 
            Gosub 判断转向
        EndIf 
        If QJAX=0
            VBS QJAXt1=timer
            KeyDown 32,1
            Delay 100
            KeyPress 87,1
            Delay 50
            KeyDown 87,1
            QJAX=1
        EndIf 
        Goto 找红色
    EndIf 
Return 智能攻击
Sub 环境判断
    TracePrint fight
    Rem 环境判断start
    Delay 50
    VBSCall FindPic(738,0,875,68,"准备标记.bmp",1,intX,intY)
    If intX>=0 and intY>=0
        If Fight=0
            Goto 返回调用处
        EndIf 
        KeyUp 87,1
        KeyUp 32,1
        RightUp 1
        Goto 等待中
    Else 
    EndIf 
    Delay 60
    IfColor 36,73,ffffff,0
        If Fight=1
            Goto 返回调用处
        EndIf 
        KeyUp 87,1
        KeyUp 32,1
        RightUp 1
        Goto 战斗开始
    Else 
        IfColor 341,213,ffffff,0
            IfColor 503,210,ffffff,0
                repair=1
                ZDMB=0
                KeyUp 87,1
                RightUp 1
                KeyUp 32,1
                Goto 尚未开始战斗
            Else 
            EndIf 
        Else 
        EndIf 
        Goto 环境判断start
    EndIf 
    Delay 60
    VBSCall FindPic(500,200,800,550,"qp确认.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0
        Delay 100
        KeyPress 13,1
        Delay 100
    Else 
    EndIf 
    Goto 环境判断start
    Rem 返回调用处
Return 环境判断
Sub 准备游戏
    Rem 准备游戏start
    MoveTo 0,0
    Delay 100
    LeftClick 1
    Delay 100
    c=0
    IfColor 190,700,ff9900,0
    Else Gosub 找自己
        Gosub 找自己
        VBSCall FindColor(intX+10,intY+212,intX+95,intY+213,"ffffff",intX2,intY2)
        If intX2>=0 and intY2>=0
            KeyPress 116,1
        Else 
            Delay 100
        EndIf 
        Delay 500
        Gosub 充电
    EndIf 
    Delay 500
    VBS TRt=timer
    Rem 看是否为房主
    VBSCall FindPic(100,0,250,68,"成为房主.bmp",1,intX,intY)
    If intX>=0 and intY>=0
        KeyPress 116,1
        Delay 110
        KeyPress 13,1
        Delay 110
        VBS TRt2=timer
        KeyPress 13,1