Delay 100
        Goto 选图
    EndIf 
Return 
Sub 选地图
    If map=0
        MoveTo x3 y3
        Delay time
        LeftDoubleClick 1
    ElseIf map=1
        MoveTo x3 y3+14
        Delay time
        LeftDoubleClick 1
    ElseIf map=2
        MoveTo x3 y3+28
        Delay time
        LeftDoubleClick 1
    ElseIf map=3
        MoveTo x3 y3+42
        Delay time
        LeftDoubleClick 1
    ElseIf map=4
        MoveTo x3 y3+56
        Delay time
        LeftDoubleClick 1
    ElseIf map=5
        MoveTo x3 y3+70
        Delay time
        LeftDoubleClick 1
    ElseIf map=6
        MoveTo x3 y3+84
        Delay time
        LeftDoubleClick 1
    EndIf 
Return 
Sub 退出
    //从小号开始进入
    Rem 退出房屋
    While No<=int(3*time/10)
        VBSCall Call FindPic(750,600,880,680,".\pic\退出.bmp",0.9,intX,intY)
        Gosub 暂停
        If intX>=0 and intY>=0
            // 小号进入了游戏
            If reg=0
                Gosub 作者
            Else 
                Delay 1000
                Delay 50
                KeyDown 18 1
                Delay 50
                KeyPress 51 1
                Delay 50
                KeyUp 18 1
                Delay 50
                KeyPress 13 1
                Delay 300
            EndIf 
            VBSCall Call SetCursorPos(intX+10,intY+5)
            Delay time
            LeftClick 1
            // 小号退到大厅
            Delay 100
            Gosub 大号窗口
            //   切换到大号
            VBS j=1
            Rem 返回1
            //判断大号是否进入
            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
                //大号已经退到大厅
                Goto 失败
                // Gosub 退出大厅
            Else 
                If j<=5
                    Delay 100
                    VBS j=j+1
                    Goto 返回1
                EndIf 
            EndIf 
            //大号也进入了游戏
            // Delay 10*time
            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