EndIf 
EndIf 
Rem 结束
i=i+1
i1=i1+1
Goto 主程序
EndIf 
Goto 准备
EndScript 
Sub 找服
    Rem 段位
    VBSCall Call FindPic(842,115,904,150,".\pic\段位1.bmp",0.9,intX,intY)
    VBSCall call findpic(850,122,890,145,".\pic\段位2.bmp",0.9,intX1,intY1)
    Gosub 暂停
    If intX>=0 and intY>=0 or intX1>=0 and intY1>=0
        MoveTo 873 128
        Delay time
        LeftClick 1
        // Delay 500
        // LeftClick 1
        Delay 100
        If 1=i mod 2
            work=wo1
        Else 
            work=wo2
        EndIf 
        Gosub 选服
    Else 
        Delay 100
        Goto 段位
    EndIf 
Return 
Sub 选服
    If work=1
        MoveTo x2 y2
        Delay time
        LeftDoubleClick 1
    ElseIf work=2
        MoveTo x2 y2+23
        Delay time
        LeftDoubleClick 1
    ElseIf work=3
        MoveTo x2 y2+46
        Delay time
        LeftDoubleClick 1
    ElseIf work=4
        MoveTo x2 y2+69
        Delay time
        LeftDoubleClick 1
    ElseIf work=5
        MoveTo x2 y2+92
        Delay time
        LeftDoubleClick 1
    ElseIf work=6
        MoveTo x2 y2+115
        Delay time
        LeftDoubleClick 1
    ElseIf work=7
        MoveTo x2 y2+138
        Delay time
        LeftDoubleClick 1
    ElseIf work=8
        MoveTo x2 y2+161
        Delay time
        LeftDoubleClick 1
    ElseIf work=9
        MoveTo x2 y2+184
        Delay time
        LeftDoubleClick 1
    ElseIf work=10
        MoveTo x2 y2+217
        Delay time
        LeftDoubleClick 1
    ElseIf work=11
        MoveTo x2 y2+240
        Delay time
        LeftDoubleClick 1
    ElseIf work=12
        MoveTo x2 y2+263
        Delay time
        LeftDoubleClick 1
    ElseIf work=13
        MoveTo x2 y2+286
        Delay time
        LeftDoubleClick 1
    EndIf 
Return 
Sub 开设房间
    Rem 查找房间
    VBSCall Call FindPic(480,80,556,115,".\pic\开设房间.bmp",0.9,intX,intY)
    Gosub 暂停
    //Gosub 作者
    If intX>=0 and intY>=0
        If 1<>i1 mod 2
            If reg=0
                Gosub 作者
            EndIf 
            Gosub 退出大厅
            Goto 返回对刷服
        EndIf