1. （VBScript语句） 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
2. （VBScript语句） set QB=CreateObject("QMBoost.Functions")
3. （VBScript语句） str="作者:牙神
4. 用户定义变量 Var1=1 地图
5. 用户定义变量 Var1=1 大号
6. 用户定义变量 Var1=1 小号
7. 用户定义变量 Var1=1 牙@神
8. 用户定义变量 Var1=1 延迟
9. （VBScript语句） time=200
10. （VBScript语句） dd1=0
11. （VBScript语句） x2=788
12. （VBScript语句） y2=191
13. （VBScript语句） x3=549
14. （VBScript语句） y3=296
15. （VBScript语句） wo1=1
16. （VBScript语句） wo2=3
17. （VBScript语句） map1=1
18. （VBScript语句） map2=0
19. 调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
20. //VBSCall id2=inputbox("大号为0，小号为1（默认为大号。）:")
21. 调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
22. 调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
23. 调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
24. 调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
25. 调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
26. 弹出窗口 按<Home>开始；按<End>暂停，设置将恢复到最初状态！
27. 标记 准备
28. （VBScript语句） i=1
29. （VBScript语句） i1=1
30. （VBScript语句） j=1
31. （VBScript语句） k=1
32. （VBScript语句） l=1
33. （VBScript语句） n=1
34. （VBScript语句） No=1
35. （VBScript语句） cs=1
36. （VBScript语句） er=0
37. （VBScript语句） time=time1+0
38. （VBScript语句） wo1=work1+0
39. （VBScript语句） wo2=work2+0
40. （VBScript语句） map1=map3+0
41. （VBScript语句） map2=map4+0
42. //VBS map2=map4+0
43. （VBScript语句） dd1=dd2+0
44. 等待按任意键，保存到变量AnJian中
45. 如果表达式 (AnJian=36) 为真,则
46.     标记 程序初始化
47.     标记 判断位置
48.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
49.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
50.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
51.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
52.     如果表达式 (intaX>0 or intaX1>0) 为真,则
53.         跳转到标记 第一步
54.     否则如果(intbX>0)为真,则
55.         跳转到标记 第二步
56.     否则如果(intcX>0)为真,则
57.         跳转到标记 第三步
58.     条件结束
59.     标记 主程序
60.     标记 第一步
61.     调用子程序 找服
62.     标记 第二步
63.     调用子程序 开设房间
64.     //判断大.小号进入(目前为大号)
65.     标记 第三步
66.     如果表达式 (1= cs mod 2) 为真,则
67.         调用子程序 小号窗口
68.         如果表达式 (cs=1) 为真,则
69.             cs=cs+1
70.             跳转到标记 程序初始化
71.         否则
72.             cs=cs+1
73.             跳转到标记 主程序
74.         条件结束
75.     条件结束
76.     如果表达式 (0= i1 mod 2) 为真,则
77.         //If 0=er mod 2
78.         cs=cs+1
79.         调用子程序 大号窗口
80.         跳转到标记 结束
81.         //Else
82.         //er=er+1
83.         // i1=i1+1
84.     条件结束
85. 条件结束
86. 标记 大号准备
87. //cs 为偶数
88. 调用子程序 开始游戏
89. 如果表达式 (1<> cs mod 2) 为真,则
90.     调用子程序 大号窗口
91.     cs=cs+1
92.     跳转到标记 大号准备
93. 条件结束
94. //cs为奇数,窗口为小号
95. 标记 第四步
96. 调用子程序 小号窗口
97. 调用子程序 退出
98. 如果表达式 (reg=0) 为真,则
99.     如果表达式 (i>=16) 为真,则
100.         跳转到标记 outdoor