1.                     调用子程序 暂停
  2.                     如果表达式 (intX>=0 and intY>=0) 为真,则
  3.                         //小号进入,退到大厅
  4.                         调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  5.                         延时time毫秒
  6.                         左键单击
  7.                         // LeftDoubleClick 1
  8.                     否则
  9.                         如果表达式 (l<=5) 为真,则
  10.                             延时100毫秒
  11.                             l=l+1
  12.                             跳转到标记 返回3
  13.                         条件结束
  14.                     条件结束
  15.                     //切换到大号
  16.                     延时100毫秒
  17.                     调用子程序 大号窗口
  18.                     标记 喊话
  19.                     延时50毫秒
  20.                     按住<Alt>
  21.                     延时50毫秒
  22.                     按键<2>
  23.                     延时50毫秒
  24.                     弹起<Alt>
  25.                     延时50毫秒
  26.                     按键<Enter>
  27.                     延时100毫秒
  28.                     如果表达式 (dd1=1) 为真,则
  29.                         //大号等待
  30.                         标记 判断人数
  31.                         调用子程序 判断对手3
  32.                         调用子程序 判断对手4
  33.                         如果表达式 (intWX3>=0 or intWX4>=0) 为真,则
  34.                             man=2
  35.                         否则
  36.                             man=4
  37.                         条件结束
  38.                         如果表达式 (man=4) 为真,则
  39.                             标记 对手存在3
  40.                             调用子程序 判断对手1
  41.                             调用子程序 判断对手2
  42.                             调用子程序 判断对手3
  43.                             调用子程序 判断对手4
  44.                             如果表达式 (intWX1>=0 and intWX2>=0 or intWX3>=0 and intWX4>=0) 为真,则
  45.                                 跳转到标记 确定对手退出1
  46.                             否则
  47.                                 延时100毫秒
  48.                                 调用子程序 判断对手0
  49.                                 如果表达式 (intWX=-1) 为真,则
  50.                                     跳转到标记 对手存在3
  51.                                 条件结束
  52.                             条件结束
  53.                         否则
  54.                             标记 对手存在4
  55.                             调用子程序 判断对手1
  56.                             调用子程序 判断对手2
  57.                             如果表达式 (intWX1>=0 or int WX2>=0) 为真,则
  58.                                 跳转到标记 确定对手退出1
  59.                             否则
  60.                                 延时100毫秒
  61.                                 调用子程序 判断对手0
  62.                                 如果表达式 (intWX=-1) 为真,则
  63.                                     跳转到标记 对手存在4
  64.                                 条件结束
  65.                             条件结束
  66.                         条件结束
  67.                         标记 确定对手退出1
  68.                         调用子程序 退出大厅
  69.                         //大号失败.成功都在大厅
  70.                     否则
  71.                         //大号不等待
  72.                         延时10*time毫秒
  73.                         鼠标移到 600 , 500
  74.                         标记 大号准备退出1
  75.                         调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  76.                         如果表达式 (intX>=0 and intY>=0) 为真,则
  77.                             调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  78.                             延时100毫秒
  79.                             左键单击
  80.                         否则
  81.                             延时100毫秒
  82.                             跳转到标记 大号准备退出1
  83.                         条件结束
  84.                         //大号不等待退到大厅
  85.                     条件结束
  86.                     跳转到标记 失败
  87.                     标记 小号在大厅，大号在大厅（界面为大号）
  88.                 条件结束
  89.                 延时100毫秒
  90.                 鼠标移到 445 , 752
  91.                 延时time毫秒
  92.                 左键单击
  93.             条件结束
  94.             （VBScript语句） No=No+1
  95.         循环结束
  96.         （VBScript语句） No=1
  97.         延时100毫秒
  98.         调用子程序 关闭
  99.         如果表达式 (intX>=0) 为真,则
  100.             er=er+1