Else Gosub 找自己
        Gosub 找自己
        VBSCall FindColor(intX+10,intY+212,intX+95,intY+213,"ffffff",intX2,intY2)
        If intX2>0 and intY2>0
            KeyPressS 116,1
        Else 
            Delay 100
        EndIf 
        Delay 500
        Gosub 充电
    EndIf 
    Delay 500
    VBS TRt=timer
    Rem 看是否为房主
    VBSCall FindPic(100,0,250,68,"Attachment:\成为房主.bmp",1,intX,intY)
    If intX>0 and intY>0
        KeyPressS 116,1
        Delay 110
        KeyPressS 13,1
        Delay 110
        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 
        KeyPressS 116,1
        Delay 100
    EndIf 
    Delay 100
    VBSCall FindPic(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY)
    If intX>0 and intY>0
    Else 
        Goto 结束准备游戏
    EndIf 
    Delay 100
    VBSCall FindPic(0,0,1023,768,"Attachment:\qp确认.bmp",0.8,intX,intY)
    If intX>0 and intY>0
        KeyPressS 13,1
    Else 
        Goto 准备游戏start
    EndIf 
    Rem 结束准备游戏
    //    Gosub 等待读取
Return 准备游戏
Sub 找自己
    VBSCall FindPic(0,254,1023,354,"Attachment:\qp剪刀2.bmp",0.6,intX,intY)
    If intX>0 and intY>0
        Goto 结束找自己
    Else 
        VBSCall FindPic(0,254,1023,354,"Attachment:\qp拳头2.bmp",0.6,intX,intY)
        If intX>0 and intY>0
            Goto 结束找自己
        Else 
            VBSCall FindPic(0,254,1023,354,"Attachment:\qp包2.bmp",0.6,intX,intY)
            If intX>0 and intY>0
                Goto 结束找自己
            EndIf 
        EndIf 
    EndIf 
    VBSCall FindPic(0,254,1023,354,"Attachment:\qp剪刀3.bmp",0.6,intX,intY)
    If intX>0 and intY>0
        Goto 结束找自己
    Else 
        VBSCall FindPic(0,254,1023,354,"Attachment:\qp拳头3.bmp",0.6,intX,intY)
        If intX>0 and intY>0
            Goto 结束找自己
        Else 
            VBSCall FindPic(0,254,1023,354,"Attachment:\qp包3.bmp",0.6,intX,intY)
            If intX>0 and intY>0
                Goto 结束找自己
            EndIf 
        EndIf 
    EndIf 
    VBSCall FindPic(0,254,1023,354,"Attachment:\qp剪刀4.bmp",0.6,intX,intY)
    If intX>0 and intY>0
        Goto 结束找自己
    Else 
        VBSCall FindPic(0,254,1023,354,"Attachment:\qp拳头4.bmp",0.6,intX,intY)
        If intX>0 and intY>0
            Goto 结束找自己
        Else 
            VBSCall FindPic(0,254,1023,354,"Attachment:\qp包4.bmp",0.6,intX,intY)
            If intX>0 and intY>0
                Goto 结束找自己
            EndIf 
        EndIf 
    EndIf 
    VBSCall FindPic(0,254,1023,354,"Attachment:\qp剪刀5.bmp",0.6,intX,intY)
    If intX>0 and intY>0
        Goto 结束找自己
    Else 
        VBSCall FindPic(0,254,1023,354,"Attachment:\qp拳头5.bmp",0.6,intX,intY)
        If intX>0 and intY>0
            Goto 结束找自己
        Else 
            VBSCall FindPic(0,254,1023,354,"Attachment:\qp包5.bmp",0.6,intX,intY)
            If intX>0 and intY>0
                Goto 结束找自己