1.             延时2000毫秒
  2.             调用子程序 掠夺
  3.             // 掠夺
  4.         否则
  5.             // 没有 掠夺 选项，有 叉叉 则关闭窗口
  6.             鼠标移到 724 , 619
  7.             延时100毫秒
  8.             鼠标移到 725 , 620
  9.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
  10.             如果表达式 (intX>0 and intY>0) 为真,则
  11.                 延时2000毫秒
  12.                 鼠标移到 intX , intY
  13.                 延时2000毫秒
  14.                 左键单击
  15.                 延时2000毫秒
  16.                 调用子程序 下一格寻找3级野地
  17.                 //MessageBox //跳转到移动一格寻找
  18.             条件结束
  19.         条件结束
  20.     否则
  21.         调用子程序 下一格寻找3级野地
  22.         //MessageBox //跳转到移动一格寻找
  23.     条件结束
  24. 子程序结束,回到调用处
  25. 脚本停止运行
  26. //================================================================================================================
  27. //============== ===================
  28. //============== ===================
  29. //============== ===================
  30. //============== ===================
  31. //============== ===================
  32. //============== ===================
  33. //============== ===================
  34. //============== ===================
  35. //============== ===================
  36. //============== 111111===================
  37. //============== 主程序 ===============
  38. 子程序 下一格寻找3级野地
  39.     鼠标移到 724 , 619
  40.     延时100毫秒
  41.     鼠标移到 725 , 620
  42.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
  43.     如果表达式 (intX>0 and intY>0) 为真,则
  44.         鼠标移到 intX , intY
  45.         延时2000毫秒
  46.         左键单击
  47.         延时2000毫秒
  48.         跳转到标记 反复确定主城存在2
  49.     否则
  50.         //没有主城选项则点击 地图
  51.         鼠标移到 724 , 619
  52.         延时100毫秒
  53.         鼠标移到 725 , 620
  54.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
  55.         如果表达式 (intX>0 and intY>0) 为真,则
  56.             鼠标移到 intX , intY
  57.             延时2000毫秒
  58.             左键单击
  59.             延时2000毫秒
  60.             // 单击主城按键刷新野地
  61.             鼠标移到 724 , 619
  62.             延时100毫秒
  63.             鼠标移到 725 , 620
  64.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
  65.             如果表达式 (intX>0 and intY>0) 为真,则
  66.                 鼠标移到 intX , intY
  67.                 延时2000毫秒
  68.                 左键单击
  69.                 延时2000毫秒
  70.                 跳转到标记 反复确定主城存在2
  71.             条件结束
  72.         条件结束
  73.     条件结束
  74.     标记 反复确定主城存在2
  75.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
  76.     如果表达式 (intX>0 and intY>0) 为真,则
  77.         跳转到标记 向下移动一格
  78.     否则
  79.         跳转到标记 反复确定主城存在2
  80.     条件结束
  81.     标记 向下移动一格
  82.     //向下移动一格
  83.     鼠标移到 723 , 618
  84.     延时2000毫秒
  85.     左键单击
  86.     延时2000毫秒
  87.     调用子程序 寻找3级森林2
  88. 子程序结束,回到调用处
  89. 脚本停止运行
  90. //================================================================================================================
  91. //============== ===================
  92. //============== ===================
  93. //============== ===================
  94. //============== ===================
  95. //============== ===================
  96. //============== ===================
  97. //============== ===================
  98. //============== ===================
  99. //============== ===================
  100. //==============子程序 =========寻找3级平地====================================