1.             令 a = zx - x1 + 12
  2.             令 b = zy - y1 + 12
  3.         否则
  4.             令 mz = 1
  5.             （鼠标）移动到 (zzx, zzy)
  6.             延时 100 毫秒
  7.         条件结束
  8.     条件结束
  9.     如果 h = 6 则
  10.         （鼠标）移动到 (300 + 定位点x, 300 + 定位点y)
  11.         延时 500 毫秒
  12.         令 h = 0
  13.         跳转到标记 py(子程序 防飘)
  14.     条件结束
  15.     如果 mz = 1 则
  16.         令 h = h + 1
  17.         跳转到标记 py(子程序 防飘)
  18.     否则
  19.         如果 Abs(a) > n 或者 Abs(b) > n 则
  20.             （鼠标）相对移动 (a, b)
  21.             延时 100 毫秒
  22.             令 h = h + 1
  23.             跳转到标记 py(子程序 防飘)
  24.         条件结束
  25.     条件结束
  26. 子程序结束
  27. 子程序 复位
  28.     令 Rect = Window.GetClientRect(窗口1)
  29.     令 客户区 = Split(Rect,"|")
  30.     令 定位点x1 = Clng(客户区(0))
  31.     令 定位点y1 = Clng(客户区(1))
  32.     令 Rect = Window.GetClientRect(窗口2)
  33.     令 客户区 = Split(Rect,"|")
  34.     令 定位点x2 = Clng(客户区(0))
  35.     令 定位点y2 = Clng(客户区(1))
  36.     令 Rect = Window.GetClientRect(窗口3)
  37.     令 客户区 = Split(Rect,"|")
  38.     令 定位点x3 = Clng(客户区(0))
  39.     令 定位点y3 = Clng(客户区(1))
  40.     令 Rect = Window.GetClientRect(窗口4)
  41.     令 客户区 = Split(Rect,"|")
  42.     令 定位点x4 = Clng(客户区(0))
  43.     令 定位点y4 = Clng(客户区(1))
  44.     令 Rect = Window.GetClientRect(窗口5)
  45.     令 客户区 = Split(Rect,"|")
  46.     令 定位点x5 = Clng(客户区(0))
  47.     令 定位点y5 = Clng(客户区(1))
  48.     （鼠标）移动到 (中心点x, 中心点y)
  49.     令 操作x = 中心点x
  50.     令 操作y = 中心点y
  51.     延时 50 毫秒
  52. 子程序结束
  53. 子程序 bba
  54.     如果 客户区(2) = 640 则
  55.         令 限制x = 640 + 定位点x
  56.         令 限制y = 480 + 定位点y
  57.         令 中心点x = 定位点x + 320
  58.         令 中心点y = 定位点y + 240
  59.         令 地图x = 107 + 定位点x
  60.         令 地图y = 59 + 定位点y
  61.         令 箱子x = 360 + 定位点x
  62.         令 箱子y = 456 + 定位点y
  63.         令 任务卷x = 488 + 定位点x
  64.         令 任务卷y = 460 + 定位点y
  65.         令 人头x = 545 + 定位点x
  66.         令 人头y = 27 + 定位点y
  67.         令 宠头x = 440 + 定位点x
  68.         令 宠头y = 20 + 定位点y
  69.         令 停止点1x = 1 + 定位点x
  70.         令 停止点1y = 1 + 定位点y
  71.         令 停止点2x = 637 + 定位点x
  72.         令 停止点2y = 447 + 定位点y
  73.     否则如果 客户区(2) = 800 则
  74.         令 限制x = 800 + 定位点x
  75.         令 限制y = 600 + 定位点y
  76.         令 中心点x = 定位点x + 400
  77.         令 中心点y = 定位点y + 300
  78.         令 地图x = 107 + 定位点x
  79.         令 地图y = 59 + 定位点y
  80.         令 箱子x = 519 + 定位点x
  81.         令 箱子y = 576 + 定位点y
  82.         令 任务卷x = 647 + 定位点x
  83.         令 任务卷y = 578 + 定位点y
  84.         令 人头x = 705 + 定位点x
  85.         令 人头y = 28 + 定位点y
  86.         令 宠头x = 600 + 定位点x
  87.         令 宠头y = 20 + 定位点y
  88.         令 停止点1x = 1 + 定位点x
  89.         令 停止点1y = 1 + 定位点y
  90.         令 停止点2x = 797 + 定位点x
  91.         令 停止点2y = 567 + 定位点y
  92.     条件结束
  93. 子程序结束
  94. 子程序 目标图
  95.     令 w1 = 1
  96.     循环当 w1 = 1 时
  97.         令 图片1 = "Attachment:\" & 目标图片
  98.         从左上到右下查找图片 图片1，把找到的坐标保存到 (目标x, 目标y)，指定区域（左：定位点x 上：定位点y 右：限制x + 40 下：限制y + 40），相似度 0.95
  99.         如果 目标x > 0 并且 目标y > 0 则
  100.             令 目标x = 目标x + 2