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