Gosub 暂停
                    If intX>=0 and intY>=0
                        //小号进入,退到大厅
                        VBSCall Call SetCursorPos(intX+10,intY+5)
                        Delay time
                        LeftClick 1
                        // LeftDoubleClick 1
                    Else 
                        If l<=5
                            Delay 100
                            l=l+1
                            Goto 返回3
                        EndIf 
                    EndIf 
                    //切换到大号
                    Delay 100
                    Gosub 大号窗口
                    Rem 喊话
                    Delay 50
                    KeyDown 18 1
                    Delay 50
                    KeyPress 50 1
                    Delay 50
                    KeyUp 18 1
                    Delay 50
                    KeyPress 13 1
                    Delay 100
                    If dd1=1
                        //大号等待
                        Rem 判断人数
                        Gosub 判断对手3
                        Gosub 判断对手4
                        If intWX3>=0 or intWX4>=0
                            man=2
                        Else 
                            man=4
                        EndIf 
                        If man=4
                            Rem 对手存在3
                            Gosub 判断对手1
                            Gosub 判断对手2
                            Gosub 判断对手3
                            Gosub 判断对手4
                            If intWX1>=0 and intWX2>=0 or intWX3>=0 and intWX4>=0
                                Goto 确定对手退出1
                            Else 
                                Delay 100
                                Gosub 判断对手0
                                If intWX=-1
                                    Goto 对手存在3
                                EndIf 
                            EndIf 
                        Else 
                            Rem 对手存在4
                            Gosub 判断对手1
                            Gosub 判断对手2
                            If intWX1>=0 or int WX2>=0
                                Goto 确定对手退出1
                            Else 
                                Delay 100
                                Gosub 判断对手0
                                If intWX=-1
                                    Goto 对手存在4
                                EndIf 
                            EndIf 
                        EndIf 
                        Rem 确定对手退出1
                        Gosub 退出大厅
                        //大号失败.成功都在大厅
                    Else 
                        //大号不等待
                        Delay 10*time
                        MoveTo 600 500
                        Rem 大号准备退出1
                        VBSCall Call FindPic(750,600,880,680,".\pic\退出.bmp",0.8,intX,intY)
                        If intX>=0 and intY>=0
                            VBSCall Call SetCursorPos(intX+10,intY+5)
                            Delay 100
                            LeftClick 1
                        Else 
                            Delay 100
                            Goto 大号准备退出1
                        EndIf 
                        //大号不等待退到大厅
                    EndIf 
                    Goto 失败
                    Rem 小号在大厅，大号在大厅（界面为大号）
                EndIf 
                Delay 100
                MoveTo 445 752
                Delay time
                LeftClick 1
            EndIf 
            VBS No=No+1
        EndWhile 
        VBS No=1
        Delay 100
        Gosub 关闭
        If intX>=0
            er=er+1