1.         调用 disan()
  2.     条件结束
  3. 循环结束
  4. 注释：关闭任务窗口
  5. dm.keypress(27)
  6. 延时 10000 毫秒
  7. 注释：找广陵城
  8. 循环 5 次
  9.     令 dm_ret = dm.FindStr(893,5,910,24,"陵","f0e69d-000000",1.0,x,y)
  10.     如果 x >= 0 并且 y >= 0 则
  11.         跳转到标记 打开地图
  12.     否则
  13.         跳转到标记 回城卷
  14.     条件结束
  15. 循环结束
  16. 标记 回城卷
  17. dm.keypress(120)
  18. 延时 5000 毫秒
  19. 令 i = 0
  20. 循环当 i = 0 时
  21.     令 dm_ret = dm.FindStr(909,4,929,23,"城","f0e69d-000000",1.0,x,y)
  22.     如果 x >= 0 并且 y >= 0 则
  23.         令 i = 1
  24.     条件结束
  25. 循环结束
  26. 标记 打开地图
  27. 注释：按M打开地图
  28. dm.keypress(77)
  29. 延时 1000 毫秒
  30. 注释：找传送
  31. 令 dm_ret = dm.FindStr(735,166,795,189,"传送Npc","ffd495-000000",1.0,x,y)
  32. 如果 x >= 0 并且 y >= 0 则
  33.     dm.MoveTo(x,y)
  34.     延时 500 毫秒
  35.     dm.LeftDoubleClick()
  36.     延时 2000 毫秒
  37. 否则
  38.     弹出窗口 "地图传送没找到"
  39. 条件结束
  40. 注释：找虹曜
  41. 令 dm_ret = dm.FindStr(748,227,867,248,"虹曜","ffd495-000000",1.0,x,y)
  42. 如果 x >= 0 并且 y >= 0 则
  43.     dm.MoveTo(x,y)
  44.     延时 500 毫秒
  45.     dm.LeftDoubleClick()
  46.     延时 1000 毫秒
  47. 否则
  48.     弹出窗口 "虹曜没找到"
  49. 条件结束
  50. 注释：关闭地图窗口
  51. dm.keypress(27)
  52. 延时 10000 毫秒
  53. 注释：延时8秒
  54. 延时 8000 毫秒
  55. 注释：我去
  56. 令 i = 0
  57. 循环当 i = 0 时
  58.     令 dm_ret = dm.FindStr(67,419,100,440,"我去","362000-000000",1.0,x,y)
  59.     如果 x >= 0 并且 y >= 0 则
  60.         令 i = 1
  61.     否则
  62.         调用 shuangji()
  63.     条件结束
  64. 循环结束
  65. dm.MoveTo(x,y)
  66. 延时 1000 毫秒
  67. dm.LeftDoubleClick()
  68. 延时 100 毫秒
  69. 子程序 shuangji()
  70.     延时 5000 毫秒
  71.     dm.keypress(77)
  72.     延时 1000 毫秒
  73.     dm.MoveTo(788,237)
  74.     延时 1000 毫秒
  75.     dm.LeftDoubleClick()
  76.     延时 1000 毫秒
  77.     dm.keypress(77)
  78.     延时 1000 毫秒
  79. 子程序结束
  80. 注释：回到帮派
  81. 令 i = 0
  82. 循环当 i = 0 时
  83.     令 dm_ret = dm.FindStr(35,421,101,442,"回到帮派","362000-000000",1.0,x,y)
  84.     如果 x >= 0 并且 y >= 0 则
  85.         令 i = 1
  86.     条件结束
  87. 循环结束
  88. dm.MoveTo(x,y)
  89. 延时 500 毫秒
  90. dm.LeftDoubleClick()
  91. 延时 1000 毫秒
  92. 标记 绿子仓
  93. 令 i = 0
  94. 循环当 i = 0 时
  95.     令 dm_ret = dm.FindStr(802,321,837,339,"绿子仓","61e400-000000",1.0,x,y)
  96.     如果 x >= 0 并且 y >= 0 则
  97.         令 i = 1
  98.     条件结束
  99. 循环结束
  100. dm.MoveTo(x,y)