1.     令 dm_ret = dm.FindStr(32,419,67,440,"请送","362000-000000",1.0,x,y)
  2.     如果 x >= 0 并且 y >= 0 则
  3.         令 i = 1
  4.     条件结束
  5. 循环结束
  6. dm.MoveTo(x,y)
  7. 延时 500 毫秒
  8. dm.LeftDoubleClick()
  9. 延时 1000 毫秒
  10. 注释：离开帮派
  11. 令 i = 0
  12. 循环当 i = 0 时
  13.     令 dm_ret = dm.FindStr(37,423,98,440,"离开帮派","362000-000000",1.0,x,y)
  14.     如果 x >= 0 并且 y >= 0 则
  15.         令 i = 1
  16.     条件结束
  17. 循环结束
  18. dm.MoveTo(x,y)
  19. 延时 500 毫秒
  20. dm.LeftDoubleClick()
  21. 延时 1000 毫秒
  22. 注释：打开任务地图按L键
  23. dm.keypress(76)
  24. 延时 1000 毫秒
  25. 注释：将货物送给
  26. 令 i = 0
  27. 循环当 i = 0 时
  28.     令 dm_ret = dm.FindStr(529,364,607,382,"将货物送给","362000-000000",1.0,x,y)
  29.     如果 x >= 0 并且 y >= 0 则
  30.         令 i = 1
  31.     条件结束
  32. 循环结束
  33. 注释：鼠标点第一个人物
  34. dm.MoveTo(631,373)
  35. 延时 500 毫秒
  36. dm.LeftDoubleClick()
  37. 延时 3000 毫秒
  38. 注释：关闭任务窗口
  39. dm.keypress(27)
  40. 延时 1000 毫秒
  41. 延时 30000 毫秒
  42. 注释：打开任务地图按L键
  43. dm.keypress(76)
  44. 延时 1000 毫秒
  45. 标记 查找一或零
  46. 令 i = 0
  47. 循环当 i = 0 时
  48.     令 dm_ret = dm.FindStr(583,393,594,407,"1","362000-000000",1.0,x,y)
  49.     如果 x >= 0 并且 y >= 0 则
  50.         调用 dier()
  51.     否则
  52.         调用 diyi()
  53.     条件结束
  54. 循环结束
  55. 标记 查找二或一
  56. 令 i = 0
  57. 循环当 i = 0 时
  58.     令 dm_ret = dm.FindStr(581,393,596,408,"2","362000-000000",1.0,x,y)
  59.     如果 x >= 0 并且 y >= 0 则
  60.         调用 disan()
  61.     否则
  62.         调用 dier()
  63.     条件结束
  64. 循环结束
  65. 子程序 diyi()
  66.     dm.MoveTo(631,373)
  67.     延时 1000 毫秒
  68.     dm.LeftDoubleClick()
  69.     延时 100 毫秒
  70.     跳转到标记 查找一或零(子程序 diyi)
  71. 子程序结束
  72. 子程序 dier()
  73.     dm.MoveTo(680,373)
  74.     延时 2000 毫秒
  75.     dm.LeftDoubleClick()
  76.     延时 100 毫秒
  77.     延时 10000 毫秒
  78.     跳转到标记 查找二或一(子程序 dier)
  79. 子程序结束
  80. 子程序 disan()
  81.     dm.MoveTo(743,374)
  82.     延时 1000 毫秒
  83.     dm.LeftDoubleClick()
  84.     延时 100 毫秒
  85.     延时 1000 毫秒
  86.     跳转到标记 查找三或二(子程序 disan)
  87. 子程序结束
  88. 注释：关闭任务窗口
  89. dm.keypress(27)
  90. 延时 25000 毫秒
  91. 注释：打开任务地图按L键
  92. dm.keypress(76)
  93. 延时 1000 毫秒
  94. 标记 查找三或二
  95. 令 i = 0
  96. 循环当 i = 0 时
  97.     令 dm_ret = dm.FindStr(580,391,596,409,"3","362000-000000",1.0,x,y)
  98.     如果 x >= 0 并且 y >= 0 则
  99.         令 i = 1
  100.     否则