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