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