i1=i1+1
        EndIf 
        Gosub 退出大厅
        Delay 100
        Gosub 退出大厅
        //小号退到大厅
        Delay 100
        Gosub 大号窗口
        Delay 100
        Gosub 关闭
        Delay time
        Gosub 退出大厅
        Delay 100
        Gosub 退出大厅
        //大号退到大厅
    EndIf 
Return 
Sub 判断对手0
    MoveTo 743 496
    Delay 100
    VBSCall Call FindPic(690,565,800,620,".\pic\进入游戏.bmp",0.8,intX,intY)
Return 
Sub 判断对手1
    VBSCall Call FindPic(816,136,839,157,".\pic\对手.bmp",1,intWX1,intWY1)
Return 
Sub 判断对手2
    VBSCall Call FindPic(816,178,839,201,".\pic\对手.bmp",1,intWX2,intWY2)
Return 
Sub 判断对手3
    VBSCall Call FindPic(816,221,839,243,".\pic\对手.bmp",1,intWX3,intWY3)
Return 
Sub 判断对手4
    VBSCall Call FindPic(816,265,838,285,".\pic\对手.bmp",1,intWX4,intWY4)
Return 
Sub 房名
    Delay 100
    KeyPress 77 1
    KeyPress 73 1
    KeyPress 67 1
    KeyPress 75 1
    KeyPress 69 1
    KeyPress 89 1
    KeyPress 83 1
    KeyPress 83 1
    KeyPress 190 1
    KeyPress 65 1
    KeyPress 78 1
    KeyPress 89 1
    KeyPress 80 1
    KeyPress 190 1
    KeyPress 67 1
    KeyPress 78 1
Return 
Sub 作者
    KeyPress 13 1
    KeyPress 77 1
    KeyPress 73 1
    KeyPress 67 1
    KeyPress 75 1
    KeyPress 69 1
    KeyPress 89 1
    KeyPress 83 1
    KeyPress 83 1
    KeyPress 190 1
    KeyPress 65 1
    KeyPress 78 1
    KeyPress 89 1
    KeyPress 80 1
    KeyPress 190 1
    KeyPress 67 1
    KeyPress 78 1
    KeyPress 32 1
    KeyPress 81 1
    KeyPress 81 1
    KeyPress 189 1
    KeyPress 53 1
    KeyPress 50 1
    KeyPress 48 1
    KeyPress 51 1
    KeyPress 50 1
    KeyPress 48 1
    KeyPress 52 1
    KeyPress 49 1
    KeyPress 13 1
Return