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