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