1.         延时100毫秒
  2.         跳转到标记 选图
  3.     条件结束
  4. 子程序结束,回到调用处
  5. 子程序 选地图
  6.     如果表达式 (map=0) 为真,则
  7.         鼠标移到 x3 , y3
  8.         延时time毫秒
  9.         左键双击
  10.     否则如果(map=1)为真,则
  11.         鼠标移到 x3 , y3+14
  12.         延时time毫秒
  13.         左键双击
  14.     否则如果(map=2)为真,则
  15.         鼠标移到 x3 , y3+28
  16.         延时time毫秒
  17.         左键双击
  18.     否则如果(map=3)为真,则
  19.         鼠标移到 x3 , y3+42
  20.         延时time毫秒
  21.         左键双击
  22.     否则如果(map=4)为真,则
  23.         鼠标移到 x3 , y3+56
  24.         延时time毫秒
  25.         左键双击
  26.     否则如果(map=5)为真,则
  27.         鼠标移到 x3 , y3+70
  28.         延时time毫秒
  29.         左键双击
  30.     否则如果(map=6)为真,则
  31.         鼠标移到 x3 , y3+84
  32.         延时time毫秒
  33.         左键双击
  34.     条件结束
  35. 子程序结束,回到调用处
  36. 子程序 退出
  37.     //从小号开始进入
  38.     标记 退出房屋
  39.     如果表达式 (No<=int(3*time/10)) 为真,则循环执行
  40.         调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  41.         调用子程序 暂停
  42.         如果表达式 (intX>=0 and intY>=0) 为真,则
  43.             // 小号进入了游戏
  44.             如果表达式 (reg=0) 为真,则
  45.                 调用子程序 作者
  46.             否则
  47.                 延时1000毫秒
  48.                 延时50毫秒
  49.                 按住<Alt>
  50.                 延时50毫秒
  51.                 按键<3>
  52.                 延时50毫秒
  53.                 弹起<Alt>
  54.                 延时50毫秒
  55.                 按键<Enter>
  56.                 延时300毫秒
  57.             条件结束
  58.             调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  59.             延时time毫秒
  60.             左键单击
  61.             // 小号退到大厅
  62.             延时100毫秒
  63.             调用子程序 大号窗口
  64.             // 切换到大号
  65.             （VBScript语句） j=1
  66.             标记 返回1
  67.             //判断大号是否进入
  68.             调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  69.             调用子程序 暂停
  70.             如果表达式 (intX>=0 and intY>=0) 为真,则
  71.                 //大号没进入
  72.                 调用外部VBScript子程序 time1=inputbox("延时时间,请根据自己的网速调整（默认200，单位毫秒）:")
  73.                 延时time毫秒
  74.                 左键单击
  75.                 //大号已经退到大厅
  76.                 跳转到标记 失败
  77.                 // Gosub 退出大厅
  78.             否则
  79.                 如果表达式 (j<=5) 为真,则
  80.                     延时100毫秒
  81.                     （VBScript语句） j=j+1
  82.                     跳转到标记 返回1
  83.                 条件结束
  84.             条件结束
  85.             //大号也进入了游戏
  86.             // Delay 10*time
  87.             标记 喊话
  88.             延时50毫秒
  89.             按住<Alt>
  90.             延时50毫秒
  91.             按键<2>
  92.             延时50毫秒
  93.             弹起<Alt>
  94.             延时50毫秒
  95.             按键<Enter>
  96.             延时100毫秒
  97.             如果表达式 (dd1=1) 为真,则
  98.                 //如果大号等待
  99.                 标记 判断人数
  100.                 调用子程序 判断对手3