1. //============== ===================
  2. //============== ===================
  3. //==============子程序 =========寻找3级平地====================================
  4. 子程序 寻找3级平地5
  5.     //3级平地自动寻找
  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.         //查看有没有 掠夺 选项
  17.         鼠标移到 724 , 619
  18.         延时100毫秒
  19.         鼠标移到 725 , 620
  20.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
  21.         如果表达式 (intX>0 and intY>0) 为真,则
  22.             延时2000毫秒
  23.             鼠标移到 intX , intY
  24.             延时2000毫秒
  25.             左键单击
  26.             延时2000毫秒
  27.             调用子程序 掠夺
  28.             // 掠夺
  29.         否则
  30.             // 没有 掠夺 选项，有 叉叉 则关闭窗口
  31.             鼠标移到 724 , 619
  32.             延时100毫秒
  33.             鼠标移到 725 , 620
  34.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
  35.             如果表达式 (intX>0 and intY>0) 为真,则
  36.                 延时2000毫秒
  37.                 鼠标移到 intX , intY
  38.                 延时2000毫秒
  39.                 左键单击
  40.                 延时2000毫秒
  41.                 //下上左右都移动了一格查找3级野地，没有合适野地
  42.             条件结束
  43.         条件结束
  44.     否则
  45.         //下上左右都移动了一格查找3级野地，没有合适野地
  46.     条件结束
  47. 子程序结束,回到调用处
  48. 脚本停止运行
  49. //================================================================================================================
  50. //============== ===================
  51. //============== ===================
  52. //============== ===================
  53. //============== ===================
  54. //============== ===================
  55. //============== ===================
  56. //============== ===================
  57. //============== ===================
  58. //============== ===================
  59. //============== ===================
  60. //==============子程序 =========掠夺操作====================================
  61. 子程序 掠夺
  62.     //掠夺操作
  63.     延时2000毫秒
  64.     鼠标移到 441 , 391
  65.     延时2000毫秒
  66.     左键单击
  67.     延时2000毫秒
  68.     标记 再次确认加兵标签是否存在
  69.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
  70.     如果表达式 (intX>0 and intY>0) 为真,则
  71.         延时2000毫秒
  72.         鼠标移到 intX , intY
  73.         延时2000毫秒
  74.         左键单击
  75.     否则
  76.         跳转到标记 再次确认加兵标签是否存在
  77.     条件结束
  78.     延时2000毫秒
  79.     标记 再次确认出征标签是否存在
  80.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
  81.     如果表达式 (intX>0 and intY>0) 为真,则
  82.         延时2000毫秒
  83.         鼠标移到 intX , intY
  84.         延时2000毫秒
  85.         左键单击
  86.     否则
  87.         跳转到标记 再次确认出征标签是否存在
  88.     条件结束
  89.     如果 (711,507) 的颜色等于 #c7f9ff 则
  90.         跳转到标记 返回关闭出征确定标签
  91.     否则
  92.         跳转到标记 再次确认出征标签是否存在
  93.     条件结束
  94.     标记 返回关闭出征确定标签
  95.     延时2000毫秒
  96.     鼠标移到 715 , 510
  97.     延时2000毫秒
  98.     左键单击
  99.     延时2000毫秒
  100.     鼠标移到 859 , 667