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