Gosub 判断对手4
                If intWX3>=0 or intWX4>=0
                    man=2
                Else 
                    man=4
                EndIf 
                If man=4
                    Rem 对手存在1
                    Gosub 判断对手1
                    Gosub 判断对手2
                    Gosub 判断对手3
                    Gosub 判断对手4
                    If intWX1>=0 and intWX2>=0 or intWX3>=0 and intWX4>=0
                        Goto 确定对手退出
                    Else 
                        Delay 100
                        Gosub 判断对手0
                        If intWX=-1
                            Goto 对手存在1
                        EndIf 
                    EndIf 
                Else 
                    Rem 对手存在2
                    Gosub 判断对手1
                    Gosub 判断对手2
                    If intWX1>=0 or int WX2>=0
                        Goto 确定对手退出
                    Else 
                        Delay 100
                        Gosub 判断对手0
                        If intWX=-1
                            Goto 对手存在2
                        EndIf 
                    EndIf 
                EndIf 
                Rem 确定对手退出
                Gosub 退出大厅
                //大号失败或者成功都在大厅里了
            EndIf 
            If dd1=0
                //如果大号不等待
                //MoveTo 600 500
                Delay 100
                Rem 大号准备退出
                VBSCall Call FindPic(750,600,880,680,".\pic\退出.bmp",0.8,intX,intY)
                Delay 100
                If intX>=0 and intY>=0
                    VBSCall Call SetCursorPos(intX+10,intY+5)
                    Delay 100
                    LeftClick 1
                Else 
                    Delay 100
                    Goto 大号准备退出
                EndIf 
            EndIf 
            Gosub 作者
            //目前大号在大厅，小号在大厅(界面为大号)
            Rem 失败
            Delay 100
            Gosub 退出大厅
            //大号在F区,切换到小号
            Delay 100
            Gosub 小号窗口
            Gosub 退出大厅
            //小号在F区,切换到大号
            Delay 100
            Gosub 大号窗口
            VBS No=1
        Else 
            //小号没有进入
            If 0= No mod 10
                //间隔一定时间切换到大号,检查大号是否进入
                Delay 100
                Gosub 大号窗口
                VBSCall Call FindPic(750,600,880,680,".\pic\退出.bmp",0.9,intX,intY)
                If intX>=0 and intY>=0
                    //小号没进,大号进了,切换到小号
                    Delay 200
                    Gosub 小号窗口
                    Gosub 暂停
                    //判断小号是否进入
                    VBS k=1
                    Rem 返回2
                    VBSCall Call FindPic(206,638,242,669,".\pic\返回.bmp",0.8,intX,intY)
                    Gosub 暂停
                    If intX>=0 and intY>=0
                        //小号没进,退到大厅
                        VBSCall Call SetCursorPos(intX+2,intY+2)
                        Delay time
                        LeftClick 1
                    Else 
                        If k<=5
                            Delay 100
                            k=k+1
                            Goto 返回2
                        EndIf 
                    EndIf 
                    VBS l=1
                    Rem 返回3
                    VBSCall Call FindPic(750,600,880,680,".\pic\退出.bmp",0.9,intX,intY)