1.         左键单击
  2.         延时1000毫秒
  3.     否则
  4.     条件结束
  5. 子程序结束,回到调用处
  6. //******************第二棵树a**********************************
  7. 子程序 twotree
  8.     调用子程序 opensecond
  9.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  10.     如果表达式 (twox>0 and twoy>0) 为真,则
  11.         延时500毫秒
  12.         鼠标移到 twox , twoy
  13.         延时500毫秒
  14.         左键单击
  15.     条件结束
  16.     调用子程序 openfirst
  17. 子程序结束,回到调用处
  18. 子程序 chacktwo
  19.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  20.     如果表达式 (x>0 and y>0) 为真,则
  21.         延时500毫秒
  22.         鼠标移到 x , y
  23.         延时500毫秒
  24.         左键单击
  25.         延时10000毫秒
  26.     否则
  27.     条件结束
  28. 条件结束
  29. 子程序结束,回到调用处
  30. //******************第三棵树a*********************************
  31. 子程序 threetree
  32.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  33.     如果表达式 (threex>0 and threey>0) 为真,则
  34.         延时500毫秒
  35.         延时100毫秒
  36.         鼠标移到 threex , threey
  37.         延时500毫秒
  38.         左键单击
  39.         延时15000毫秒
  40.         调用子程序 cutingthree
  41.         标记 three
  42.         如果表达式 (location=1) 为真,则
  43.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  44.             如果表达式 (x>0 and y>0) 为真,则
  45.                 延时500毫秒
  46.                 鼠标移到 x , y
  47.                 延时500毫秒
  48.                 左键单击
  49.                 延时20000毫秒
  50.                 调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  51.                 如果表达式 (x>0 and y>0) 为真,则
  52.                     延时500毫秒
  53.                     鼠标移到 x , y
  54.                     延时500毫秒
  55.                     左键单击
  56.                     延时10000毫秒
  57.                 否则
  58.                 条件结束
  59.                 调用子程序 gohome
  60.             否则
  61.             条件结束
  62.         否则
  63.         条件结束
  64.     否则
  65.     条件结束
  66. 子程序结束,回到调用处
  67. //***********砍树过程***********************************************
  68. //*********************第一棵树*************************************
  69. 子程序 cutingone
  70.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  71.     如果表达式 (treex>0 and treey>0) 为真,则
  72.         延时200毫秒
  73.         鼠标移到 treex , treey
  74.         延时400毫秒
  75.         左键单击
  76.         延时100毫秒
  77.         调用子程序 cutingsecondonetree
  78.         标记 wait
  79.         调用子程序 finditem
  80.         如果表达式 (location=1) 为真,则
  81.             延时10毫秒
  82.             跳转到标记 one
  83.         条件结束
  84.         延时1500毫秒
  85.         //******************查看树有没有死****************************
  86.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  87.         如果表达式 (thex>0 and they>0) 为真,则
  88.             dealy 1000
  89.             跳转到标记 wait
  90.         条件结束
  91.     否则
  92.     条件结束
  93. 子程序结束,回到调用处
  94. //*************************************第1b棵树*************************
  95. 子程序 cutingoneb
  96.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  97.     如果表达式 (treex>0 and treey>0) 为真,则
  98.         延时200毫秒
  99.         鼠标移到 treex , treey
  100.         延时400毫秒