1.         左键单击
  2.         延时1000毫秒
  3.         标记 waitnoeb
  4.         调用子程序 finditem
  5.         如果表达式 (location=1) 为真,则
  6.             延时10毫秒
  7.             跳转到标记 oneb
  8.         条件结束
  9.         延时1500毫秒
  10.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  11.         如果表达式 (thex>0 and they>0) 为真,则
  12.             dealy 1000
  13.             跳转到标记 waitnoeb
  14.         条件结束
  15.     否则
  16.     条件结束
  17. 子程序结束,回到调用处
  18. //**********************************砍第二棵树****************************
  19. 子程序 cutingtwo
  20.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  21.     如果表达式 (treex>0 and treey>0) 为真,则
  22.         延时200毫秒
  23.         鼠标移到 treex , treey
  24.         延时400毫秒
  25.         左键单击
  26.         延时1000毫秒
  27.         标记 waittwo
  28.         调用子程序 finditem
  29.         如果表达式 (location=1) 为真,则
  30.             延时100毫秒
  31.             跳转到标记 two
  32.         条件结束
  33.         延时1500毫秒
  34.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  35.         如果表达式 (thex>0 and they>0) 为真,则
  36.             dealy 1000
  37.             跳转到标记 waittwo
  38.         条件结束
  39.     否则
  40.     条件结束
  41. 子程序结束,回到调用处
  42. //******************砍第三棵树************************************
  43. 子程序 cutingthree
  44.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  45.     如果表达式 (treex>0 and treey>0) 为真,则
  46.         延时200毫秒
  47.         鼠标移到 treex , treey
  48.         延时400毫秒
  49.         左键单击
  50.         延时1000毫秒
  51.         标记 waitthree
  52.         调用子程序 finditem
  53.         如果表达式 (location=1) 为真,则
  54.             延时10毫秒
  55.             跳转到标记 three
  56.         条件结束
  57.         延时1500毫秒
  58.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  59.         如果表达式 (thex>0 and they>0) 为真,则
  60.             dealy 1000
  61.             跳转到标记 waitthree
  62.         条件结束
  63.     否则
  64.     条件结束
  65. 子程序结束,回到调用处
  66. //*****************************查包子程*************************************
  67. 子程序 finditem
  68.     延时500毫秒
  69.     鼠标移到 788 , 350
  70.     延时500毫秒
  71.     左键单击
  72.     延时500毫秒
  73.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  74.     如果表达式 (x>0 and y>0) 为真,则
  75.         //***************给标志位赋值******************
  76.         location=1
  77.     否则
  78.         location=0
  79.     条件结束
  80.     // VBSCall call messagebox(cstr(location))
  81. 子程序结束,回到调用处
  82. //******************************返程*********************************
  83. 子程序 gohome
  84.     调用子程序 gohome1
  85.     调用子程序 gohome2
  86.     调用子程序 gohome3
  87.     调用子程序 gohome4
  88.     调用子程序 gohome5
  89.     调用子程序 gohome6
  90.     调用子程序 findnpc
  91. 子程序结束,回到调用处
  92. //**************************返程子程，共分为6个部分(共6个)*************************************
  93. 子程序 gohome1
  94.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
  95.     如果表达式 (x>0 and y>0) 为真,则
  96.         延时500毫秒
  97.         鼠标移到 x , y
  98.         延时500毫秒
  99.         按住<Ctrl>
  100.         延时100毫秒