VBSCall Call SetCursorPos(intX+30,intY+15)
        Delay time
        LeftClick 1
        If reg=0
            If i=1 or i=2
                Gosub 房名
            EndIf 
        EndIf 
        KeyPress 13 1
        // Gosub 确定选择
        //Gosub 选择地图
    Else 
        Delay 100
        Goto 查找房间
    EndIf 
    Rem 返回对刷服
Return 
Sub 开始游戏
    Rem 进入
    VBSCall Call FindPic(680,567,823,627,".\pic\进入游戏.bmp",0.8,intX,intY)
    Gosub 暂停
    If intX>=0 and intY>=0
        VBSCall Call SetCursorPos(intX+35,intY+10)
        Delay time/4
        LeftClick 1
    Else 
        Delay 100
        Goto 进入
    EndIf 
Return 
Sub 确定选择
    Rem 确定
    VBSCall Call FindPic(425,430,490,467,".\pic\确定.bmp",0.9,intX,intY)
    Gosub 暂停
    If intX>=0 and intY>=0
        VBSCall Call SetCursorPos(intX+5,intY+5)
        Delay time
        LeftClick 1
    Else 
        Delay 100
        Goto 确定
    EndIf 
Return 
Sub 退出大厅
    MoveTo 220 580
    Rem 返回
    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 
        Delay 100
        Goto 返回
    EndIf 
Return 
Sub 暂停
    If reg=1
        VBSCall key1=cint(Getkeystate(35))
        If key1<>0
            Goto 准备
        EndIf 
    EndIf 
Return 暂停
Sub 关闭
    VBSCall call findpic(473,420,556,462,".\pic\关闭.bmp",0.9,intX,intY)
    If intX>=0 and intY>=0
        VBSCall Call SetCursorPos(intX+5,intY+5)
        Delay 200
        LeftClick 1
    EndIf 
Return 
Sub 大号窗口
    MoveTo 290 752
    Delay 100
    LeftClick 1
    Delay 100
Return 
Sub 小号窗口
    MoveTo 445 752
    Delay 100
    LeftClick 1
    Delay 100
Return 
Sub 选择地图
    Rem 选图
    VBSCall Call FindPic(615,396,666,441,".\pic\选择地图.bmp",0.9,intX,intY)
    Gosub 暂停
    If intX>=0 and intY>=0
        VBSCall Call SetCursorPos(intX+25,intY+8)
        Delay time
        LeftClick 1
        If 1=i mod 2
            map=map1
        Else 
            map=map2
        EndIf 
        Gosub 选地图
    Else