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