VBS dim QB,id1,id2,work,work1work2,wo1,wo2,map,map1,map2,map3,map4,x2,y2,x3,y3,i,i1j,k,l,m,n,time,time1,key1,man,dd1,dd2,ready,ready1,str,cs,er
VBS set QB=CreateObject("QMBoost.Functions")
VBS str="作者:牙神
UserVar Var1=1 地图
UserVar Var1=1 大号
UserVar Var1=1 小号
UserVar Var1=1 牙@神
UserVar Var1=1 延迟
VBS time=200
VBS dd1=0
VBS x2=788
VBS y2=191
VBS x3=549
VBS y3=296
VBS wo1=1
VBS wo2=3
VBS map1=1
VBS map2=0
VBSCall time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
//VBSCall id2=inputbox("大号为0，小号为1（默认为大号。）:")
VBSCall work1=inputbox("大、小号对刷段服（默认为新手1）:")
VBSCall work2=inputbox("大、小号间隔段服（默认为新手3）:")
VBSCall map3=inputbox("对刷地图：（默认为坦克（1）、随机（0）、工厂（2）、森林（３）、海盗（４）、地牢（５）、小区（６））:")
VBSCall map4=inputbox("间隔地图：（默认为坦克（1）、随机（0）、工厂（2）、森林（３）、海盗（４）、地牢（５）、小区（６））:")
VBSCall dd2=inputbox("遇到别人是否退出，默认为是：（是为（0）,否为（1））只对大号有用!")
MessageBox 按<Home>开始；按<End>暂停，设置将恢复到最初状态！
Rem 准备
VBS i=1
VBS i1=1
VBS j=1
VBS k=1
VBS l=1
VBS n=1
VBS No=1
VBS cs=1
VBS er=0
VBS time=time1+0
VBS wo1=work1+0
VBS wo2=work2+0
VBS map1=map3+0
VBS map2=map4+0
//VBS map2=map4+0
VBS dd1=dd2+0
WaitKey AnJian
If AnJian=36
    Rem 程序初始化
    Rem 判断位置
    VBSCall Call FindPic(842,115,904,150,".\pic\段位1.bmp",0.9,intaX,intaY)
    VBSCall call findpic(850,122,890,145,".\pic\段位2.bmp",0.9,intaX1,intaY1)
    VBSCall Call FindPic(480,80,556,115,".\pic\开设房间.bmp",0.9,intbX,intbY)
    VBSCall Call FindPic(615,396,666,441,".\pic\选择地图.bmp",0.9,intcX,intcY)
    If intaX>0 or intaX1>0
        Goto 第一步
    ElseIf intbX>0
        Goto 第二步
    ElseIf intcX>0
        Goto 第三步
    EndIf 
    Rem 主程序
    Rem 第一步
    Gosub 找服
    Rem 第二步
    Gosub 开设房间
    //判断大.小号进入(目前为大号)
    Rem 第三步
    If 1= cs mod 2
        Gosub 小号窗口
        If cs=1
            cs=cs+1
            Goto 程序初始化
        Else 
            cs=cs+1
            Goto 主程序
        EndIf 
    EndIf 
    If 0= i1 mod 2
        //If 0=er mod 2
        cs=cs+1
        Gosub 大号窗口
        Goto 结束
        //Else
        //er=er+1
        // i1=i1+1
    EndIf 
EndIf 
Rem 大号准备
//cs 为偶数
Gosub 开始游戏
If 1<> cs mod 2
    Gosub 大号窗口
    cs=cs+1
    Goto 大号准备
EndIf 
//cs为奇数,窗口为小号
Rem 第四步
Gosub 小号窗口
Gosub 退出
If reg=0
    If i>=16
        Goto outdoor