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