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