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