1.     延时2000毫秒
  2.     左键单击
  3.     延时2000毫秒
  4.     标记 反复确认掠夺标签是否存在
  5.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
  6.     如果表达式 (intX>0 and intY>0) 为真,则
  7.         跳转到标记 反复确认掠夺标签是否存在
  8.     否则
  9.         鼠标移到 724 , 619
  10.         延时100毫秒
  11.         鼠标移到 725 , 620
  12.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
  13.         如果表达式 (intX>0 and intY>0) 为真,则
  14.             延时2000毫秒
  15.             鼠标移到 intX , intY
  16.             延时2000毫秒
  17.             左键单击
  18.             延时2000毫秒
  19.             跳转到标记 程序开始
  20.             // 一次掠夺完成 可以返回再次进行掠夺操作
  21.         否则
  22.             跳转到标记 返回关闭出征确定标签
  23.         条件结束
  24.     条件结束
  25. 子程序结束,回到调用处
  26. 脚本停止运行
  27. //================================================================================================================