1.         延时 500 毫秒
  2.         令 dm_ret = dm.FindStr(777,104,1001,643,"NPC家族总管","000000-000000",1,x,y)
  3.         如果 x > 0 并且 y > 0 则
  4.             调用 Bkgnd.LeftDoubleClick(qq,x + 10 - 3,y + 5 - 22)
  5.             延时 2000 毫秒
  6.         否则
  7.             跳转到标记 回家族(子程序 回家族寻路)
  8.         条件结束
  9.         如果点 (177,228) 的颜色等于 "0" 则
  10.             调用 关闭地图
  11.             调用 交接任务
  12.         否则
  13.             跳转到标记 回家族(子程序 回家族寻路)
  14.         条件结束
  15.     否则
  16.         （键盘）按 "F10" 键, 1次
  17.         延时 1000 毫秒
  18.         调用 血蓝组队
  19.         从左上到右下查找图片 "Attachment:\战斗不可传送.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：376 上：167 右：671 下：296），相似度 0.9
  20.         如果 intX > 0 并且 intY > 0 则
  21.             调用 打开地图
  22.             （鼠标）移动到 (231, 607)
  23.             延时 200 毫秒
  24.             （鼠标）左键双击, 1次
  25.             延时 200 毫秒
  26.             调用 关闭地图
  27.             跳转到标记 回家族(子程序 回家族寻路)
  28.         条件结束
  29.         延时 8000 毫秒
  30.         跳转到标记 回家族(子程序 回家族寻路)
  31.     条件结束
  32. 子程序结束
  33. 子程序 交接任务
  34.     标记 木材(子程序 交接任务)
  35.     延时 1000 毫秒
  36.     令 dm_ret = dm.FindStr(22,122,315,581,"支线收集木材|支线收集石料|支线收集泥灰","6c2e2e-000000",1,zxmcx,zxmcy)
  37.     如果 zxmcx > 0 并且 zxmcy > 0 则
  38.         延时 500 毫秒
  39.         调用 Bkgnd.LeftClick(qq,zxmcx - 3,zxmcy + 5 - 22)
  40.         延时 500 毫秒
  41.         标记 木材任务(子程序 交接任务)
  42.         如果点 (195,432) 的颜色等于 "0" 则
  43.             调用 Bkgnd.LeftClick(qq,259 - 3,549 - 22)
  44.             延时 1000 毫秒
  45.         否则
  46.             延时 500 毫秒
  47.             跳转到标记 木材任务(子程序 交接任务)
  48.         条件结束
  49.         跳转到标记 木材(子程序 交接任务)
  50.     条件结束
  51.     调用 打开列表任务
  52.     令 dm_ret = dm.FindStr(16,131,229,546,"收集木材|收集石料|收集泥灰","000000-000000",1,m,c)
  53.     如果 m > 0 并且 c > 0 则
  54.         调用 关掉垃圾
  55.         调用 识别等级
  56.     条件结束
  57.     标记 报警(子程序 交接任务)
  58.     调用 Media.Beep(523,200)
  59.     调用 Msg.Tips("任务完成!")
  60.     跳转到标记 报警(子程序 交接任务)
  61. 子程序结束
  62. 注释：--------------
  63. 子程序 初始化
  64.     展开附件 *.bmp* 到 c:\test_game\map 文件夹
  65.     展开附件 dm.dll 到 c:\test_game 文件夹
  66.     展开附件 *.txt 到 c:\test_game 文件夹
  67.     令 ws = createobject("Wscript.Shell")
  68.     ws.run("regsvr32 c:\test_game\dm.dll /s")
  69.     令 ws = nothing
  70.     令 dm = CreateObject("dm.dmsoft")
  71.     令 ver = dm.Ver()
  72.     如果 len(ver) = 0 则
  73.         弹出窗口 "创建对象失败,检查系统是否禁用了vbs脚本权限"
  74.         脚本停止运行
  75.     条件结束
  76.     令 base_path = dm.GetBasePath()
  77.     令 dm_ret = dm.SetPath(base_path)
  78.     令 dm_ret = dm.SetDict(0,"收集建材.txt")
  79. 子程序结束
  80. 注释：--------------
  81. 子程序 兔子
  82.     标记 兔子(子程序 兔子)
  83.     调用 刷兔子
  84.     跳转到标记 兔子(子程序 兔子)
  85. 子程序结束
  86. 子程序 木桩
  87.     标记 木桩(子程序 木桩)
  88.     调用 刷木桩
  89.     跳转到标记 木桩(子程序 木桩)
  90. 子程序结束
  91. 子程序 鼠标单击
  92.     标记 单击(子程序 鼠标单击)
  93.     （鼠标）右键单击, 1次
  94.     跳转到标记 单击(子程序 鼠标单击)
  95. 子程序结束
  96. 子程序 刷兔子
  97.     调用 坐标一
  98.     调用 坐标二
  99.     调用 坐标三
  100.     调用 坐标四