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