1.         延时32毫秒
  2.         t3=now
  3.     条件结束
  4. 子程序结束,回到调用处
  5. 子程序 捡钱x
  6.     如果表达式 (zidongjianwu=1) 为真,则
  7.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
  8.         如果表达式 (x1>=0 and y1>=0) 为真,则
  9.             a=x1:b=y1
  10.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
  11.             如果表达式 (x2>=0 and y2>=0) 为真,则
  12.                 鼠标移到 a , b
  13.                 延时32毫秒
  14.                 左键单击
  15.                 a="":b=""
  16.             条件结束
  17.         条件结束
  18.     条件结束
  19. 子程序结束,回到调用处
  20. 子程序 捡流星
  21.     如果表达式 (zidongjianwu=1) 为真,则
  22.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
  23.         如果表达式 (x1>=0 and y1>=0) 为真,则
  24.             g=x1:h=y1
  25.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
  26.             如果表达式 (x2>=0 and y2>=0) 为真,则
  27.                 鼠标移到 g , h
  28.                 延时32毫秒
  29.                 左键单击
  30.                 g="":h=""
  31.             条件结束
  32.         条件结束
  33.     条件结束
  34. 子程序结束,回到调用处
  35. 子程序 捡粉红水晶x
  36.     如果表达式 (zidongjianwu=1) 为真,则
  37.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
  38.         如果表达式 (x1>=0 and y1>=0) 为真,则
  39.             i=x1:j=y1
  40.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
  41.             如果表达式 (x2>=0 and y2>=0) 为真,则
  42.                 鼠标移到 i , j
  43.                 延时32毫秒
  44.                 左键单击
  45.                 i="":j=""
  46.             条件结束
  47.         条件结束
  48.     条件结束
  49. 子程序结束,回到调用处
  50. 子程序 捡蓝水晶x
  51.     如果表达式 (zidongjianwu=1) 为真,则
  52.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
  53.         如果表达式 (x1>=0 and y1>=0) 为真,则
  54.             k=x1:l=y1
  55.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
  56.             如果表达式 (x2>=0 and y2>=0) 为真,则
  57.                 鼠标移到 k , l
  58.                 延时32毫秒
  59.                 左键单击
  60.                 k="":l=""
  61.             条件结束
  62.         条件结束
  63.     条件结束
  64. 子程序结束,回到调用处
  65. 子程序 捡聚态水晶
  66.     如果表达式 (zidongjianwu=1) 为真,则
  67.         调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
  68.         如果表达式 (x1>=0 and y1>=0) 为真,则
  69.             q=x1:r=y1
  70.             调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
  71.             如果表达式 (x2>=0 and y2>=0) 为真,则
  72.                 鼠标移到 g , h
  73.                 延时32毫秒
  74.                 左键单击
  75.                 q="":r=""
  76.             条件结束
  77.         条件结束
  78.     条件结束
  79. 子程序结束,回到调用处
  80. 子程序 检测xp
  81.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(150,100,820,460,"303b8",1,0.8,x,y)
  82.     如果表达式 (x>=0 and y>=0) 为真,则
  83.         调用子程序 xp1
  84.         调用子程序 xp2
  85.         调用子程序 xp3
  86.     条件结束
  87. 子程序结束,回到调用处
  88. 子程序 xp1
  89.     如果表达式 (xp=1) 为真,则
  90.         鼠标移到 935 , 540
  91.         延时32毫秒
  92.         左键单击
  93.     条件结束
  94. 子程序结束,回到调用处
  95. 子程序 xp2
  96.     如果表达式 (xp=2) 为真,则
  97.         鼠标移到 881 , 547
  98.         延时32毫秒
  99.         左键单击
  100.     条件结束