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