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