1.                 调用 Bkgnd.LeftDoubleClick(qq,x - 3,y - 22)
  2.             条件结束
  3.             延时 9000 毫秒
  4.             跳转到标记 冥地(子程序 冥地)
  5.         条件结束
  6.     条件结束
  7.     令 dm_ret = dm.FindStr(23,41,48,65,"等级91","f9cb2b-000000",1,jyx,jyy)
  8.     如果 jyx > 0 并且 jyy > 0 则
  9.         令 dm_ret = dm.FindStr(878,23,972,51,"黄泉路","ffffff-000000",1,h,q)
  10.         如果 h > 0 并且 q > 0 则
  11.             调用 Msg.Tips("黄泉路")
  12.         否则
  13.             （键盘）按 "F9" 键, 1次
  14.             延时 500 毫秒
  15.             调用 Bkgnd.LeftDoubleClick(qq,515 - 3,352 - 22)
  16.             延时 500 毫秒
  17.             令 dm_ret = dm.FindStr(340,209,653,594,"黄泉路","ffffff-000000",1,x,y)
  18.             如果 x > 0 并且 y > 0 则
  19.                 调用 Bkgnd.LeftDoubleClick(qq,x - 3,y - 22)
  20.             条件结束
  21.             延时 9000 毫秒
  22.             跳转到标记 冥地(子程序 冥地)
  23.         条件结束
  24.     条件结束
  25. 子程序结束
  26. 子程序 识别任务
  27.     调用 打开列表任务
  28.     调用 下拉任务列表
  29.     令 dm_ret = dm.FindStr(16,131,229,546,"收集木材","000000-000000",1,x,y)
  30.     如果 x > 0 并且 y > 0 则
  31.         延时 500 毫秒
  32.         调用 Bkgnd.LeftClick(qq,x - 3,y + 5 - 22)
  33.         延时 1000 毫秒
  34.         令 dm_ret = dm.FindStr(257,241,463,348,"完成","000000-000000",1,x,y)
  35.         如果 x > 0 并且 y > 0 则
  36.         否则
  37.             跳转到标记 有任务(子程序 识别任务)
  38.         条件结束
  39.     条件结束
  40.     令 dm_ret = dm.FindStr(16,131,229,546,"收集石料","000000-000000",1,x,y)
  41.     如果 x > 0 并且 y > 0 则
  42.         延时 500 毫秒
  43.         调用 Bkgnd.LeftClick(qq,x - 3,y + 5 - 22)
  44.         延时 1000 毫秒
  45.         令 dm_ret = dm.FindStr(257,241,463,348,"完成","000000-000000",1,x,y)
  46.         如果 x > 0 并且 y > 0 则
  47.         否则
  48.             跳转到标记 有任务(子程序 识别任务)
  49.         条件结束
  50.     条件结束
  51.     令 dm_ret = dm.FindStr(16,131,229,546,"收集泥灰","000000-000000",1,x,y)
  52.     如果 x > 0 并且 y > 0 则
  53.         延时 500 毫秒
  54.         调用 Bkgnd.LeftClick(qq,x - 3,y + 5 - 22)
  55.         延时 1000 毫秒
  56.         令 dm_ret = dm.FindStr(257,241,463,348,"完成","000000-000000",1,x,y)
  57.         如果 x > 0 并且 y > 0 则
  58.         否则
  59.             跳转到标记 有任务(子程序 识别任务)
  60.         条件结束
  61.     否则
  62.         调用 回家族寻路
  63.     条件结束
  64.     标记 有任务(子程序 识别任务)
  65. 子程序结束
  66. 子程序 检查任务
  67.     调用 打开列表任务
  68.     调用 下拉任务列表
  69.     令 dm_ret = dm.FindStr(16,131,229,546,"收集木材","000000-000000",1,x,y)
  70.     如果 x > 0 并且 y > 0 则
  71.         延时 500 毫秒
  72.         调用 Bkgnd.LeftClick(qq,m - 3,c + 5 - 22)
  73.         延时 1000 毫秒
  74.         令 dm_ret = dm.FindStr(257,241,463,348,"完成","000000-000000",1,x,y)
  75.         如果 x > 0 并且 y > 0 则
  76.         否则
  77.             调用 Bkgnd.LeftDoubleClick(qq,325 - 3,267 - 22)
  78.             延时 500 毫秒
  79.             调用 Bkgnd.LeftDoubleClick(qq,325 - 3,267 - 22)
  80.             标记 木材锁怪(子程序 检查任务)
  81.             （键盘）按 "Tab" 键, 1次
  82.             延时 200 毫秒
  83.             令 dm_ret = dm.FindStr(318,36,541,117,"榆桑驯龙师|鬼火守卫|异化轩辕女|山鬼","fed900-000000",1,x,y)
  84.             如果 x > 0 并且 y > 0 则
  85.                 延时 2000 毫秒
  86.                 调用 锁怪打怪
  87.             否则
  88.                 跳转到标记 木材锁怪(子程序 检查任务)
  89.             条件结束
  90.         条件结束
  91.     条件结束
  92.     令 dm_ret = dm.FindStr(16,131,229,546,"收集石料","000000-000000",1,x,y)
  93.     如果 x > 0 并且 y > 0 则
  94.         调用 Bkgnd.LeftClick(qq,s - 3,l + 5 - 22)
  95.         延时 1000 毫秒
  96.         令 dm_ret = dm.FindStr(257,241,463,348,"完成","000000-000000",1,x,y)
  97.         如果 x > 0 并且 y > 0 则
  98.         否则
  99.             调用 Bkgnd.LeftDoubleClick(qq,325 - 3,267 - 22)
  100.             延时 500 毫秒