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