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