1.         调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  2.         延时time毫秒
  3.         左键单击
  4.         如果表达式 (reg=0) 为真,则
  5.             如果表达式 (i=1 or i=2) 为真,则
  6.                 调用子程序 房名
  7.             条件结束
  8.         条件结束
  9.         按键<Enter>
  10.         // Gosub 确定选择
  11.         //Gosub 选择地图
  12.     否则
  13.         延时100毫秒
  14.         跳转到标记 查找房间
  15.     条件结束
  16.     标记 返回对刷服
  17. 子程序结束,回到调用处
  18. 子程序 开始游戏
  19.     标记 进入
  20.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  21.     调用子程序 暂停
  22.     如果表达式 (intX>=0 and intY>=0) 为真,则
  23.         调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  24.         延时time/4毫秒
  25.         左键单击
  26.     否则
  27.         延时100毫秒
  28.         跳转到标记 进入
  29.     条件结束
  30. 子程序结束,回到调用处
  31. 子程序 确定选择
  32.     标记 确定
  33.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  34.     调用子程序 暂停
  35.     如果表达式 (intX>=0 and intY>=0) 为真,则
  36.         调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  37.         延时time毫秒
  38.         左键单击
  39.     否则
  40.         延时100毫秒
  41.         跳转到标记 确定
  42.     条件结束
  43. 子程序结束,回到调用处
  44. 子程序 退出大厅
  45.     鼠标移到 220 , 580
  46.     标记 返回
  47.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  48.     调用子程序 暂停
  49.     如果表达式 (intX>=0 and intY>=0) 为真,则
  50.         调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  51.         延时time毫秒
  52.         左键单击
  53.     否则
  54.         延时100毫秒
  55.         跳转到标记 返回
  56.     条件结束
  57. 子程序结束,回到调用处
  58. 子程序 暂停
  59.     如果表达式 (reg=1) 为真,则
  60.         调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  61.         如果表达式 (key1<>0) 为真,则
  62.             跳转到标记 准备
  63.         条件结束
  64.     条件结束
  65. 子程序结束,回到调用处
  66. 子程序 关闭
  67.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  68.     如果表达式 (intX>=0 and intY>=0) 为真,则
  69.         调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  70.         延时200毫秒
  71.         左键单击
  72.     条件结束
  73. 子程序结束,回到调用处
  74. 子程序 大号窗口
  75.     鼠标移到 290 , 752
  76.     延时100毫秒
  77.     左键单击
  78.     延时100毫秒
  79. 子程序结束,回到调用处
  80. 子程序 小号窗口
  81.     鼠标移到 445 , 752
  82.     延时100毫秒
  83.     左键单击
  84.     延时100毫秒
  85. 子程序结束,回到调用处
  86. 子程序 选择地图
  87.     标记 选图
  88.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  89.     调用子程序 暂停
  90.     如果表达式 (intX>=0 and intY>=0) 为真,则
  91.         调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  92.         延时time毫秒
  93.         左键单击
  94.         如果表达式 (1=i mod 2) 为真,则
  95.             map=map1
  96.         否则
  97.             map=map2
  98.         条件结束
  99.         调用子程序 选地图
  100.     否则