1.     条件结束
  2. 条件结束
  3. 标记 结束
  4. i=i+1
  5. i1=i1+1
  6. 跳转到标记 主程序
  7. 条件结束
  8. 跳转到标记 准备
  9. 脚本停止运行
  10. 子程序 找服
  11.     标记 段位
  12.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  13.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  14.     调用子程序 暂停
  15.     如果表达式 (intX>=0 and intY>=0 or intX1>=0 and intY1>=0) 为真,则
  16.         鼠标移到 873 , 128
  17.         延时time毫秒
  18.         左键单击
  19.         // Delay 500
  20.         // LeftClick 1
  21.         延时100毫秒
  22.         如果表达式 (1=i mod 2) 为真,则
  23.             work=wo1
  24.         否则
  25.             work=wo2
  26.         条件结束
  27.         调用子程序 选服
  28.     否则
  29.         延时100毫秒
  30.         跳转到标记 段位
  31.     条件结束
  32. 子程序结束,回到调用处
  33. 子程序 选服
  34.     如果表达式 (work=1) 为真,则
  35.         鼠标移到 x2 , y2
  36.         延时time毫秒
  37.         左键双击
  38.     否则如果(work=2)为真,则
  39.         鼠标移到 x2 , y2+23
  40.         延时time毫秒
  41.         左键双击
  42.     否则如果(work=3)为真,则
  43.         鼠标移到 x2 , y2+46
  44.         延时time毫秒
  45.         左键双击
  46.     否则如果(work=4)为真,则
  47.         鼠标移到 x2 , y2+69
  48.         延时time毫秒
  49.         左键双击
  50.     否则如果(work=5)为真,则
  51.         鼠标移到 x2 , y2+92
  52.         延时time毫秒
  53.         左键双击
  54.     否则如果(work=6)为真,则
  55.         鼠标移到 x2 , y2+115
  56.         延时time毫秒
  57.         左键双击
  58.     否则如果(work=7)为真,则
  59.         鼠标移到 x2 , y2+138
  60.         延时time毫秒
  61.         左键双击
  62.     否则如果(work=8)为真,则
  63.         鼠标移到 x2 , y2+161
  64.         延时time毫秒
  65.         左键双击
  66.     否则如果(work=9)为真,则
  67.         鼠标移到 x2 , y2+184
  68.         延时time毫秒
  69.         左键双击
  70.     否则如果(work=10)为真,则
  71.         鼠标移到 x2 , y2+217
  72.         延时time毫秒
  73.         左键双击
  74.     否则如果(work=11)为真,则
  75.         鼠标移到 x2 , y2+240
  76.         延时time毫秒
  77.         左键双击
  78.     否则如果(work=12)为真,则
  79.         鼠标移到 x2 , y2+263
  80.         延时time毫秒
  81.         左键双击
  82.     否则如果(work=13)为真,则
  83.         鼠标移到 x2 , y2+286
  84.         延时time毫秒
  85.         左键双击
  86.     条件结束
  87. 子程序结束,回到调用处
  88. 子程序 开设房间
  89.     标记 查找房间
  90.     调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  91.     调用子程序 暂停
  92.     //Gosub 作者
  93.     如果表达式 (intX>=0 and intY>=0) 为真,则
  94.         如果表达式 (1<>i1 mod 2) 为真,则
  95.             如果表达式 (reg=0) 为真,则
  96.                 调用子程序 作者
  97.             条件结束
  98.             调用子程序 退出大厅
  99.             跳转到标记 返回对刷服
  100.         条件结束